loncom/auth/lonauth.pm - diff

Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.81, 2006/08/30 16:50:23	version 1.82.2.1, 2006/10/06 14:29:44
Line 180 sub success {	Line 180 sub success {
}	}

&add_to_env($idf,\%initial_env);	&add_to_env($idf,\%initial_env);
&add_to_env($idf,\%userenv);	&add_to_env($idf,\%userenv,'environment.');
&add_to_env($idf,$userroles);	&add_to_env($idf,$userroles);
&add_to_env($idf,$extra_env);	&add_to_env($idf,$extra_env);
close($idf);	close($idf);
Line 250 ENDSUCCESS	Line 250 ENDSUCCESS
}	}

sub add_to_env {	sub add_to_env {
my ($idf,$env_data) = @_;	my ($idf,$env_data,$prefix) = @_;
@env{keys(%$env_data)} = @$env_data{keys(%$env_data)};
while (my ($key,$value) = each(%$env_data)) {	while (my ($key,$value) = each(%$env_data)) {
print $idf (&escape($key).'='.&escape($value)."\n");	print $idf (&escape($prefix.$key).'='.&escape($value)."\n");
	$env{$prefix.$key} = $value;
}	}
}	}

Line 344 ENDFAILED	Line 344 ENDFAILED


my $buffer;	my $buffer;
$r->read($buffer,$r->header_in('Content-length'),0);	if ($r->header_in('Content-length') > 0) {
	$r->read($buffer,$r->header_in('Content-length'),0);
	}
my @pairs=split(/&/,$buffer);	my @pairs=split(/&/,$buffer);
my $pair; my $name; my $value;	my $pair; my $name; my $value;
undef %FORM;	undef %FORM;