version 1.2, 2006/06/05 22:01:46
|
version 1.5, 2006/09/27 22:48:42
|
Line 41 sub handler {
|
Line 41 sub handler {
|
$url =~ s{^/adm/css/}{}; |
$url =~ s{^/adm/css/}{}; |
$url =~ s{ \.css $ }{}xms; |
$url =~ s{ \.css $ }{}xms; |
|
|
my ($uname,$domain,$timestamp,$function,$domain,$bgcolor) = |
my ($uname,$udom,$version,$timestamp,$function,$domain,$bgcolor) = |
split(':',$url); |
split(':',$url); |
|
|
$r->content_type('text/css'); |
$r->content_type('text/css'); |
my $date=strftime("%a, %d %b %Y %H:%M:%S GMT",gmtime(time+600)); |
my $date=strftime("%a, %d %b %Y %H:%M:%S GMT",gmtime(time+86400)); |
$r->header_out("Expires" => $date); |
$r->header_out("Expires" => $date); |
|
|
my %cookies=CGI::Cookie->parse($r->header_in('Cookie')); |
my %cookies=CGI::Cookie->parse($r->header_in('Cookie')); |