view release on metacpan or  search on metacpan

lib/Jobrun.pm  view on Meta::CPAN

	$args{updateStatus} = \&updateStatus;
	$args{delete}       = \&deleteTable;
	$args{select}       = \&selectTable;

	# name,pid,status,start_time,end_time,elapsed_time,exit_code,cmd) VALUES (?,?,?,?,?)");

	$args{columnNamesByName}  = { name => 0,      pid => 1,     cmd => 2,     status => 3,        exit_code => 4 };
	$args{columnNamesByIndex} = { 0    => 'name', 1   => 'pid', 2   => 'cmd', 3      => 'status', 4         => 'exit_code' };
	$args{columnValues}       = [qw/undef undef undef undef undef/];

	my ( $user, $passwd, $uid, $gid, $quota, $comment, $gcos, $dir, $shell, $expire ) = getpwuid($<) or croak "getpwuid: $!";
	print "User: $user, UID: $uid\n";

	my $retval = bless \%args, $class;

	$retval->{insert}(
		$retval,
		$retval->{JOBNAME},    #job name
		$$,                    #pid
		, 'running'            #status
		, 'NA'                 #exit code