loncom/interface/loncss.pm - diff

Return to loncss.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.5, 2006/09/27 22:48:42	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 CGI::Cookie();	use LONCAPA;

sub handler {	sub handler {
my ($r) = @_;	my ($r) = @_;
Line 47 sub handler {	Line 47 sub handler {
$r->content_type('text/css');	$r->content_type('text/css');
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);
	$r->header_out->add("Cache-Control" => "public, no-transform");
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=$cookies{'lonID'}->value;
$handle=~s/\W//g;
}

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);
}	}