diff options
| author | khoff <khoff> | 2003-04-24 18:45:03 +0000 |
|---|---|---|
| committer | khoff <khoff> | 2003-04-24 18:45:03 +0000 |
| commit | fdf62da26a4a9127fd43f359163f231a89bc692d (patch) | |
| tree | 08b51cc523dbc1de822287413c896303d28671df /FS/FS/domain_record.pm | |
| parent | 21bc19b84183312dbb4087a33ad1ce5877088f82 (diff) | |
Support for nWnDnHnMnS time format
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 2f7e270..d3682c3 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\.\-]+ \( (\d+ ){5}\))$/i + $recdata =~ /^([a-z0-9\.\-]+ [\w\-\+]+\.[a-z0-9\.\-]+ \( ([\dwdhmsWDHMS]+ ){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.13 2003-03-29 04:53:44 ivan Exp $ +$Id: domain_record.pm,v 1.14 2003-04-24 18:45:03 khoff Exp $ =head1 BUGS |