loncom/auth/lonauth.pm - diff

Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.79, 2006/06/02 21:23:49	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 187 sub success {	Line 187 sub success {
while (my ($key,$value) = each(%{$userroles})) {	while (my ($key,$value) = each(%{$userroles})) {
print $idf (&escape($key).'='.&escape($value)."\n");	print $idf (&escape($key).'='.&escape($value)."\n");
}	}
	while (my ($key,$value) = each(%{$extra_env})) {
	print $idf (&escape($key).'='.&escape($value)."\n");
	}
close($idf);	close($idf);
}	}
$env{'request.role'}='cm';	$env{'request.role'}='cm';