sub Script_OnStart {
$Response->AddHeader('Pragma' => 'no-cache');
$Response->AddHeader('Cache-control' => 'no-cache');
- $Response->AddHeader('Expires' => 0);
+# $Response->AddHeader('Expires' => 0);
+ $Response->{Expires} = -36288000;
$cgi = new CGI;
&cgisuidsetup($cgi);
$$ref =~ s/<\/BODY>[\s\n]*<\/HTML>[\s\n]*$//i
or warn "can't remove";
- $$ref .= '<PRE>'. ("\n"x96). encode_entities(dbh->sprintProfile()). '</PRE>';
+ #$$ref .= '<PRE>'. ("\n"x96). encode_entities(dbh->sprintProfile()). '</PRE>';
+ # wtf? konqueror...
+ $$ref .= '<PRE>'. ("\n"x4096). encode_entities(dbh->sprintProfile()). '</PRE>';
$$ref .= '</BODY></HTML>';