loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.1172.2.17, 2013/02/02 03:30:24	version 1.1172.2.18, 2013/02/08 16:12:10
Line 75 use LWP::UserAgent();	Line 75 use LWP::UserAgent();
use HTTP::Date;	use HTTP::Date;
use Image::Magick;	use Image::Magick;

use vars qw(%perlvar %spareid %pr %prp $memcache %packagetab $tmpdir	use vars qw(%perlvar %spareid %pr %prp $memcache %packagetab $tmpdir $apache
$_64bit %env %protocol %loncaparevs %serverhomeIDs %needsrelease	$_64bit %env %protocol %loncaparevs %serverhomeIDs %needsrelease
%managerstab);	%managerstab);

Line 629 sub check_for_valid_session {	Line 629 sub check_for_valid_session {
\|\| !defined($disk_env{'user.domain'})) {	\|\| !defined($disk_env{'user.domain'})) {
return undef;	return undef;
}	}

	if (($r->user() eq '') && ($apache >= 2.4)) {
	if ($disk_env{'user.domain'} eq $r->dir_config('lonDefDomain')) {
	$r->user($disk_env{'user.name'});
	} else {
	$r->user($disk_env{'user.name'}.':'.$disk_env{'user.domain'});
	}
	}

return $handle;	return $handle;
}	}

Line 12147 $readit=1;	Line 12156 $readit=1;
if ($test != 0) { $_64bit=1; } else { $_64bit=0; }	if ($test != 0) { $_64bit=1; } else { $_64bit=0; }
&logthis(" Detected 64bit platform ($_64bit)");	&logthis(" Detected 64bit platform ($_64bit)");
}	}

	{
	eval {
	($apache) =
	(Apache2::ServerUtil::get_server_version() =~ m{Apache/(\d+\.\d+)});
	};
	if ($@) {
	$apache = 1.3;
	}
	}

}	}
}	}