PAL.C.T MINI SHELL
#!/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{'THEME_ROOT'}/lib");
use File::Copy;
use File::Path;
our (%in, %text, $cwd, $path);
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;
};
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 $tdir = "$in{'home'}/$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("$tdir/$name/*")) {
$tfile = "$tdir/$name-$time";
&$mkpath_($tdir);
}
if (!move("$cwd/$name", $tfile || "$tdir/$name")) {
$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' . '&error=' . get_errors(\%errors) . extra_query());
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`