[Sandweb-commit] CVS: sandweb/bin sandweb-expect,1.8,1.9

[Rob H. <for...@us...>]

Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv8664/bin

Modified Files:
	sandweb-expect 
Log Message:
improved error handling muchly, now fails _correctly_ if the password is false, instead
of hanging indefinitely (!)


Index: sandweb-expect
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb-expect,v
retrieving revision 1.8
retrieving revision 1.9
diff -U2 -r1.8 -r1.9
--- sandweb-expect	11 Jul 2002 08:11:35 -0000	1.8
+++ sandweb-expect	6 Nov 2002 05:54:28 -0000	1.9
@@ -63,12 +63,20 @@
 	expect {
 		"password:" { send "$vcs_password\r" }
-		"Are you sure" { send "yes\r" }
-		"Permission denied" { 
+	}
+
+	expect {
+
+		"Are you sure" { 
+			send "y" 
+		}
+
+		"denied" { 
 			send "Invalid VCS username/password\r" 
 			exit 2
 		}
+
 		eof { 
-			send_user "Unexpected EOF\r\n" 
-			exit 3
+			# success
+			exit 0
 		}
 	}