diff options
author | 2008-01-02 04:36:58 +0000 | |
---|---|---|
committer | 2008-01-02 04:36:58 +0000 | |
commit | 6f4f0c362cb59f83c9209c58eeb663f52bc655bb (patch) | |
tree | 3d4f8baa91ac2f8134dc58ed06a33f640291aacb | |
parent | fix parse_response() regex to ignore trailing whitespace (diff) | |
download | scire-6f4f0c362cb59f83c9209c58eeb663f52bc655bb.tar.gz scire-6f4f0c362cb59f83c9209c58eeb663f52bc655bb.tar.bz2 scire-6f4f0c362cb59f83c9209c58eeb663f52bc655bb.zip |
remove the jobfile once it's been successfully sent to the client.
svn path=/branches/new-fu/; revision=316
-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; } |