| Server IP : 49.231.201.246 / Your IP : 216.73.216.149 Web Server : Apache/2.4.18 (Ubuntu) System : Linux 246 4.4.0-210-generic #242-Ubuntu SMP Fri Apr 16 09:57:56 UTC 2021 x86_64 User : root ( 0) PHP Version : 7.0.33-0ubuntu0.16.04.16 Disable Function : exec,passthru,shell_exec,system,proc_open,popen,pcntl_exec MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /proc/11585/root/usr/share/webmin/filemin/ |
Upload File : |
#!/usr/bin/perl
require './filemin-lib.pl';
&ReadParse();
get_paths();
if (!$in{'link'}) {
&redirect("index.cgi?path=".&urlize($path));
return;
}
my $mode;
my @errors;
my ($host, $port, $page, $ssl) = &parse_http_url($in{'link'});
if (!$host) {
# Not an HTTP or FTP URL
push(@errors, $text{'error_invalid_uri'});
}
else {
# Looks like a valid URL
my $file = $page;
$file =~ s/^.*\///;
$file ||= "index.html";
$full = "$cwd/$file";
if (-e $full) {
push @errors, "<i>$file</i> $text{'file_already_exists'} <i>$path</i>";
}
else {
&ui_print_header(undef, $text{'http_downloading'}, "");
$progress_callback_url = $in{'link'};
my @st = stat($cwd);
if ($ssl == 0 || $ssl == 1) {
# HTTP or HTTPS download
&http_download($host, $port, $page, $full, undef,
\&progress_callback, $ssl,
$in{'username'}, $in{'password'});
}
else {
# Actually an FTP download
&ftp_download($host, $page, $full, undef,
\&progress_callback,
$in{'username'}, $in{'password'}, $port);
}
&set_ownership_permissions($st[4], $st[5], undef, $full);
@st = stat($cwd);
print &text('http_done', &nice_size($st[7]),
"<tt>".&html_escape($full)."</tt>"),"<p>\n";
&ui_print_footer("index.cgi?path=".&urlize($path),
$text{'previous_page'});
}
}
if (scalar(@errors) > 0) {
print_errors(@errors);
}