diff options
author | ivan <ivan> | 2000-03-01 08:13:59 +0000 |
---|---|---|
committer | ivan <ivan> | 2000-03-01 08:13:59 +0000 |
commit | 051f66ab072bfbb2a074f656b9886ccbc47287ed (patch) | |
tree | fa1811d3af7d912e3a6d445016a4a756d38c6a32 /FS/FS/svc_domain.pm | |
parent | 7d6c833f134715aa9388de35ceb53ff7697bee81 (diff) |
compilation bugfixes
Diffstat (limited to 'FS/FS/svc_domain.pm')
-rw-r--r-- | FS/FS/svc_domain.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/FS/FS/svc_domain.pm b/FS/FS/svc_domain.pm index 4d4db5a..e1e4eb8 100644 --- a/FS/FS/svc_domain.pm +++ b/FS/FS/svc_domain.pm @@ -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.6 2000-03-01 08:13:59 ivan Exp $ =head1 BUGS |