X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fsvc_domain.pm;h=5cfe690818a3e1a8150128dee2e7304477a7ef91;hb=a875d5b4fd2d12937c7a53bed773490e2f3ba50f;hp=4d4db5ad874a7606bfe5bdc7928875b2691bdf95;hpb=5bd5f206a77cf975515d955119d4dff7764a2d8c;p=freeside.git

diff --git a/FS/FS/svc_domain.pm b/FS/FS/svc_domain.pm
index 4d4db5ad8..5cfe69081 100644
--- a/FS/FS/svc_domain.pm
+++ b/FS/FS/svc_domain.pm
@@ -160,7 +160,7 @@ sub insert {
 
   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 );
 
@@ -176,12 +176,12 @@ sub insert {
       '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' => '@',
@@ -194,7 +194,7 @@ sub insert {
         if $error;
     }
 
-    foreach $mxmachine ( @mxmachines ) {
+    foreach my $mxmachine ( @mxmachines ) {
       my $mx = new FS::domain_record {
         'svcnum'  => $self->svcnum,
         'reczone' => '@',
@@ -459,7 +459,7 @@ sub submit_internic {
 
 =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