|
version 1.2, 2002/05/04 03:57:06
|
version 1.4, 2003/06/30 17:35:13
|
|
Line 34 B<test_login.pl> - Attempt to login give
|
Line 34 B<test_login.pl> - Attempt to login give
|
| # http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
| # |
# |
| # YEAR=2002 |
# YEAR=2002 |
| # 3/3 Scott Harrison |
|
| # |
# |
| ### |
### |
| |
|
|
Line 116 unless ($response->is_success) {
|
Line 115 unless ($response->is_success) {
|
| |
|
| my $content=$response->content; |
my $content=$response->content; |
| my $logtoken; |
my $logtoken; |
| if ($content=~/logtoken value=\"([^\"]*)\"/) { |
if ($content=~/logtoken\" value=\"([^\"]*)\"/) { |
| $logtoken=$1; |
$logtoken=$1; |
| } |
} |
| my $udom; |
my $udom; |
| if ($content=~/input type=\"text\" name=\"udom\".*value\=(\S+)/) { |
if ($content=~/input type=\"text\" name=\"udom\".*value\=\"(\S+)\"/) { |
| $udom=$1; |
$udom=$1; |
| } |
} |
| my $serverid; |
my $serverid; |
| if ($content=~/name\=serverid value\=\"([^\"]+)\"/) { |
if ($content=~/name\=\"serverid\" value\=\"([^\"]+)\"/) { |
| $serverid=$1; |
$serverid=$1; |
| } |
} |
| my $lextkey; |
my $lextkey; |
|
Line 211 Crypt::DES
|
Line 210 Crypt::DES
|
| |
|
| =head1 AUTHOR |
=head1 AUTHOR |
| |
|
| Scott Harrison, harris41@msu.edu |
|
| |
|
| =cut |
=cut |
![[BACK]](/icons/back.gif){kind=icon}
Return to test_login.pl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / build / weblayer_test