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);
$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;
=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