From fdf62da26a4a9127fd43f359163f231a89bc692d Mon Sep 17 00:00:00 2001
From: khoff <khoff>
Date: Thu, 24 Apr 2003 18:45:03 +0000
Subject: Support for nWnDnHnMnS time format

---
 FS/FS/domain_record.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/FS/FS/domain_record.pm b/FS/FS/domain_record.pm
index 2f7e270dc..d3682c351 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
 
-- 
cgit v1.2.1