Determing the Active Workflows in the Teamsite

Hi,

I wanted to know how do we detrmine the number of active workflows in the TeamSite.

Thanks,
Madhur

Find more posts tagged with

Comments

Hi,

I wanted to know how do we detrmine the number of active workflows in the TeamSite.

Thanks,
Madhur

You can either use the output of iwgetwfobj or code for it using TeamSite::WFSystem (run perldoc on the module for more information).

mike_s

Alternatively the iwqueryjobs command in conjunction with a query definition file would do it.

/usr/iw-home/bin/iwqueryjobs < /tmp/active_jobs.xml | wc -l

if the file /tmp/active_jobs.xml looks like the attached file

Adam Stoller

Alternatively the iwqueryjobs command in conjunction with a query definition file would do it.

/usr/iw-home/bin/iwqueryjobs < /tmp/active_jobs.xml | wc -l

if the file /tmp/active_jobs.xml looks like the attached file

Kudos - I forgot about that - it's actually a very simple mechanism to use from the command line. If you're trying to script something, however, you're probably better off using TeamSite::WFsystem rather than forking a shell process to run the CLT. (both are probably better alternatives than parsing the output of iwgetwfobj ;-)

Bill Klish

You didn't say how you were invoking this, but you could also use the CS SDK and utilize the getWorkflowsByQuery method from the CSWorkflowEngine object. You would then just check each of the returned CSWorkflow objects using the isActive method. It would be very simple.

blacke

For numous legacy reasons, we have too many workflows hanging around. Using the info in this thread (thanks!), I created the script below and thought others might find it useful (if you run in simulate mode it will give the number of workflows, but it's overkill for that) :


#!/usr1/iw-home/iw-perl/bin/iwperl

use strict;
use warnings;
use TeamSite::WFsystem;
use TeamSite::WFworkflow;
use TeamSite::Config;

my $VERBOSE = 0;
my $DRYRUN  = 0;
my $DAYS_OLD = 365 * 5;

for( my $i = 0; $i <= $#ARGV; $i++ ) {
    if( $ARGV[$i] =~ /^-v[erbose]*$/ ) {
        $VERBOSE = 1;
        next;
    }
    if( $ARGV[$i] =~ /^-s[imulate]*$/ ) {
        $DRYRUN = 1;
        next;
    }
    if( $ARGV[$i] =~ /^-d[ays]*$/ ) {
        $DAYS_OLD = $ARGV[++$i];
        next;
    }
}

my $iwhome   = TeamSite::Config::iwgethome();
my $rmcmd    = "$iwhome/bin/iwrmjob";
my $system   = TeamSite::WFsystem->new;
my $wfs      = $system->GetActiveWorkflows;
my $time     = time;
# Diff is days x hours x mins x seconds
my $diff     = $DAYS_OLD * 24 * 60 * 60;
my $limit    = ( $time - $diff );

print "DATE THRESHOLD:  " . localtime( $limit ) . " ($DAYS_OLD days old)\n";
print "TOTAL WORKFLOWS: " . @{$wfs} . "\n";

my $removed  = 0;
foreach my $activeWorkFlow ( @{$wfs} ) {
    next unless( $activeWorkFlow->IsValid );

    my $activationTime = $activeWorkFlow->GetActivationTime;
    my $wfID = $activeWorkFlow->GetId;

    if( $VERBOSE ) {
        print "Workflow $wfID was activated on " . localtime( $activationTime ) . "\n";
        print "TIME:            $time\n";
        print "ACTIVATION TIME: $activationTime\n";
        print "DIFF:            $diff\n";
        print "TIME - DIFF:     $limit\n";
    }

    if( $limit > $activationTime ) {
        print "Workflow $wfID is older than $DAYS_OLD days old and will be deleted\n" if $VERBOSE;
        print "\tDeleting $wfID...\n";

        $removed++;

        unless( $DRYRUN ) {
            my @ans;
            eval { @ans = `$rmcmd $wfID 2>&1`; };
            foreach my $lines ( @ans ) { print $lines; }
            print $@ if $@;
        }
    }
    print "\n" if $VERBOSE;
}

print "TOTAL DELETED:   $removed\n";