Current File : //usr/share/webmin/authentic-theme/extensions/file-manager/delete.cgi

#!/usr/bin/perl

#
# Authentic Theme (https://github.com/authentic-theme/authentic-theme)
# Copyright Ilia Rostovtsev <ilia@virtualmin.com>
# Copyright Alexandr Bezenkov (https://github.com/real-gecko/filemin)
# Licensed under MIT (https://github.com/authentic-theme/authentic-theme/blob/master/LICENSE)
#
use strict;

use lib ($ENV{'LIBROOT'} . "/vendor_perl");

use File::Copy;
use File::Path;

our (%in, %text, $cwd, $path, @allowed_paths);

require($ENV{'THEME_ROOT'} . "/extensions/file-manager/file-manager-lib.pl");

my %errors;
my @deleted_entries;

my @entries_list = get_entries_list();
my $fsid         = $in{'fsid'};
my $time         = strftime('%Y-%m-%d_%H:%M:%S', localtime());
my $tdirname     = '.Trash';
my $mkpath_      = sub {
    my ($dir) = @_;
    my $rs = mkpath($dir, { owner => int($in{'uid'}), group => int($in{'guid'}) });
    return $rs;
};
my $etrashed = 0;

foreach my $name (@entries_list) {
    my $name_ = $name;
    $name = simplify_path($name);
    if ($in{'etrash'}) {
        my $tdir = "$cwd/$tdirname/";
        if (!can_write($tdir)) {
            $errors{$name_} = lc($text{'error_delete'} . lc(" - $text{'error_write'}"));
            next;    
        }
        if (!&unlink_file($tdir)) {
            $errors{$name_} = lc($text{'error_delete'} . lc(" - $!"));
        } else {
            push(@deleted_entries, $name);
        }
    } elsif ($in{'trash'}) {
        my $jdir = $in{'home'};
        $jdir = "$+{jhdir}"
          if ($jdir =~ /\/.(?<jhdir>\/.*?)$/);
        my $hdir =
          (-d $jdir             && -w $jdir)             ? $jdir :
          (-d $allowed_paths[0] && -w $allowed_paths[0]) ? $allowed_paths[0] :
          undef;
        my $tdir    = "$hdir/$tdirname/$cwd";
        my %mkpopts = { owner => int($in{'uid'}), group => int($in{'guid'}) };
        my $mkpathr = &$mkpath_($tdir);
        my $tfile;
        if (!$mkpathr && -f "$tdir/$name" && -r "$tdir/$name") {
            $tfile = "$tdir/$name-$time";
        } elsif (!$mkpathr && glob("\Q$tdir/$name\E/*")) {
            $tfile = "$tdir/$name-$time";
            &$mkpath_($tdir);
        }
        if (!move("$cwd/$name", $tfile || "$tdir/$name")) {

            # Do not throw an error when moving .Trash inside the .Trash
            if (&is_under_directory("$cwd/$name", $tfile || "$tdir/$name")) {
                # If .Trash the only one in list, delete it
                if (scalar(@entries_list) == 1) {
                    if (!can_write("$cwd/$name")) {
                        $errors{$name_} = lc($text{'error_delete'} . lc(" - $text{'error_write'}"));
                    }
                    elsif (!&unlink_file("$cwd/$name")) {
                        $errors{$name_} = lc($text{'error_delete'} . lc(" - $!"));
                    } else {
                        $etrashed = 1;
                        push(@deleted_entries, $name);
                    }
                }
            } else {
                $errors{$name_} = lc($text{'error_delete'} . lc(" - $!"));
            }
        } else {
            push(@deleted_entries, $name);
        }
    } else {
        if (!can_write($cwd . '/' . $name)) {
            $errors{$name_} = lc($text{'error_delete'} . lc(" - $text{'error_write'}"));
        }
        elsif (!&unlink_file($cwd . '/' . $name)) {
            $errors{$name_} = lc($text{'error_delete'} . lc(" - $!"));
        } else {
            push(@deleted_entries, $name);
        }
    }
}

if ($fsid) {
    cache_search_delete($fsid, \@deleted_entries);
}

redirect_local('list.cgi?path=' .
            urlize($path) . '&module=filemin' . '&etrashed=' . $etrashed . '&error=' . get_errors(\%errors) . extra_query());