diff options
| author | ivan <ivan> | 2002-04-20 10:49:33 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-04-20 10:49:33 +0000 |
| commit | cb63b8c06cdf912ce61b4b459a238dadfd9c64fc (patch) | |
| tree | 1af86862f1beac6dcc7f21f38d8478c3286325dc | |
| parent | 01d8a89e66c00077619e408ce8a79f847e32214c (diff) | |
allow * MX records
| -rw-r--r-- | FS/FS/domain_record.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/FS/FS/domain_record.pm b/FS/FS/domain_record.pm index 23955b62e..24db4c2f4 100644 --- a/FS/FS/domain_record.pm +++ b/FS/FS/domain_record.pm @@ -107,7 +107,7 @@ sub check { return "Unknown svcnum (in svc_domain)" unless qsearchs('svc_domain', { 'svcnum' => $self->svcnum } ); - $self->reczone =~ /^(@|[a-z0-9\.\-]+)$/i + $self->reczone =~ /^(@|[a-z0-9\.\-\*]+)$/i or return "Illegal reczone: ". $self->reczone; $self->reczone($1); @@ -119,6 +119,9 @@ sub check { $self->rectype; $self->rectype($1); + return "Illegal reczone for ". $self->rectype. ": ". $self->reczone + if $self->rectype !~ /^MX$/i && $self->reczone =~ /\*/; + if ( $self->rectype eq 'SOA' ) { my $recdata = $self->recdata; $recdata =~ s/\s+/ /g; @@ -156,7 +159,7 @@ sub check { =head1 VERSION -$Id: domain_record.pm,v 1.5 2002-04-20 10:12:26 ivan Exp $ +$Id: domain_record.pm,v 1.6 2002-04-20 10:49:33 ivan Exp $ =head1 BUGS |