diff options
author | ivan <ivan> | 1999-01-18 09:41:48 +0000 |
---|---|---|
committer | ivan <ivan> | 1999-01-18 09:41:48 +0000 |
commit | 183f64ede863fff923db7e00d962b3495e405477 (patch) | |
tree | 8156a023958ab999f9910327718a79348d799821 /htdocs/view/cust_pkg.cgi | |
parent | c93520accf00e15095e7af5fcb59caed2bd9e556 (diff) |
all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
(good idea anyway)
Diffstat (limited to 'htdocs/view/cust_pkg.cgi')
-rwxr-xr-x | htdocs/view/cust_pkg.cgi | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/htdocs/view/cust_pkg.cgi b/htdocs/view/cust_pkg.cgi index b394da591..3f6eed614 100755 --- a/htdocs/view/cust_pkg.cgi +++ b/htdocs/view/cust_pkg.cgi @@ -1,6 +1,6 @@ #!/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 @@ -26,7 +26,11 @@ # 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 @@ -60,7 +64,7 @@ foreach $part_svc ( qsearch('part_svc',{}) ) { $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+)$/; |