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{'link'}) {
redirect_local('list.cgi?path=' . urlize($path) . '&module=filemin' . extra_query());
return;
}
my ($host, $port, $page, $ssl) = parse_http_url($in{'link'});
if (!$host) {
print_error($text{'error_invalid_uri'});
} else {
my $file = $page;
my $full;
$file =~ s/^.*\///;
$file ||= "index.html";
$full = "$cwd/$file";
if (-e $full) {
print_error(text('filemanager_rename_exists', $file, $path, $text{'theme_xhred_global_file'}) . ".");
} else {
my $success;
my @st = stat($cwd);
if ($ssl == 0 || $ssl == 1) {
http_download($host, $port, $page, $full, undef, undef, $ssl, $in{'username'}, $in{'password'});
} else {
ftp_download($host, $page, $full, undef, undef, $in{'username'}, $in{'password'}, $port);
}
set_ownership_permissions($st[4], $st[5], undef, $full);
@st = stat($cwd);
$success .= text('http_done', nice_size($st[7]), "<tt>" . html_escape($full) . "</tt>");
redirect_local('list.cgi?path=' . urlize($path) . '&module=filemin' . '&success=' . $success . 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`