loncom/interface/loncss.pm - diff

Return to loncss.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1, 2006/05/08 18:54:00	version 1.6, 2006/11/27 16:47:16
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 40 sub handler {	Line 42 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);

	my %cookies=CGI::Cookie->parse($r->header_in('Cookie'));
	my $lonidsdir=$r->dir_config('lonIDsDir');

	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'),
	$handle);
	}

$r->print(&Apache::loncommon::standard_css($function,$domain,$bgcolor));	$r->print(&Apache::loncommon::standard_css($function,$domain,$bgcolor));

return OK;	return OK;