Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Force no cache on generated content to prevent hilarious problems.

Browse Source
This commit is contained in:
Chris 2013-08-14 17:05:04 +01:00
parent bad7be85c9
commit 04fac1a2e0
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Webperl/Application.pm
View File

@ -263,7 +263,9 @@ sub run {
my $content = $pageobj -> page_display(); my $content = $pageobj -> page_display();
print $self -> {"cgi"} -> header(-charset => 'utf-8', print $self -> {"cgi"} -> header(-charset => 'utf-8',
-cookie => $self -> {"session"} -> session_cookies()); -cookie => $self -> {"session"} -> session_cookies(),
-expires => "now",
-Cache_Control => "no-cache");
$self -> {"endtime"} = time(); $self -> {"endtime"} = time();
my ($user, $system, $cuser, $csystem) = times(); my ($user, $system, $cuser, $csystem) = times();