|
version 1.3, 2003/02/03 18:03:52
|
version 1.4, 2003/06/30 17:35:13
|
|
Line 115 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; |
![[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