diff options
Diffstat (limited to 'remove.pl')
-rwxr-xr-x | remove.pl | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/remove.pl b/remove.pl deleted file mode 100755 index fe690ed..0000000 --- a/remove.pl +++ /dev/null @@ -1,25 +0,0 @@ -#!/usr/bin/perl - -use strict; -use CGI qw(:standard); -use CGI::Carp 'fatalsToBrowser'; -use local::db; -use local::user; -use File::Path; -use config; - -my $user = new local::user(%ENV); -my $del_id = param('id'); - -my ($dl) = local::db::download->retrieve($del_id) or die 'Error in cancel'; -die "Not allowed" if not $dl->owner->owner_id() eq $user->get_id(); - -my $basedir = $config::config{files_dir} or die 'Missing files_dir in config'; -File::Path::rmtree($basedir.'/'.$dl->category->name.'/'.$dl->download_id); -$user->obj->quota_used($user->obj->quota_used - $dl->size); -$user->obj->update; -my @seens = local::db::seen->search(download=>$del_id); -map {$_->delete()} @seens; -$dl->delete(); - -print CGI::redirect('/cgi-bin/nzbget/mydl.pl?only_me=1'); |