From: ivan <ivan>
Date: Sat, 20 Apr 2002 10:49:33 +0000 (+0000)
Subject: allow * MX records
X-Git-Tag: freeside_1_4_0_pre12~34
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=cb63b8c06cdf912ce61b4b459a238dadfd9c64fc

allow * MX records
---

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