client/test.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

#!/usr/bin/perl

use strict;
use warnings;

$| = 1;

use Scire::Job;
use Scire::Communicator;

my $job = Scire::Job->new();
$job->load_jobfile("/tmp/scirejobs/job1.job");
#print $job->{script_data} . "\n";
$job->set_stdout_file("/tmp/scire_stdout.txt");
$job->set_stderr_file("/tmp/scire_stderr.txt");
$job->set_script_file("/tmp/scirejobs/runjob.sh");
my $exitcode = $job->run();
print "Job complete with exit code ${exitcode}\n";

exit;

my $comm = Scire::Communicator->new( host => "localhost" );
$comm->create_connection();
$comm->close_connection();
#my ($status, $message) = $comm->send_command("QUIT");
#print "$status\n";