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 /FS/FS/domain_record.pm | |
| parent | c4a7388a676878b64a3d3b2b2e0a4004e4daf669 (diff) | |
Better SOA checking
Diffstat (limited to 'FS/FS/domain_record.pm')
| -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 d3682c3..77b9550 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 |