Private

Server IP : 195.201.23.43 / Your IP : 18.191.154.119
Web Server : Apache
System : Linux webserver2.vercom.be 5.4.0-192-generic #212-Ubuntu SMP Fri Jul 5 09:47:39 UTC 2024 x86_64
User : kdecoratie ( 1041)
PHP Version : 7.1.33-63+ubuntu20.04.1+deb.sury.org+1
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_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,
MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : ON
Directory : /usr/share/webmin/virtualmin-awstats/

Upload File :

[ HOME SHELL ]

Current File : /usr/share/webmin/virtualmin-awstats/view.cgi

#!/usr/bin/perl
# Run AWStats to show the stats for some domain
use strict;
use warnings;
our (%text, %in, %config);

require './virtualmin-awstats-lib.pl';
&ReadParse();
$in{'config'} =~ s/\0.*$//g;
&can_domain($in{'config'}) || &error($text{'view_ecannot'});
my $conf = &get_config($in{'config'});
my $prog = &find_value("WrapperScript", $conf);
$prog ||= "awstats.pl";
my $icons = &find_value("DirIcons", $conf);

$ENV{'SERVER_NAME'} = $in{'config'};
$ENV{'GATEWAY_INTERFACE'} = "CGI";
no strict "subs"; # XXX Lexical?
&open_execute_command(AWSTATS, $config{'awstats'}, 1, 1);
while(<AWSTATS>) {
	# Replace references to awstats.pl with links to this CGI
	s/$prog/view.cgi/g;
	if (!/view.cgi\?config=/) {
                if (/\&amp;/) {
                        s/view.cgi\?/view.cgi?config=$in{'config'}\&amp;/g ||
                          s/view.cgi/view.cgi?config=$in{'config'}/g;
                        }
                else {
                        s/view.cgi\?/view.cgi?config=$in{'config'}\&/g ||
                          s/view.cgi/view.cgi?config=$in{'config'}/g;
                        }
		}

	# Replace references to icons with icon getter CGI
	s/$icons(\/\S+\.(gif|png|jpg))/icon.cgi$1?config=$in{'config'}/ig;

	print;
	}
close(AWSTATS);
use strict "subs";

Private