Viewing file:  edit_newsv.cgi (4.67 KB) -rwxrwxr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
# Show a form for changing global spam and virus scanning options
require './virtual-server-lib.pl';
&can_edit_templates() || &error($text{'sv_ecannot'});
&ui_print_header(undef, $text{'sv_title'}, "", "sv");
print "$text{'sv_desc'}<p>\n";
print &ui_form_start("save_newsv.cgi", "post");
print &ui_table_start($text{'sv_header'}, "width=100%", 2, [ "width=30%" ]);
@doms = &list_domains();
if ($config{'spam'}) {
($client, $host, $size) = &get_global_spam_client();
if ($config{'provision_spam_host'}) {
print &ui_table_row($text{'spam_client'},
$text{'tmpl_spamc'});
print &ui_table_row($text{'tmpl_spam_host'},
&text('spam_prov', $config{'provision_spam_host'}));
}
else {
# Spam scanning program
print &ui_table_row(&hlink($text{'spam_client'}, 'spam_client'),
&ui_radio("client", $client,
[ [ "spamassassin", $text{'tmpl_spamassassin'}."<br>" ],
[ "spamc", $text{'tmpl_spamc'} ] ]));
# Spamc host
print &ui_table_row(
&hlink($text{'tmpl_spam_host'}, 'template_spam_host'),
&ui_opt_textbox("host", $host, 30, "<tt>localhost</tt>"));
}
# Spamc max size
print &ui_table_row(
&hlink($text{'tmpl_spam_size'}, 'template_spam_size'),
&ui_radio("size_def", $size ? 0 : 1,
[ [ 1, $client eq "spamc" ?
$text{'template_spam_defsize'} :
$text{'template_spam_unlimited'} ],
[ 0, $text{'template_spam_atmost'} ] ])." ".
&ui_bytesbox("size", $size));
# Allow user .procmailrc file?
print &ui_table_row(
&hlink($text{'spam_procmail'}, 'config_default_procmail'),
&ui_radio("default_procmail", $config{'default_procmail'},
[ [ 0, $text{'yes'} ], [ 1, $text{'no'} ] ]));
# Behavior when over quota?
$exitcode = &get_global_quota_exitcode();
if ($exitcode == 73 || $exitcode == 75) {
print &ui_table_row(
&hlink($text{'spam_exitcode'}, 'template_spam_exitcode'),
&ui_radio("exitcode", $exitcode,
[ [ 73, $text{'spam_bounce'} ],
[ 75, $text{'spam_queue'} ] ]));
}
# Lookup domain daemon port
print &ui_table_row(
&hlink($text{'spam_lookup_port'}, 'template_lookup_port'),
&ui_opt_textbox("lookup_port", $config{'lookup_domain_port'},
10, $text{'default'}." ($lookup_domain_port)"));
}
# Virus scanning program
if ($config{'virus'}) {
# Virus scanner
($scanner, $vhost) = &get_global_virus_scanner();
if ($config{'provision_virus_host'}) {
# Using provisioned virus scanning host, cannot change
print &ui_table_row($text{'spam_scanner'},
$text{'spam_scanner3'});
print &ui_table_row($text{'tmpl_virus_host'},
&text('spam_prov', $config{'provision_virus_host'}));
}
else {
$mode = $scanner eq 'clamscan' ? 0 :
$scanner eq 'clamdscan' ? 1 :
$scanner eq 'clamd-stream-client' ? 3 :
$scanner eq 'clamdscan-remote' ? 4 : 2;
$show_stream = $mode == 3 ||
&has_command("clamd-stream-client");
print &ui_table_row(
&hlink($text{'spam_scanner'}, 'spam_scanner'),
&ui_radio('scanner', $mode,
[ $mode == 0 ?
( [ 0, $text{'spam_scanner0'}."<br>" ] ) : ( ),
[ 1, $text{'spam_scanner1'}."<br>" ],
[ 4, $text{'spam_scanner4'}."<br>" ],
$show_stream ?
( [ 3, $text{'spam_scanner3'}."<br>" ] ) : ( ),
[ 2, &text('spam_scanner2',
&ui_textbox("scanprog", $mode == 2 ? $scanner : "", 40))
] ]));
# Clamd host
print &ui_table_row(
&hlink($text{'tmpl_virus_host'}, 'template_virus_host'),
&ui_opt_textbox("vhost", $vhost, 30, "<tt>localhost</tt>"));
}
}
if (!$config{'spam'} && !$config{'virus'}) {
print &ui_table_row(undef, "<div style=\"text-align: center\">$text{'form_unavail'}</div>", 2);
}
print &ui_table_end();
print &ui_form_end([ [ undef, $text{'save'} ] ]);
my $ui_virus_spam_sect = (($config{'virus'} && !$config{'provision_virus_host'}) ||
$config{'spam'});
if ($ui_virus_spam_sect) {
print &ui_hr();
print &ui_buttons_start();
}
# Check if clamd is running, if not offer to set it up
if ($config{'virus'} && !$config{'provision_virus_host'}) {
$cs = &check_clamd_status();
if ($cs != -1) {
if ($cs) {
print &ui_buttons_row("disable_clamd.cgi",
$text{'sv_disable'}, $text{'sv_disabledesc'});
}
else {
print &ui_buttons_row("enable_clamd.cgi",
$text{'sv_enable'}, $text{'sv_enabledesc'});
}
}
}
# Check if spamd is running, if not offer to set it up
if ($config{'spam'}) {
$ss = &check_spamd_status();
if ($ss != -1) {
if ($ss) {
print &ui_buttons_row("disable_spamd.cgi",
$text{'sv_sdisable'}, $text{'sv_sdisabledesc'});
}
else {
print &ui_buttons_row("enable_spamd.cgi",
$text{'sv_senable'}, $text{'sv_senabledesc'});
}
}
}
print &ui_buttons_end() if ($ui_virus_spam_sect);
&ui_print_footer("", $text{'index_return'});
|