loncom/build/weblayer_test/test_login.pl - diff

Return to test_login.pl CVS log

Up to [LON-CAPA] / loncom / build / weblayer_test

version 1.1, 2002/03/04 06:46:17	version 1.3, 2003/02/03 18:03:52
Line 4	Line 4

=head1 NAME	=head1 NAME

test_login.pl - Attempt to login given a user name and password and assuming that /bin/hostname is the appropriate url.	B<test_login.pl> - Attempt to login given a user name and password and assuming that /bin/hostname is the appropriate url.

=cut	=cut

Line 34 test_login.pl - Attempt to login given a	Line 34 test_login.pl - Attempt to login given a
# http://www.lon-capa.org/	# http://www.lon-capa.org/
#	#
# YEAR=2002	# YEAR=2002
# 3/3 Scott Harrison
#	#
###	###

Line 120 if ($content=~/logtoken value=\"([^\"]*)	Line 119 if ($content=~/logtoken value=\"([^\"]*)
$logtoken=$1;	$logtoken=$1;
}	}
my $udom;	my $udom;
if ($content=~/value\=(\S+)\s+name\=udom/) {	if ($content=~/input type=\"text\" name=\"udom\".*value\=(\S+)/) {
$udom=$1;	$udom=$1;
}	}
my $serverid;	my $serverid;
Line 128 if ($content=~/name\=serverid value\=\"(	Line 127 if ($content=~/name\=serverid value\=\"(
$serverid=$1;	$serverid=$1;
}	}
my $lextkey;	my $lextkey;
if ($content=~/name\=lextkey value\=\"([^\"]+)\"/) {	if ($content=~/name\=\"lextkey\" value\=\"([^\"]+)\"/) {
$lextkey=$1;	$lextkey=$1;
}	}
my $uextkey;	my $uextkey;
if ($content=~/name\=uextkey value\=\"([^\"]+)\"/) {	if ($content=~/name\=\"uextkey\" value\=\"([^\"]+)\"/) {
$uextkey=$1;	$uextkey=$1;
}	}

Line 211 Crypt::DES	Line 210 Crypt::DES

=head1 AUTHOR	=head1 AUTHOR

Scott Harrison, harris41@msu.edu

=cut	=cut