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 {
|
