Auto clear out old workflow jobs

steveblunden

Hi,

Does anyone know if its possible to use the command line to remove any workflow jobs with an age of >30 days?

At the moment my support team have to do this manually and its a time consuming task which would make sense to automate.

Thanks

Migrateduser

Hi, Does anyone know if its possible to use the command line to remove any workflow jobs with an age of >30 days? At the moment my support team have to do this manually and its a time consuming task which would make sense to automate. Thanks

this should work.. set as a cron job or run manually, though I would probably just modify the workflow with a timeout to automatically "end" after 30 days, and not have to deal with this.

[html]#!/opt/iw-home/iw-perl/bin/iwperl -w

#################################################
use strict; # Try to catch errors as early as possible.

use TeamSite::WFsystem;
use TeamSite::Config;

my $NUMBER_OF_DAYS_AGO = 30;
my $time = localtime();
print "Starting to Remove worflows more then $NUMBER_OF_DAYS_AGO old \nStart time: $time\n---------------\n";

my $iwhome = TeamSite::Config::iwgethome();
my $wfs = new TeamSite::WFsystem();

my $num_days_ago = time() - (60 * 60 * 24 * $NUMBER_OF_DAYS_AGO);

my @tasks = map{@{$_->GetTasks()}[0];} @{$wfs->GetWorkflows()};
print "No Jobs to remove\n" and exit(0) if (!@tasks);

my @jobids = ();

foreach my $task ( @tasks )
{
my $activation_time = $task->GetActivationTime();
if((defined $activation_time) && ($num_days_ago > $activation_time))
{
push @jobids,$task->GetWorkflowId();
print "job found to remove id: ".$task->GetWorkflowId().",task id:".$task->GetId().",activation time:". $activation_time."\n";
}
# print "job found id: ".$task->GetWorkflowId().",task id:".$task->GetId().",activation time:". $activation_time."\n";
}

#This loop is to avoid problems where there are more jobids
#than can fit on a single command line. It slows things up
#a tiny bit, but it's better than failing outright
if (!(@jobids)){
print "No Jobs to remove\n";
}
while(@jobids)
{
my $jobids = "";
while((length($jobids) < 200) && @jobids)
{
$jobids .= shift(@jobids)." ";

}
`$iwhome/bin/iwrmjob $jobids`;
print "removed the following jobs:\n$jobids\n\n";
}
print "---------------\n";
$time = localtime();
print "End Time: $time\nFinished\n\n\n";
exit(0);
[/html]