version 1.6, 2006/11/27 16:47:16
|
version 1.7, 2007/10/02 01:10:27
|
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 CGI::Cookie(); |
|
use LONCAPA; |
use LONCAPA; |
|
|
sub handler { |
sub handler { |
Line 49 sub handler {
|
Line 48 sub handler {
|
my $date=strftime("%a, %d %b %Y %H:%M:%S GMT",gmtime(time+86400)); |
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 $lonidsdir=$r->dir_config('lonIDsDir'); |
my $handle = &Apache::lonnet::check_for_valid_session($r); |
|
if ($handle ne '' ) { |
my $handle; |
|
if ($cookies{'lonID'}) { |
|
$handle=&LONCAPA::clean_handle($cookies{'lonID'}->value); |
|
} |
|
|
|
if ($handle ne '' |
|
&& -e $r->dir_config('lonIDsDir')."/$handle.id") { |
|
&Apache::lonnet::transfer_profile_to_env($r->dir_config('lonIDsDir'), |
&Apache::lonnet::transfer_profile_to_env($r->dir_config('lonIDsDir'), |
$handle); |
$handle); |
} |
} |