--- loncom/interface/loncss.pm 2006/06/05 22:01:46 1.2 +++ loncom/interface/loncss.pm 2006/09/27 22:48:42 1.5 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # gerenates a lon-capa CSS response # -# $Id: loncss.pm,v 1.2 2006/06/05 22:01:46 albertel Exp $ +# $Id: loncss.pm,v 1.5 2006/09/27 22:48:42 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -41,11 +41,11 @@ sub handler { $url =~ s{^/adm/css/}{}; $url =~ s{ \.css $ }{}xms; - my ($uname,$domain,$timestamp,$function,$domain,$bgcolor) = + my ($uname,$udom,$version,$timestamp,$function,$domain,$bgcolor) = split(':',$url); $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); my %cookies=CGI::Cookie->parse($r->header_in('Cookie'));