From 051f66ab072bfbb2a074f656b9886ccbc47287ed Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 1 Mar 2000 08:13:59 +0000
Subject: [PATCH] compilation bugfixes

---
 FS/FS/svc_domain.pm | 8 ++++----
 FS/FS/svc_www.pm    | 9 ++++++---
 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 4d4db5ad8..e1e4eb8b5 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 fc1419c7d..bb765b193 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 e1b4413c6..e0b5b51e5 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
-- 
2.11.0