summaryrefslogtreecommitdiff
path: root/htdocs/edit
diff options
context:
space:
mode:
Diffstat (limited to 'htdocs/edit')
-rwxr-xr-xhtdocs/edit/agent.cgi10
-rwxr-xr-xhtdocs/edit/agent_type.cgi10
-rwxr-xr-xhtdocs/edit/cust_credit.cgi10
-rwxr-xr-xhtdocs/edit/cust_main.cgi10
-rwxr-xr-xhtdocs/edit/cust_main_county-expand.cgi10
-rwxr-xr-xhtdocs/edit/cust_main_county.cgi10
-rwxr-xr-xhtdocs/edit/cust_pay.cgi10
-rwxr-xr-xhtdocs/edit/cust_pkg.cgi10
-rwxr-xr-xhtdocs/edit/part_pkg.cgi10
-rwxr-xr-xhtdocs/edit/part_referral.cgi10
-rwxr-xr-xhtdocs/edit/part_svc.cgi10
-rwxr-xr-xhtdocs/edit/svc_acct.cgi10
-rwxr-xr-xhtdocs/edit/svc_acct_pop.cgi10
-rwxr-xr-xhtdocs/edit/svc_acct_sm.cgi10
-rwxr-xr-xhtdocs/edit/svc_domain.cgi10
15 files changed, 105 insertions, 45 deletions
diff --git a/htdocs/edit/agent.cgi b/htdocs/edit/agent.cgi
index 44c1676b2..291f1b234 100755
--- a/htdocs/edit/agent.cgi
+++ b/htdocs/edit/agent.cgi
@@ -1,6 +1,6 @@
#!/usr/bin/perl -Tw
#
-# $Id: agent.cgi,v 1.3 1998-12-17 06:16:57 ivan Exp $
+# $Id: agent.cgi,v 1.4 1999-01-18 09:41:21 ivan Exp $
#
# ivan@sisd.com 97-dec-12
#
@@ -11,7 +11,11 @@
# use FS::CGI, added inline documentation ivan@sisd.com 98-jul-12
#
# $Log: agent.cgi,v $
-# Revision 1.3 1998-12-17 06:16:57 ivan
+# Revision 1.4 1999-01-18 09:41:21 ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.3 1998/12/17 06:16:57 ivan
# fix double // in relative URLs, s/CGI::Base/CGI/;
#
# Revision 1.2 1998/11/23 07:52:08 ivan
@@ -44,7 +48,7 @@ my($hashref)=$agent->hashref;
my $p = popurl(2);
-print $cgi->header, header("$action Agent", menubar(
+print $cgi->header( '-expires' => 'now' ), header("$action Agent", menubar(
'Main Menu' => $p,
'View all agents' => $p. 'browse/agent.cgi',
)), '<FORM ACTION="', popurl(1), 'process/agent.cgi" METHOD=POST>';
diff --git a/htdocs/edit/agent_type.cgi b/htdocs/edit/agent_type.cgi
index 9bfc37429..b9da2a283 100755
--- a/htdocs/edit/agent_type.cgi
+++ b/htdocs/edit/agent_type.cgi
@@ -1,6 +1,6 @@
#!/usr/bin/perl -Tw
#
-# $Id: agent_type.cgi,v 1.7 1999-01-18 09:22:29 ivan Exp $
+# $Id: agent_type.cgi,v 1.8 1999-01-18 09:41:22 ivan Exp $
#
# agent_type.cgi: Add/Edit agent type (output form)
#
@@ -13,7 +13,11 @@
# use FS::CGI, added inline documentation ivan@sisd.com 98-jul-12
#
# $Log: agent_type.cgi,v $
-# Revision 1.7 1999-01-18 09:22:29 ivan
+# Revision 1.8 1999-01-18 09:41:22 ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.7 1999/01/18 09:22:29 ivan
# changes to track email addresses for email invoicing
#
# Revision 1.6 1998/12/17 06:16:58 ivan
@@ -61,7 +65,7 @@ if ( $cgi->keywords ) { #editing
my($hashref)=$agent_type->hashref;
my($p)=popurl(2);
-print $cgi->header, header("$action Agent Type", menubar(
+print $cgi->header( '-expires' => 'now' ), header("$action Agent Type", menubar(
'Main Menu' => "$p",
'View all agent types' => "${p}browse/agent_type.cgi",
)), '<FORM ACTION="', popurl(1), 'process/agent_type.cgi" METHOD=POST>';
diff --git a/htdocs/edit/cust_credit.cgi b/htdocs/edit/cust_credit.cgi
index 02b8008f7..4b7276f4b 100755
--- a/htdocs/edit/cust_credit.cgi
+++ b/htdocs/edit/cust_credit.cgi
@@ -1,6 +1,6 @@
#!/usr/bin/perl -Tw
#
-# $Id: cust_credit.cgi,v 1.3 1998-12-23 02:26:06 ivan Exp $
+# $Id: cust_credit.cgi,v 1.4 1999-01-18 09:41:23 ivan Exp $
#
# Usage: cust_credit.cgi custnum [ -paybatch ]
# http://server.name/path/cust_credit?custnum [ -paybatch ]
@@ -25,7 +25,11 @@
# rewrite ivan@sisd.com 98-mar-16
#
# $Log: cust_credit.cgi,v $
-# Revision 1.3 1998-12-23 02:26:06 ivan
+# Revision 1.4 1999-01-18 09:41:23 ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.3 1998/12/23 02:26:06 ivan
# *** empty log message ***
#
# Revision 1.2 1998/12/17 06:16:59 ivan
@@ -51,7 +55,7 @@ my($otaker)=getotaker;
my $p1 = popurl(1);
-print $cgi->header, header("Post Credit", ''), <<END;
+print $cgi->header( '-expires' => 'now' ), header("Post Credit", ''), <<END;
<FORM ACTION="${p1}process/cust_credit.cgi" METHOD=POST>
<HR><PRE>
END
diff --git a/htdocs/edit/cust_main.cgi b/htdocs/edit/cust_main.cgi
index d712f7649..174c7986f 100755
--- a/htdocs/edit/cust_main.cgi
+++ b/htdocs/edit/cust_main.cgi
@@ -1,6 +1,6 @@
#!/usr/bin/perl -Tw
#
-# $Id: cust_main.cgi,v 1.5 1999-01-18 09:22:30 ivan Exp $
+# $Id: cust_main.cgi,v 1.6 1999-01-18 09:41:24 ivan Exp $
#
# Usage: cust_main.cgi custnum
# http://server.name/path/cust_main.cgi?custnum
@@ -40,7 +40,11 @@
# fixed one missed day->daytime ivan@sisd.com 98-jul-13
#
# $Log: cust_main.cgi,v $
-# Revision 1.5 1999-01-18 09:22:30 ivan
+# Revision 1.6 1999-01-18 09:41:24 ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.5 1999/01/18 09:22:30 ivan
# changes to track email addresses for email invoicing
#
# Revision 1.4 1998/12/23 08:08:15 ivan
@@ -80,7 +84,7 @@ if ( $cgi->keywords ) { #editing
# top
my $p1 = popurl(1);
-print $cgi->header, header("Customer $action", ''),
+print $cgi->header( '-expires' => 'now' ), header("Customer $action", ''),
qq!<FORM ACTION="${p1}process/cust_main.cgi" METHOD=POST>!,
qq!<INPUT TYPE="hidden" NAME="custnum" VALUE="$custnum">!,
qq!Customer # !, ( $custnum ? $custnum : " (NEW)" ),
diff --git a/htdocs/edit/cust_main_county-expand.cgi b/htdocs/edit/cust_main_county-expand.cgi
index eccb1d934..1b231bcec 100755
--- a/htdocs/edit/cust_main_county-expand.cgi
+++ b/htdocs/edit/cust_main_county-expand.cgi
@@ -1,6 +1,6 @@
#!/usr/bin/perl -Tw
#
-# $Id: cust_main_county-expand.cgi,v 1.3 1998-12-17 06:17:01 ivan Exp $
+# $Id: cust_main_county-expand.cgi,v 1.4 1999-01-18 09:41:25 ivan Exp $
#
# ivan@sisd.com 97-dec-16
#
@@ -10,7 +10,11 @@
# lose background, FS::CGI ivan@sisd.com 98-sep-2
#
# $Log: cust_main_county-expand.cgi,v $
-# Revision 1.3 1998-12-17 06:17:01 ivan
+# Revision 1.4 1999-01-18 09:41:25 ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.3 1998/12/17 06:17:01 ivan
# fix double // in relative URLs, s/CGI::Base/CGI/;
#
# Revision 1.2 1998/11/18 09:01:38 ivan
@@ -38,7 +42,7 @@ my($cust_main_county)=qsearchs('cust_main_county',{'taxnum'=>$taxnum});
die "Can't expand entry!" if $cust_main_county->getfield('county');
my $p1 = popurl(1);
-print $cgi->header, header("Tax Rate (expand)", menubar(
+print $cgi->header( '-expires' => 'now' ), header("Tax Rate (expand)", menubar(
'Main Menu' => popurl(2),
)), <<END;
<FORM ACTION="${p1}process/cust_main_county-expand.cgi" METHOD=POST>
diff --git a/htdocs/edit/cust_main_county.cgi b/htdocs/edit/cust_main_county.cgi
index 537d5740a..7d5468bed 100755
--- a/htdocs/edit/cust_main_county.cgi
+++ b/htdocs/edit/cust_main_county.cgi
@@ -1,6 +1,6 @@
#!/usr/bin/perl -Tw
#
-# $Id: cust_main_county.cgi,v 1.3 1998-12-17 06:17:02 ivan Exp $
+# $Id: cust_main_county.cgi,v 1.4 1999-01-18 09:41:26 ivan Exp $
#
# ivan@sisd.com 97-dec-13-16
#
@@ -11,7 +11,11 @@
# lose background, FS::CGI ivan@sisd.com 98-sep-2
#
# $Log: cust_main_county.cgi,v $
-# Revision 1.3 1998-12-17 06:17:02 ivan
+# Revision 1.4 1999-01-18 09:41:26 ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.3 1998/12/17 06:17:02 ivan
# fix double // in relative URLs, s/CGI::Base/CGI/;
#
# Revision 1.2 1998/11/18 09:01:39 ivan
@@ -30,7 +34,7 @@ my($cgi) = new CGI;
&cgisuidsetup($cgi);
-print $cgi->header, header("Edit tax rates", menubar(
+print $cgi->header( '-expires' => 'now' ), header("Edit tax rates", menubar(
'Main Menu' => popurl(2),
)), qq!<FORM ACTION="!, popurl(1),
qq!process/cust_main_county.cgi" METHOD=POST>!, table, <<END;
diff --git a/htdocs/edit/cust_pay.cgi b/htdocs/edit/cust_pay.cgi
index a3a308803..929c9e7e4 100755
--- a/htdocs/edit/cust_pay.cgi
+++ b/htdocs/edit/cust_pay.cgi
@@ -1,6 +1,6 @@
#!/usr/bin/perl -Tw
#
-# $Id: cust_pay.cgi,v 1.2 1998-12-17 06:17:03 ivan Exp $
+# $Id: cust_pay.cgi,v 1.3 1999-01-18 09:41:27 ivan Exp $
#
# Usage: cust_pay.cgi invnum
# http://server.name/path/cust_pay.cgi?invnum
@@ -14,7 +14,11 @@
# rewrite ivan@sisd.com 98-mar-16
#
# $Log: cust_pay.cgi,v $
-# Revision 1.2 1998-12-17 06:17:03 ivan
+# Revision 1.3 1999-01-18 09:41:27 ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.2 1998/12/17 06:17:03 ivan
# fix double // in relative URLs, s/CGI::Base/CGI/;
#
@@ -33,7 +37,7 @@ $query =~ /^(\d+)$/;
my($invnum)=$1;
my $p1 = popurl(1);
-print $cgi->header, header("Enter payment", ''), <<END;
+print $cgi->header( '-expires' => 'now' ), header("Enter payment", ''), <<END;
<FORM ACTION="${p1}process/cust_pay.cgi" METHOD=POST>
<HR><PRE>
END
diff --git a/htdocs/edit/cust_pkg.cgi b/htdocs/edit/cust_pkg.cgi
index 68abf9698..763eeae07 100755
--- a/htdocs/edit/cust_pkg.cgi
+++ b/htdocs/edit/cust_pkg.cgi
@@ -1,6 +1,6 @@
#!/usr/bin/perl -Tw
#
-# $Id: cust_pkg.cgi,v 1.2 1998-12-17 06:17:04 ivan Exp $
+# $Id: cust_pkg.cgi,v 1.3 1999-01-18 09:41:28 ivan Exp $
#
# this is for changing packages around, not editing things within the package
#
@@ -25,7 +25,11 @@
# 98-jun-1
#
# $Log: cust_pkg.cgi,v $
-# Revision 1.2 1998-12-17 06:17:04 ivan
+# Revision 1.3 1999-01-18 09:41:28 ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.2 1998/12/17 06:17:04 ivan
# fix double // in relative URLs, s/CGI::Base/CGI/;
#
@@ -55,7 +59,7 @@ my($custnum)=$1;
my($otaker)=&getotaker;
my $p1 = popurl(1);
-print $cgi->header, header("Add/Edit Packages", ''), <<END;
+print $cgi->header( '-expires' => 'now' ), header("Add/Edit Packages", ''), <<END;
<FORM ACTION="${p1}process/cust_pkg.cgi" METHOD=POST>
<HR>
END
diff --git a/htdocs/edit/part_pkg.cgi b/htdocs/edit/part_pkg.cgi
index c30a85965..9870017ad 100755
--- a/htdocs/edit/part_pkg.cgi
+++ b/htdocs/edit/part_pkg.cgi
@@ -1,6 +1,6 @@
#!/usr/bin/perl -Tw
#
-# $Id: part_pkg.cgi,v 1.6 1998-12-17 06:17:05 ivan Exp $
+# $Id: part_pkg.cgi,v 1.7 1999-01-18 09:41:29 ivan Exp $
#
# part_pkg.cgi: Add/Edit package (output form)
#
@@ -13,7 +13,11 @@
# use FS::CGI, added inline documentation ivan@sisd.com 98-jul-12
#
# $Log: part_pkg.cgi,v $
-# Revision 1.6 1998-12-17 06:17:05 ivan
+# Revision 1.7 1999-01-18 09:41:29 ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.6 1998/12/17 06:17:05 ivan
# fix double // in relative URLs, s/CGI::Base/CGI/;
#
# Revision 1.5 1998/11/21 07:12:26 ivan
@@ -70,7 +74,7 @@ if ( $cgi->param('clone') ) {
}
my($hashref)=$part_pkg->hashref;
-print $cgi->header, header("$action Package Definition", menubar(
+print $cgi->header( '-expires' => 'now' ), header("$action Package Definition", menubar(
'Main Menu' => popurl(2),
'View all packages' => popurl(2). 'browse/part_pkg.cgi',
)), '<FORM ACTION="', popurl(1), 'process/part_pkg.cgi" METHOD=POST>';
diff --git a/htdocs/edit/part_referral.cgi b/htdocs/edit/part_referral.cgi
index 4eeec9982..e159e03ee 100755
--- a/htdocs/edit/part_referral.cgi
+++ b/htdocs/edit/part_referral.cgi
@@ -1,6 +1,6 @@
#!/usr/bin/perl -Tw
#
-# $Id: part_referral.cgi,v 1.2 1998-12-17 06:17:06 ivan Exp $
+# $Id: part_referral.cgi,v 1.3 1999-01-18 09:41:30 ivan Exp $
#
# ivan@sisd.com 98-feb-23
#
@@ -12,7 +12,11 @@
# lose background, FS::CGI ivan@sisd.com 98-sep-2
#
# $Log: part_referral.cgi,v $
-# Revision 1.2 1998-12-17 06:17:06 ivan
+# Revision 1.3 1999-01-18 09:41:30 ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.2 1998/12/17 06:17:06 ivan
# fix double // in relative URLs, s/CGI::Base/CGI/;
#
@@ -39,7 +43,7 @@ if ( $cgi->var('QUERY_STRING') =~ /^(\d+)$/ ) { #editing
my($hashref)=$part_referral->hashref;
my $p1 = popurl(1);
-print $cgi->header, header("$action Referral", menubar(
+print $cgi->header( '-expires' => 'now' ), header("$action Referral", menubar(
'Main Menu' => popurl(2),
'View all referrals' => popurl(2). "browse/part_referral.cgi",
)), <<END;
diff --git a/htdocs/edit/part_svc.cgi b/htdocs/edit/part_svc.cgi
index 9baaabfe0..c17d518fc 100755
--- a/htdocs/edit/part_svc.cgi
+++ b/htdocs/edit/part_svc.cgi
@@ -1,6 +1,6 @@
#!/usr/bin/perl -Tw
#
-# $Id: part_svc.cgi,v 1.5 1998-12-30 23:03:21 ivan Exp $
+# $Id: part_svc.cgi,v 1.6 1999-01-18 09:41:31 ivan Exp $
#
# ivan@sisd.com 97-nov-14
#
@@ -10,7 +10,11 @@
# use FS::CGI, added inline documentation ivan@sisd.com 98-jul-12
#
# $Log: part_svc.cgi,v $
-# Revision 1.5 1998-12-30 23:03:21 ivan
+# Revision 1.6 1999-01-18 09:41:31 ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.5 1998/12/30 23:03:21 ivan
# bugfixes; fields isn't exported by derived classes
#
# Revision 1.4 1998/12/17 06:17:07 ivan
@@ -44,7 +48,7 @@ if ( $query && $query =~ /^(\d+)$/ ) { #editing
my($hashref)=$part_svc->hashref;
my $p = popurl(2);
-print $cgi->header, header("$action Service Definition", menubar(
+print $cgi->header( '-expires' => 'now' ), header("$action Service Definition", menubar(
'Main Menu' => $p,
'View all services' => "${p}browse/part_svc.cgi",
)), '<FORM ACTION="', popurl(1), 'process/part_svc.cgi" METHOD=POST>';
diff --git a/htdocs/edit/svc_acct.cgi b/htdocs/edit/svc_acct.cgi
index edb4a684e..e5cf4857c 100755
--- a/htdocs/edit/svc_acct.cgi
+++ b/htdocs/edit/svc_acct.cgi
@@ -1,6 +1,6 @@
#!/usr/bin/perl -Tw
#
-# $Id: svc_acct.cgi,v 1.4 1998-12-30 23:03:22 ivan Exp $
+# $Id: svc_acct.cgi,v 1.5 1999-01-18 09:41:32 ivan Exp $
#
# Usage: svc_acct.cgi {svcnum} | pkgnum{pkgnum}-svcpart{svcpart}
# http://server.name/path/svc_acct.cgi? {svcnum} | pkgnum{pkgnum}-svcpart{svcpart}
@@ -18,7 +18,11 @@
# use conf/shells and dbdef username length ivan@sisd.com 98-jul-13
#
# $Log: svc_acct.cgi,v $
-# Revision 1.4 1998-12-30 23:03:22 ivan
+# Revision 1.5 1999-01-18 09:41:32 ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.4 1998/12/30 23:03:22 ivan
# bugfixes; fields isn't exported by derived classes
#
# Revision 1.3 1998/12/17 06:17:08 ivan
@@ -108,7 +112,7 @@ my($ulen)=$svc_acct->dbdef_table->column('username')->length;
my($ulen2)=$ulen+2;
my $p1 = popurl(1);
-print $cgi->header, header("$action $svc account"), <<END;
+print $cgi->header( '-expires' => 'now' ), header("$action $svc account"), <<END;
<FORM ACTION="${p1}process/svc_acct.cgi" METHOD=POST>
<INPUT TYPE="hidden" NAME="svcnum" VALUE="$svcnum">
<INPUT TYPE="hidden" NAME="pkgnum" VALUE="$pkgnum">
diff --git a/htdocs/edit/svc_acct_pop.cgi b/htdocs/edit/svc_acct_pop.cgi
index 4d41d0b32..e2c4bcdbe 100755
--- a/htdocs/edit/svc_acct_pop.cgi
+++ b/htdocs/edit/svc_acct_pop.cgi
@@ -1,6 +1,6 @@
#!/usr/bin/perl -Tw
#
-# $Id: svc_acct_pop.cgi,v 1.4 1998-12-23 02:57:45 ivan Exp $
+# $Id: svc_acct_pop.cgi,v 1.5 1999-01-18 09:41:33 ivan Exp $
#
# ivan@sisd.com 98-mar-8
#
@@ -10,7 +10,11 @@
# lose background, FS::CGI ivan@sisd.com 98-sep-2
#
# $Log: svc_acct_pop.cgi,v $
-# Revision 1.4 1998-12-23 02:57:45 ivan
+# Revision 1.5 1999-01-18 09:41:33 ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.4 1998/12/23 02:57:45 ivan
# $cgi->keywords instead of $cgi->query_string
#
# Revision 1.3 1998/12/17 06:17:10 ivan
@@ -45,7 +49,7 @@ if ( $query =~ /^(\d+)$/ ) { #editing
my($hashref)=$svc_acct_pop->hashref;
my $p1 = popurl(1);
-print $cgi->header, header("$action POP", menubar(
+print $cgi->header( '-expires' => 'now' ), header("$action POP", menubar(
'Main Menu' => popurl(2),
'View all POPs' => popurl(2). "browse/svc_acct_pop.cgi",
)), <<END;
diff --git a/htdocs/edit/svc_acct_sm.cgi b/htdocs/edit/svc_acct_sm.cgi
index be5350d84..9acaed188 100755
--- a/htdocs/edit/svc_acct_sm.cgi
+++ b/htdocs/edit/svc_acct_sm.cgi
@@ -1,6 +1,6 @@
#!/usr/bin/perl -Tw
#
-# $Id: svc_acct_sm.cgi,v 1.5 1998-12-30 23:03:24 ivan Exp $
+# $Id: svc_acct_sm.cgi,v 1.6 1999-01-18 09:41:34 ivan Exp $
#
# Usage: svc_acct_sm.cgi {svcnum} | pkgnum{pkgnum}-svcpart{svcpart}
# http://server.name/path/svc_acct_sm.cgi? {svcnum} | pkgnum{pkgnum}-svcpart{svcpart}
@@ -35,7 +35,11 @@
# /var/spool/freeside/conf/domain ivan@sisd.com 98-jul-26
#
# $Log: svc_acct_sm.cgi,v $
-# Revision 1.5 1998-12-30 23:03:24 ivan
+# Revision 1.6 1999-01-18 09:41:34 ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.5 1998/12/30 23:03:24 ivan
# bugfixes; fields isn't exported by derived classes
#
# Revision 1.4 1998/12/23 02:58:45 ivan
@@ -168,7 +172,7 @@ if ($pkgnum) {
}
my $p1 = popurl(1);
-print $cgi->header, header("Mail Alias $action", ''), <<END;
+print $cgi->header( '-expires' => 'now' ), header("Mail Alias $action", ''), <<END;
<FORM ACTION="${p1}process/svc_acct_sm.cgi" METHOD=POST>
END
diff --git a/htdocs/edit/svc_domain.cgi b/htdocs/edit/svc_domain.cgi
index 2937ccea0..d40f9001b 100755
--- a/htdocs/edit/svc_domain.cgi
+++ b/htdocs/edit/svc_domain.cgi
@@ -1,6 +1,6 @@
#!/usr/bin/perl -Tw
#
-# $Id: svc_domain.cgi,v 1.5 1998-12-30 23:03:25 ivan Exp $
+# $Id: svc_domain.cgi,v 1.6 1999-01-18 09:41:35 ivan Exp $
#
# Usage: svc_domain.cgi pkgnum{pkgnum}-svcpart{svcpart}
# http://server.name/path/svc_domain.cgi?pkgnum{pkgnum}-svcpart{svcpart}
@@ -17,7 +17,11 @@
# no GOV in instructions ivan@sisd.com 98-jul-17
#
# $Log: svc_domain.cgi,v $
-# Revision 1.5 1998-12-30 23:03:25 ivan
+# Revision 1.6 1999-01-18 09:41:35 ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.5 1998/12/30 23:03:25 ivan
# bugfixes; fields isn't exported by derived classes
#
# Revision 1.4 1998/12/23 03:00:16 ivan
@@ -96,7 +100,7 @@ my($domain)=(
);
my $p1 = popurl(1);
-print $cgi->header, header("$action $svc", ''), <<END;
+print $cgi->header( '-expires' => 'now' ), header("$action $svc", ''), <<END;
<FORM ACTION="${p1}process/svc_domain.cgi" METHOD=POST>
<INPUT TYPE="hidden" NAME="svcnum" VALUE="$svcnum">
<INPUT TYPE="hidden" NAME="pkgnum" VALUE="$pkgnum">
generated by cgit v1.2.1 (git 2.18.0) at 2025-05-15 05:41:29 +0000