From 761222eb1133d5ba6d48785719e8ff3b343499aa Mon Sep 17 00:00:00 2001 From: Christian Pointner Date: Tue, 25 Sep 2012 20:53:32 +0000 Subject: admin can cancel any download --- nzbget/cancel.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'nzbget/cancel.pm') diff --git a/nzbget/cancel.pm b/nzbget/cancel.pm index ed08fc5..0a96091 100644 --- a/nzbget/cancel.pm +++ b/nzbget/cancel.pm @@ -15,10 +15,10 @@ sub handler 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(); + die "Not allowed" unless (($download->owner->owner_id() eq $user->get_id()) or ($user->is_admin())); my $basedir = $config::config{files_dir} or die 'Missing files_dir in config'; my $cli = new local::nzbget; - my $row = $cli->send_request('listgroups') or die "Can't connect to nubget"; + my $row = $cli->send_request('listgroups') or die "Can't connect to nzbget"; foreach my $value ( @$row) { my ($dl) = local::db::download->retrieve($value->{NZBNicename}) or die ' Error in groups'; -- cgit v1.2.3