[LON-CAPA-cvs] cvs: loncom /build/weblayer_test test_login.pl

[harris41]

harris41		Fri May  3 23:57:07 2002 EDT

  Modified files:              
    /loncom/build/weblayer_test	test_login.pl 
  Log:
  udom, lextkey, and uextkey are now read correctly with
  the latest login page
  BUG 322
  FIXED
  
  
  
Index: loncom/build/weblayer_test/test_login.pl
diff -u loncom/build/weblayer_test/test_login.pl:1.1 loncom/build/weblayer_test/test_login.pl:1.2
--- loncom/build/weblayer_test/test_login.pl:1.1	Mon Mar  4 01:46:17 2002
+++ loncom/build/weblayer_test/test_login.pl	Fri May  3 23:57:06 2002
@@ -4,14 +4,14 @@
 
 =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
 
 # The LearningOnline Network
 # test_login.pl - LON TCP-MySQL-Server Daemon for handling database requests.
 #
-# $Id: test_login.pl,v 1.1 2002/03/04 06:46:17 harris41 Exp $
+# $Id: test_login.pl,v 1.2 2002/05/04 03:57:06 harris41 Exp $
 #
 # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
 #
@@ -120,7 +120,7 @@
     $logtoken=$1;
 }
 my $udom;
-if ($content=~/value\=(\S+)\s+name\=udom/) {
+if ($content=~/input type=\"text\" name=\"udom\".*value\=(\S+)/) {
     $udom=$1;
 }
 my $serverid;
@@ -128,11 +128,11 @@
     $serverid=$1;
 }
 my $lextkey;
-if ($content=~/name\=lextkey value\=\"([^\"]+)\"/) {
+if ($content=~/name\=\"lextkey\" value\=\"([^\"]+)\"/) {
     $lextkey=$1;
 }
 my $uextkey;
-if ($content=~/name\=uextkey value\=\"([^\"]+)\"/) {
+if ($content=~/name\=\"uextkey\" value\=\"([^\"]+)\"/) {
     $uextkey=$1;
 }