diff options
author | 2008-01-02 02:12:24 +0000 | |
---|---|---|
committer | 2008-01-02 02:12:24 +0000 | |
commit | 15e7118dbd275fd3350435c2c049257630ceea38 (patch) | |
tree | 224f3829d95f09d4effdea4483895709578af1ed | |
parent | fixed get_jobs. (diff) | |
download | scire-15e7118dbd275fd3350435c2c049257630ceea38.tar.gz scire-15e7118dbd275fd3350435c2c049257630ceea38.tar.bz2 scire-15e7118dbd275fd3350435c2c049257630ceea38.zip |
return job filename and print it
svn path=/branches/new-fu/; revision=312
-rwxr-xr-x | server/scireserver.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/server/scireserver.pl b/server/scireserver.pl index 8e49ee7..9e20154 100755 --- a/server/scireserver.pl +++ b/server/scireserver.pl @@ -81,8 +81,8 @@ while(<>) { print "OK " . join(",", @jobs) . "\n"; } elsif ($command eq "GET_JOB") { my $job = $args[0]; - get_job($job); - + my $jobfile = get_job($job); + print "OK ${jobfile}\n"; } elsif ($command eq "SET_JOB_STATUS") { my ($jobid,$status) = @args; set_job_status($jobid,$status); @@ -253,7 +253,7 @@ sub get_job { # print FH $xml."\n"; # close(FH) or die("Couldn't close $filename : $!"); debug("OK $filename\n"); - return "OK $filename\n"; + return $filename; } sub set_job_status { |