use vars qw( @ISA $whois_hack $conf $smtpmachine
$tech_contact $from $to @nameservers @nameserver_ips @template
@mxmachines @nsmachines $soadefaultttl $soaemail $soaexpire $soamachine
- $soarefresh $soaretry
+ $soarefresh $soaretry $qshellmachine $nossh_hack
);
use Carp;
use Mail::Internet;
return $x unless ref($x);
my $part_svc = $x;
- my $error = $self->ut_numbern('catchall');
+ my $error = $self->ut_numbern('svcnum')
+ || $self->ut_numbern('catchall')
+ ;
return $error if $error;
#hmm
=head1 VERSION
-$Id: svc_domain.pm,v 1.16 2001-08-20 09:41:52 ivan Exp $
+$Id: svc_domain.pm,v 1.19 2001-08-21 00:39:07 ivan Exp $
=head1 BUGS