[Sandweb-commit] CVS: sandweb/bin sandweb-expect,1.13,1.14 sandweb.cgi,1.355,1.356

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

Update of /cvsroot/sandweb/sandweb/bin
In directory sc8-pr-cvs1:/tmp/cvs-serv13418/bin

Modified Files:
	sandweb-expect sandweb.cgi 
Log Message:
* extended sandweb-expect a little to support Unix auth
* commented out hacky archive code in CGI, moved to SandWeb::File


Index: sandweb-expect
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb-expect,v
retrieving revision 1.13
retrieving revision 1.14
diff -U2 -r1.13 -r1.14
--- sandweb-expect	1 Apr 2003 20:14:11 -0000	1.13
+++ sandweb-expect	8 Jul 2003 20:23:02 -0000	1.14
@@ -1,3 +1,3 @@
-#!expect
+#!/usr/bin/expect
 
 # 
@@ -20,9 +20,10 @@
 
 		expect {
-			"password:" { send "$vcs_password\r" }
+			"assword:" { send "$vcs_password\r" }
 			eof { exit 0 }
 		}
 		expect {
 			"denied" { exit 2 }
+			"failure" { exit 2 }
 			eof { exit 0 }
 		}

Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.355
retrieving revision 1.356
diff -U2 -r1.355 -r1.356
--- sandweb.cgi	9 Jun 2003 18:16:13 -0000	1.355
+++ sandweb.cgi	8 Jul 2003 20:23:02 -0000	1.356
@@ -1996,5 +1996,12 @@
 	}
 
-	# FIXME - move to SW::File
+	# FIXME - move to SW::File e.g.:
+	#
+	#$file->create_archive(
+	# 	name => $name,
+	# 	location => "$users_dir/$username/$repo_name";
+	# 	files => $files,
+	#);
+	#
 	print `cd $users_dir/$username/$repo_name/ && /bin/tar -cf $users_dir/$username/.tmp/$module_name.tar $files 2>&1 > /dev/null`;