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 | |
parent | 7d6c833f134715aa9388de35ceb53ff7697bee81 (diff) |
compilation bugfixes
Diffstat (limited to 'FS')
-rw-r--r-- | FS/FS/svc_domain.pm | 8 | ||||
-rw-r--r-- | FS/FS/svc_www.pm | 9 | ||||
-rw-r--r-- | FS/MANIFEST | 3 |
3 files changed, 13 insertions, 7 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 diff --git a/FS/FS/svc_www.pm b/FS/FS/svc_www.pm index fc1419c..bb765b1 100644 --- a/FS/FS/svc_www.pm +++ b/FS/FS/svc_www.pm @@ -10,7 +10,7 @@ use FS::domain_record; use FS::svc_acct; use FS::SSH qw(ssh); -@ISA = qw(svc_Common); +@ISA = qw( FS::svc_Common ); #ask FS::UID to run this stuff for us later $FS::UID::callback{'FS::svc_www'} = sub { @@ -220,7 +220,7 @@ sub check { =head1 VERSION -$Id: svc_www.pm,v 1.1 2000-02-03 05:16:52 ivan Exp $ +$Id: svc_www.pm,v 1.2 2000-03-01 08:13:59 ivan Exp $ =head1 BUGS @@ -232,7 +232,10 @@ L<FS::part_svc>, L<FS::cust_pkg>, schema.html from the base documentation. =head1 HISTORY $Log: svc_www.pm,v $ -Revision 1.1 2000-02-03 05:16:52 ivan +Revision 1.2 2000-03-01 08:13:59 ivan +compilation bugfixes + +Revision 1.1 2000/02/03 05:16:52 ivan beginning of DNS and Apache support diff --git a/FS/MANIFEST b/FS/MANIFEST index e1b4413..e0b5b51 100644 --- a/FS/MANIFEST +++ b/FS/MANIFEST @@ -46,3 +46,6 @@ Makefile.PL test.pl README bin/freeside-bill +FS/domain_record.pm +FS/prepay_credit.pm +FS/svc_www.pm |