diff options
author | khoff <khoff> | 2003-04-29 18:28:50 +0000 |
---|---|---|
committer | khoff <khoff> | 2003-04-29 18:28:50 +0000 |
commit | e77371fc4d3443c7b97a387bd25897b52200d64a (patch) | |
tree | cecca3df61fab2e04bb1db11ec36a89dd4816ce8 | |
parent | c4a7388a676878b64a3d3b2b2e0a4004e4daf669 (diff) |
Better SOA checking
-rw-r--r-- | FS/FS/domain_record.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/FS/FS/domain_record.pm b/FS/FS/domain_record.pm index d3682c351..77b955088 100644 --- a/FS/FS/domain_record.pm +++ b/FS/FS/domain_record.pm @@ -241,7 +241,7 @@ sub check { if ( $self->rectype eq 'SOA' ) { my $recdata = $self->recdata; $recdata =~ s/\s+/ /g; - $recdata =~ /^([a-z0-9\.\-]+ [\w\-\+]+\.[a-z0-9\.\-]+ \( ([\dwdhmsWDHMS]+ ){5}\))$/i + $recdata =~ /^([a-z0-9\.\-]+ [\w\-\+]+\.[a-z0-9\.\-]+ \( ((\d+|((\d+[WDHMS])+)) ){5}\))$/i or return "Illegal data for SOA record: $recdata"; $self->recdata($1); } elsif ( $self->rectype eq 'NS' ) { @@ -332,7 +332,7 @@ sub zone { =head1 VERSION -$Id: domain_record.pm,v 1.14 2003-04-24 18:45:03 khoff Exp $ +$Id: domain_record.pm,v 1.15 2003-04-29 18:28:50 khoff Exp $ =head1 BUGS |