oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

3
lib/WebGUI/Workflow/Activity/GetCsMail.pm
View file

@ -167,6 +167,7 @@ sub execute {
my $i18n = WebGUI::International->new($self->session, "Asset_Collaboration");
my $postGroup = $cs->get("postGroupId"); #group that's allowed to post to the CS
my $ttl = $self->getTTL;
while (my $message = $mail->getNextMessage) {
next unless (scalar(@{$message->{parts}})); # no content, skip it
my $from = $message->{from};
@ -227,7 +228,7 @@ sub execute {
$send->send;
}
# just in case there are a lot of messages, we should release after a minutes worth of retrieving
last if (time() > $start + 60);
last if (time() > $start + $ttl);
}
$mail->disconnect;
return $self->COMPLETE;