loncom/auth/lonauth.pm - diff

Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.72, 2005/11/15 17:55:03	version 1.73, 2006/01/19 22:14:38
Line 114 sub success {	Line 114 sub success {
my %userenv=Apache::lonnet::dump('environment',$domain,$username);	my %userenv=Apache::lonnet::dump('environment',$domain,$username);
my ($tmp) = keys(%userenv);	my ($tmp) = keys(%userenv);
if ($tmp !~ /^(con_lost\|error\|no_such_host)/i) {	if ($tmp !~ /^(con_lost\|error\|no_such_host)/i) {
	# default remote control to off
	if ($userenv{'remote'} ne 'on') { $userenv{'remote'} = 'off'; }
foreach my $key (keys(%userenv)) {	foreach my $key (keys(%userenv)) {
$userenv.="environment.$key=$userenv{$key}\n";	$userenv.="environment.$key=$userenv{$key}\n";
}	}