version 1.4, 2006/09/06 19:08:33
|
version 1.6, 2006/11/27 16:47:16
|
Line 33 use Apache::loncommon;
|
Line 33 use Apache::loncommon;
|
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use POSIX qw(strftime); |
use POSIX qw(strftime); |
use CGI::Cookie(); |
use CGI::Cookie(); |
|
use LONCAPA; |
|
|
sub handler { |
sub handler { |
my ($r) = @_; |
my ($r) = @_; |
Line 45 sub handler {
|
Line 46 sub handler {
|
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')); |
Line 53 sub handler {
|
Line 54 sub handler {
|
|
|
my $handle; |
my $handle; |
if ($cookies{'lonID'}) { |
if ($cookies{'lonID'}) { |
$handle=$cookies{'lonID'}->value; |
$handle=&LONCAPA::clean_handle($cookies{'lonID'}->value); |
$handle=~s/\W//g; |
|
} |
} |
|
|
if ($handle ne '' |
if ($handle ne '' |