mirror of
https://github.com/webmin/webmin.git
synced 2025-07-20 16:48:46 +00:00
45 lines
1.2 KiB
Perl
Executable File
45 lines
1.2 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# edit_priv.cgi
|
|
# Display various privileged settings
|
|
|
|
require './spam-lib.pl';
|
|
&ReadParse();
|
|
&set_config_file_in(\%in);
|
|
&can_use_check("priv");
|
|
&ui_print_header($header_subtext, $text{'priv_title'}, "");
|
|
$conf = &get_config();
|
|
|
|
print "$text{'priv_desc'}<p>\n";
|
|
&start_form("save_priv.cgi", $text{'priv_header'});
|
|
|
|
# Whitelist file path
|
|
$path = &find("auto_whitelist_path", $conf);
|
|
print &ui_table_row($text{'priv_white'},
|
|
&opt_field("auto_whitelist_path", $path, 40,
|
|
"~/.spamassassin/auto-whitelist"));
|
|
|
|
# Whitelist file mode
|
|
$mode = &find("auto_whitelist_file_mode", $conf);
|
|
print &ui_table_row($text{'priv_mode'},
|
|
&opt_field("auto_whitelist_file_mode", $mode, 4, "0700"));
|
|
|
|
# DCC options
|
|
$dcc = &find("dcc_options", $conf);
|
|
print &ui_table_row($text{'priv_dcc'},
|
|
&opt_field("dcc_options", $dcc, 10, "-R"));
|
|
|
|
# Timing log file
|
|
$log = &find("timelog_path", $conf);
|
|
print &ui_table_row($text{'priv_log'},
|
|
&opt_field("timelog_path", $log, 40, "NULL"));
|
|
|
|
# Razor config file
|
|
$razor = &find("razor_config", $conf);
|
|
print &ui_table_row($text{'priv_razor'},
|
|
&opt_field("razor_config", $razor, 40, "~/razor.conf"));
|
|
|
|
&end_form(undef, $text{'save'});
|
|
&ui_print_footer($redirect_url, $text{'index_return'});
|
|
|
|
|