diff options
author | 2008-01-12 03:39:59 +0000 | |
---|---|---|
committer | 2008-01-12 03:39:59 +0000 | |
commit | be3472e11b418f24ab4f14021c4e2e630af6fd56 (patch) | |
tree | 480d85bc2e060668c45ae781cd2700d40b94e10c | |
parent | test script for Scire::Job (diff) | |
download | scire-be3472e11b418f24ab4f14021c4e2e630af6fd56.tar.gz scire-be3472e11b418f24ab4f14021c4e2e630af6fd56.tar.bz2 scire-be3472e11b418f24ab4f14021c4e2e630af6fd56.zip |
use proper form for send_command()
svn path=/branches/new-fu/; revision=349
-rwxr-xr-x | client/scireclient.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/client/scireclient.pl b/client/scireclient.pl index b4b0227..c054e17 100755 --- a/client/scireclient.pl +++ b/client/scireclient.pl @@ -204,7 +204,7 @@ sub scan_jobs_dir { foreach my $job_file (@failed_jobs) { $job_file =~ /(\d+)\.job/; my $jobid = $1; - my ($status, $message) = $comm->send_command("SET_JOB_STATUS $jobid 'Failed'"); + my ($status, $message) = $comm->send_command("SET_JOB_STATUS", $jobid, "Failed"); open(FILE, $job_file) or die "Couldn't open job file $job_file: $!"; my $job_data = join("", <FILE>); close(FILE); @@ -214,7 +214,7 @@ sub scan_jobs_dir { foreach my $job_file (@done_jobs) { $job_file =~ /(\d+)\.job/; my $jobid = $1; - my ($status, $message) = $comm->send_command("SET_JOB_STATUS $jobid 'Done'"); + my ($status, $message) = $comm->send_command("SET_JOB_STATUS", $jobid, "Done"); } return @existing_jobs; |