summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xserver/scireserver.pl3
1 files changed, 3 insertions, 0 deletions
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;
}