From 15e7118dbd275fd3350435c2c049257630ceea38 Mon Sep 17 00:00:00 2001
From: Andrew Gaffney <agaffney@gentoo.org>
Date: Wed, 2 Jan 2008 02:12:24 +0000
Subject: return job filename and print it

svn path=/branches/new-fu/; revision=312
---
 server/scireserver.pl | 6 +++---
 1 file 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 {
-- 
cgit v1.2.3-65-gdbad