projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
c93520a
)
all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
author
ivan
<ivan>
Mon, 18 Jan 1999 09:41:48 +0000
(09:41 +0000)
committer
ivan
<ivan>
Mon, 18 Jan 1999 09:41:48 +0000
(09:41 +0000)
(good idea anyway)
34 files changed:
htdocs/browse/agent.cgi
patch
|
blob
|
history
htdocs/browse/agent_type.cgi
patch
|
blob
|
history
htdocs/browse/cust_main_county.cgi
patch
|
blob
|
history
htdocs/browse/part_pkg.cgi
patch
|
blob
|
history
htdocs/browse/part_referral.cgi
patch
|
blob
|
history
htdocs/browse/part_svc.cgi
patch
|
blob
|
history
htdocs/browse/svc_acct_pop.cgi
patch
|
blob
|
history
htdocs/edit/agent.cgi
patch
|
blob
|
history
htdocs/edit/agent_type.cgi
patch
|
blob
|
history
htdocs/edit/cust_credit.cgi
patch
|
blob
|
history
htdocs/edit/cust_main.cgi
patch
|
blob
|
history
htdocs/edit/cust_main_county-expand.cgi
patch
|
blob
|
history
htdocs/edit/cust_main_county.cgi
patch
|
blob
|
history
htdocs/edit/cust_pay.cgi
patch
|
blob
|
history
htdocs/edit/cust_pkg.cgi
patch
|
blob
|
history
htdocs/edit/part_pkg.cgi
patch
|
blob
|
history
htdocs/edit/part_referral.cgi
patch
|
blob
|
history
htdocs/edit/part_svc.cgi
patch
|
blob
|
history
htdocs/edit/svc_acct.cgi
patch
|
blob
|
history
htdocs/edit/svc_acct_pop.cgi
patch
|
blob
|
history
htdocs/edit/svc_acct_sm.cgi
patch
|
blob
|
history
htdocs/edit/svc_domain.cgi
patch
|
blob
|
history
htdocs/misc/link.cgi
patch
|
blob
|
history
htdocs/search/cust_main.cgi
patch
|
blob
|
history
htdocs/search/cust_pkg.cgi
patch
|
blob
|
history
htdocs/search/svc_acct.cgi
patch
|
blob
|
history
htdocs/search/svc_acct_sm.cgi
patch
|
blob
|
history
htdocs/view/cust_bill.cgi
patch
|
blob
|
history
htdocs/view/cust_main.cgi
patch
|
blob
|
history
htdocs/view/cust_pkg.cgi
patch
|
blob
|
history
htdocs/view/svc_acct.cgi
patch
|
blob
|
history
htdocs/view/svc_acct_sm.cgi
patch
|
blob
|
history
htdocs/view/svc_domain.cgi
patch
|
blob
|
history
site_perl/CGI.pm
patch
|
blob
|
history
diff --git
a/htdocs/browse/agent.cgi
b/htdocs/browse/agent.cgi
index
442ea6e
..
446401e
100755
(executable)
--- a/
htdocs/browse/agent.cgi
+++ b/
htdocs/browse/agent.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl -Tw
#
#!/usr/bin/perl -Tw
#
-# $Id: agent.cgi,v 1.
8 1999-01-18 09:22:26
ivan Exp $
+# $Id: agent.cgi,v 1.
9 1999-01-18 09:41:14
ivan Exp $
#
# ivan@sisd.com 97-dec-12
#
#
# ivan@sisd.com 97-dec-12
#
@@
-15,7
+15,11
@@
# lose background, FS::CGI ivan@sisd.com 98-sep-2
#
# $Log: agent.cgi,v $
# lose background, FS::CGI ivan@sisd.com 98-sep-2
#
# $Log: agent.cgi,v $
-# Revision 1.8 1999-01-18 09:22:26 ivan
+# Revision 1.9 1999-01-18 09:41:14 ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.8 1999/01/18 09:22:26 ivan
# changes to track email addresses for email invoicing
#
# Revision 1.7 1998/12/17 05:25:16 ivan
# changes to track email addresses for email invoicing
#
# Revision 1.7 1998/12/17 05:25:16 ivan
@@
-65,7
+69,7
@@
my($cgi) = new CGI;
my($p)=popurl(2);
my($p)=popurl(2);
-print $cgi->header, header('Agent Listing', menubar(
+print $cgi->header
( '-expires' => 'now' )
, header('Agent Listing', menubar(
'Main Menu' => $p,
'Agent Types' => $p. 'browse/agent_type.cgi',
# 'Add new agent' => '../edit/agent.cgi'
'Main Menu' => $p,
'Agent Types' => $p. 'browse/agent_type.cgi',
# 'Add new agent' => '../edit/agent.cgi'
diff --git
a/htdocs/browse/agent_type.cgi
b/htdocs/browse/agent_type.cgi
index
a1fa3b2
..
8bbf1e2
100755
(executable)
--- a/
htdocs/browse/agent_type.cgi
+++ b/
htdocs/browse/agent_type.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl -Tw
#
#!/usr/bin/perl -Tw
#
-# $Id: agent_type.cgi,v 1.
3 1998-12-17 05:25:17
ivan Exp $
+# $Id: agent_type.cgi,v 1.
4 1999-01-18 09:41:15
ivan Exp $
#
# ivan@sisd.com 97-dec-10
#
#
# ivan@sisd.com 97-dec-10
#
@@
-11,7
+11,11
@@
# lose background, FS::CGI ivan@sisd.com 98-sep-2
#
# $Log: agent_type.cgi,v $
# lose background, FS::CGI ivan@sisd.com 98-sep-2
#
# $Log: agent_type.cgi,v $
-# Revision 1.3 1998-12-17 05:25:17 ivan
+# Revision 1.4 1999-01-18 09:41:15 ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.3 1998/12/17 05:25:17 ivan
# fix visual and other bugs
#
# Revision 1.2 1998/11/21 07:39:52 ivan
# fix visual and other bugs
#
# Revision 1.2 1998/11/21 07:39:52 ivan
@@
-33,7
+37,7
@@
my($cgi) = new CGI;
&cgisuidsetup($cgi);
my($p)=popurl(2);
&cgisuidsetup($cgi);
my($p)=popurl(2);
-print $cgi->header, header("Agent Type Listing", menubar(
+print $cgi->header
( '-expires' => 'now' )
, header("Agent Type Listing", menubar(
'Main Menu' => $p,
)), "Agent types define groups of packages that you can then assign to".
" particular agents.<BR><BR>", table, <<END;
'Main Menu' => $p,
)), "Agent types define groups of packages that you can then assign to".
" particular agents.<BR><BR>", table, <<END;
diff --git
a/htdocs/browse/cust_main_county.cgi
b/htdocs/browse/cust_main_county.cgi
index
fc09355
..
728f1d9
100755
(executable)
--- a/
htdocs/browse/cust_main_county.cgi
+++ b/
htdocs/browse/cust_main_county.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl -Tw
#
#!/usr/bin/perl -Tw
#
-# $Id: cust_main_county.cgi,v 1.
3 1998-12-17 05:25:18
ivan Exp $
+# $Id: cust_main_county.cgi,v 1.
4 1999-01-18 09:41:16
ivan Exp $
#
# ivan@sisd.com 97-dec-13
#
#
# ivan@sisd.com 97-dec-13
#
@@
-10,7
+10,11
@@
# lose background, FS::CGI ivan@sisd.com 98-sep-2
#
# $Log: cust_main_county.cgi,v $
# lose background, FS::CGI ivan@sisd.com 98-sep-2
#
# $Log: cust_main_county.cgi,v $
-# Revision 1.3 1998-12-17 05:25:18 ivan
+# Revision 1.4 1999-01-18 09:41:16 ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.3 1998/12/17 05:25:18 ivan
# fix visual and other bugs
#
# Revision 1.2 1998/11/18 09:01:34 ivan
# fix visual and other bugs
#
# Revision 1.2 1998/11/18 09:01:34 ivan
@@
-31,7
+35,7
@@
my($cgi) = new CGI;
my($p) = popurl(2);
my($p) = popurl(2);
-print $cgi->header, header("Tax Rate Listing", menubar(
+print $cgi->header
( '-expires' => 'now' )
, header("Tax Rate Listing", menubar(
'Main Menu' => $p,
'Edit tax rates' => $p. "edit/cust_main_county.cgi",
)),<<END;
'Main Menu' => $p,
'Edit tax rates' => $p. "edit/cust_main_county.cgi",
)),<<END;
diff --git
a/htdocs/browse/part_pkg.cgi
b/htdocs/browse/part_pkg.cgi
index
5d4aaa1
..
22d8b9a
100755
(executable)
--- a/
htdocs/browse/part_pkg.cgi
+++ b/
htdocs/browse/part_pkg.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl -Tw
#
#!/usr/bin/perl -Tw
#
-# $Id: part_pkg.cgi,v 1.
4 1998-12-17 05:25:19
ivan Exp $
+# $Id: part_pkg.cgi,v 1.
5 1999-01-18 09:41:17
ivan Exp $
#
# ivan@sisd.com 97-dec-5,9
#
#
# ivan@sisd.com 97-dec-5,9
#
@@
-10,7
+10,11
@@
# lose background, FS::CGI ivan@sisd.com 98-sep-2
#
# $Log: part_pkg.cgi,v $
# lose background, FS::CGI ivan@sisd.com 98-sep-2
#
# $Log: part_pkg.cgi,v $
-# Revision 1.4 1998-12-17 05:25:19 ivan
+# Revision 1.5 1999-01-18 09:41:17 ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.4 1998/12/17 05:25:19 ivan
# fix visual and other bugs
#
# Revision 1.3 1998/11/21 07:23:45 ivan
# fix visual and other bugs
#
# Revision 1.3 1998/11/21 07:23:45 ivan
@@
-36,7
+40,7
@@
my($cgi) = new CGI;
my $p = popurl(2);
my $p = popurl(2);
-print $cgi->header, header("Package Part Listing",menubar(
+print $cgi->header
( '-expires' => 'now' )
, header("Package Part Listing",menubar(
'Main Menu' => $p,
)), "One or more services are grouped together into a package and given",
" pricing information. Customers purchase packages, not services.<BR><BR>",
'Main Menu' => $p,
)), "One or more services are grouped together into a package and given",
" pricing information. Customers purchase packages, not services.<BR><BR>",
diff --git
a/htdocs/browse/part_referral.cgi
b/htdocs/browse/part_referral.cgi
index
b08efdb
..
859995a
100755
(executable)
--- a/
htdocs/browse/part_referral.cgi
+++ b/
htdocs/browse/part_referral.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl -Tw
#
#!/usr/bin/perl -Tw
#
-# $Id: part_referral.cgi,v 1.
5 1998-12-17 05:25:20
ivan Exp $
+# $Id: part_referral.cgi,v 1.
6 1999-01-18 09:41:18
ivan Exp $
#
# ivan@sisd.com 98-feb-23
#
#
# ivan@sisd.com 98-feb-23
#
@@
-10,7
+10,11
@@
# lose background, FS::CGI ivan@sisd.com 98-sep-2
#
# $Log: part_referral.cgi,v $
# lose background, FS::CGI ivan@sisd.com 98-sep-2
#
# $Log: part_referral.cgi,v $
-# Revision 1.5 1998-12-17 05:25:20 ivan
+# Revision 1.6 1999-01-18 09:41:18 ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.5 1998/12/17 05:25:20 ivan
# fix visual and other bugs
#
# Revision 1.4 1998/12/17 04:32:55 ivan
# fix visual and other bugs
#
# Revision 1.4 1998/12/17 04:32:55 ivan
@@
-37,7
+41,7
@@
my $cgi = new CGI;
my $p = popurl(2);
my $p = popurl(2);
-print $cgi->header, header("Referral Listing", menubar(
+print $cgi->header
( '-expires' => 'now' )
, header("Referral Listing", menubar(
'Main Menu' => $p,
# 'Add new referral' => "../edit/part_referral.cgi",
)), "Where a customer heard about your service. Tracked for informational purposes.<BR><BR>", table, <<END;
'Main Menu' => $p,
# 'Add new referral' => "../edit/part_referral.cgi",
)), "Where a customer heard about your service. Tracked for informational purposes.<BR><BR>", table, <<END;
diff --git
a/htdocs/browse/part_svc.cgi
b/htdocs/browse/part_svc.cgi
index
17308ff
..
38c05cb
100755
(executable)
--- a/
htdocs/browse/part_svc.cgi
+++ b/
htdocs/browse/part_svc.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl -Tw
#
#!/usr/bin/perl -Tw
#
-# $Id: part_svc.cgi,v 1.
7 1998-12-30 23:06:22
ivan Exp $
+# $Id: part_svc.cgi,v 1.
8 1999-01-18 09:41:19
ivan Exp $
#
# ivan@sisd.com 97-nov-14, 97-dec-9
#
#
# ivan@sisd.com 97-nov-14, 97-dec-9
#
@@
-10,7
+10,11
@@
# lose background, FS::CGI ivan@sisd.com 98-sep-2
#
# $Log: part_svc.cgi,v $
# lose background, FS::CGI ivan@sisd.com 98-sep-2
#
# $Log: part_svc.cgi,v $
-# Revision 1.7 1998-12-30 23:06:22 ivan
+# Revision 1.8 1999-01-18 09:41:19 ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.7 1998/12/30 23:06:22 ivan
# typo
#
# Revision 1.6 1998/12/30 23:03:20 ivan
# typo
#
# Revision 1.6 1998/12/30 23:03:20 ivan
@@
-43,7
+47,7
@@
my($cgi) = new CGI;
my $p = popurl(2);
my $p = popurl(2);
-print $cgi->header, header('Service Part Listing', menubar(
+print $cgi->header
( '-expires' => 'now' )
, header('Service Part Listing', menubar(
'Main Menu' => $p,
)),<<END;
Services are items you offer to your customers.<BR><BR>
'Main Menu' => $p,
)),<<END;
Services are items you offer to your customers.<BR><BR>
diff --git
a/htdocs/browse/svc_acct_pop.cgi
b/htdocs/browse/svc_acct_pop.cgi
index
2231aef
..
b172e78
100755
(executable)
--- a/
htdocs/browse/svc_acct_pop.cgi
+++ b/
htdocs/browse/svc_acct_pop.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl -Tw
#
#!/usr/bin/perl -Tw
#
-# $Id: svc_acct_pop.cgi,v 1.
3 1998-12-17 05:25:22
ivan Exp $
+# $Id: svc_acct_pop.cgi,v 1.
4 1999-01-18 09:41:20
ivan Exp $
#
# ivan@sisd.com 98-mar-8
#
#
# 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 $
# lose background, FS::CGI ivan@sisd.com 98-sep-2
#
# $Log: svc_acct_pop.cgi,v $
-# Revision 1.3 1998-12-17 05:25:22 ivan
+# Revision 1.4 1999-01-18 09:41:20 ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.3 1998/12/17 05:25:22 ivan
# fix visual and other bugs
#
# Revision 1.2 1998/12/17 04:36:59 ivan
# fix visual and other bugs
#
# Revision 1.2 1998/12/17 04:36:59 ivan
@@
-31,7
+35,7
@@
my($cgi) = new CGI;
my $p = popurl(2);
my $p = popurl(2);
-print $cgi->header, header('POP Listing', menubar(
+print $cgi->header
( '-expires' => 'now' )
, header('POP Listing', menubar(
'Main Menu' => $p,
)), "Points of Presence<BR><BR>", table, <<END;
<TR>
'Main Menu' => $p,
)), "Points of Presence<BR><BR>", table, <<END;
<TR>
diff --git
a/htdocs/edit/agent.cgi
b/htdocs/edit/agent.cgi
index
44c1676
..
291f1b2
100755
(executable)
--- a/
htdocs/edit/agent.cgi
+++ b/
htdocs/edit/agent.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl -Tw
#
#!/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
#
#
# 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 $
# 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
# 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);
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>';
'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
9bfc374
..
b9da2a2
100755
(executable)
--- a/
htdocs/edit/agent_type.cgi
+++ b/
htdocs/edit/agent_type.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl -Tw
#
#!/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)
#
#
# 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 $
# 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
# 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);
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>';
'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
02b8008
..
4b7276f
100755
(executable)
--- a/
htdocs/edit/cust_credit.cgi
+++ b/
htdocs/edit/cust_credit.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl -Tw
#
#!/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 ]
#
# 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 $
# 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
# *** empty log message ***
#
# Revision 1.2 1998/12/17 06:16:59 ivan
@@
-51,7
+55,7
@@
my($otaker)=getotaker;
my $p1 = popurl(1);
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
<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
d712f76
..
174c798
100755
(executable)
--- a/
htdocs/edit/cust_main.cgi
+++ b/
htdocs/edit/cust_main.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl -Tw
#
#!/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
#
# 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 $
# 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
# 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);
# 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)" ),
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
eccb1d9
..
1b231bc
100755
(executable)
--- a/
htdocs/edit/cust_main_county-expand.cgi
+++ b/
htdocs/edit/cust_main_county-expand.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl -Tw
#
#!/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
#
#
# 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 $
# 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
# 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);
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>
'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
537d574
..
7d5468b
100755
(executable)
--- a/
htdocs/edit/cust_main_county.cgi
+++ b/
htdocs/edit/cust_main_county.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl -Tw
#
#!/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
#
#
# 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 $
# 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
# 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);
&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;
'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
a3a3088
..
929c9e7
100755
(executable)
--- a/
htdocs/edit/cust_pay.cgi
+++ b/
htdocs/edit/cust_pay.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl -Tw
#
#!/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
#
# 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 $
# 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/;
#
# fix double // in relative URLs, s/CGI::Base/CGI/;
#
@@
-33,7
+37,7
@@
$query =~ /^(\d+)$/;
my($invnum)=$1;
my $p1 = popurl(1);
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
<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
68abf96
..
763eeae
100755
(executable)
--- a/
htdocs/edit/cust_pkg.cgi
+++ b/
htdocs/edit/cust_pkg.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl -Tw
#
#!/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
#
#
# this is for changing packages around, not editing things within the package
#
@@
-25,7
+25,11
@@
# 98-jun-1
#
# $Log: cust_pkg.cgi,v $
# 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/;
#
# fix double // in relative URLs, s/CGI::Base/CGI/;
#
@@
-55,7
+59,7
@@
my($custnum)=$1;
my($otaker)=&getotaker;
my $p1 = popurl(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
<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
c30a859
..
9870017
100755
(executable)
--- a/
htdocs/edit/part_pkg.cgi
+++ b/
htdocs/edit/part_pkg.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl -Tw
#
#!/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)
#
#
# 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 $
# 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
# 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;
}
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>';
'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
4eeec99
..
e159e03
100755
(executable)
--- a/
htdocs/edit/part_referral.cgi
+++ b/
htdocs/edit/part_referral.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl -Tw
#
#!/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
#
#
# 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 $
# 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/;
#
# 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);
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;
'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
9baaabf
..
c17d518
100755
(executable)
--- a/
htdocs/edit/part_svc.cgi
+++ b/
htdocs/edit/part_svc.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl -Tw
#
#!/usr/bin/perl -Tw
#
-# $Id: part_svc.cgi,v 1.
5 1998-12-30 23:03:2
1 ivan Exp $
+# $Id: part_svc.cgi,v 1.
6 1999-01-18 09:41:3
1 ivan Exp $
#
# ivan@sisd.com 97-nov-14
#
#
# 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 $
# 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
# 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);
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>';
'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
edb4a68
..
e5cf485
100755
(executable)
--- a/
htdocs/edit/svc_acct.cgi
+++ b/
htdocs/edit/svc_acct.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl -Tw
#
#!/usr/bin/perl -Tw
#
-# $Id: svc_acct.cgi,v 1.
4 1998-12-30 23:03:2
2 ivan Exp $
+# $Id: svc_acct.cgi,v 1.
5 1999-01-18 09:41:3
2 ivan Exp $
#
# Usage: svc_acct.cgi {svcnum} | pkgnum{pkgnum}-svcpart{svcpart}
# http://server.name/path/svc_acct.cgi? {svcnum} | pkgnum{pkgnum}-svcpart{svcpart}
#
# 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 $
# 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
# 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);
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">
<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
4d41d0b
..
e2c4bcd
100755
(executable)
--- a/
htdocs/edit/svc_acct_pop.cgi
+++ b/
htdocs/edit/svc_acct_pop.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl -Tw
#
#!/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
#
#
# 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 $
# 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
# $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);
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;
'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
be5350d
..
9acaed1
100755
(executable)
--- a/
htdocs/edit/svc_acct_sm.cgi
+++ b/
htdocs/edit/svc_acct_sm.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl -Tw
#
#!/usr/bin/perl -Tw
#
-# $Id: svc_acct_sm.cgi,v 1.
5 1998-12-30 23:03:2
4 ivan Exp $
+# $Id: svc_acct_sm.cgi,v 1.
6 1999-01-18 09:41:3
4 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}
#
# 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 $
# /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
# 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);
}
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
<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
2937cce
..
d40f900
100755
(executable)
--- a/
htdocs/edit/svc_domain.cgi
+++ b/
htdocs/edit/svc_domain.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl -Tw
#
#!/usr/bin/perl -Tw
#
-# $Id: svc_domain.cgi,v 1.
5 1998-12-30 23:03:2
5 ivan Exp $
+# $Id: svc_domain.cgi,v 1.
6 1999-01-18 09:41:3
5 ivan Exp $
#
# Usage: svc_domain.cgi pkgnum{pkgnum}-svcpart{svcpart}
# http://server.name/path/svc_domain.cgi?pkgnum{pkgnum}-svcpart{svcpart}
#
# 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 $
# 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
# 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);
);
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">
<FORM ACTION="${p1}process/svc_domain.cgi" METHOD=POST>
<INPUT TYPE="hidden" NAME="svcnum" VALUE="$svcnum">
<INPUT TYPE="hidden" NAME="pkgnum" VALUE="$pkgnum">
diff --git
a/htdocs/misc/link.cgi
b/htdocs/misc/link.cgi
index
6823365
..
d18cfcc
100755
(executable)
--- a/
htdocs/misc/link.cgi
+++ b/
htdocs/misc/link.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl -Tw
#
#!/usr/bin/perl -Tw
#
-# $Id: link.cgi,v 1.
3 1998-12-23 03:03:39
ivan Exp $
+# $Id: link.cgi,v 1.
4 1999-01-18 09:41:36
ivan Exp $
#
# Note: Should be run setuid freeside as user nobody
#
#
# Note: Should be run setuid freeside as user nobody
#
@@
-11,7
+11,11
@@
# can also link on some other fields now (about time) ivan@sisd.com 98-jun-24
#
# $Log: link.cgi,v $
# can also link on some other fields now (about time) ivan@sisd.com 98-jun-24
#
# $Log: link.cgi,v $
-# Revision 1.3 1998-12-23 03:03:39 ivan
+# Revision 1.4 1999-01-18 09:41:36 ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.3 1998/12/23 03:03:39 ivan
# $cgi->keywords instead of $cgi->query_string
#
# Revision 1.2 1998/12/17 09:12:45 ivan
# $cgi->keywords instead of $cgi->query_string
#
# Revision 1.2 1998/12/17 09:12:45 ivan
@@
-48,7
+52,7
@@
my($svc) = $part_svc->getfield('svc');
my($svcdb) = $part_svc->getfield('svcdb');
my($link_field) = $link_field{$svcdb};
my($svcdb) = $part_svc->getfield('svcdb');
my($link_field) = $link_field{$svcdb};
-print $cgi->header, header("Link to existing $svc account"),
+print $cgi->header
( '-expires' => 'now' )
, header("Link to existing $svc account"),
qq!<FORM ACTION="!, popurl(1), qq!process/link.cgi" METHOD=POST>!;
if ( $link_field ) {
qq!<FORM ACTION="!, popurl(1), qq!process/link.cgi" METHOD=POST>!;
if ( $link_field ) {
diff --git
a/htdocs/search/cust_main.cgi
b/htdocs/search/cust_main.cgi
index
262c157
..
48e8853
100755
(executable)
--- a/
htdocs/search/cust_main.cgi
+++ b/
htdocs/search/cust_main.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl -Tw
#
#!/usr/bin/perl -Tw
#
-# $Id: cust_main.cgi,v 1.
4 1998-12-30 00:57:50
ivan Exp $
+# $Id: cust_main.cgi,v 1.
5 1999-01-18 09:41:37
ivan Exp $
#
# Usage: post form to:
# http://server.name/path/cust_main.cgi
#
# Usage: post form to:
# http://server.name/path/cust_main.cgi
@@
-19,7
+19,11
@@
# display total, use FS::CGI ivan@sisd.com 98-jul-17
#
# $Log: cust_main.cgi,v $
# display total, use FS::CGI ivan@sisd.com 98-jul-17
#
# $Log: cust_main.cgi,v $
-# Revision 1.4 1998-12-30 00:57:50 ivan
+# Revision 1.5 1999-01-18 09:41:37 ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.4 1998/12/30 00:57:50 ivan
# bug
#
# Revision 1.3 1998/12/17 09:41:08 ivan
# bug
#
# Revision 1.3 1998/12/17 09:41:08 ivan
@@
-82,7
+86,7
@@
if ( scalar(@cust_main) == 1 ) {
} else {
my($total)=scalar(@cust_main);
} else {
my($total)=scalar(@cust_main);
- print $cgi->header, header("Customer Search Results",menubar(
+ print $cgi->header
( '-expires' => 'now' )
, header("Customer Search Results",menubar(
'Main Menu', popurl(2)
)), "$total matching customers found<BR>", table, <<END;
<TR>
'Main Menu', popurl(2)
)), "$total matching customers found<BR>", table, <<END;
<TR>
diff --git
a/htdocs/search/cust_pkg.cgi
b/htdocs/search/cust_pkg.cgi
index
c198a56
..
248833c
100755
(executable)
--- a/
htdocs/search/cust_pkg.cgi
+++ b/
htdocs/search/cust_pkg.cgi
@@
-1,11
+1,15
@@
#!/usr/bin/perl -Tw
#
#!/usr/bin/perl -Tw
#
-# $Id: cust_pkg.cgi,v 1.
4 1999-01-18 09:22:33
ivan Exp $
+# $Id: cust_pkg.cgi,v 1.
5 1999-01-18 09:41:38
ivan Exp $
#
# based on search/svc_acct.cgi ivan@sisd.com 98-jul-17
#
# $Log: cust_pkg.cgi,v $
#
# based on search/svc_acct.cgi ivan@sisd.com 98-jul-17
#
# $Log: cust_pkg.cgi,v $
-# Revision 1.4 1999-01-18 09:22:33 ivan
+# Revision 1.5 1999-01-18 09:41:38 ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.4 1999/01/18 09:22:33 ivan
# changes to track email addresses for email invoicing
#
# Revision 1.3 1998/12/23 03:05:59 ivan
# changes to track email addresses for email invoicing
#
# Revision 1.3 1998/12/23 03:05:59 ivan
@@
-68,7
+72,7
@@
if ( scalar(@cust_pkg) == 1 ) {
exit;
} else {
my($total)=scalar(@cust_pkg);
exit;
} else {
my($total)=scalar(@cust_pkg);
- print $cgi->header, header('Package Search Results',''), <<END;
+ print $cgi->header
( '-expires' => 'now' )
, header('Package Search Results',''), <<END;
$total matching packages found
<TABLE BORDER=4 CELLSPACING=0 CELLPADDING=0>
<TR>
$total matching packages found
<TABLE BORDER=4 CELLSPACING=0 CELLPADDING=0>
<TR>
diff --git
a/htdocs/search/svc_acct.cgi
b/htdocs/search/svc_acct.cgi
index
75fbcb9
..
5dd33a6
100755
(executable)
--- a/
htdocs/search/svc_acct.cgi
+++ b/
htdocs/search/svc_acct.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl -Tw
#
#!/usr/bin/perl -Tw
#
-# $Id: svc_acct.cgi,v 1.
4 1999-01-18 09:22:34
ivan Exp $
+# $Id: svc_acct.cgi,v 1.
5 1999-01-18 09:41:39
ivan Exp $
#
# Usage: post form to:
# http://server.name/path/svc_acct.cgi
#
# Usage: post form to:
# http://server.name/path/svc_acct.cgi
@@
-23,7
+23,11
@@
# give service and customer info too ivan@sisd.com 98-aug-16
#
# $Log: svc_acct.cgi,v $
# give service and customer info too ivan@sisd.com 98-aug-16
#
# $Log: svc_acct.cgi,v $
-# Revision 1.4 1999-01-18 09:22:34 ivan
+# Revision 1.5 1999-01-18 09:41:39 ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.4 1999/01/18 09:22:34 ivan
# changes to track email addresses for email invoicing
#
# Revision 1.3 1998/12/23 03:06:28 ivan
# changes to track email addresses for email invoicing
#
# Revision 1.3 1998/12/23 03:06:28 ivan
@@
-90,7
+94,7
@@
if ( scalar(@svc_acct) == 1 ) {
exit;
} else {
my($total)=scalar(@svc_acct);
exit;
} else {
my($total)=scalar(@svc_acct);
- print $cgi->header, header("Account Search Results",''), <<END;
+ print $cgi->header
( '-expires' => 'now' )
, header("Account Search Results",''), <<END;
$total matching accounts found
<TABLE BORDER=4 CELLSPACING=0 CELLPADDING=0>
<TR>
$total matching accounts found
<TABLE BORDER=4 CELLSPACING=0 CELLPADDING=0>
<TR>
diff --git
a/htdocs/search/svc_acct_sm.cgi
b/htdocs/search/svc_acct_sm.cgi
index
824a551
..
c1c5936
100755
(executable)
--- a/
htdocs/search/svc_acct_sm.cgi
+++ b/
htdocs/search/svc_acct_sm.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl -Tw
#
#!/usr/bin/perl -Tw
#
-# $Id: svc_acct_sm.cgi,v 1.
3 1998-12-17 09:41:11
ivan Exp $
+# $Id: svc_acct_sm.cgi,v 1.
4 1999-01-18 09:41:40
ivan Exp $
#
# Usage: post form to:
# http://server.name/path/svc_domain.cgi
#
# Usage: post form to:
# http://server.name/path/svc_domain.cgi
@@
-19,7
+19,11
@@
# bmccane@maxbaud.net 98-apr-3
#
# $Log: svc_acct_sm.cgi,v $
# bmccane@maxbaud.net 98-apr-3
#
# $Log: svc_acct_sm.cgi,v $
-# Revision 1.3 1998-12-17 09:41:11 ivan
+# Revision 1.4 1999-01-18 09:41:40 ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.3 1998/12/17 09:41:11 ivan
# s/CGI::(Base|Request)/CGI.pm/;
#
# s/CGI::(Base|Request)/CGI.pm/;
#
@@
-61,7
+65,7
@@
if ( scalar(@svc_acct_sm) == 1 ) {
print $cgi->redirect(popurl(2). "view/svc_acct_sm.cgi?$svcnum"); #redirect
} elsif ( scalar(@svc_acct_sm) > 1 ) {
CGI::Base::SendHeaders();
print $cgi->redirect(popurl(2). "view/svc_acct_sm.cgi?$svcnum"); #redirect
} elsif ( scalar(@svc_acct_sm) > 1 ) {
CGI::Base::SendHeaders();
- print $cgi->header, header('Mail Alias Search Results'), table, <<END;
+ print $cgi->header
( '-expires' => 'now' )
, header('Mail Alias Search Results'), table, <<END;
<TR>
<TH>Mail to<BR><FONT SIZE=-2>(click here to view mail alias)</FONT></TH>
<TH>Forwards to<BR><FONT SIZE=-2>(click here to view account)</FONT></TH>
<TR>
<TH>Mail to<BR><FONT SIZE=-2>(click here to view mail alias)</FONT></TH>
<TH>Forwards to<BR><FONT SIZE=-2>(click here to view account)</FONT></TH>
diff --git
a/htdocs/view/cust_bill.cgi
b/htdocs/view/cust_bill.cgi
index
80aab18
..
ccfc33c
100755
(executable)
--- a/
htdocs/view/cust_bill.cgi
+++ b/
htdocs/view/cust_bill.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl -Tw
#
#!/usr/bin/perl -Tw
#
-# $Id: cust_bill.cgi,v 1.
4 1998-12-30 23:03:33
ivan Exp $
+# $Id: cust_bill.cgi,v 1.
5 1999-01-18 09:41:42
ivan Exp $
#
# Note: Should be run setuid freeside as user nobody.
#
#
# Note: Should be run setuid freeside as user nobody.
#
@@
-25,7
+25,11
@@
# also print 'printed' field ivan@sisd.com 98-jul-10
#
# $Log: cust_bill.cgi,v $
# also print 'printed' field ivan@sisd.com 98-jul-10
#
# $Log: cust_bill.cgi,v $
-# Revision 1.4 1998-12-30 23:03:33 ivan
+# Revision 1.5 1999-01-18 09:41:42 ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.4 1998/12/30 23:03:33 ivan
# bugfixes; fields isn't exported by derived classes
#
# Revision 1.3 1998/12/23 03:07:49 ivan
# bugfixes; fields isn't exported by derived classes
#
# Revision 1.3 1998/12/23 03:07:49 ivan
@@
-59,7
+63,7
@@
my($custnum) = $cust_bill->getfield('custnum');
my($printed) = $cust_bill->printed;
my $p = popurl(2);
my($printed) = $cust_bill->printed;
my $p = popurl(2);
-print $cgi->header, header('Invoice View', menubar(
+print $cgi->header
( '-expires' => 'now' )
, header('Invoice View', menubar(
"Main Menu" => $p,
"View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum",
)), <<END;
"Main Menu" => $p,
"View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum",
)), <<END;
diff --git
a/htdocs/view/cust_main.cgi
b/htdocs/view/cust_main.cgi
index
0f7a3f4
..
71a4e51
100755
(executable)
--- a/
htdocs/view/cust_main.cgi
+++ b/
htdocs/view/cust_main.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl -Tw
#
#!/usr/bin/perl -Tw
#
-# $Id: cust_main.cgi,v 1.
8 1999-01-18 09:22:35
ivan Exp $
+# $Id: cust_main.cgi,v 1.
9 1999-01-18 09:41:43
ivan Exp $
#
# Usage: cust_main.cgi custnum
# http://server.name/path/cust_main.cgi?custnum
#
# Usage: cust_main.cgi custnum
# http://server.name/path/cust_main.cgi?custnum
@@
-33,7
+33,11
@@
# lose background, FS::CGI ivan@sisd.com 98-sep-2
#
# $Log: cust_main.cgi,v $
# lose background, FS::CGI ivan@sisd.com 98-sep-2
#
# $Log: cust_main.cgi,v $
-# Revision 1.8 1999-01-18 09:22:35 ivan
+# Revision 1.9 1999-01-18 09:41:43 ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.8 1999/01/18 09:22:35 ivan
# changes to track email addresses for email invoicing
#
# Revision 1.7 1998/12/30 23:03:34 ivan
# changes to track email addresses for email invoicing
#
# Revision 1.7 1998/12/30 23:03:34 ivan
@@
-75,7
+79,7
@@
use FS::cust_refund;
my($cgi) = new CGI;
&cgisuidsetup($cgi);
my($cgi) = new CGI;
&cgisuidsetup($cgi);
-print $cgi->header, header("Customer View", menubar(
+print $cgi->header
( '-expires' => 'now' )
, header("Customer View", menubar(
'Main Menu' => popurl(2)
)),<<END;
<BASEFONT SIZE=3>
'Main Menu' => popurl(2)
)),<<END;
<BASEFONT SIZE=3>
diff --git
a/htdocs/view/cust_pkg.cgi
b/htdocs/view/cust_pkg.cgi
index
b394da5
..
3f6eed6
100755
(executable)
--- a/
htdocs/view/cust_pkg.cgi
+++ b/
htdocs/view/cust_pkg.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl -Tw
#
#!/usr/bin/perl -Tw
#
-# $Id: cust_pkg.cgi,v 1.
5 1998-12-23 03:11:40
ivan Exp $
+# $Id: cust_pkg.cgi,v 1.
6 1999-01-18 09:41:44
ivan Exp $
#
# Usage: cust_pkg.cgi pkgnum
# http://server.name/path/cust_pkg.cgi?pkgnum
#
# Usage: cust_pkg.cgi pkgnum
# http://server.name/path/cust_pkg.cgi?pkgnum
@@
-26,7
+26,11
@@
# no FS::Search ivan@sisd.com 98-mar-7
#
# $Log: cust_pkg.cgi,v $
# no FS::Search ivan@sisd.com 98-mar-7
#
# $Log: cust_pkg.cgi,v $
-# Revision 1.5 1998-12-23 03:11:40 ivan
+# Revision 1.6 1999-01-18 09:41:44 ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.5 1998/12/23 03:11:40 ivan
# *** empty log message ***
#
# Revision 1.3 1998/12/17 09:57:22 ivan
# *** empty log message ***
#
# Revision 1.3 1998/12/17 09:57:22 ivan
@@
-60,7
+64,7
@@
foreach $part_svc ( qsearch('part_svc',{}) ) {
$uiadd{$part_svc->svcpart}= popurl(2). "edit/". $part_svc->svcdb . ".cgi";
}
$uiadd{$part_svc->svcpart}= popurl(2). "edit/". $part_svc->svcdb . ".cgi";
}
-print $cgi->header, header('Package View', '');
+print $cgi->header
( '-expires' => 'now' )
, header('Package View', '');
my($query) = $cgi->keywords;
$query =~ /^(\d+)$/;
my($query) = $cgi->keywords;
$query =~ /^(\d+)$/;
diff --git
a/htdocs/view/svc_acct.cgi
b/htdocs/view/svc_acct.cgi
index
66ae2d1
..
1151e1c
100755
(executable)
--- a/
htdocs/view/svc_acct.cgi
+++ b/
htdocs/view/svc_acct.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl -Tw
#
#!/usr/bin/perl -Tw
#
-# $Id: svc_acct.cgi,v 1.
5 1999-01-18 09:22:36
ivan Exp $
+# $Id: svc_acct.cgi,v 1.
6 1999-01-18 09:41:45
ivan Exp $
#
# Usage: svc_acct.cgi svcnum
# http://server.name/path/svc_acct.cgi?svcnum
#
# Usage: svc_acct.cgi svcnum
# http://server.name/path/svc_acct.cgi?svcnum
@@
-35,7
+35,11
@@
# displays arbitrary radius attributes ivan@sisd.com 98-aug-16
#
# $Log: svc_acct.cgi,v $
# displays arbitrary radius attributes ivan@sisd.com 98-aug-16
#
# $Log: svc_acct.cgi,v $
-# Revision 1.5 1999-01-18 09:22:36 ivan
+# Revision 1.6 1999-01-18 09:41:45 ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.5 1999/01/18 09:22:36 ivan
# changes to track email addresses for email invoicing
#
# Revision 1.4 1998/12/23 03:09:19 ivan
# changes to track email addresses for email invoicing
#
# Revision 1.4 1998/12/23 03:09:19 ivan
@@
-86,7
+90,7
@@
if ($pkgnum) {
my($part_svc)=qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } );
die "Unkonwn svcpart" unless $part_svc;
my($part_svc)=qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } );
die "Unkonwn svcpart" unless $part_svc;
-print $cgi->header, header('Account View', '');
+print $cgi->header
( '-expires' => 'now' )
, header('Account View', '');
my $p = popurl(2);
if ($pkgnum || $custnum) {
my $p = popurl(2);
if ($pkgnum || $custnum) {
diff --git
a/htdocs/view/svc_acct_sm.cgi
b/htdocs/view/svc_acct_sm.cgi
index
f30fb42
..
ab8450f
100755
(executable)
--- a/
htdocs/view/svc_acct_sm.cgi
+++ b/
htdocs/view/svc_acct_sm.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl -Tw
#
#!/usr/bin/perl -Tw
#
-# $Id: svc_acct_sm.cgi,v 1.
4 1998-12-23 03:09:52
ivan Exp $
+# $Id: svc_acct_sm.cgi,v 1.
5 1999-01-18 09:41:46
ivan Exp $
#
# Usage: svc_acct_sm.cgi svcnum
# http://server.name/path/svc_acct_sm.cgi?svcnum
#
# Usage: svc_acct_sm.cgi svcnum
# http://server.name/path/svc_acct_sm.cgi?svcnum
@@
-22,7
+22,11
@@
# /var/spool/freeside/conf/domain ivan@sisd.com 98-jul-17
#
# $Log: svc_acct_sm.cgi,v $
# /var/spool/freeside/conf/domain ivan@sisd.com 98-jul-17
#
# $Log: svc_acct_sm.cgi,v $
-# Revision 1.4 1998-12-23 03:09:52 ivan
+# Revision 1.5 1999-01-18 09:41:46 ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.4 1998/12/23 03:09:52 ivan
# $cgi->keywords instead of $cgi->query_string
#
# Revision 1.3 1998/12/17 09:57:24 ivan
# $cgi->keywords instead of $cgi->query_string
#
# Revision 1.3 1998/12/17 09:57:24 ivan
@@
-64,7
+68,7
@@
if ($pkgnum) {
my($part_svc)=qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } );
die "Unkonwn svcpart" unless $part_svc;
my($part_svc)=qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } );
die "Unkonwn svcpart" unless $part_svc;
-print $cgi->header, header('Mail Alias View');
+print $cgi->header
( '-expires' => 'now' )
, header('Mail Alias View');
my $p = popurl(2);
if ($pkgnum || $custnum) {
my $p = popurl(2);
if ($pkgnum || $custnum) {
diff --git
a/htdocs/view/svc_domain.cgi
b/htdocs/view/svc_domain.cgi
index
9abeebb
..
7fa65e0
100755
(executable)
--- a/
htdocs/view/svc_domain.cgi
+++ b/
htdocs/view/svc_domain.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl -Tw
#
#!/usr/bin/perl -Tw
#
-# $Id: svc_domain.cgi,v 1.
4 1998-12-23 03:10:19
ivan Exp $
+# $Id: svc_domain.cgi,v 1.
5 1999-01-18 09:41:47
ivan Exp $
#
# Usage: svc_domain svcnum
# http://server.name/path/svc_domain.cgi?svcnum
#
# Usage: svc_domain svcnum
# http://server.name/path/svc_domain.cgi?svcnum
@@
-15,7
+15,11
@@
# bmccane@maxbaud.net 98-apr-3
#
# $Log: svc_domain.cgi,v $
# bmccane@maxbaud.net 98-apr-3
#
# $Log: svc_domain.cgi,v $
-# Revision 1.4 1998-12-23 03:10:19 ivan
+# Revision 1.5 1999-01-18 09:41:47 ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.4 1998/12/23 03:10:19 ivan
# $cgi->keywords instead of $cgi->query_string
#
# Revision 1.3 1998/12/17 09:57:25 ivan
# $cgi->keywords instead of $cgi->query_string
#
# Revision 1.3 1998/12/17 09:57:25 ivan
@@
-55,7
+59,7
@@
my($part_svc)=qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } );
die "Unkonwn svcpart" unless $part_svc;
my $p = popurl(2);
die "Unkonwn svcpart" unless $part_svc;
my $p = popurl(2);
-print $cgi->header, header('Domain View', menubar(
+print $cgi->header
( '-expires' => 'now' )
, header('Domain View', menubar(
"Main menu" => $p,
"View this package (#$pkgnum)" => "${p}view/cust_pkg.cgi?$pkgnum",
"View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum",
"Main menu" => $p,
"View this package (#$pkgnum)" => "${p}view/cust_pkg.cgi?$pkgnum",
"View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum",
diff --git
a/site_perl/CGI.pm
b/site_perl/CGI.pm
index
136a05c
..
97dedad
100644
(file)
--- a/
site_perl/CGI.pm
+++ b/
site_perl/CGI.pm
@@
-90,7
+90,7
@@
sub idiot {
no strict 'subs';
&CGI::Base::SendHeaders;
} else {
no strict 'subs';
&CGI::Base::SendHeaders;
} else {
- print $cgi->header;
+ print $cgi->header
( '-expires' => 'now' )
;
}
print <<END;
<HTML>
}
print <<END;
<HTML>
@@
-193,7
+193,11
@@
lose the background, eidiot ivan@sisd.com 98-sep-2
pod ivan@sisd.com 98-sep-12
$Log: CGI.pm,v $
pod ivan@sisd.com 98-sep-12
$Log: CGI.pm,v $
-Revision 1.14 1999-01-18 09:22:37 ivan
+Revision 1.15 1999-01-18 09:41:48 ivan
+all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+(good idea anyway)
+
+Revision 1.14 1999/01/18 09:22:37 ivan
changes to track email addresses for email invoicing
Revision 1.12 1998/12/23 02:23:16 ivan
changes to track email addresses for email invoicing
Revision 1.12 1998/12/23 02:23:16 ivan