From 6f4f0c362cb59f83c9209c58eeb663f52bc655bb Mon Sep 17 00:00:00 2001
From: Preston Cody <codeman@gentoo.org>
Date: Wed, 2 Jan 2008 04:36:58 +0000
Subject: remove the jobfile once it's been successfully sent to the client.

svn path=/branches/new-fu/; revision=316
---
 server/scireserver.pl | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/server/scireserver.pl b/server/scireserver.pl
index ba864f5..835a10d 100755
--- a/server/scireserver.pl
+++ b/server/scireserver.pl
@@ -270,6 +270,9 @@ sub job_fetched {
 		$sth->execute($jobid,$client_id);
 	};
 	($@) and print "ERROR Could not get status id: $DBI::errstr\n";
+
+	my $filename = "$conf{job_dir}/$client_id/queue/$jobid.job";
+	unlink ($filename) or die("ERROR Could not unlink the jobfile from the queue. filename: $filename : $!");
 	return 1;
 }
 
-- 
cgit v1.2.3-18-g5258