Files
webmin/frox/index.cgi
Joe Cooper 48445ebb60 ui_hr
2008-05-10 03:09:08 +00:00

63 lines
1.8 KiB
Perl
Executable File

#!/usr/local/bin/perl
# Display icons for the various Frox config sections
require './frox-lib.pl';
# Make sure frox is installed
if (!-r $config{'frox_conf'} && -r $config{'alt_frox_conf'}) {
system("cp ".quotemeta($config{'alt_frox_conf'})." ".
quotemeta($config{'frox_conf'}));
}
if (!-r $config{'frox_conf'}) {
&ui_print_header(undef, $text{'index_title'}, "", "intro", 1, 1);
&ui_print_endpage(
&ui_config_link('index_econf',
[ "<tt>$config{'frox_conf'}</tt>", undef ]));
}
if (!&has_command($config{'frox'})) {
&ui_print_header(undef, $text{'index_title'}, "", "intro", 1, 1);
&ui_print_endpage(
&ui_config_link('index_ecmd',
[ "<tt>$config{'frox'}</tt>", undef ]));
}
# Get the version
# XXX
# Show icons
&ui_print_header(undef, $text{'index_title'}, "", "intro", 1, 1, 0,
&help_search_link("frox", "man", "doc", "google"),
undef, undef,
&text('index_version', $frox_version));
@names = ( "net", "general", "ftp", "cache", "acl" );
push(@names, "iptables") if (&foreign_check("firewall"));
@titles = map { $text{$_."_title"} } @names;
@icons = map { "images/$_.gif" } @names;
@links = map { "edit_${_}.cgi" } @names;
&icons_table(\@links, \@titles, \@icons);
# Show start/stop/apply buttons
$conf = &get_config();
if (&find_value("FromInetd", $conf) ne "yes") {
print &ui_hr();
print &ui_buttons_start();
if (&is_frox_running()) {
print &ui_buttons_row("apply.cgi", $text{'index_apply'},
$text{'index_applydesc'});
print &ui_buttons_row("stop.cgi", $text{'index_stop'},
$text{'index_stopdesc'});
}
else {
print &ui_buttons_row("start.cgi", $text{'index_start'},
$text{'index_startdesc'});
}
print &ui_buttons_end();
}
else {
print "<b>$text{'index_inetd'}</b><p>\n";
}
&ui_print_footer("/", $text{'index'});