loncom/interface/loncss.pm - diff

Return to loncss.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.3, 2006/06/28 16:04:34	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,$udom,$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'));