Viewing file:  delete.cgi (3.13 KB) -rwxr-xr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/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);
do($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 (!&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 (!&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 (!&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());
|