Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re: overkill anti-caching CGI headers

by webratta (Sexton)
on Mar 05, 2003 at 17:36 UTC ( #240632=note: print w/ replies, xml ) Need Help??


in reply to overkill anti-caching CGI headers

Ohh... nice little snippet. Building on this, you can use this snippit in the cgiapp_prerun method of a CGI::Application module to have all of your run modes cache-free. :)

package TestApp; use strict; use warnings; use base 'CGI::Application'; use POSIX; sub setup { my $self = shift; $self->start_mode('index'); $self->run_modes(index => 'TestAppIndex'); } sub cgiapp_prerun { my $self = shift; $self->header_props( # date in the past -expires => 'Sat, 26 Jul 1997 05:00:00 GMT', # always modified -Last_Modified => strftime('%a, %d %b %Y %H:%M:%S GMT', gmtime +), # HTTP/1.0 -Pragma => 'no-cache', # HTTP/1.1 -Cache_Control => join(', ', qw( no-store no-cache must-revalidate post-check=0 pre-check=0 )), ); } sub TestAppIndex { return 'Hello, world!'; } 1;


Comment on Re: overkill anti-caching CGI headers
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://240632]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (5)
As of 2014-08-30 23:09 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (294 votes), past polls