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.2, 2002/05/04 03:57:06
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 120 if ($content=~/logtoken value=\"([^\"]*)	Line 120 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 128 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;
}	}