mirror of
https://github.com/webmin/webmin.git
synced 2025-08-16 14:51:18 +00:00
69 lines
2.1 KiB
Perl
Executable File
69 lines
2.1 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# Show icons for sarg option categories
|
|
|
|
require './sarg-lib.pl';
|
|
|
|
if (!-r $config{'sarg_conf'}) {
|
|
&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1);
|
|
&ui_print_endpage(
|
|
&ui_config_link('index_econf',
|
|
[ "<tt>$config{'sarg_conf'}</tt>", undef ]));
|
|
}
|
|
if (!&has_command($config{'sarg'})) {
|
|
&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1);
|
|
&ui_print_endpage(
|
|
&ui_config_link('index_ecmd',
|
|
[ "<tt>$config{'sarg'}</tt>", undef ]));
|
|
}
|
|
|
|
# Get the version
|
|
$out = `$config{'sarg'} -v 2>&1 </dev/null`;
|
|
if ($out =~ /sarg-([0-9\.]+)\s/ || $out =~ /Version:\s*([0-9\.]+)/i) {
|
|
$sarg_version = $1;
|
|
}
|
|
else {
|
|
&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1);
|
|
&ui_print_endpage(
|
|
&text('index_eversion',
|
|
"<tt>$config{'sarg'}</tt>", "<pre>$out</pre>"));
|
|
}
|
|
|
|
# Show icons for options
|
|
&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1, 0,
|
|
&help_search_link("sarg", "man", "doc", "google"),
|
|
undef, undef,
|
|
&text('index_version', $sarg_version));
|
|
@pages = ( "log", "report", "style", "sched" );
|
|
@links = map { "edit_${_}.cgi" } @pages;
|
|
@titles = map { $text{"${_}_title"} } @pages;
|
|
@icons = map { "images/${_}.gif" } @pages;
|
|
&icons_table(\@links, \@titles, \@icons);
|
|
|
|
# Show buttons for generating report now and for viewing
|
|
$conf = &get_config();
|
|
$odir = &find_value("output_dir", $conf);
|
|
$odir ||= &find_value("output_dir", $conf, 1);
|
|
$sfile = &find_value("access_log", $conf);
|
|
if ($sfile || $odir && -r "$odir/index.html") {
|
|
print "<hr>\n";
|
|
print &ui_buttons_start();
|
|
}
|
|
if ($sfile) {
|
|
print &ui_buttons_row("generate.cgi", $text{'index_generate'},
|
|
&text('index_generatedesc', "<tt>$odir</tt>").
|
|
"<br><b>$text{'index_clear'}</b> ".
|
|
&gen_clear_input().
|
|
"<br><b>$text{'index_range'}</b> ".
|
|
&gen_range_input());
|
|
print "<tr> <td><p></td> </tr>\n";
|
|
}
|
|
if ($odir && -r "$odir/index.html") {
|
|
print &ui_buttons_row("view.cgi/index.html", $text{'index_view'},
|
|
&text('index_viewdesc', "<tt>$odir</tt>"));
|
|
}
|
|
if ($sfile || $odir && -r "$odir/index.html") {
|
|
print &ui_buttons_end();
|
|
}
|
|
|
|
&ui_print_footer("/", $text{'index'});
|