Diff for /loncom/build/weblayer_test/test_login.pl between versions 1.2 and 1.4

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

Removed from v.1.2  
changed lines
  Added in v.1.4


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