PAL.C.T MINI SHELL
#!/usr/bin/perl
# Run AWstats to show the stats for some domain
require './virtualmin-awstats-lib.pl';
&ReadParse();
$in{'config'} =~ s/\0.*$//g;
&can_domain($in{'config'}) || &error($text{'view_ecannot'});
$conf = &get_config($in{'config'});
$prog = &find_value("WrapperScript", $conf);
$prog ||= "awstats.pl";
$icons = &find_value("DirIcons", $conf);
$ENV{'SERVER_NAME'} = $in{'config'};
$ENV{'GATEWAY_INTERFACE'} = "CGI";
&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 (/\&/) {
s/view.cgi\?/view.cgi?config=$in{'config'}\&/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);
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`