1 files changed, 5 insertions, 1 deletions
diff --git a/cancel.pl b/cancel.pl
index a342fc2..c3b7573 100755
--- a/cancel.pl
+++ b/cancel.pl
@@ -6,6 +6,7 @@ use CGI::Carp 'fatalsToBrowser';
 use local::nzbget;
 use local::db;
 use local::user;
+use File::Path qw(remove_tree);
 
 my $user = new local::user($ENV{REMOTE_USER});
 my $del_id = param('id');
@@ -17,10 +18,13 @@ my $cli = new local::nzbget;
 my $row = $cli->send_request('listgroups') or die "Can't connect to nubget";
 foreach my $value ( @$row)
 {
-  my ($download) = local::db::download->retrieve($value->{NZBNicename}->value) or die ' Error in groups';
+  my ($dl) = local::db::download->retrieve($value->{NZBNicename}->value) or die ' Error in groups';
   if ($value->{NZBNicename}->value == $del_id)
   {
     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
+    $dl->delete();
   }
 }