version 1.1, 2006/05/08 18:54:00
|
version 1.8, 2010/08/31 15:07:19
|
Line 32 use Apache::lonnet;
|
Line 32 use Apache::lonnet;
|
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use POSIX qw(strftime); |
use POSIX qw(strftime); |
|
use LONCAPA; |
|
|
sub handler { |
sub handler { |
my ($r) = @_; |
my ($r) = @_; |
Line 40 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); |
|
$r->header_out->add("Cache-Control" => "public, no-transform"); |
|
|
|
my $handle = &Apache::lonnet::check_for_valid_session($r); |
|
if ($handle ne '' ) { |
|
&Apache::lonnet::transfer_profile_to_env($r->dir_config('lonIDsDir'), |
|
$handle); |
|
} |
|
|
$r->print(&Apache::loncommon::standard_css($function,$domain,$bgcolor)); |
$r->print(&Apache::loncommon::standard_css($function,$domain,$bgcolor)); |
|
|
return OK; |
return OK; |