From: Rob H. <for...@us...> - 2002-06-05 06:32:20
|
Update of /cvsroot/sandweb/sandweb/lib/SandWeb In directory usw-pr-cvs1:/tmp/cvs-serv31423/lib/SandWeb Modified Files: Shell.pm Log Message: changed "unix" to "system" Index: Shell.pm =================================================================== RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Shell.pm,v retrieving revision 1.10 retrieving revision 1.11 diff -U2 -r1.10 -r1.11 --- Shell.pm 5 Jun 2002 02:07:32 -0000 1.10 +++ Shell.pm 5 Jun 2002 06:32:17 -0000 1.11 @@ -31,5 +31,5 @@ my $vcs_username = $args{'vcs_username'} || ''; my $vcs_password = $args{'vcs_password'} || ''; - my $unix = $args{'unix'} || ''; + my $system = $args{'system'} || ''; my $vcs = $args{'vcs'} || ''; @@ -40,5 +40,5 @@ 'vcs_username' => "$vcs_username", 'vcs_password' => "$vcs_password", - 'unix' => "$unix", + 'system' => "$system", 'vcs' => "$vcs", }, $class; @@ -56,5 +56,5 @@ my $vcs_username = $self->{'vcs_username'}; my $vcs_password = $self->{'vcs_password'}; - my $unix = $self->{'unix'} || ''; + my $system = $self->{'system'} || ''; my $vcs = $self->{'vcs'} || ''; @@ -62,7 +62,7 @@ my $output; - if ( $unix ) { + if ( $system ) { if ( $vcs ) { - my $raw_output = `$sandweb_expect unix_vcs $system_username $system_password \'$vcs_password\' $command`; + my $raw_output = `$sandweb_expect system_vcs $system_username $system_password \'$vcs_password\' $command`; $raw_output =~ s/ /\n/g; my @lined_output = split(/\n/, $raw_output); @@ -71,5 +71,5 @@ $output = join('', @lined_output); } else { - my $raw_output = `$sandweb_expect unix $system_username $system_password $command`; + my $raw_output = `$sandweb_expect system $system_username $system_password $command`; $raw_output =~ s/^M/\n/g; my @lined_output = split(/\n/, $raw_output); |