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

@ -133,6 +133,7 @@ sub execute {
my ($currentLinkId, $link, $ldapUrl, $ldap);
my $skippingLink = 0;
my $ttl = $self->getTTL;
while (my ($userId, $rowLinkId) = $sth->array) {
if ($rowLinkId ne $currentLinkId) {
$link->unbind if defined $link;
@ -178,7 +179,7 @@ sub execute {
} continue {
$index++;
if (time - $startTime >= 55) {
if (time - $startTime >= $ttl) {
# $self->session->errorHandler->warn("DEBUG: SyncProfilesToLdap: next round");
$link->unbind if defined $link;
$instance->setScratch('ldapSelectIndex', $index);