| Server IP : 14.207.165.8 / Your IP : 216.73.216.101 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/thread-self/root/usr/share/webmin/software/ |
Upload File : |
#!/usr/bin/perl
# view.cgi
# Output the contents of a file
require './software-lib.pl';
$p = $ENV{'PATH_INFO'};
# Try to guess type from filename
if ($p =~ /\.([^\.\/]+)$/) {
$ext = lc($1);
&get_miniserv_config(\%miniserv);
open(MIME, "<$miniserv{'mimetypes'}");
while(<MIME>) {
s/#.*//g;
if (/(\S+)\s+(.*)/) {
foreach $e (split(/\s+/, $2)) {
if ($ext eq $e) {
$type = $1;
last;
}
}
}
}
close(MIME);
}
if (!$type) {
# No idea .. use the 'file' command
if (`file "$p"` =~ /text|script/) {
$type = "text/plain";
}
else {
$type = "application/octet-stream";
}
}
# Dump the file
if (!open(FILE, "<$p")) {
print "Content-type: text/plain\n\n";
print &text('list_eview', $p, $!),"\n";
}
else {
@st = stat($p);
print "Content-length: $st[7]\n";
print "Content-type: $type\n\n";
my $bs = &get_buffer_size();
while(read(FILE, $buf, $bs)) {
print $buf;
}
close(FILE);
}