diff options
author | Othmar Gsenger <otti@wirdorange.org> | 2011-01-15 05:21:19 +0000 |
---|---|---|
committer | Othmar Gsenger <otti@wirdorange.org> | 2011-01-15 05:21:19 +0000 |
commit | 4cecda2089b57842b54f40deb2145e1a3e06ec3a (patch) | |
tree | e90f81d562616294447c360aa28da5c53a73e7e7 /cancel.pl | |
parent | whatever (diff) |
added completed mark
Diffstat (limited to 'cancel.pl')
-rwxr-xr-x | cancel.pl | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -23,7 +23,9 @@ foreach my $value ( @$row) { my $status = $cli->send_request('editqueue','GroupDelete',0,"",[$value->{LastID}->value]) or die "Can't connect to nzbget"; sleep 1; - remove_tree('/srv/nzbget/done/'.$dl->category->name.'/'.$dl->download_id + remove_tree('/srv/nzbget/done/'.$dl->category->name.'/'.$dl->download_id); + $user->obj->quota_used($user->obj->quota_used - $dl->size); + $user->obj->update; $dl->delete(); } } |