#! /bin/perl -w

use strict;
use Workflow::Factory qw( FACTORY );
use Fcntl;
use File::Basename;

Log::Log4perl::init('l4p.conf');


my $workflow_conf  = 'wf_test.xml';
my $action_conf    = 'action.xml';
my $pers           = 'persister.xml';

FACTORY->add_config_from_file(
     workflow   => $workflow_conf,
     action     => $action_conf,
     persister  => $pers,

);


my $wf = FACTORY->fetch_workflow('uplfile', "PITGKDNR");

print "Workflow 1 ", $wf->id, " ",
       "currently at state ", $wf->state, "\n";

print "Available actions: ", $wf->get_current_actions, "\n";

$wf->execute_action('upload file');