1 files changed, 27 insertions, 0 deletions
diff --git a/cancel.pl b/cancel.pl
new file mode 100755
index 0000000..a342fc2
--- /dev/null
+++ b/cancel.pl
@@ -0,0 +1,27 @@
+#!/usr/bin/perl
+
+use strict;
+use CGI qw(:standard);
+use CGI::Carp 'fatalsToBrowser';
+use local::nzbget;
+use local::db;
+use local::user;
+
+my $user = new local::user($ENV{REMOTE_USER});
+my $del_id = param('id');
+
+my ($download) = local::db::download->retrieve($del_id) or die 'Error in cancel';
+die "Not allowed" if not $download->owner->owner_id() eq $user->get_id();
+
+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';
+  if ($value->{NZBNicename}->value == $del_id)
+  {
+    my $status = $cli->send_request('editqueue','GroupDelete',0,"",[$value->{LastID}->value]) or die "Can't connect to nzbget"; 
+  }
+}
+
+print CGI::redirect('/cgi-bin/nzbget/groups.pl');