- Added a wait timeout parameter to the WAITING method, so that Spectre

doesn't have to check something that the workflow activity knows it will 
   have to wait on for a while.
 - Added --stop and --start aliases to spectre.pl.
This commit is contained in:
JT Smith 2008-11-19 01:15:31 +00:00
parent 7349633d63
commit bc5fd3c727
21 changed files with 89 additions and 44 deletions

View file

@ -119,7 +119,7 @@ sub execute {
}
}
# taking too long, give up
return $self->WAITING if (time() - $start > 50);
return $self->WAITING(1) if (time() - $start > 50);
}
# kill temporary files
@ -149,7 +149,7 @@ sub recurseFileSystem {
foreach my $file (@filelist) {
unless ($file eq "." || $file eq "..") {
# taking too long, time to abort
return $self->WAITING if (time() - $start > 50);
return $self->WAITING(1) if (time() - $start > 50);
# must search for children
$self->recurseFileSystem($start, $path."/".$file);