sandweb-commit Mailing List for SandWeb (Page 20)

Brought to you by: formnull, njennings

sandweb-commit — CVS activity

You can subscribe to this list here.

2001	_Jan	_Feb	_Mar	_Apr	_May	_Jun	_Jul	_Aug	_Sep	_Oct (28)	_Nov (58)	_Dec (85)
2002	_Jan (125)	_Feb (222)	_Mar (274)	_Apr (51)	_May (22)	_Jun (50)	_Jul (15)	_Aug (33)	_Sep (11)	_Oct (29)	_Nov (17)	_Dec (1)
2003	_Jan (100)	_Feb (21)	_Mar (7)	_Apr (45)	_May	_Jun (43)	_Jul (27)	_Aug (24)	_Sep	_Oct	_Nov	_Dec
2004	_Jan (1)	_Feb	_Mar (13)	_Apr	_May (1)	_Jun	_Jul	_Aug (7)	_Sep	_Oct	_Nov	_Dec (4)
2005	_Jan	_Feb	_Mar	_Apr	_May	_Jun	_Jul	_Aug	_Sep	_Oct	_Nov	_Dec (1)

Flat | Threaded

<< < 1 .. 18 19 20 21 22 .. 53 > >> (Page 20 of 53)

[Sandweb-commit] CVS: sandweb install.cfg,1.14,1.15

From: Rob H. <for...@us...> - 2002-04-23 06:48:34

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

Modified Files:
	install.cfg 
Log Message:
cgi_bin and ssh_bin should be configurable too

Index: install.cfg
===================================================================
RCS file: /cvsroot/sandweb/sandweb/install.cfg,v
retrieving revision 1.14
retrieving revision 1.15
diff -U2 -r1.14 -r1.15
--- install.cfg	23 Apr 2002 06:46:04 -0000	1.14
+++ install.cfg	23 Apr 2002 06:48:30 -0000	1.15
@@ -10,4 +10,6 @@
 $httpuser = 'www';
 $expectbin = '/usr/bin/expect';
+$ssh_bin = '/usr/bin/ssh';
+$cvs_bin = '/usr/bin/cvs';
 
 1;

[Sandweb-commit] CVS: sandweb/lib/SandWeb Shell.pm,1.6,1.7 Repository.pm,1.38,1.39

From: Rob H. <for...@us...> - 2002-04-23 06:47:12

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

Modified Files:
	Shell.pm Repository.pm 
Log Message:
working sandewb-expect into the build

Index: Shell.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Shell.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -U2 -r1.6 -r1.7
--- Shell.pm	13 Apr 2002 04:52:39 -0000	1.6
+++ Shell.pm	23 Apr 2002 06:47:06 -0000	1.7
@@ -26,5 +26,5 @@
 	my %args = @_;
 
-	my $expect_bin = $args{'expect_bin'} || '';
+	my $bindir = $args{'bindir'} || '';
 	my $system_username = $args{'system_username'} || '';
 	my $system_password = $args{'system_password'} || '';
@@ -33,5 +33,5 @@
 
         my $self = bless {
-		'expect_bin' => "$expect_bin",
+		'bindir' => "$bindir",
 		'system_username' => "$system_username",
 		'system_password' => "$system_password",
@@ -47,5 +47,5 @@
 	my %args = @_;
 
-	my $sandweb_expect = '/usr/local/bin/sandweb-expect';
+	my $sandweb_expect = "$self->{'bindir'}/sandweb-expect";
 	my $system_username = $self->{'system_username'};
 	my $system_password = $self->{'system_password'};
@@ -63,5 +63,5 @@
 			shift @lined_output;
 			shift @lined_output;
-			$output = join(/\n/, @lined_output);
+			$output = join('', @lined_output);
 		} else {
 			my $raw_output = `$sandweb_expect unix $system_username $system_password $command`;
@@ -70,5 +70,5 @@
                         shift @lined_output;
                         shift @lined_output;
-                        $output = join(/\n/, @lined_output);
+                        $output = join('', @lined_output);
 		}
 	} elsif ( $vcs_username && $vcs_password ) {
@@ -78,5 +78,5 @@
                 shift @lined_output;
                 shift @lined_output;
-                $output = join(/\n/, @lined_output);
+                $output = join('', @lined_output);
 	} else {
 		$output = `$command`;

Index: Repository.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Repository.pm,v
retrieving revision 1.38
retrieving revision 1.39
diff -U2 -r1.38 -r1.39
--- Repository.pm	12 Apr 2002 05:51:23 -0000	1.38
+++ Repository.pm	23 Apr 2002 06:47:06 -0000	1.39
@@ -79,7 +79,7 @@
 	my $cvs_bin = $args{'cvs_bin'} || '';
 
-	# $config object, holds configuration info for SandWeb
+	# $bindir specifies the path to SandWeb's scripts
 
-	my $config = $args{'config'} || '';
+	my $bindir = $args{'bindir'} || '';
 
 	my $self = bless {
@@ -95,4 +95,5 @@
 		'ssh_bin' => $ssh_bin,
 		'cvs_bin' => $cvs_bin,
+		'bindir' => $bindir,
 	}, $class;
  
@@ -817,4 +818,5 @@
 	my $ssh_bin = $self->get_ssh_bin() || '';
 	my $cvs_bin = $self->get_cvs_bin() || '';
+	my $bindir = $self->get_bindir() || '';
 
 	my $command = $args{'command'} || '';
@@ -832,4 +834,5 @@
 			ssh_bin => $ssh_bin,
 			cvs_bin => $cvs_bin,
+			bindir => $bindir,
 			system_username => $system_username,
 			system_password => $system_password,
@@ -1002,4 +1005,14 @@
 	if ($self->{'cvs_bin'}) {
 		return $self->{'cvs_bin'};
+	}
+	else {
+		return 0;
+	}
+}
+
+sub get_bindir {
+	my $self = shift;
+	if ($self->{'bindir'}) {
+		return $self->{'bindir'};
 	}
 	else {

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

From: Rob H. <for...@us...> - 2002-04-23 06:47:12

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

Modified Files:
	cvs.pm 
Log Message:
working sandewb-expect into the build

Index: cvs.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Repository/cvs.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -U2 -r1.12 -r1.13
--- cvs.pm	12 Apr 2002 20:23:03 -0000	1.12
+++ cvs.pm	23 Apr 2002 06:47:06 -0000	1.13
@@ -36,7 +36,7 @@
 	my $connection = $args{'connection'} || '';
 	my $server = $args{'server'} || '';
-	my $expect_bin = $args{'expect_bin'} || '';
 	my $ssh_bin = $args{'ssh_bin'} || '';
 	my $cvs_bin = $args{'cvs_bin'} || '';
+	my $bindir = $args{'bindir'} || '';
 	my $vcs_username = $args{'vcs_username'} || '';
 	my $vcs_password = $args{'vcs_password'} || '';
@@ -49,7 +49,7 @@
 		'connection' => $connection,
 		'server' => $server,
-		'expect_bin' => $expect_bin,
 		'ssh_bin' => $ssh_bin,
 		'cvs_bin' => $cvs_bin,
+		'bindir' => $bindir,
 		'vcs_username' => $vcs_username,
 		'vcs_password' => $vcs_password,
@@ -832,7 +832,7 @@
         my $connection = $self->get_connection() || '';
         my $server = $self->get_server() || '';
-        my $expect_bin = $self->get_expect_bin() || '';
         my $ssh_bin = $self->get_ssh_bin() || '';
         my $cvs_bin = $self->get_cvs_bin() || '';
+	my $bindir = $self->get_bindir() || '';
         my $vcs_username = $self->get_vcs_username() || '';
         my $vcs_password = $self->get_vcs_password() || '';
@@ -848,4 +848,5 @@
 		'system_username' => "$system_username",
 		'system_password' => "$system_password",
+		'bindir' => "$bindir",
 	);
 
@@ -904,8 +905,8 @@
 }
 
