loncom/auth/switchserver.pm - diff

Return to switchserver.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.9, 2006/08/30 16:13:37	version 1.10, 2006/11/23 01:49:41
Line 47 sub init_env {	Line 47 sub init_env {
my $cookie;	my $cookie;
if (!$lonid) { return undef; }	if (!$lonid) { return undef; }

my $handle=$lonid->value;	my $handle=&LONCAPA::clean_handle($lonid->value);
$handle=~s/\W//g;
my $lonidsdir=$r->dir_config('lonIDsDir');	my $lonidsdir=$r->dir_config('lonIDsDir');
if ((!-e "$lonidsdir/$handle.id") \|\| ($handle eq '')) {	if ((!-e "$lonidsdir/$handle.id") \|\| ($handle eq '')) {
$r->log_reason("Cookie $handle not valid", $r->filename);	$r->log_reason("Cookie $handle not valid", $r->filename);