|
@@ -1534,10 +1534,14 @@ sub fail {
|
|
|
|
|
|
sub run_command {
|
|
sub run_command {
|
|
my ($command, $redirect) = @_;
|
|
my ($command, $redirect) = @_;
|
|
|
|
+ my $start_time;
|
|
|
|
+ my $end_time;
|
|
my $dolog = 0;
|
|
my $dolog = 0;
|
|
my $dord = 0;
|
|
my $dord = 0;
|
|
my $pid;
|
|
my $pid;
|
|
|
|
|
|
|
|
+ $start_time = time;
|
|
|
|
+
|
|
$command =~ s/\$SSH_USER/$ssh_user/g;
|
|
$command =~ s/\$SSH_USER/$ssh_user/g;
|
|
$command =~ s/\$MACHINE/$machine/g;
|
|
$command =~ s/\$MACHINE/$machine/g;
|
|
|
|
|
|
@@ -1570,6 +1574,15 @@ sub run_command {
|
|
close(LOG) if ($dolog);
|
|
close(LOG) if ($dolog);
|
|
close(RD) if ($dord);
|
|
close(RD) if ($dord);
|
|
|
|
|
|
|
|
+ $end_time = time;
|
|
|
|
+ my $delta = $end_time - $start_time;
|
|
|
|
+
|
|
|
|
+ if ($delta == 1) {
|
|
|
|
+ doprint "[1 second] ";
|
|
|
|
+ } else {
|
|
|
|
+ doprint "[$delta seconds] ";
|
|
|
|
+ }
|
|
|
|
+
|
|
if ($failed) {
|
|
if ($failed) {
|
|
doprint "FAILED!\n";
|
|
doprint "FAILED!\n";
|
|
} else {
|
|
} else {
|