index.cgi

#!/usr/local/bin/perl
# Show all damains for which awstats is enabled, plus their schedules
use strict;
use warnings;
our (%access, %text);
our $module_name;

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
my $err = &check_awstats();
if ($err) {
	print $err,"\n";
	print &text('index_econfig', "../config.cgi?$module_name"),"<p>\n";

	&foreign_require("software", "software-lib.pl");
	my $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
my @alldoms = &list_configs();
my @doms = grep { &can_domain($_) } @alldoms;
my @table;
foreach my $d (sort { $a cmp $b } @doms) {
	my $conf = &get_config($d);
	my $log = &find_value("LogFile", $conf);
	my $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'});