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

[albertel]

albertel		Mon Jun 30 13:35:13 2003 EDT

  Modified files:              
    /loncom/build/weblayer_test	test_login.pl 
  Log:
  - fixing login test so it works again
  
  
Index: loncom/build/weblayer_test/test_login.pl
diff -u loncom/build/weblayer_test/test_login.pl:1.3 loncom/build/weblayer_test/test_login.pl:1.4
--- loncom/build/weblayer_test/test_login.pl:1.3	Mon Feb  3 13:03:52 2003
+++ loncom/build/weblayer_test/test_login.pl	Mon Jun 30 13:35:13 2003
@@ -11,7 +11,7 @@
 # The LearningOnline Network
 # test_login.pl - LON TCP-MySQL-Server Daemon for handling database requests.
 #
-# $Id: test_login.pl,v 1.3 2003/02/03 18:03:52 harris41 Exp $
+# $Id: test_login.pl,v 1.4 2003/06/30 17:35:13 albertel Exp $
 #
 # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
 #
@@ -115,15 +115,15 @@
 
 my $content=$response->content;
 my $logtoken;
-if ($content=~/logtoken value=\"([^\"]*)\"/) {
+if ($content=~/logtoken\" value=\"([^\"]*)\"/) {
     $logtoken=$1;
 }
 my $udom;
-if ($content=~/input type=\"text\" name=\"udom\".*value\=(\S+)/) {
+if ($content=~/input type=\"text\" name=\"udom\".*value\=\"(\S+)\"/) {
     $udom=$1;
 }
 my $serverid;
-if ($content=~/name\=serverid value\=\"([^\"]+)\"/) {
+if ($content=~/name\=\"serverid\" value\=\"([^\"]+)\"/) {
     $serverid=$1;
 }
 my $lextkey;