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;
our (%in, %text, $cwd, $path);
do("$ENV{'THEME_ROOT'}/extensions/file-manager/file-manager-lib.pl");
if (!$in{'name'}) {
redirect_local('list.cgi?path=' . urlize($path) . '&module=filemin' . extra_query());
}
$path = $path || "/";
my $type;
if (-d "$cwd/$in{'name'}") {
$type = 'directory';
} else {
$type = 'file';
}
if (-e "$cwd/$in{'name'}") {
print_error(
(text('filemanager_rename_exists', html_escape($in{'name'}), $path, $text{ 'theme_xhred_global_' . $type . '' })));
} else {
my $from = $in{'file'};
my $to = $in{'name'};
my $fsid = $in{'fsid'};
if (rename_file($cwd . '/' . $from, $cwd . '/' . $to)) {
cache_search_rename($fsid, $from, $to) if ($fsid);
redirect_local('list.cgi?path=' . urlize($path) . '&module=filemin' . extra_query());
} else {
print_error(
(
text('filemanager_rename_denied',
html_escape($in{'name'}),
html_escape($path),
lc($text{ 'theme_xhred_global_' . $type . '' })
)
));
}
}
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`