PAL.C.T MINI SHELL
#!/usr/bin/perl
# Show all damains for which awstats is enabled, plus their schedules
require './virtualmin-awstats-lib.pl';
&foreign_require("cron", "cron-lib.pl");
&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1);
# Make sure it is installed
$err = &check_awstats();
if ($err) {
print $err,"\n";
print &text('index_econfig', "../config.cgi?$module_name"),"<p>\n";
&foreign_require("software", "software-lib.pl");
$lnk = &software::missing_install_link(
"awstats", $text{'index_awstats'},
"../$module_name/", $text{'index_title'});
print $lnk,"<p>\n" if ($lnk);
&ui_print_footer("/", $text{'index'});
exit;
}
# Build table for domains
@alldoms = &list_configs();
@doms = grep { &can_domain($_) } @alldoms;
foreach $d (sort { $a cmp $b } @doms) {
$conf = &get_config($d);
$log = &find_value("LogFile", $conf);
$job = &find_cron_job($d);
push(@table, [
$access{'editsched'} ?
"<a href='edit.cgi?dom=$d'>$d</a>" : $d,
$log,
$job ? &text('index_yes', &cron::when_text($job))
: $text{'index_no'},
&ui_links_row([
"<a href='view.cgi?config=$d'>$text{'index_view'}</a>",
"<a href='config.cgi?dom=$d'>$text{'index_conf'}</a>",
]),
]);
}
# Show domains table
print &ui_form_columns_table(
undef,
undef,
0,
$access{'create'} ? [ [ "edit.cgi?new=1", $text{'index_add'} ] ] : [ ],
undef,
[ $text{'index_dom'}, $text{'index_log'},
$text{'index_sched'}, $text{'index_report'} ],
undef,
\@table,
undef,
0,
undef,
$text{'index_none'});
&ui_print_footer("/", $text{'index'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`