From be3472e11b418f24ab4f14021c4e2e630af6fd56 Mon Sep 17 00:00:00 2001 From: Andrew Gaffney Date: Sat, 12 Jan 2008 03:39:59 +0000 Subject: use proper form for send_command() svn path=/branches/new-fu/; revision=349 --- client/scireclient.pl | 4 ++-- 1 file 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("", ); 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; -- cgit v1.2.3-65-gdbad