[BACK]Return to test_login.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / build / weblayer_test

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

version 1.1, 2002/03/04 06:46:17 version 1.4, 2003/06/30 17:35:13
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 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=~/value\=(\S+)\s+name\=udom/) {  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;
 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
Removed from v.1.1  
changed lines
  Added in v.1.4

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