diff options
author | 2008-01-08 02:23:26 +0000 | |
---|---|---|
committer | 2008-01-08 02:23:26 +0000 | |
commit | cc2c81b10e0bbb28ab1f3e6362de7ad316f0f748 (patch) | |
tree | 50589969a14bc7b745eb981c4472502f25a2d007 | |
parent | basic support for sending both stdout and stderr (diff) | |
download | scire-cc2c81b10e0bbb28ab1f3e6362de7ad316f0f748.tar.gz scire-cc2c81b10e0bbb28ab1f3e6362de7ad316f0f748.tar.bz2 scire-cc2c81b10e0bbb28ab1f3e6362de7ad316f0f748.zip |
test script for Scire::Job
svn path=/branches/new-fu/; revision=345
-rw-r--r-- | client/test.pl | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/client/test.pl b/client/test.pl new file mode 100644 index 0000000..c198964 --- /dev/null +++ b/client/test.pl @@ -0,0 +1,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"; |