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

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

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

Modified Files:
	Shell.pm 
Log Message:
heh, noticed a funny error with the SSH connection type. If your password
has a | character in it ( not saying mine does :P ) then the call to the
shell won't succeed.

Now passwords have single quotes, seems to work for me.


Index: Shell.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Shell.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -U2 -r1.8 -r1.9
--- Shell.pm	17 May 2002 22:40:41 -0000	1.8
+++ Shell.pm	20 May 2002 23:34:52 -0000	1.9
@@ -58,5 +58,5 @@
 	if ( $system_username && $system_password ) {
 		if ( $vcs_username && $vcs_password ) {
-			my $raw_output = `$sandweb_expect unix_vcs $system_username $system_password $vcs_password $command`;
+			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);
@@ -73,5 +73,5 @@
 		}
 	} elsif ( $vcs_username && $vcs_password ) {
-		my $raw_output = `$sandweb_expect vcs $vcs_password "$command"`;
+		my $raw_output = `$sandweb_expect vcs \'$vcs_password\' "$command" 2>&1`;
                 $raw_output =~ s/^M/\n/g;
                 my @lined_output = split(/\n/, $raw_output);