| Server IP : 49.231.201.246 / Your IP : 216.73.216.248 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 : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority, MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/webmin/webalizer/ |
Upload File : |
#!/usr/bin/perl
# view_log.cgi
# Display the report for some log file
use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
our (%text, %config, %gconfig, %access, $module_name, %in, $remote_user);
require './webalizer-lib.pl';
&ReadParse();
my ($escaped, $file, $log);
if ($ENV{'PATH_INFO'} =~ /^\/([^\/]+)(\/[^\/]*)$/) {
# Proper path escaping
$escaped = $1;
$file = $2;
$log = &un_urlize($escaped);
}
elsif ($ENV{'PATH_INFO'} =~ /^(\/.*)(\/[^\/]*)$/) {
# Path has been decode somehow, perhaps by proxy.. deal
$log = $1;
$file = $2;
}
else {
&error($text{'view_epath'});
}
$file =~ /\.\./ || $file =~ /\<|\>|\||\0/ && &error($text{'view_efile'});
&can_edit_log($log) || &error($text{'view_ecannot'});
my $lconf = &get_log_config($log) || &error($text{'view_elog'}." : $log");
my $full = $lconf->{'dir'}.$file;
my $fh;
my $data = &eval_as_unix_user($lconf->{'user'} || 'root',
sub { &read_file_contents($full) });
$data || &error($text{'view_eopen'}." : $full");
# Display file contents
if ($full =~ /\.(html|htm)$/i && !$config{'naked'}) {
$data =~ /<TITLE>(.*)<\/TITLE>/i;
my $title = $1;
$data =~ s/^[\000-\377]*<BODY.*>//i;
$data =~ s/<\/BODY>[\000-\377]*$//i;
&ui_print_header(undef, $title || $text{'view_title'}, "");
print $data;
if ($access{'view'}) {
&ui_print_footer("", $text{'index_return'});
}
else {
&ui_print_footer(
"/$module_name/edit_log.cgi?file=$escaped",
$text{'edit_return'},
"", $text{'index_return'});
}
}
else {
print "Content-type: ",$full =~ /\.png$/i ? "image/png" :
$full =~ /\.gif$/i ? "image/gif" :
$full =~ /\.(jpg|jpeg)$/i ? "image/jpeg" :
$full =~ /\.(html|htm)$/i ? "text/html" :
"text/plain","\n";
print "\n";
print $data;
}