On Wed, 2007-01-17 at 17:42 -0500, John Cappiello wrote:
> Note we have POSIX loaded earlier.
>
> <%init>
> $r->header_out('Cache-Control', 'public,max-age=3600');
> my $stat = File::stat::stat $m->request_comp->source_file;
> my $mtime = strftime("%a, %d %b %Y %H:%M:%S GMT",
> localtime($stat->mtime));
> $r->header_out( 'Last-Modified', $mtime );
> </%init>
If you're using mod_perl, you can take advantage of the fast built-in
command for formatting HTTP time strings:
http://perl.apache.org/docs/2.0/api/Apache2/Util.html#C_ht_time_
- Perrin
-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys - and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
Mason-users mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/mason-users
