diff options
Diffstat (limited to 'htdocs/edit/svc_acct.cgi')
| -rwxr-xr-x | htdocs/edit/svc_acct.cgi | 10 |
1 files changed, 7 insertions, 3 deletions
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"> |