[Sandweb-commit] CVS: sandweb/lib/SandWeb/Repository cvs.pm,1.33,1.34

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

Update of /cvsroot/sandweb/sandweb/lib/SandWeb/Repository
In directory usw-pr-cvs1:/tmp/cvs-serv15989/lib/SandWeb/Repository

Modified Files:
	cvs.pm 
Log Message:
this checkin enables :

* vcs password support for tag/branch
* security problem with sandweb-expect ( password showing up
  in process list ) is solved




Index: cvs.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Repository/cvs.pm,v
retrieving revision 1.33
retrieving revision 1.34
diff -U2 -r1.33 -r1.34
--- cvs.pm	17 Oct 2002 07:01:32 -0000	1.33
+++ cvs.pm	7 Nov 2002 08:01:09 -0000	1.34
@@ -35,14 +35,19 @@
 
 	# root is the path on the remote file system to the CVS repository
+	# ( required )
 	my $root = $args{'root'} || '';
 
 	# sandbox is the local directory that the user's sandbox for this
-	# repo begins
+	# repo begins ( required )
 	my $sandbox = $args{'sandbox'} || '';
 
+	# users_dir is the user's SandWeb home directory ( required )
+	my $users_dir = $args{'users_dir'} || '';
+
 	# connection is the CVS connection type, SSH, pserver, local, etc
+	# ( required )
 	my $connection = $args{'connection'} || '';
 
-	# server is the name of the CVS server
+	# server is the name of the CVS server ( required )
 	my $server = $args{'server'} || '';
 
@@ -75,4 +80,5 @@
 		'root' => $root,
 		'sandbox' => $sandbox,
+		'users_dir' => $users_dir,
 		'connection' => $connection,
 		'server' => $server,
@@ -759,4 +765,5 @@
 	my $root = $self->get_root() || '';
         my $sandbox = $self->get_sandbox() || '';
+        my $users_dir = $self->get_users_dir() || '';
         my $connection = $self->get_connection() || '';
         my $server = $self->get_server() || '';
@@ -790,7 +797,7 @@
 	my $shell = SandWeb::Shell->new(
 		'vcs_username' => "$vcs_username",
+		'users_dir' => "$users_dir",
 		'vcs_password' => "$vcs_password",
 		'system_username' => "$system_username",
-		'system_password' => "$system_password",
 		'bindir' => "$bindir",
 		'system' => "$system",
@@ -810,4 +817,14 @@
 	if ($self->{'sandbox'}) {
 		return $self->{'sandbox'};
+	}
+	else {
+		return 0;
+	}
+}
+
+sub get_users_dir {
+	my $self = shift;
+	if ($self->{'users_dir'}) {
+		return $self->{'users_dir'};
 	}
 	else {