-sub get_expect_bin {
+sub get_bindir {
 	my $self = shift;
-	if ($self->{'expect_bin'}) {
-		return $self->{'expect_bin'};
+	if ($self->{'bindir'}) {
+		return $self->{'bindir'};
 	}
 	else {

[Sandweb-commit] CVS: sandweb/etc sandweb.cfg,1.21,1.22

From: Rob H. <for...@us...> - 2002-04-23 06:46:48

Update of /cvsroot/sandweb/sandweb/etc
In directory usw-pr-cvs1:/tmp/cvs-serv30115/etc

Modified Files:
	sandweb.cfg 
Log Message:
working sandewb-expect into the build

Index: sandweb.cfg
===================================================================
RCS file: /cvsroot/sandweb/sandweb/etc/sandweb.cfg,v
retrieving revision 1.21
retrieving revision 1.22
diff -U2 -r1.21 -r1.22
--- sandweb.cfg	11 Apr 2002 21:20:44 -0000	1.21
+++ sandweb.cfg	23 Apr 2002 06:46:44 -0000	1.22
@@ -33,7 +33,8 @@
 	/>
 
-	<system expect_bin="/usr/local/bin/expect"
-		ssh_bin="/usr/local/bin/ssh"
-		cvs_bin="/usr/local/bin/cvs"
+	<!-- System paths for SSH, CVS and SandWeb scripts -->
+	<system ssh_bin="/usr/bin/ssh"
+		cvs_bin="/usr/bin/cvs"
+		bindir="/usr/local/bin"
 	/>

[Sandweb-commit] CVS: sandweb install.cfg,1.13,1.14

From: Rob H. <for...@us...> - 2002-04-23 06:46:08

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

Modified Files:
	install.cfg 
Log Message:
working sandweb-expect into the build

Index: install.cfg
===================================================================
RCS file: /cvsroot/sandweb/sandweb/install.cfg,v
retrieving revision 1.13
retrieving revision 1.14
diff -U2 -r1.13 -r1.14
--- install.cfg	28 Mar 2002 05:06:10 -0000	1.13
+++ install.cfg	23 Apr 2002 06:46:04 -0000	1.14
@@ -9,4 +9,5 @@
 $logdir = '/var/log';
 $httpuser = 'www';
+$expectbin = '/usr/bin/expect';
 
 1;

[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.283,1.284

From: Rob H. <for...@us...> - 2002-04-13 18:43:52

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

Modified Files:
	sandweb.cgi 
Log Message:
cool. figured out what I was doing wrong with the password setting,
should work now ( but you need to create a new repo, due to one of
the bugs I filed on the repo_menu, update_repo isn't working )



Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.283
retrieving revision 1.284
diff -U2 -r1.283 -r1.284
--- sandweb.cgi	11 Apr 2002 21:20:43 -0000	1.283
+++ sandweb.cgi	13 Apr 2002 18:43:49 -0000	1.284
@@ -372,4 +372,5 @@
 						repo_server => $repo_server,
 						repo_username => $repo_username,
+						repo_password => $repo_password,
 						repo_type => $repo_type,
 						repo_connection => $repo_connection,
@@ -2352,4 +2353,5 @@
 					server => $repo_server,
 					username => $repo_username,
+					password = $repo_password,
 					connection => $repo_connection,
 					type => $repo_type,
@@ -2362,4 +2364,5 @@
 					server => $repo_server,
 					username => $repo_username,
+					password => $repo_password,
 					connection => $repo_connection,
 					type => $repo_type,

[Sandweb-commit] CVS: sandweb/lib/SandWeb Shell.pm,1.5,1.6

From: Rob H. <for...@us...> - 2002-04-13 04:52:44

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

Modified Files:
	Shell.pm 
Log Message:
ar.. for some reason Expect on my Debian box puts a \r at the end
of each line instead of 
. What a PITA :)

put in a conversion \r -> \n


Index: Shell.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Shell.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -U2 -r1.5 -r1.6
--- Shell.pm	12 Apr 2002 20:23:03 -0000	1.5
+++ Shell.pm	13 Apr 2002 04:52:39 -0000	1.6
@@ -83,4 +83,5 @@
 	}
 
+	$output =~ s/\r/\n/g;
 	return $output;
 }

[Sandweb-commit] CVS: sandweb/lib/SandWeb Diff.pm,1.6,1.7 Shell.pm,1.4,1.5

From: Rob H. <for...@us...> - 2002-04-12 20:23:10

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

Modified Files:
	Diff.pm Shell.pm 
Log Message:
sweet, rolled back Diff.pm and cvs.pm, made substitution happen in Shell.pm
instead


Index: Diff.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Diff.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -U2 -r1.6 -r1.7
--- Diff.pm	12 Apr 2002 19:59:27 -0000	1.6
+++ Diff.pm	12 Apr 2002 20:23:03 -0000	1.7
@@ -39,10 +39,4 @@
 
 	my $input = $self->{'diff'};
-
-	# convert any carriage returns to linefeeds.
-        # sandweb-expect strips carriage returns so we need this here.
-        $raw_output =~ s/^M/\n/g;
-        my @lined_output = split(/\n/, $raw_output);
-
 	my @diff = split(/\n/, $input);
 

Index: Shell.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Shell.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -U2 -r1.4 -r1.5
--- Shell.pm	12 Apr 2002 19:59:27 -0000	1.4
+++ Shell.pm	12 Apr 2002 20:23:03 -0000	1.5
@@ -58,19 +58,25 @@
 	if ( $system_username && $system_password ) {
 		if ( $vcs_username && $vcs_password ) {
-			my @raw_output = split(/\n/, `$sandweb_expect unix_vcs $system_username $system_password $vcs_password $command`);
-			shift @raw_output;
-			shift @raw_output;
-			$output = join('', @raw_output);
+			my $raw_output = `$sandweb_expect unix_vcs $system_username $system_password $vcs_password $command`;
+			$raw_output =~ s/
/\n/g;
+			my @lined_output = split(/\n/, $raw_output);
+			shift @lined_output;
+			shift @lined_output;
+			$output = join(/\n/, @lined_output);
 		} else {
-			my @raw_output = split(/\n/, `$sandweb_expect unix $system_username $system_password $command`);
-			shift @raw_output;
-			shift @raw_output;
-			$output = join('', @raw_output);
+			my $raw_output = `$sandweb_expect unix $system_username $system_password $command`;
+                        $raw_output =~ s/^M/\n/g;
+                        my @lined_output = split(/\n/, $raw_output);
+                        shift @lined_output;
+                        shift @lined_output;
+                        $output = join(/\n/, @lined_output);
 		}
 	} elsif ( $vcs_username && $vcs_password ) {
-		my @raw_output = split(/\n/, `$sandweb_expect vcs $vcs_password "$command"`);
-		shift @raw_output;
-		shift @raw_output;
-		$output = join('', @raw_output);
+		my $raw_output = `$sandweb_expect vcs $vcs_password "$command"`;
+                $raw_output =~ s/^M/\n/g;
+                my @lined_output = split(/\n/, $raw_output);
+                shift @lined_output;
+                shift @lined_output;
+                $output = join(/\n/, @lined_output);
 	} else {
 		$output = `$command`;

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

From: Rob H. <for...@us...> - 2002-04-12 20:23:09

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

Modified Files:
	cvs.pm 
Log Message:
sweet, rolled back Diff.pm and cvs.pm, made substitution happen in Shell.pm
instead


Index: cvs.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Repository/cvs.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -U2 -r1.11 -r1.12
--- cvs.pm	12 Apr 2002 19:59:28 -0000	1.11
+++ cvs.pm	12 Apr 2002 20:23:03 -0000	1.12
@@ -269,5 +269,4 @@
                 'file' => "$file",
         );
-
 	my $errorlevel = $?;
 
@@ -713,12 +712,7 @@
                 'file' => "$file",
         );
+	my $errorlevel = $?;
 
-	# convert any carriage returns to linefeeds.
-	# sandweb-expect strips carriage returns so we need this here.
-
-	$raw_output =~ s/
/\n/g;
 	my @lined_output = split(/\n/, $raw_output);
-
-	my $errorlevel = $?;
 
 	if ( $errorlevel == 0 ) {

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

From: Rob H. <for...@us...> - 2002-04-12 19:59:33

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

Modified Files:
	cvs.pm 
Log Message:
added carriage return->linefeed conversions


Index: cvs.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Repository/cvs.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -U2 -r1.10 -r1.11
--- cvs.pm	12 Apr 2002 05:33:03 -0000	1.10
+++ cvs.pm	12 Apr 2002 19:59:28 -0000	1.11
@@ -265,8 +265,9 @@
 	print "cd \"$sandbox\" && cvs -d $root @param \"$file\" 2>&1";
 	
-        my @raw_output = $self->shell(
+        my $raw_output = $self->shell(
                 'param' => join('', @param),
                 'file' => "$file",
         );
+
 	my $errorlevel = $?;
 
@@ -708,8 +709,15 @@
 
 	my @output_lines = ();
-        my @raw_output = $self->shell(
+        my $raw_output = $self->shell(
                 'param' => join('', @param),
                 'file' => "$file",
         );
+
+	# convert any carriage returns to linefeeds.
+	# sandweb-expect strips carriage returns so we need this here.
+
+	$raw_output =~ s/
/\n/g;
+	my @lined_output = split(/\n/, $raw_output);
+
 	my $errorlevel = $?;
 
@@ -720,5 +728,5 @@
         }
 
-	foreach my $line (@raw_output) {
+	foreach my $line (@lined_output) {
 		if ($line =~ /^M/) {
 			$line =~ s/^M/\<font color\=\"blue\"\>Locally modified\<\/font\>/;
@@ -735,4 +743,7 @@
 		elsif ($line =~ /^\?/) {
 			$line =~ s/^\?/\<font color\=\"blue\"\>Unknown\<\/font\>/;
+		}
+		elsif ($line =~ /^A/) {
+			$line =~ s/^A/\<font color\=\"blue\"\>Locally added\<\/font\>/;
 		}
 		elsif ($line =~ /warning/) {

[Sandweb-commit] CVS: sandweb/lib/SandWeb Shell.pm,1.3,1.4 Diff.pm,1.5,1.6

From: Rob H. <for...@us...> - 2002-04-12 19:59:33

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

Modified Files:
	Shell.pm Diff.pm 
Log Message:
added carriage return->linefeed conversions


Index: Shell.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Shell.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -U2 -r1.3 -r1.4
--- Shell.pm	11 Apr 2002 22:18:37 -0000	1.3
+++ Shell.pm	12 Apr 2002 19:59:27 -0000	1.4
@@ -58,10 +58,10 @@
 	if ( $system_username && $system_password ) {
 		if ( $vcs_username && $vcs_password ) {
-			my @raw_output = split('\n', `$sandweb_expect unix_vcs $system_username $system_password $vcs_password $command`);
+			my @raw_output = split(/\n/, `$sandweb_expect unix_vcs $system_username $system_password $vcs_password $command`);
 			shift @raw_output;
 			shift @raw_output;
 			$output = join('', @raw_output);
 		} else {
-			my @raw_output = split('\n', `$sandweb_expect unix $system_username $system_password $command`);
+			my @raw_output = split(/\n/, `$sandweb_expect unix $system_username $system_password $command`);
 			shift @raw_output;
 			shift @raw_output;
@@ -69,5 +69,5 @@
 		}
 	} elsif ( $vcs_username && $vcs_password ) {
-		my @raw_output = split('\n', `$sandweb_expect vcs $vcs_password "$command"`);
+		my @raw_output = split(/\n/, `$sandweb_expect vcs $vcs_password "$command"`);
 		shift @raw_output;
 		shift @raw_output;

Index: Diff.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Diff.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -U2 -r1.5 -r1.6
--- Diff.pm	10 Mar 2002 01:56:05 -0000	1.5
+++ Diff.pm	12 Apr 2002 19:59:27 -0000	1.6
@@ -39,4 +39,10 @@
 
 	my $input = $self->{'diff'};
+
+	# convert any carriage returns to linefeeds.
+        # sandweb-expect strips carriage returns so we need this here.
+        $raw_output =~ s/^M/\n/g;
+        my @lined_output = split(/\n/, $raw_output);
+
 	my @diff = split(/\n/, $input);

[Sandweb-commit] CVS: sandweb/lib/SandWeb Repository.pm,1.37,1.38

From: Rob H. <for...@us...> - 2002-04-12 05:51:27

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

Modified Files:
	Repository.pm 
Log Message:
"clobber" should be 0 by default.

ah, the defaults are sooo much easier to set now, just simple elsifs :)


Index: Repository.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Repository.pm,v
retrieving revision 1.37
retrieving revision 1.38
diff -U2 -r1.37 -r1.38
--- Repository.pm	11 Apr 2002 21:20:43 -0000	1.37
+++ Repository.pm	12 Apr 2002 05:51:23 -0000	1.38
@@ -697,5 +697,5 @@
                 } else {
                         push (@params, 'clobber');
-                        push (@params, '1');
+                        push (@params, '0');
 		}
                 if ($directories) {

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

From: Rob H. <for...@us...> - 2002-04-12 05:33:07

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

Modified Files:
	cvs.pm 
Log Message:
argh, this one's important, somehow i didn't check it in. weird.


Index: cvs.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Repository/cvs.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -U2 -r1.9 -r1.10
--- cvs.pm	11 Apr 2002 21:20:44 -0000	1.9
+++ cvs.pm	12 Apr 2002 05:33:03 -0000	1.10
@@ -65,7 +65,8 @@
 	my %args = @_;
 
-	my $type = $args{'type'};
-	my $message = $args{'message'};
-	my $file = $args{'file'};
+	my %params = @{ $args{'params'}[0] };
+	my $type = $params{'type'};
+	my $message = $params{'message'};
+	my $file = $params{'file'};
 
 	my @param = 'add';
@@ -102,6 +103,7 @@
 	my %args = @_;
 
-	my $type = $args{'type'};
-	my $file = $args{'file'};
+	my %params = @{ $args{'params'}[0] };
+	my $type = $params{'type'};
+	my $file = $params{'file'};
 
 	my @param = 'admin';
@@ -128,8 +130,9 @@
 	my %args = @_;
 
-	my $date = $args{'type'};
-	my $rev = $args{'rev'};
-	my $recurse = $args{'recurse'};
-	my $file = $args{'file'};
+        my %params = @{ $args{'params'}[0] };
+	my $date = $params{'type'};
+	my $rev = $params{'rev'};
+	my $recurse = $params{'recurse'};
+	my $file = $params{'file'};
 
 	my @param = 'annotate';
@@ -163,8 +166,9 @@
 	my %args = @_;
 
-	my $rev = $args{'rev'};
-	my $recurse = $args{'recurse'};
-	my $date = $args{'date'};
-	my $file = $args{'file'};
+        my %params = @{ $args{'params'}[0] };
+	my $rev = $params{'rev'};
+	my $recurse = $params{'recurse'};
+	my $date = $params{'date'};
+	my $file = $params{'file'};
 	my @param = "checkout -d $file";
 
@@ -198,9 +202,10 @@
 	my %args = @_;
 
-	my $recurse = $args{'recurse'};
-	my $message = $args{'message'};
-	my $rev = $args{'rev'};
-	my $date = $args{'date'};
-	my $file = $args{'file'};
+        my %params = @{ $args{'params'}[0] };
+	my $recurse = $params{'recurse'};
+	my $message = $params{'message'};
+	my $rev = $params{'rev'};
+	my $date = $params{'date'};
+	my $file = $params{'file'};
 
 	my @param = 'commit';
@@ -242,10 +247,11 @@
 	my %args = @_;
 
-	my $date = $args{'date'};
-	my $rev = $args{'rev'};
-	my $recurse = $args{'recurse'};
-	my $context = $args{'context'};
-	my $unified = $args{'unified'};
-	my $file = $args{'file'};
+        my %params = @{ $args{'params'}[0] };
+	my $date = $params{'date'};
+	my $rev = $params{'rev'};
+	my $recurse = $params{'recurse'};
+	my $context = $params{'context'};
+	my $unified = $params{'unified'};
+	my $file = $params{'file'};
 
 	my @param = 'diff';
@@ -289,7 +295,8 @@
 	my %args = @_;
 
-	my $recurse = $args{'recurse'};
-	my $action = $args{'action'};
-	my $file = $args{'file'};
+        my %params = @{ $args{'params'}[0] };
+	my $recurse = $params{'recurse'};
+	my $action = $params{'action'};
+	my $file = $params{'file'};
 
 	my @param = 'edit';
@@ -322,6 +329,7 @@
 	my %args = @_;
 
-	my $recurse = $args{'recurse'};
-	my $file = $args{'file'};
+        my %params = @{ $args{'params'}[0] };
+	my $recurse = $params{'recurse'};
+	my $file = $params{'file'};
 
 	my @param = 'editors';
@@ -353,5 +361,6 @@
 	my %args = @_;
 
-	my $file = $args{'file'};
+        my %params = @{ $args{'params'}[0] };
+	my $file = $params{'file'};
 
 	my @param = 'history';
@@ -381,5 +390,6 @@
 	my %args = @_;
 
-	my $file = $args{'file'};
+        my %params = @{ $args{'params'}[0] };
+	my $file = $params{'file'};
 
 	my @param = 'init';
@@ -409,5 +419,6 @@
 	my %args = @_;
 
-	my $file = $args{'file'};
+        my %params = @{ $args{'params'}[0] };
+	my $file = $params{'file'};
 
 	my @param = 'log';
@@ -437,5 +448,6 @@
 	my %args = @_;
 
-	my $password = $args{'password'};
+        my %params = @{ $args{'params'}[0] };
+	my $password = $params{'password'};
 
 	my @param = 'login';
@@ -497,6 +509,7 @@
 	my %args = @_;
 
-	my $delete = $args{'delete'};
-	my $file = $args{'file'};
+        my %params = @{ $args{'params'}[0] };
+	my $delete = $params{'delete'};
+	my $file = $params{'file'};
 
 	my @param = 'release';
@@ -528,8 +541,9 @@
 	my %args = @_;
 
-	my $remove = $args{'remove'};
-	my $recurse = $args{'recurse'};
-	my $file = $args{'file'};
-	my $force = $args{'force'};
+        my %params = @{ $args{'params'}[0] };
+	my $remove = $params{'remove'};
+	my $recurse = $params{'recurse'};
+	my $file = $params{'file'};
+	my $force = $params{'force'};
 
 	my @param = 'remove';
@@ -597,11 +611,12 @@
 	my %args = @_;
 
-	my $recurse = $args{'recurse'};
-	my $delete = $args{'delete'};
-	my $branch = $args{'branch'};
-	my $force = $args{'force'};
-	my $check = $args{'check'};
-	my $name = $args{'name'};
-	my $file = $args{'file'};
+        my %params = @{ $args{'params'}[0] };
+	my $recurse = $params{'recurse'};
+	my $delete = $params{'delete'};
+	my $branch = $params{'branch'};
+	my $force = $params{'force'};
+	my $check = $params{'check'};
+	my $name = $params{'name'};
+	my $file = $params{'file'};
 
 	my @param = 'tag';
@@ -638,6 +653,7 @@
 	my %args = @_;
 
-	my $recurse = $args{'recurse'};
-	my $file = $args{'file'};
+        my %params = @{ $args{'params'}[0] };
+	my $recurse = $params{'recurse'};
+	my $file = $params{'file'};
 
 	my @param = 'unedit';
@@ -669,13 +685,14 @@
 	my %args = @_;
 
-	my $recurse = $args{'recurse'};
-	my $reset = $args{'reset'};
-	my $prune = $args{'prune'};
-	my $clobber = $args{'clobber'};
-	my $directories = $args{'directories'};
-	my $rev = $args{'rev'};
-	my $date = $args{'date'};
-	my $merge = $args{'merge'};
-	my $file = $args{'file'};
+        my %params = @{ $args{'params'}[0] };
+	my $recurse = $params{'recurse'};
+	my $reset = $params{'reset'};
+	my $prune = $params{'prune'};
+	my $clobber = $params{'clobber'};
+	my $directories = $params{'directories'};
+	my $rev = $params{'rev'};
+	my $date = $params{'date'};
+	my $merge = $params{'merge'};
+	my $file = $params{'file'};
 
 	my @param = 'update';
@@ -738,8 +755,9 @@
 	my %args = @_;
 
-	my $set = $args{'set'};
-	my $notify = $args{'notify'};
-	my $recurse = $args{'recurse'};
-	my $file = $args{'file'};
+        my %params = @{ $args{'params'}[0] };
+	my $set = $params{'set'};
+	my $notify = $params{'notify'};
+	my $recurse = $params{'recurse'};
+	my $file = $params{'file'};
 
 	my @param = 'watch';
@@ -773,6 +791,7 @@
 	my %args = @_;
 
-	my $recurse = $args{'recurse'};
-	my $file = $args{'file'};
+        my %params = @{ $args{'params'}[0] };
+	my $recurse = $params{'recurse'};
+	my $file = $params{'file'};
 
 	my @param = 'watchers';

[Sandweb-commit] CVS: sandweb/lib/SandWeb Shell.pm,1.2,1.3

From: Rob H. <for...@us...> - 2002-04-11 22:18:39

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

Modified Files:
	Shell.pm 
Log Message:
* putting in some hooks to support the location of sandweb-expect

Index: Shell.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Shell.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -U2 -r1.2 -r1.3
--- Shell.pm	2 Apr 2002 03:45:41 -0000	1.2
+++ Shell.pm	11 Apr 2002 22:18:37 -0000	1.3
@@ -26,4 +26,5 @@
 	my %args = @_;
 
+	my $expect_bin = $args{'expect_bin'} || '';
 	my $system_username = $args{'system_username'} || '';
 	my $system_password = $args{'system_password'} || '';
@@ -32,4 +33,5 @@
 
         my $self = bless {
+		'expect_bin' => "$expect_bin",
 		'system_username' => "$system_username",
 		'system_password' => "$system_password",
@@ -45,4 +47,5 @@
 	my %args = @_;
 
+	my $sandweb_expect = '/usr/local/bin/sandweb-expect';
 	my $system_username = $self->{'system_username'};
 	my $system_password = $self->{'system_password'};
@@ -52,5 +55,4 @@
 	my $command = $args{'command'};
 	my $output;
-	my $sandweb_expect = '/usr/local/bin/sandweb-expect';
 
 	if ( $system_username && $system_password ) {

[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.282,1.283

From: Rob H. <for...@us...> - 2002-04-11 21:20:50

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

Modified Files:
	sandweb.cgi 
Log Message:
* further integrated support for CVS w/ SSH
* finally got around to improving modularity in Repo/cvs classes



Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.282
retrieving revision 1.283
diff -U2 -r1.282 -r1.283
--- sandweb.cgi	2 Apr 2002 07:43:34 -0000	1.282
+++ sandweb.cgi	11 Apr 2002 21:20:43 -0000	1.283
@@ -614,4 +614,6 @@
 	my $repo_connection = $user->get_repo_connection(repo => $repo_name);
 	my $repo_root = $user->get_repo_root(repo => $repo_name);
+	my $ssh_bin = $config->{'system'}->{'ssh_bin'};
+	my $cvs_bin = $config->{'system'}->{'cvs_bin'};
 
 	$log->debug("creating Repository object");
@@ -625,4 +627,6 @@
 		'server' => $repo_server,
 		'repo_type' => $repo_type,
+		'ssh_bin' => $ssh_bin,
+		'cvs_bin' => $cvs_bin,
 	);
 
@@ -1867,4 +1871,6 @@
 	my $repo_connection = $user->get_repo_connection(repo => $repo_name);
 	my $repo_root = $user->get_repo_root(repo => $repo_name);
+	my $ssh_bin = $config->{'system'}->{'ssh_bin'};
+	my $cvs_bin = $config->{'system'}->{'cvs_bin'};
 
 	my $sandbox = $user->{'paths'}->{'users_dir'} || '';
@@ -1905,4 +1911,6 @@
 		repo_type => $repo_type,
 		sandbox => "$users_dir/$username/$repo_name/$module_name/$location",
+		'ssh_bin' => $ssh_bin,
+		'cvs_bin' => $cvs_bin,
 	);
 
@@ -2130,4 +2138,6 @@
 	my $repo_connection = $user->get_repo_connection(repo => $repo_name);
 	my $repo_root = $user->get_repo_root(repo => $repo_name);
+	my $ssh_bin = $config->{'system'}->{'ssh_bin'};
+	my $cvs_bin = $config->{'system'}->{'cvs_bin'};
 	
 	# true if commit vcs checkout action (works for update too)
@@ -2181,4 +2191,6 @@
 			repo_type => $repo_type,
 			sandbox => "$users_dir/$username/$repo_name",
+			'ssh_bin' => $ssh_bin,
+			'cvs_bin' => $cvs_bin,
 		);

[Sandweb-commit] CVS: sandweb/etc sandweb.cfg,1.20,1.21

From: Rob H. <for...@us...> - 2002-04-11 21:20:50

Update of /cvsroot/sandweb/sandweb/etc
In directory usw-pr-cvs1:/tmp/cvs-serv24325/etc

Modified Files:
	sandweb.cfg 
Log Message:
* further integrated support for CVS w/ SSH
* finally got around to improving modularity in Repo/cvs classes



Index: sandweb.cfg
===================================================================
RCS file: /cvsroot/sandweb/sandweb/etc/sandweb.cfg,v
retrieving revision 1.20
retrieving revision 1.21
diff -U2 -r1.20 -r1.21
--- sandweb.cfg	26 Mar 2002 08:12:43 -0000	1.20
+++ sandweb.cfg	11 Apr 2002 21:20:44 -0000	1.21
@@ -33,3 +33,8 @@
 	/>
 
+	<system expect_bin="/usr/local/bin/expect"
+		ssh_bin="/usr/local/bin/ssh"
+		cvs_bin="/usr/local/bin/cvs"
+	/>
+
 </config>

[Sandweb-commit] CVS: sandweb/lib/SandWeb Repository.pm,1.36,1.37

From: Rob H. <for...@us...> - 2002-04-11 21:20:50

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

Modified Files:
	Repository.pm 
Log Message:
* further integrated support for CVS w/ SSH
* finally got around to improving modularity in Repo/cvs classes



Index: Repository.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Repository.pm,v
retrieving revision 1.36
retrieving revision 1.37
diff -U2 -r1.36 -r1.37
--- Repository.pm	2 Apr 2002 02:53:46 -0000	1.36
+++ Repository.pm	11 Apr 2002 21:20:43 -0000	1.37
@@ -40,4 +40,13 @@
 	my $root = $args{'root'} || '';
 
+	# $sandbox specifies the path to the user's working directory
+	# on the server
+
+	my $sandbox = $args{'sandbox'} || '';
+
+	# $server specifies the hostname of the current repo server 
+
+	my $server = $args{'server'} || '';
+
[...1192 lines suppressed...]
+		return 0;
+	}
+}
+
+sub get_ssh_bin {
+	my $self = shift;
+	if ($self->{'ssh_bin'}) {
+		return $self->{'ssh_bin'};
+	}
+	else {
+		return 0;
+	}
+}
+
+sub get_cvs_bin {
+	my $self = shift;
+	if ($self->{'cvs_bin'}) {
+		return $self->{'cvs_bin'};
 	}
 	else {

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

From: Rob H. <for...@us...> - 2002-04-11 21:20:50

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

Modified Files:
	cvs.pm 
Log Message:
* further integrated support for CVS w/ SSH
* finally got around to improving modularity in Repo/cvs classes



Index: cvs.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Repository/cvs.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -U2 -r1.8 -r1.9
--- cvs.pm	2 Apr 2002 06:38:46 -0000	1.8
+++ cvs.pm	11 Apr 2002 21:20:44 -0000	1.9
@@ -34,4 +34,9 @@
 	my $root = $args{'root'} || '';
 	my $sandbox = $args{'sandbox'} || '';
+	my $connection = $args{'connection'} || '';
+	my $server = $args{'server'} || '';
+	my $expect_bin = $args{'expect_bin'} || '';
+	my $ssh_bin = $args{'ssh_bin'} || '';
+	my $cvs_bin = $args{'cvs_bin'} || '';
 	my $vcs_username = $args{'vcs_username'} || '';
 	my $vcs_password = $args{'vcs_password'} || '';
@@ -42,4 +47,9 @@
 		'root' => $root,
 		'sandbox' => $sandbox,
+		'connection' => $connection,
+		'server' => $server,
+		'expect_bin' => $expect_bin,
+		'ssh_bin' => $ssh_bin,
+		'cvs_bin' => $cvs_bin,
 		'vcs_username' => $vcs_username,
 		'vcs_password' => $vcs_password,
@@ -552,7 +562,9 @@
 	my %args = @_;
 
-	my $recurse = $args{'recurse'};
-	my $verbose = $args{'verbose'};
-	my $file = $args{'file'};
+	my %params = @{ $args{'params'}[0] };
+	
+	my $recurse = $params{'recurse'} || '';
+	my $verbose = $params{'verbose'} || '';
+	my $file = $params{'file'} || '';
 
 	my @param = 'status';
@@ -792,10 +804,15 @@
 	my %args = @_;
 
-	my $root = $self->get_root();
-        my $sandbox = $self->get_sandbox();
-        my $vcs_username = $self->get_vcs_username();
-        my $vcs_password = $self->get_vcs_password();
-        my $system_username = $self->get_system_username();
-        my $system_password = $self->get_system_password();
+	my $root = $self->get_root() || '';
+        my $sandbox = $self->get_sandbox() || '';
+        my $connection = $self->get_connection() || '';
+        my $server = $self->get_server() || '';
+        my $expect_bin = $self->get_expect_bin() || '';
+        my $ssh_bin = $self->get_ssh_bin() || '';
+        my $cvs_bin = $self->get_cvs_bin() || '';
+        my $vcs_username = $self->get_vcs_username() || '';
+        my $vcs_password = $self->get_vcs_password() || '';
+        my $system_username = $self->get_system_username() || '';
+        my $system_password = $self->get_system_password() || '';
 
 	my $file = $args{'file'};
@@ -809,6 +826,13 @@
 	);
 
+	if ( $connection eq 'SSH' ) {
+		$root = ":ext:$vcs_username\@$server:$root";
+	} 
+	elsif ( $connection eq 'pserver' ) {
+		$root = ":pserver:$vcs_username\@$server:$root";
+	}
+
 	my $output = $shell->execute(
-		'command' => "cd $sandbox && CVS_RSH=/usr/local/bin/ssh && export CVS_RSH && /usr/bin/cvs -d $root $param $file",
+		'command' => "cd $sandbox && CVS_RSH=$ssh_bin && export CVS_RSH && $cvs_bin -d $root $param $file",
 	);
 
@@ -826,8 +850,58 @@
 }
 
+sub get_connection {
+	my $self = shift;
+	if ($self->{'connection'}) {
+		return $self->{'connection'};
+	}
+	else {
+		return 0;
+	}
+}
+
+sub get_server {
+	my $self = shift;
+	if ($self->{'server'}) {
+		return $self->{'server'};
+	}
+	else {
+		return 0;
+	}
+}
+
 sub get_root {
 	my $self = shift;
 	if ($self->{'root'}) {
 		return $self->{'root'};
+	}
+	else {
+		return 0;
+	}
+}
+
+sub get_expect_bin {
+	my $self = shift;
+	if ($self->{'expect_bin'}) {
+		return $self->{'expect_bin'};
+	}
+	else {
+		return 0;
+	}
+}
+
+sub get_ssh_bin {
+	my $self = shift;
+	if ($self->{'ssh_bin'}) {
+		return $self->{'ssh_bin'};
+	}
+	else {
+		return 0;
+	}
+}
+
+sub get_cvs_bin {
+	my $self = shift;
+	if ($self->{'cvs_bin'}) {
+		return $self->{'cvs_bin'};
 	}
 	else {

[Sandweb-commit] CVS: sandweb INSTALL,1.6,1.7

From: Rob H. <for...@us...> - 2002-04-11 19:30:51

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

Modified Files:
	INSTALL 
Log Message:
seperated applications/libraries from Perl modules in the docs, added
links to applications/libraries


Index: INSTALL
===================================================================
RCS file: /cvsroot/sandweb/sandweb/INSTALL,v
retrieving revision 1.6
retrieving revision 1.7
diff -U2 -r1.6 -r1.7
--- INSTALL	28 Mar 2002 05:38:23 -0000	1.6
+++ INSTALL	11 Apr 2002 19:06:12 -0000	1.7
@@ -5,13 +5,17 @@
 =============
 
- 1. SandWeb requires perl 5.6, and the following Perl modules must 
-    be installed :
+ 1. SandWeb requires :
+
+   * perl (v5.6) available from http://www.perl.org
+   * expect (v5.28.1+) available from http://expect.nis.gov
+   * expat (v1.95.1+) availabel from http://expat.sf.net
+
+   The following Perl modules must be installed :
 
-   * expat (v1.95.1+)
    * XML::Parser (v2.30+)
    * XML::Simple (v1.05+)
    * HTML::Template (v2.2+)
 
-   They are all available at CPAN ( http://www.cpan.org ).
+   These modules are all available at CPAN ( http://www.cpan.org ).
 
  2. GNU Make must be installed, available from the GNU

[Sandweb-commit] CVS: sandweb INSTALL,1.7,1.8

From: Rob H. <for...@us...> - 2002-04-11 19:09:31

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

Modified Files:
	INSTALL 
Log Message:
ugh, typos :P


Index: INSTALL
===================================================================
RCS file: /cvsroot/sandweb/sandweb/INSTALL,v
retrieving revision 1.7
retrieving revision 1.8
diff -U2 -r1.7 -r1.8
--- INSTALL	11 Apr 2002 19:06:12 -0000	1.7
+++ INSTALL	11 Apr 2002 19:09:27 -0000	1.8
@@ -8,6 +8,6 @@
 
    * perl (v5.6) available from http://www.perl.org
-   * expect (v5.28.1+) available from http://expect.nis.gov
-   * expat (v1.95.1+) availabel from http://expat.sf.net
+   * expect (v5.28.1+) available from http://expect.nist.gov
+   * expat (v1.95.1+) available from http://expat.sourceforge.net
 
    The following Perl modules must be installed :

[Sandweb-commit] CVS: sandweb/doc/API Repository.txt,1.11,1.12 cvs.txt,1.2,1.3

From: Rob H. <for...@us...> - 2002-04-04 20:22:40

Update of /cvsroot/sandweb/sandweb/doc/API
In directory usw-pr-cvs1:/tmp/cvs-serv31853

Modified Files:
	Repository.txt cvs.txt 
Log Message:
* corrected type in Repository.txt
* added docs for all methods in cvs.pm


Index: Repository.txt
===================================================================
RCS file: /cvsroot/sandweb/sandweb/doc/API/Repository.txt,v
retrieving revision 1.11
retrieving revision 1.12
diff -U2 -r1.11 -r1.12
--- Repository.txt	4 Apr 2002 20:16:57 -0000	1.11
+++ Repository.txt	4 Apr 2002 20:22:37 -0000	1.12
@@ -1511,5 +1511,5 @@
 SYNOPSIS
 
-    my $return_code = $Repository->get_vcs_commands();
+    my $return_code = $Repository->get_sandbox();
 
 DESCRIPTION

Index: cvs.txt
===================================================================
RCS file: /cvsroot/sandweb/sandweb/doc/API/cvs.txt,v
retrieving revision 1.2
retrieving revision 1.3
diff -U2 -r1.2 -r1.3
--- cvs.txt	4 Apr 2002 20:00:53 -0000	1.2
+++ cvs.txt	4 Apr 2002 20:22:37 -0000	1.3
@@ -1576,2 +1576,143 @@
    -1 = This return value means that there was not sufficient permision to
         read the files specified, or they did not exist.
+
+--------------------------------------------------------------------------------
+METHOD
+
+        get_root
+
+SYNOPSIS
+
+    my $return_code = $CVS->get_root();
+
+DESCRIPTION
+
+    Returns the current CVS root for an instantiated CVS object.
+
+PARAMETERS
+
+    None
+
+RETURN CODE
+
+    A string containing the current CVS root for an instantiated CVS
+    object is returned.
+
+    0 = This means that the method got an error proccessing your request.
+        Perhaps an invalid parameter?
+
+   -1 = This return value means that there was not sufficient permision to
+        read the files specified, or they did not exist.
+
+--------------------------------------------------------------------------------
+METHOD
+
+        get_vcs_username
+
+SYNOPSIS
+
+    my $return_code = $CVS->get_vcs_username();
+
+DESCRIPTION
+
+    Returns the current VCS username for an instantiated CVS object.
+
+PARAMETERS
+
+    None
+
+RETURN CODE
+
+    A string containing the current VCS username for an instantiated CVS
+    object is returned.
+
+    0 = This means that the method got an error proccessing your request.
+        Perhaps an invalid parameter?
+
+   -1 = This return value means that there was not sufficient permision to
+        read the files specified, or they did not exist.
+
+--------------------------------------------------------------------------------
+METHOD
+
+        get_vcs_password
+
+SYNOPSIS
+
+    my $return_code = $CVS->get_vcs_password();
+
+DESCRIPTION
+
+    Returns the current VCS password for an instantiated CVS object.
+
+PARAMETERS
+
+    None
+
+RETURN CODE
+
+    A string containing the current VCS password for an instantiated CVS
+    object is returned.
+
+    0 = This means that the method got an error proccessing your request.
+        Perhaps an invalid parameter?
+
+   -1 = This return value means that there was not sufficient permision to
+        read the files specified, or they did not exist.
+
+--------------------------------------------------------------------------------
+METHOD
+
+        get_system_username
+
+SYNOPSIS
+
+    my $return_code = $CVS->get_system_username();
+
+DESCRIPTION
+
+    Returns the current system username for an instantiated CVS object.
+
+PARAMETERS
+
+    None
+
+RETURN CODE
+
+    A string containing the current system username for an instantiated CVS
+    object is returned.
+
+    0 = This means that the method got an error proccessing your request.
+        Perhaps an invalid parameter?
+
+   -1 = This return value means that there was not sufficient permision to
+        read the files specified, or they did not exist.
+
+--------------------------------------------------------------------------------
+METHOD
+
+        get_system_password
+
+SYNOPSIS
+
+    my $return_code = $CVS->get_system_password();
+
+DESCRIPTION
+
+    Returns the current system password for an instantiated CVS object.
+
+PARAMETERS
+
+    None
+
+RETURN CODE
+
+    A string containing the current system password for an instantiated CVS
+    object is returned.
+
+    0 = This means that the method got an error proccessing your request.
+        Perhaps an invalid parameter?
+
+   -1 = This return value means that there was not sufficient permision to
+        read the files specified, or they did not exist.
+

[Sandweb-commit] CVS: sandweb/doc/API Repository.txt,1.10,1.11

From: Rob H. <for...@us...> - 2002-04-04 20:17:00

Update of /cvsroot/sandweb/sandweb/doc/API
In directory usw-pr-cvs1:/tmp/cvs-serv29993

Modified Files:
	Repository.txt 
Log Message:
* all methods in the Repository.pm now documented


Index: Repository.txt
===================================================================
RCS file: /cvsroot/sandweb/sandweb/doc/API/Repository.txt,v
retrieving revision 1.10
retrieving revision 1.11
diff -U2 -r1.10 -r1.11
--- Repository.txt	4 Apr 2002 20:02:55 -0000	1.10
+++ Repository.txt	4 Apr 2002 20:16:57 -0000	1.11
@@ -1335,2 +1335,311 @@
    -1 = This return value means that there was not sufficient permision to
         read the files specified, or they did not exist.
+
+--------------------------------------------------------------------------------
+METHOD
+
+        get_repo_type
+
+SYNOPSIS
+
+    my $return_code = $Repository->get_repo_type();
+
+DESCRIPTION
+
+    Returns the repository type of an instantiated Repository object.
+
+PARAMETERS
+
+    None
+
+RETURN CODE
+
+    A string containing the repo_type of an instantiated Repository
+    object is returned.
+
+    0 = This means that the method got an error proccessing your request.
+        Perhaps an invalid parameter?
+
+   -1 = This return value means that there was not sufficient permision to
+        read the files specified, or they did not exist.
+
+--------------------------------------------------------------------------------
+METHOD
+
+        get_connections
+
+SYNOPSIS
+
+    my $return_code = $Repository->get_connections();
+
+DESCRIPTION
+
+    Returns the connection type for an instantiated Repository object.
+
+PARAMETERS
+
+    None
+
+RETURN CODE
+
+    A string containing the connection_type for an instantiated Repository
+    object is returned.
+
+    0 = This means that the method got an error proccessing your request.
+        Perhaps an invalid parameter?
+
+   -1 = This return value means that there was not sufficient permision to
+        read the files specified, or they did not exist.
+
+--------------------------------------------------------------------------------
+METHOD
+
+        get_vcs_commands
+
+SYNOPSIS
+
+    my $return_code = $Repository->get_vcs_commands();
+
+DESCRIPTION
+
+    Returns all valid VCS commands for the current repo_type.
+
+PARAMETERS
+
+    None
+
+RETURN CODE
+
+    A string containing the valid VCS commands for an instantiated Repository
+    object is returned.
+
+    0 = This means that the method got an error proccessing your request.
+        Perhaps an invalid parameter?
+
+   -1 = This return value means that there was not sufficient permision to
+        read the files specified, or they did not exist.
+
+--------------------------------------------------------------------------------
+METHOD
+
+        get_repo_types
+
+SYNOPSIS
+
+    my $return_code = $Repository->get_repo_types();
+
+DESCRIPTION
+
+    Returns all valid repository types for an instantiated Repository object.
+
+PARAMETERS
+
+    None
+
+RETURN CODE
+
+    A string containing all valid repository types for an instantiated Repository
+    object is returned.
+
+    0 = This means that the method got an error proccessing your request.
+        Perhaps an invalid parameter?
+
+   -1 = This return value means that there was not sufficient permision to
+        read the files specified, or they did not exist.
+
+--------------------------------------------------------------------------------
+METHOD
+
+        get_connections
+
+SYNOPSIS
+
+    my $return_code = $Repository->get_vcs_commands();
+
+DESCRIPTION
+
+    Returns all valid connection types for an instantiated Repository object.
+
+PARAMETERS
+
+    None
+
+RETURN CODE
+
+    A string containing all valid connection types for an instantiated Repository
+    object is returned.
+
+    0 = This means that the method got an error proccessing your request.
+        Perhaps an invalid parameter?
+
+   -1 = This return value means that there was not sufficient permision to
+        read the files specified, or they did not exist.
+
+--------------------------------------------------------------------------------
+METHOD
+
+        get_root
+
+SYNOPSIS
+
+    my $return_code = $Repository->get_vcs_commands();
+
+DESCRIPTION
+
+    Returns the current VCS root for an instantiated Repository object.
+
+PARAMETERS
+
+    None
+
+RETURN CODE
+
+    A string containing the current VCS root for an instantiated Repository
+    object is returned.
+
+    0 = This means that the method got an error proccessing your request.
+        Perhaps an invalid parameter?
+
+   -1 = This return value means that there was not sufficient permision to
+        read the files specified, or they did not exist.
+
+--------------------------------------------------------------------------------
+METHOD
+
+        get_sandbox
+
+SYNOPSIS
+
+    my $return_code = $Repository->get_vcs_commands();
+
+DESCRIPTION
+
+    Returns the current VCS sandbox for an instantiated Repository object.
+
+PARAMETERS
+
+    None
+
+RETURN CODE
+
+    A string containing the current VCS sandbox for an instantiated Repository
+    object is returned.
+
+    0 = This means that the method got an error proccessing your request.
+        Perhaps an invalid parameter?
+
+   -1 = This return value means that there was not sufficient permision to
+        read the files specified, or they did not exist.
+
+--------------------------------------------------------------------------------
+METHOD
+
+        get_vcs_username
+
+SYNOPSIS
+
+    my $return_code = $Repository->get_vcs_username();
+
+DESCRIPTION
+
+    Returns the current VCS username for an instantiated Repository object.
+
+PARAMETERS
+
+    None
+
+RETURN CODE
+
+    A string containing the current VCS username for an instantiated Repository
+    object is returned.
+
+    0 = This means that the method got an error proccessing your request.
+        Perhaps an invalid parameter?
+
+   -1 = This return value means that there was not sufficient permision to
+        read the files specified, or they did not exist.
+
+--------------------------------------------------------------------------------
+METHOD
+
+        get_vcs_password
+
+SYNOPSIS
+
+    my $return_code = $Repository->get_vcs_password();
+
+DESCRIPTION
+
+    Returns the current VCS password for an instantiated Repository object.
+
+PARAMETERS
+
+    None
+
+RETURN CODE
+
+    A string containing the current VCS password for an instantiated Repository
+    object is returned.
+
+    0 = This means that the method got an error proccessing your request.
+        Perhaps an invalid parameter?
+
+   -1 = This return value means that there was not sufficient permision to
+        read the files specified, or they did not exist.
+
+--------------------------------------------------------------------------------
+METHOD
+
+        get_system_username
+
+SYNOPSIS
+
+    my $return_code = $Repository->get_system_username();
+
+DESCRIPTION
+
+    Returns the current system username for an instantiated Repository object.
+
+PARAMETERS
+
+    None
+
+RETURN CODE
+
+    A string containing the current system username for an instantiated Repository
+    object is returned.
+
+    0 = This means that the method got an error proccessing your request.
+        Perhaps an invalid parameter?
+
+   -1 = This return value means that there was not sufficient permision to
+        read the files specified, or they did not exist.
+
+--------------------------------------------------------------------------------
+METHOD
+
+        get_system_password
+
+SYNOPSIS
+
+    my $return_code = $Repository->get_system_password();
+
+DESCRIPTION
+
+    Returns the current system password for an instantiated Repository object.
+
+PARAMETERS
+
+    None
+
+RETURN CODE
+
+    A string containing the current system password for an instantiated Repository
+    object is returned.
+
+    0 = This means that the method got an error proccessing your request.
+        Perhaps an invalid parameter?
+
+   -1 = This return value means that there was not sufficient permision to
+        read the files specified, or they did not exist.
+

[Sandweb-commit] CVS: sandweb/doc/API Repository.txt,1.9,1.10

From: Rob H. <for...@us...> - 2002-04-04 20:08:04

Update of /cvsroot/sandweb/sandweb/doc/API
In directory usw-pr-cvs1:/tmp/cvs-serv24659

Modified Files:
	Repository.txt 
Log Message:
brought Repository API more up-to-date


Index: Repository.txt
===================================================================
RCS file: /cvsroot/sandweb/sandweb/doc/API/Repository.txt,v
retrieving revision 1.9
retrieving revision 1.10
diff -U2 -r1.9 -r1.10
--- Repository.txt	23 Dec 2001 04:48:06 -0000	1.9
+++ Repository.txt	4 Apr 2002 20:02:55 -0000	1.10
@@ -6,7 +6,13 @@
 SYNOPSIS
 
-    my $Repository = SandWeb::Repository::new( root => ":ext:me...@he...:/cvs"
-                                          repo_type => "CVS"
-                                            sandbox => "/home/me" );
+	my $Repository = SandWeb::Repository::new( 
+		root => ":ext:me...@he...:/cvs",
+		repo_type => "CVS",
+		sandbox => "/home/me",
+		vcs_username => "user",
+		vcs_password => "pass",
+		system_username => "username",
+		system_password => "password",
+	);
 
 DESCRIPTION
@@ -36,4 +42,24 @@
 
 	Default: none.
+
+    vcs_username (type: string)
+        This contains the user's name on the repository server.
+ 
+        Default: none.
+ 
+    vcs_password (type: string)
+        This contains the user's password on the repository server.
+ 
+        Default: none.
+ 
+    system_username (type: string)
+        This contains the user's name on the server that SandWeb lives on.
+ 
+        Default: none.
+ 
+    system_password (type: string)
+        This contains the user's password on the server that SandWeb lives on.
+ 
+        Default: none.
 
 RETURN CODE

[Sandweb-commit] CVS: sandweb/doc/API cvs.txt,1.1,1.2

From: Rob H. <for...@us...> - 2002-04-04 20:00:56

Update of /cvsroot/sandweb/sandweb/doc/API
In directory usw-pr-cvs1:/tmp/cvs-serv23543

Modified Files:
	cvs.txt 
Log Message:
brought up-to-date, vcs_username/password and system_username/password
now are new optional parameters to the constructor.


Index: cvs.txt
===================================================================
RCS file: /cvsroot/sandweb/sandweb/doc/API/cvs.txt,v
retrieving revision 1.1
retrieving revision 1.2
diff -U2 -r1.1 -r1.2
--- cvs.txt	22 Mar 2002 04:25:23 -0000	1.1
+++ cvs.txt	4 Apr 2002 20:00:53 -0000	1.2
@@ -7,6 +7,12 @@
 SYNOPSIS
 
-    my $CVS = SandWeb::Repository::cvs->new( root => ":ext:me...@he...:/cvs" 
-                                          sandbox => "/home/me" );
+	my $CVS = SandWeb::Repository::cvs->new( 
+		root => ":ext:me...@he...:/cvs",
+		sandbox => "/home/me",
+		vcs_username => "user",
+		vcs_password => "pass",
+		system_username => "username",
+		system_password => "password",
+	);
 
 DESCRIPTION
@@ -27,4 +33,24 @@
         This contains the full path to the user's sandbox on the server
 	that SandWeb lives on.
+
+	Default: none.
+
+    vcs_username (type: string)
+        This contains the user's name on the repository server.
+
+	Default: none.
+
+    vcs_password (type: string)
+        This contains the user's password on the repository server.
+
+	Default: none.
+
+    system_username (type: string)
+        This contains the user's name on the server that SandWeb lives on.
+
+	Default: none.
+
+    system_password (type: string)
+        This contains the user's password on the server that SandWeb lives on.
 
 	Default: none.

[Sandweb-commit] CVS: sandweb MANIFEST,1.10,1.11

From: Rob H. <for...@us...> - 2002-04-04 19:34:02

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

Modified Files:
	MANIFEST 
Log Message:
updating manifest since I removed the pod/ dir


Index: MANIFEST
===================================================================
RCS file: /cvsroot/sandweb/sandweb/MANIFEST,v
retrieving revision 1.10
retrieving revision 1.11
diff -U2 -r1.10 -r1.11
--- MANIFEST	2 Apr 2002 02:53:44 -0000	1.10
+++ MANIFEST	4 Apr 2002 19:33:59 -0000	1.11
@@ -76,13 +76,4 @@
 tools/install_script.pl
 
-
-doc/pod/CHANGES.pod
-doc/pod/INSTALL.pod
-doc/pod/PODmaster.pod
-doc/pod/README.pod
-doc/pod/admin_guide.pod
-doc/pod/history.pod
-doc/pod/security_guide.pod
-doc/pod/user_guide.pod
 doc/auth-spec.txt
 doc/features.list

3 messages has been excluded from this view by a project administrator.

Flat | Threaded

<< < 1 .. 18 19 20 21 22 .. 53 > >> (Page 20 of 53)

2001	Jan	Feb	Mar	Apr	May	Jun	Jul	Aug	Sep	Oct (28)	Nov (58)	Dec (85)
2002	Jan (125)	Feb (222)	Mar (274)	Apr (51)	May (22)	Jun (50)	Jul (15)	Aug (33)	Sep (11)	Oct (29)	Nov (17)	Dec (1)
2003	Jan (100)	Feb (21)	Mar (7)	Apr (45)	May	Jun (43)	Jul (27)	Aug (24)	Sep	Oct	Nov	Dec
2004	Jan (1)	Feb	Mar (13)	Apr	May (1)	Jun	Jul	Aug (7)	Sep	Oct	Nov	Dec (4)
2005	Jan	Feb	Mar	Apr	May	Jun	Jul	Aug	Sep	Oct	Nov	Dec (1)