mirror of
https://github.com/webmin/webmin.git
synced 2026-02-06 07:22:20 +00:00
58 lines
1.7 KiB
Perl
Executable File
58 lines
1.7 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# Show all global config options
|
|
|
|
use strict;
|
|
use warnings;
|
|
no warnings 'redefine';
|
|
no warnings 'uninitialized';
|
|
require './fail2ban-lib.pl';
|
|
our (%in, %text);
|
|
|
|
my $conf = &get_config();
|
|
my ($def) = grep { $_->{'name'} eq 'Definition' } @$conf;
|
|
$def || &error($text{'config_edef'});
|
|
|
|
&ui_print_header(undef, $text{'config_title'}, "");
|
|
|
|
print &ui_form_start("save_config.cgi", "post");
|
|
print &ui_table_start($text{'config_header'}, undef, 2);
|
|
|
|
# Logging level
|
|
my $loglevel = &find_value("loglevel", $def) || 3;
|
|
my @loglevels;
|
|
if (&compare_version_numbers(&get_fail2ban_version(), "0.9") >= 0) {
|
|
@loglevels = ( "CRITICAL", "ERROR", "WARNING",
|
|
"NOTICE", "INFO", "DEBUG" );
|
|
}
|
|
else {
|
|
@loglevels = ( [ 1, "ERROR" ], [ 2, "WARN" ],
|
|
[ 3, "INFO" ], [ 4, "DEBUG" ] );
|
|
}
|
|
print &ui_table_row($text{'config_loglevel'},
|
|
&ui_select("loglevel", $loglevel, \@loglevels));
|
|
|
|
# Log file
|
|
my $logtarget = &find_value("logtarget", $def);
|
|
my $mode = $logtarget eq "" ? "" :
|
|
$logtarget =~ /^STDOUT|STDERR|SYSLOG$/ ? $logtarget : "file";
|
|
print &ui_table_row($text{'config_logtarget'},
|
|
&ui_radio("logtarget_def", $mode,
|
|
[ [ "", $text{'config_default'}."<br>" ],
|
|
[ "STDOUT", "STDOUT<br>" ],
|
|
[ "STDERR", "STDERR<br>" ],
|
|
[ "SYSLOG", $text{'config_syslog'}."<br>" ],
|
|
[ "file", $text{'config_file'}." ".
|
|
&ui_textbox("logtarget",
|
|
$mode eq "file" ? $logtarget : "", 50) ]
|
|
]));
|
|
|
|
# Socket file
|
|
my $socket = &find_value("socket", $def);
|
|
print &ui_table_row($text{'config_socket'},
|
|
&ui_opt_textbox("socket", $socket, 40, $text{'default'}));
|
|
|
|
print &ui_table_end();
|
|
print &ui_form_end([ [ undef, $text{'save'} ] ]);
|
|
|
|
&ui_print_footer("", $text{'index_return'});
|