#!/usr/bin/perl
#  $Id: pm_run 22944 2011-06-10 13:16:24Z abaranetsky $
# -----------------------------------------------------------------------------
#  Name:       pm_run
#  Purpose:    start registered process by its procname
#  Parameters: process name defined at registration
#
#  env:        following variables are required:  APL
# -----------------------------------------------------------------------------
#  Author: A Baranetsky
#  Edited by: A Baranetsky
#  QA by:  Christopher C Gettings
#  Copyright: videoNEXT LLC
# -----------------------------------------------------------------------------

use strict;
use warnings;
use DBI;
use SKM::DB;


if ($#ARGV < 0 ) {
	print "Usage: pm_run procname\n";
	exit 2;
}
my $procname = $ARGV[0];


eval {
	my $dbh = DBNode({'PrintError'=>1,'RaiseError'=>1});
	my $rows = $dbh->selectall_arrayref("SELECT start_script FROM processes WHERE procname='$procname'");
	$dbh->disconnect();

	if (@$rows) {
	      `$rows->[0][0] &`;
	} else {
		die "process '$procname' is not registered";
	}
}; if ($@) {
	print "Failed to run process: $@ \n";
	exit 1;
}

exit 0;
