diff options
Diffstat (limited to 'server/scireserver.pl')
-rwxr-xr-x | server/scireserver.pl | 3 |
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; } |