Export a method from Workflow::Activity for timeouts and use it in all current Workflows

This commit is contained in:
Colin Kuskie 2008-08-30 20:34:52 +00:00
parent 85ecaa9a09
commit 726bd5ee05
12 changed files with 36 additions and 12 deletions

View file

@ -79,6 +79,7 @@ sub execute {
# start time to check for timeouts
my $time = time();
my $ttl = $self->getTTL;
my @syndicatedUrls = @{$self->getSyndicatedUrls($instance)};
while (my $url = shift(@syndicatedUrls)) {
@ -91,7 +92,7 @@ sub execute {
}
# Check for timeout
last
if (time() - $time > 55);
if (time() - $time > $ttl);
}
# if there are urls left, we need to process again