# Set a last-modified date a little in the future to handle # local workstation times being slightly out. Is that valid? my $date = DateCalc('today', '+ 5 minutes'); $date = Date_ConvTZ($date, "", "GMT"); $self->header_add( -expires => 'Sat, 26 Jul 1997 05:00:00 GMT', -Last_Modified => UnixDate($date, '%a, %d %b %Y %H:%M:%S GMT'), # HTTP/1.0 -Pragma => 'no-cache', # HTTP/1.1 -Cache_Control => join(', ', qw( no-store no-cache must-revalidate proxy-revalidate post-check=0 pre-check=0 max-age=0 s-maxage=0 )), );