loncom/auth/lonauth.pm - diff

Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonauth.pm between versions 1.78 and 1.80

version 1.78, 2006/06/02 20:22:26	version 1.80, 2006/06/27 14:09:46
Line 46 my %FORM;	Line 46 my %FORM;
# ------------------------------------------------------------ Successful login	# ------------------------------------------------------------ Successful login

sub success {	sub success {
my ($r, $username, $domain, $authhost,$lowerurl) = @_;	my ($r, $username, $domain, $authhost, $lowerurl, $extra_env) = @_;
my $lonids=$r->dir_config('lonIDsDir');	my $lonids=$r->dir_config('lonIDsDir');

my $public=($username eq 'public' && $domain eq 'public');	my $public=($username eq 'public' && $domain eq 'public');
Line 88 sub success {	Line 88 sub success {

# Initialize roles	# Initialize roles

$userroles=Apache::lonnet::rolesinit($domain,$username,$authhost);	$userroles=&Apache::lonnet::rolesinit($domain,$username,$authhost);
}	}
# ------------------------------------ Check browser type and MathML capability	# ------------------------------------ Check browser type and MathML capability

Line 182 sub success {	Line 182 sub success {
print $idf (&escape($key).'='.&escape($value)."\n");	print $idf (&escape($key).'='.&escape($value)."\n");
}	}
while (my ($key,$value) = each(%userenv)) {	while (my ($key,$value) = each(%userenv)) {
	print $idf (&escape('environment.'.$key).'='.&escape($value)."\n");
	}
	while (my ($key,$value) = each(%{$userroles})) {
	print $idf (&escape($key).'='.&escape($value)."\n");
	}
	while (my ($key,$value) = each(%{$extra_env})) {
print $idf (&escape($key).'='.&escape($value)."\n");	print $idf (&escape($key).'='.&escape($value)."\n");
}	}
if ($userroles ne '') { print $idf "$userroles"; }
close($idf);	close($idf);
}	}
$env{'request.role'}='cm';	$env{'request.role'}='cm';

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.78
changed lines
	Added in v.1.80