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;
my $x = $self->setfixed;
return $x unless ref($x);
- my $part_svc = $x;
+ #my $part_svc = $x;
my $error = $self->ut_numbern('svcnum')
|| $self->ut_numbern('catchall')
=head1 VERSION
-$Id: svc_domain.pm,v 1.17 2001-08-20 11:04:38 ivan Exp $
+$Id: svc_domain.pm,v 1.20 2001-09-06 20:41:59 ivan Exp $
=head1 BUGS