diff options
| author | ivan <ivan> | 1999-04-15 13:39:16 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1999-04-15 13:39:16 +0000 |
| commit | f779b20addd7e1507b4f521cd462ea4de87ae926 (patch) | |
| tree | 127a5860aedda7fde9f9b6bf781a85211d283c8b | |
| parent | ff9083f7660a3397d73377efec15feff432d5958 (diff) | |
$cgi->header( '-expires' => 'now' )
| -rwxr-xr-x | htdocs/search/svc_domain.cgi | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/htdocs/search/svc_domain.cgi b/htdocs/search/svc_domain.cgi index b366e5724..21a3b751f 100755 --- a/htdocs/search/svc_domain.cgi +++ b/htdocs/search/svc_domain.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: svc_domain.cgi,v 1.8 1999-02-28 00:03:57 ivan Exp $ +# $Id: svc_domain.cgi,v 1.9 1999-04-15 13:39:16 ivan Exp $ # # Usage: post form to: # http://server.name/path/svc_domain.cgi @@ -15,7 +15,10 @@ # display total, use FS::CGI now does browsing too ivan@sisd.com 98-jul-17 # # $Log: svc_domain.cgi,v $ -# Revision 1.8 1999-02-28 00:03:57 ivan +# Revision 1.9 1999-04-15 13:39:16 ivan +# $cgi->header( '-expires' => 'now' ) +# +# Revision 1.8 1999/02/28 00:03:57 ivan # removed misleading comments # # Revision 1.7 1999/02/23 08:09:24 ivan @@ -89,7 +92,8 @@ if ( scalar(@svc_domain) == 1 ) { } else { my($total)=scalar(@svc_domain); - print $cgi->header, header("Domain Search Results",''), <<END; + print $cgi->header( '-expires' => 'now' ), + header("Domain Search Results",''), <<END; $total matching domains found <TABLE BORDER=4 CELLSPACING=0 CELLPADDING=0> |