my $whois = $self->whois;
return "Domain in use (see whois)"
- if ( $self->action eq "N" && $whois );
+ if ( $self->action eq "N" && ! $whois_hack && $whois );
return "Domain not found (see whois)"
if ( $self->action eq "M" && ! $whois );
'recaf' => 'IN',
'rectype' => 'SOA',
'recdata' => "$soamachine $soaemail ( ". time2str("%Y%m%e", time). "00 ".
- "$soarefresh $soarety $soaexpire $soadefaultttl )"
+ "$soarefresh $soaretry $soaexpire $soadefaultttl )"
};
$error = $soa->insert;
warn "WARNING: couldn't insert SOA record for new domain: $error" if $error;
- foreach $nsmachine ( @nsmachines ) {
+ foreach my $nsmachine ( @nsmachines ) {
my $ns = new FS::domain_record {
'svcnum' => $self->svcnum,
'reczone' => '@',
if $error;
}
- foreach $mxmachine ( @mxmachines ) {
+ foreach my $mxmachine ( @mxmachines ) {
my $mx = new FS::domain_record {
'svcnum' => $self->svcnum,
'reczone' => '@',
=head1 VERSION
-$Id: svc_domain.pm,v 1.5 2000-02-03 05:16:52 ivan Exp $
+$Id: svc_domain.pm,v 1.7 2000-06-29 11:12:20 ivan Exp $
=head1 BUGS