[! use strict; use Proxmox::Form; use Proxmox::Utils; use Proxmox::ConfigServer; use Proxmox::Config::System; !] [- my $frm = Proxmox::Form->new (\%fdat); my $system_cfg = $fdat{__system_config}; $frm->add_cfg_element('spam', 'use_awl', "bool", undef, __("Use auto-whitelists")); $frm->add_cfg_element('spam', 'use_bayes', "bool", undef, __("Use Bayesian filter")); $frm->add_cfg_element('spam', 'use_advtests', "bool", undef, __("Use Advanced Tests")); $frm->add_cfg_element('spam', 'use_dcc', "bool", undef, __("Use DCC Network")); $frm->add_cfg_element('spam', 'use_razor', "bool", undef, __("Use Razor Network")); $frm->add_cfg_element('spam', 'skip_rbl', "nbool", undef, __("Use RBL checks")); $frm->add_cfg_element('spam', 'use_ocr', "bool", undef, __("Use OCR")); if ($frm->submit==0) { $frm->load_cfg ($system_cfg); } else { if ($udat{AM} eq 'w') { $frm->save_cfg ($system_cfg); my $conn = Proxmox::ConfigClient::connect (); $conn->rewrite_config_spam (); $conn->service_cmd ('proxprox', 'restart'); } else { $udat{popup_error} = Proxmox::Utils::msg ('nowr'); } } print OUT $frm->out_form; -]