projects
/
clearscm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Some changes to Machines and Rexe
[clearscm.git]
/
test
/
testrexec.pl
diff --git
a/test/testrexec.pl
b/test/testrexec.pl
index
5f35bc3
..
07ab995
100755
(executable)
--- a/
test/testrexec.pl
+++ b/
test/testrexec.pl
@@
-14,6
+14,16
@@
my $hostname = $ENV{HOST} || 'localhost';
my $username = $ENV{USERNAME};
my $password = $ENV{PASSWORD};
my $username = $ENV{USERNAME};
my $password = $ENV{PASSWORD};
+my $command = $ENV{COMMAND};
+
+if (@ARGV) {
+ $command = join ' ', @ARGV;
+} else {
+ $command = 'ls /tmp' unless $command;
+} # if
+
+print "Attempting to connect to $username\@$hostname to execute \"$command\"\n";
+
my $remote = Rexec->new (
host => $hostname,
username => $username,
my $remote = Rexec->new (
host => $hostname,
username => $username,
@@
-24,19
+34,18
@@
my $remote = Rexec->new (
if ($remote) {
print "Connected to $username\@$hostname using "
. $remote->{protocol} . " protocol\n";
if ($remote) {
print "Connected to $username\@$hostname using "
. $remote->{protocol} . " protocol\n";
-
- $cmd = "/bin/ls /nonexistent";
- @output = $remote->execute ($cmd);
+ print "Executing command \"$command\" on $hostname as $username\n";
+ @output = $remote->execute ($command);
$status = $remote->status;
$status = $remote->status;
- print "
$cmd
status: $status\n";
+ print "
\"$command\"
status: $status\n";
- $remote->print_lines;
-
- print "$_\n" foreach ($remote->execute ('cat /etc/passwd'));
+ if (@output == 0) {
+ print "No lines of output received!\n";
+ } else {
+ print "$_\n" foreach (@output);
+ } # if
} else {
print "Unable to connect to $username@$hostname\n";
} else {
print "Unable to connect to $username@$hostname\n";
-} # if
-
-
+} # if
\ No newline at end of file