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.36 and 1.37

version 1.36, 2003/02/03 18:03:52	version 1.37, 2003/02/13 16:31:54
Line 45 use Crypt::DES;	Line 45 use Crypt::DES;
use Apache::lonnet();	use Apache::lonnet();
use Apache::lonmenu();	use Apache::lonmenu();
use Fcntl qw(:flock);	use Fcntl qw(:flock);

	my %FORM;

# ------------------------------------------------------------ Successful login	# ------------------------------------------------------------ Successful login

sub success {	sub success {
Line 138 sub success {	Line 141 sub success {
print $idf "request.course.uri=\n";	print $idf "request.course.uri=\n";
print $idf "request.course.sec=\n";	print $idf "request.course.sec=\n";
print $idf "request.role=cm\n";	print $idf "request.role=cm\n";
print $idf "request.host=$ENV{'HTTP_HOST'}\n";	print $idf "request.host=$ENV{'HTTP_HOST'}\n";
	if ($FORM{'interface'}) {
	$FORM{'interface'}=~s/\W//gs;
	print $idf "browser.interface=$FORM{'interface'}\n";
	$ENV{'browser.interface'}=$FORM{'interface'};
	}
if ($userroles ne '') { print $idf "$userroles"; }	if ($userroles ne '') { print $idf "$userroles"; }
$idf->close();	$idf->close();
}	}
Line 223 sub handler {	Line 231 sub handler {
my $buffer;	my $buffer;
$r->read($buffer,$r->header_in('Content-length'));	$r->read($buffer,$r->header_in('Content-length'));
my @pairs=split(/&/,$buffer);	my @pairs=split(/&/,$buffer);
my $pair; my $name; my $value; my %FORM;	my $pair; my $name; my $value;
	undef %FORM;
	%FORM=();
foreach $pair (@pairs) {	foreach $pair (@pairs) {
($name,$value) = split(/=/,$pair);	($name,$value) = split(/=/,$pair);
$value =~ tr/+/ /;	$value =~ tr/+/ /;

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

Removed from v.1.36
changed lines
	Added in v.1.37