[! 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}; my $langs = [ [ 'af', 'Afrikaans' ], [ 'am', 'Amharic' ], [ 'ar', 'Arabic' ], [ 'be', 'Byelorussian' ], [ 'bg', 'Bulgarian' ], [ 'bs', 'Bosnian' ], [ 'ca', 'Catalan' ], [ 'cs', 'Czech' ], [ 'cy', 'Welsh' ], [ 'da', 'Danish' ], [ 'de', 'German' ], [ 'el', 'Greek' ], [ 'en', 'English' ], [ 'eo', 'Esperanto' ], [ 'es', 'Spanish' ], [ 'et', 'Estonian' ], [ 'eu', 'Basque' ], [ 'fa', 'Persian' ], [ 'fi', 'Finnish' ], [ 'fr', 'French' ], [ 'fy', 'Frisian' ], [ 'ga', 'Irish' ], [ 'gd', 'Scottish' ], [ 'he', 'Hebrew' ], [ 'hi', 'Hindi' ], [ 'hr', 'Croatian' ], [ 'hu', 'Hungarian' ], [ 'hy', 'Armenian' ], [ 'id', 'Indonesian' ], [ 'is', 'Icelandic' ], [ 'it', 'Italian' ], [ 'ja', 'Japanese' ], [ 'ka', 'Georgian' ], [ 'ko', 'Korean' ], [ 'la', 'Latin' ], [ 'lt', 'Lithuanian' ], [ 'lv', 'Latvian' ], [ 'mr', 'Marathi' ], [ 'ms', 'Malay' ], [ 'ne', 'Nepali' ], [ 'nl', 'Dutch' ], [ 'no', 'Norwegian' ], [ 'pl', 'Polish' ], [ 'pt', 'Portuguese' ], [ 'qu', 'Quechua' ], [ 'Rhaeto', 'Romance' ], [ 'ro', 'Romanian' ], [ 'ru', 'Russian' ], [ 'sa', 'Sanskrit' ], [ 'sco', 'Scots' ], [ 'sk', 'Slovak' ], [ 'sl', 'Slovenian' ], [ 'sq', 'Albanian' ], [ 'sr', 'Serbian' ], [ 'sv', 'Swedish' ], [ 'sw', 'Swahili' ], [ 'ta', 'Tamil' ], [ 'th', 'Thai' ], [ 'tl', 'Tagalog' ], [ 'tr', 'Turkish' ], [ 'uk', 'Ukrainian' ], [ 'vi', 'Vietnamese' ], [ 'yi', 'Yiddish' ], [ 'zh', 'Chinese' ], ]; $frm->add_element('help', 'html', "
" . __("By default all languages are accepted.") . "
"); $frm->add_cfg_element('spam', 'languages', 'checkbox', undef, "", [4, $langs]); 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; -]