I already bumped the version

Unambiguous table header

README

@@ -1,4 +1,4 @@
-Webmin Version 1.801
+Webmin Version 1.830
 --------------------
 Webmin is a web-based interface for system administration for Unix. 
 Using any browser that supports tables and forms, you can setup user
@@ -49,6 +49,8 @@ commmand, the sc.exe command and the Win32::Daemon Perl module.
 
 For more information, see http://www.webmin.com/
 
+For documentation, see http://doxfer.webmin.com/
+
 Jamie Cameron
 jcameron@webmin.com
 

WebminCore.pm

@@ -27,7 +27,7 @@ push(@EXPORT, qw(&unique));
 push(@EXPORT, qw($config_directory $var_directory $remote_error_handler %month_to_number_map %number_to_month_map $webmin_feedback_address $default_lang $default_charset $module_index_name $module_index_link %in $in @in $progress_callback_prefix $progress_callback_url $wait_for_debug $wait_for_input @matches $theme_no_table $webmin_logfile $pragma_no_cache));
 
 # Functions defined in themes
-push(@EXPORT, qw(&theme_post_save_domain &theme_post_save_domains &theme_post_save_server &theme_select_server &theme_select_domain &theme_post_save_folder &theme_post_change_modules &theme_address_button &theme_virtualmin_ui_rating_selector &theme_virtualmin_ui_show_cron_time &theme_virtualmin_ui_parse_cron_time &theme_virtualmin_ui_html_editor_bodytags &theme_virtualmin_ui_show_html_editor));
+push(@EXPORT, qw(&theme_post_save_domain &theme_post_save_domains &theme_post_save_server &theme_select_server &theme_select_domain &theme_post_save_folder &theme_post_change_modules &theme_address_button &theme_virtualmin_ui_rating_selector &theme_virtualmin_ui_show_cron_time &theme_virtualmin_ui_parse_cron_time &theme_virtualmin_ui_html_editor_bodytags &theme_virtualmin_ui_show_html_editor &theme_post_change_theme &theme_pre_change_theme));
 
 $called_from_webmin_core = 1;
 do "web-lib.pl";

acl/config-*-linux

@@ -1,4 +1,3 @@
 ssleay=/usr/bin/openssl
-select=0
 order=0
 display=1

acl/config-freebsd

@@ -1,4 +1,3 @@
 ssleay=/usr/bin/openssl
-select=0
 order=0
 display=1

acl/config-macos

@@ -1,4 +1,3 @@
 ssleay=/usr/bin/openssl
-select=0
 order=0
 display=1

acl/config-netbsd

@@ -1,4 +1,3 @@
 ssleay=/usr/bin/openssl
-select=0
 order=0
 display=1

acl/config-openbsd

@@ -1,4 +1,3 @@
 ssleay=/usr/bin/openssl
-select=0
 order=0
 display=1

acl/config-solaris-10-*

@@ -1,4 +1,3 @@
 ssleay=/usr/sfw/bin/openssl
-select=0
 order=0
 display=1

acl/config.info

@@ -1,6 +1,5 @@
 line1=Configurable options,11
 display=User and group display mode,1,1-Names only,0-Names and modules
-select=Display user modules in,1,0-Table,1-Pulldown menu
 order=Sort users and groups by,1,0-Order in file,1-Name
 line2=System configuration,11
 ssleay=Path to openssl or ssleay program,3,Automatic

acl/config.info.bg

@@ -1,5 +1,4 @@
 line1=Конфигурационни опции,11
-select=Показвай юзерските модули в,1,0-таблица,1-Падащо меню
 order=Подреди юзери и групи по,1,0-подредба във файл,1-име
 line2=Системна конфигурация,11
 ssleay=Път към openssl или ssleay програма,0

acl/config.info.ca

@@ -1,6 +1,5 @@
 line1=Opcions configurables,11
 display=Forma de mostrar els usuaris i els grups,1,1-Només els noms,0-Noms i mòduls
-select=Mostra els mòduls d'usuaris amb,1,0-Taula,1-Menú desplegable
 order=Ordena els usuaris i grups per,1,0-L'ordre del fitxer,1-El nom
 line2=Configuració del sistema,11
 ssleay=Camí del programa <tt>openssl</tt> o <tt>ssleay</tt>,3,Automàtic

acl/config.info.cz

@@ -1,6 +1,5 @@
 line1=Možnosti konfigurace,11
 display=Mód pro zobrazení uživatele a skupiny,1,1-Pouze jména,0-Jména a moduly
-select=Zobrazit moduly uživatele v,1,0-tabulce,1-rozbalovací nabídce
 order=Třídit uživatele a skupiny podle,1,0-pořadí v souboru,1-jména
 line2=Konfigurace systému,11
 ssleay=Cesta k programu openssl nebo ssleay,0

acl/config.info.da

@@ -1,6 +1,5 @@
 line1=Konfigurerbare indstillinger,11
 display=Bruger og gruppe visnings mode,1,1-Kun navne,0-Navne og moduler
-select=Vis brugermoduler i,1.0-Tabel,1-Pulldown menu
 order=Sorter brugere og grupper ved,1.0-Sortering i fil,1-Navn
 line2=Systemkonfiguration,11
 ssleay=Sti til openssl eller ssleay progarm,3,Automatisk

acl/config.info.de

@@ -1,6 +1,5 @@
 line1=Konfigurierbare Optionen,11
 display=Benutzer- und Gruppenanzeige,1,1-Nur Namen,0-Namen und Module
-select=Zeige Benutzermodule als,1,0-Tabelle,1-Auswahlliste
 order=Sortiere Benutzer und Gruppen nach,1,0-Reihenfolge in Datei,1-Name
 line2=Systemkonfiguration,11
 ssleay=Pfad zu <tt>openssl</tt> oder <tt>ssleay</tt>,3,Automatisch

acl/config.info.es

@@ -1,6 +1,5 @@
 line1=Opciones Configurables,11
 display=Modo de mostrar usuario y grupo,1,1-Sólo nombres,0-Nombres y módulos
-select=Mostrar módulos de usuario en,1,0-Tabla,1-Menú desplegable
 order=Clasificar usuarios y grupos por,1,0-Orden en archivo,1-Nombre
 line2=Configuración de Sistema,11
 ssleay=Trayectoria al programa openssl o ssleay,0

acl/config.info.eu

@@ -1,6 +1,5 @@
 line1=Konfiguragarri diren aukerak, 11
 display=Erabiltzaile eta taldea erakusteko modua, 1,1-Izenak soilik, 0-Izenak eta moduluak
-select=Erabiltzaile moduluak erakutsi,1,0-Taulan, 1-
 Display user modules in,1,0-Table,1-Pulldown menu
 order=Ordenatu erabiltzaile eta taldeak,1,0-Fitxategian ordenatu,1-Izena
 line2=Sistemaren konfigurazioa,11

acl/config.info.fa

@@ -1,7 +1,6 @@
 
 line1=گزينه‌هاي پيکربندي,11
 display=حالت نمايش کاربران و گروه‌ها,1,1-فقط نامها,0-نامها و پيمانه‌ها
-select=نمايش پيمانه‌هاي کاربر در,1,0-جدول,1-گزينگان پايين بر
 order=مرتب سازي کاربران و گروه‌ها براساس,1,0-ترتيب در پرونده,1-نام
 line2=پيکربندي سيستم,11
 ssleay=مسير براي openssl يا برنامه ssleay,3,خودکار

acl/config.info.fr

@@ -1,6 +1,5 @@
 line1=Options configurables,11
 display=Mode d'affichage des utilisateurs et des groupes,1,1-Noms seulement,0-Noms et modules
-select=Afficher les modules utilisateur par,1,0-Table,1-Menu déroulant
 order=Trier les utilisateurs et les groupes par,1,0-Ordre dans le fichier,1-Nom
 line2=Configuration du système,11
 ssleay=Chemin d'accès au programme openssl ou ssleay,3,Automatique

acl/config.info.hu

@@ -1,6 +1,5 @@
 line1=Konfigurálható beállítások,11
 display=Felhasználó és csoport megjelenítési mód,1,1-Csak a neveket,0-Neveket és modulokat
-select=A modulok megjelenítsi módja,1,0-Táblázat,1-Menü
 order=Felhasználók és csoportok rendezése,1,0-A fájl rendezése szerint,1-Név szerint
 line2=Rendszer konfiguráció,11
 ssleay=Az <code>openssl</code> vagy <code>ssleay</code> program teljes elérési útja,0

acl/config.info.it

@@ -1,6 +1,5 @@
 line1=Opzioni configurabili,11
 display=Modalità di visualizzazione di utenti e gruppi,1,1-Solo i nomi,0-Nomi e moduli
-select=Mostra i moduli utente in,1,0-una tabella,1-un menu a tendina
 order=Ordina gli utenti e i gruppi per,1,0-Ordine nel file,1-Nome
 line2=Configurazione di sistema,11
 ssleay=Percorso al programma openssl o ssleay,3,Automatico

acl/config.info.ja_JP.euc

@@ -1,6 +1,5 @@
 line1=設定可能なオプション,11
 display=ユーザとグループの表示モード,1,1-名前のみ,0-名前とモジュール
-select=ユーザモジュールの表示方法,1,0-表,1-プルダウンメニュー
 order=ユーザとグループのソート順,1,0-ファイル順,1-名前順
 line2=システム設定,11
 ssleay=opensslプログラムまたはssleayプログラムのパス,3,自動

acl/config.info.ko_KR.euc

@@ -1,6 +1,5 @@
 line1=가능한 옵션,11
 display=유저와 그룹 출력 모드,1,1-이름만,0-이름과 모듈
-select=유저 모듈 출력,1,0-테이블,1-풀다운 메뉴
 order=유저와 그룹 정렬,1,0-파일 순,1-이름
 line2=시스템 설정,11
 ssleay=openssl 또는 ssleay 파일 경로,3,Automatic

acl/config.info.ms_MY

@@ -1,6 +1,5 @@
 line1=Pilihan konfigurasi,11
 display=Mod paparan pengguna dan grup,1,1-Nama sahaja,0-Nama dan modul
-select=Paparkan modul pengguna dalam,1,0-Jadual,1-Menu pull-down
 order=Tapis pengguna dan grup dengan,1,0-Urutan dalam fail,1-Nama
 line2=Konfigurasi sistem,11
 ssleay=Lokasi program openssl atau ssleay,3,Automatik

acl/config.info.nl

@@ -1,6 +1,5 @@
 line1=Instelbare opties,11
 display=Gebruiker en groep weergave instelling,1,1-Alleen Namen,0-Namen en modules
-select=Geef gebruiker modules weer in,1,0-Tabel,1-Pulldown menu
 order=Sorteer gebruikers en groepen op,1,0-Volgorde in bestand,1-Naam
 line2=Systeem configuratie,11
 ssleay=Pad naar openssl of ssleay programma,3,Automatisch

acl/config.info.no

@@ -1,6 +1,5 @@
 line1=Konfigurerbare innstillinger,11
 display=Visningsmodus for bruker og gruppe,1,1-Bare navn,0-Navn og moduler
-select=Vis brukermoduler i,1,0-Tabell,1-Nedtrekksmeny
 order=Sorter brukere og grupper etter,1,0-Rekkefølge i filen,1-Navn
 line2=System konfigurasjon,11
 ssleay=Stien til openssl eller ssleay program,0

acl/config.info.pl

@@ -1,6 +1,5 @@
 line1=Opcje konfiguracyjne,11
 display=Tryb wyświetlania użytkowników i grup,1,1-Tylko nazwy,0-Nazwy i moduły
-select=Wyświetl moduły użytkownika w,1,0-Tabeli,1-Rozwijanym menu
 order=Porządkuj użytkowników i grupy wg,1,0-Kolejności w zbiorze,1-Nazwy
 line2=Konfiguracja systemu,11
 ssleay=Ścieżka do programu openssl lub ssleay,0

acl/config.info.pt_BR

@@ -1,5 +1,4 @@
 line1=Opções configuráveis,11
-select=Exibir módulos de usuários em,1,0-Tabela,1-Menus
 order=Ordenar usuários e grupos por,1,0-Ordem no arquivo,1-Nome
 line2=Configuração do sistema,11
 ssleay=Caminho para o programa openssl ou ssleay,0

acl/config.info.ru_RU

@@ -1,4 +1,3 @@
-select=Показывать модули пользователя в виде,1,0-Таблицы,1-Выпадающего меню
 ssleay=Путь к программе openssl или ssleay,0
 order=Упорядочивать пользователей и группы по,1,0-Очередности в файле,1-Имени
 line1=Настраиваемые параметры,11

acl/config.info.ru_SU

@@ -1,6 +1,5 @@
 line1=Настраиваемые параметры,11
 display=Режим отображения пользователей и групп,1,1-Только имена,0-Имена и модули
-select=Показывать модули пользователя в виде,1,0-Таблицы,1-Выпадающего меню
 order=Упорядочивать пользователей и группы по,1,0-Очередности в файле,1-Имени
 line2=Системные параметры,11
 ssleay=Путь к программе openssl или ssleay,0

acl/config.info.sk

@@ -1,6 +1,5 @@
 line1=Nastaviteľné možnosti,11
 display=Spôsob zobrazenia užívateľov a skupín,1,1-Iba mená,0-Mená a moduly
-select=Zobraz užívateľské moduly v ,1,0-Tabuľke,1-Rozbaľovacom menu
 order=Zoraď užívateľov a skupiny podľa,1,0-Poradia v súbore,1-Mena
 line2=Nastavenie Systému,11
 ssleay=Cesta k programu openssl alebo ssleay,3,Automatická

acl/config.info.sv

@@ -1,2 +1 @@
 ssleay=Sökväg till openssl- eller ssleay-program,0
-select=Visa moduler i,1,0-Tabell,1-Rullgardinsmeny

acl/config.info.tr

@@ -1,6 +1,5 @@
 line1=Yapılandırılabilir seçenekler,11
 display=Kullanıcı ve grup görüntüleme biçimi,1,1-Sadece isim,0-İsim ve modüller
-select=Kullanıcı modüllerini bu şekilde görüntüle,1,0-Tablo,1-Menü
 order=Kullanıcı ve grupları bu şekilde sırala,1,0-Dosyadaki sırası ile,1-İsim ile
 line2=Sistem yapılandırması,11
 ssleay=Openssl ya da ssleay programı yolu,3,Otomatik

acl/config.info.uk_UA

@@ -1,4 +1,3 @@
-select=Показувати модулі користувача у виді,1,0-таблиці, що1-випадає меню
 ssleay=Шлях до програми openssl чи ssleay,0
 order=Упорядковувати користувачів і групи по,1,0-черговості у файлі,1-імені
 line1= параметри, ЩоНабудовуються,11

acl/config.info.zh_CN

@@ -1,2 +1 @@
 ssleay=Openssl 或者 Ssleay 程序的路径,0
-select=显示用户模块以,1,0-Table,1-Pulldown 菜单

acl/config.info.zh_TW.Big5

@@ -1,5 +1,4 @@
 line1=組態選項,11
-select=顯示使用者模組在,1,0-表格,1-下拉選單
 order=排序使用者和全組 依,1,0-檔案內位置,1-名稱
 line2=系統組態,11
 ssleay=openssl或ssleay程式路徑,0

acl/delete_users.cgi

@@ -28,7 +28,8 @@ if ($in{'joingroup'}) {
 	foreach my $user (@d) {
 		my $uinfo = &get_user($user);
 		next if (!$uinfo);
-		next if (&indexof($user, @{$newgroup->{'members'}}) >= 0);
+		next if ($newgroup &&
+			 &indexof($user, @{$newgroup->{'members'}}) >= 0);
 
 		# Remove from old group, if any
 		my $oldgroup = &get_users_group($user);

acl/index.cgi

@@ -73,11 +73,9 @@ else {
 	# Show usernames and modules
 	print &ui_subheading($text{'index_users'});
 	my @rowlinks = ( );
-	if (!$config{'select'}) {
-		print &ui_form_start("delete_users.cgi", "post");
-		push(@rowlinks, &select_all_link("d", $form),
-			     &select_invert_link("d", $form));
-		}
+	print &ui_form_start("delete_users.cgi", "post");
+	push(@rowlinks, &select_all_link("d", $form),
+		     &select_invert_link("d", $form));
 	push(@rowlinks, ui_link("edit_user.cgi", $text{'index_create'}))
 		if ($access{'create'});
 	print &ui_links_row(\@rowlinks);
@@ -104,10 +102,8 @@ else {
 		}
 	print &ui_columns_end();
 	print &ui_links_row(\@rowlinks);
-	if (!$config{'select'}) {
-		print &ui_form_end([ [ "delete", $text{'index_delete'} ],
-				     @gbut ]);
-		}
+	print &ui_form_end([ [ "delete", $text{'index_delete'} ],
+			     @gbut ]);
 	$shown_users = 1;
 	$form++;
 	}
@@ -136,11 +132,9 @@ if ($access{'groups'}) {
 	else {
 		# Show table of groups
 		my @rowlinks = ( );
-		if (!$config{'select'}) {
-			print &ui_form_start("delete_groups.cgi", "post");
-			push(@rowlinks, &select_all_link("d", $form),
-				     &select_invert_link("d", $form));
-			}
+		print &ui_form_start("delete_groups.cgi", "post");
+		push(@rowlinks, &select_all_link("d", $form),
+			     &select_invert_link("d", $form));
 		push(@rowlinks,
 		     ui_link("edit_group.cgi", $text{'index_gcreate'}));
 		print &ui_links_row(\@rowlinks);
@@ -168,9 +162,7 @@ if ($access{'groups'}) {
 			}
 		print &ui_columns_end();
 		print &ui_links_row(\@rowlinks);
-		if (!$config{'select'}) {
-			print &ui_form_end([ [ "delete", $text{'index_delete'} ] ]);
-			}
+		print &ui_form_end([ [ "delete", $text{'index_delete'} ] ]);
 		$form++;
 		}
 	}
@@ -235,44 +227,22 @@ sub show_modules
 my ($type, $who, $mods, $global, $prefix) = @_;
 $mods ||= [ ];
 my $rv;
-if ($config{'select'}) {
-	# Show as drop-down menu
-	$rv .= &ui_form_start("edit_acl.cgi");
-	$rv .= $prefix."<br>\n" if ($prefix);
-	if (@$mods) {
-		$rv .= &ui_hidden($type, $who);
-		if ($access{'acl'}) {
-			$rv .= &ui_submit($text{'index_edit'});
+$rv .= $prefix."<br>\n" if ($prefix);
+my @grid;
+foreach my $m (sort { $modname{$a} cmp $modname{$b} } @$mods) {
+	if ($modname{$m}) {
+		if ($mcan{$m} && $access{'acl'}) {
+			push(@grid, ui_link("edit_acl.cgi?mod=" .
+			      &urlize($m)."&$type=".&urlize($who),
+			      $modname{$m}));
 			}
-		my @opts;
-		foreach my $m (sort { $modname{$a} cmp $modname{$b} } @$mods) {
-			if ($modname{$m}) {
-				push(@opts, [ $m, $modname{$m} ]);
-				}
-			}
-		$rv .= &ui_select("mod", undef, \@opts);
-		}
-	$rv .= &ui_form_end();
-	}
-else {
-	# Show as table
-	$rv .= $prefix."<br>\n" if ($prefix);
-	my @grid;
-	foreach my $m (sort { $modname{$a} cmp $modname{$b} } @$mods) {
-		if ($modname{$m}) {
-			if ($mcan{$m} && $access{'acl'}) {
-				push(@grid, ui_link("edit_acl.cgi?mod=" .
-				      &urlize($m)."&$type=".&urlize($who),
-				      $modname{$m}));
-				}
-			else {
-				push(@grid, $modname{$m});
-				}
+		else {
+			push(@grid, $modname{$m});
 			}
 		}
-	$rv .= &ui_grid_table(\@grid, 3, 100,
-		[ "width=33%", "width=33%", "width=33%" ]);
 	}
+$rv .= &ui_grid_table(\@grid, 3, 100,
+	[ "width=33%", "width=33%", "width=33%" ]);
 return $rv;
 }
 
@@ -298,7 +268,7 @@ sub user_link
 {
 my $lck = $_[0]->{'pass'} =~ /^\!/ ? 1 : 0;
 my $ro = $_[0]->{'readonly'};
-return ($config{'select'} ? "" : &ui_checkbox("d", $_[0]->{'name'}, "", 0)).
+return &ui_checkbox("d", $_[0]->{'name'}, "", 0).
        ($lck ? "<i>" : "").
        ($ro ? "<b>" : "").
        ui_link("$_[1]?$_[2]=".&urlize($_[0]->{'name'}),

acl/lang/ca

@@ -146,6 +146,7 @@ delete_err=No s'ha pogut suprimir l'usuari
 delete_eself=No et pots esborrar a tu mateix
 delete_ecannot=No tens permís per suprimir usuaris
 delete_euser=No tens permís per suprimir aquest usuari
+delete_eanonuser=Aquest usuari s'està utilitzant per a l'accés del mòdul anònim
 
 cert_title=Petició de Certificat
 cert_issue=Emissió de Certificat
@@ -337,12 +338,20 @@ unix_header=Par
 unix_utable=Usuaris Unix permesos
 
 sessions_title=Sessions d'Entrada Actuals
-sessions_desc=Les sessions d'entrada actuals de Webmin es llisten a sota. Per cancel·lar una sessió existent i forçar l'usuari a tornar a entrar, fes clic sobre l'ID de la sessió.
 sessions_id=ID de sessió
 sessions_user=Usuari Webmin
 sessions_login=Ha entrat a
 sessions_host=Adreça IP
 sessions_lview=Visualitza els registres...
+sessions_actions=Accions...
+sessions_logouts=Mostra també les sessións desconnectades...
+sessions_state=Estat
+sessions_this=Aquesta entrada
+sessions_in=Connectat
+sessions_out=Desconnectat
+sessions_kill=Desconnecta...
+
+logins_title=Entrades recents a Webmin
 
 hide_title=Amaga els Mòduls No Utilitzats
 hide_desc=Els mòduls següents es trauran de la llista d'accés de mòduls de $1, ja que els seus corresponents servidors no estan instal·lats al sistema...

acl/lang/de

@@ -59,7 +59,7 @@ cert_header=Details des neuen Zertifikats
 cert_install=Installiere Ihr Zertifikat in den Browser
 cert_issue=Zertifikat ausstellen
 cert_key=Schlüsselgröße
-cert_msg=Hier können Sie ein SSL-Client-Zertifikat zu beantragen, das Ihnen in Zukunft ohne Eingabe von Benutzername und Kennwort einen sicheren Zugriff auf Webmin gestattet. Da jedoch diese Authentifizierung automatisch geschieht ist es nicht möglich zu einem anderen Benutzer zu wechseln.
+cert_msg=Hier können Sie ein SSL-Client-Zertifikat zu beantragen, das Ihnen in Zukunft ohne Eingabe von Benutzername und Kennwort einen sicheren Zugriff auf Webmin gestattet. Da jedoch diese Authentifizierung automatisch geschieht, ist es nicht möglich zu einem anderen Benutzer zu wechseln.
 cert_o=Organisation
 cert_ou=Abteilung
 cert_pickup=<a href='$1'>Klicken Sie hier, um Ihr Zertifikat aufzunehmen und es in Ihrem Browser zu installieren.</a>
@@ -137,7 +137,7 @@ edit_minsize=Minimale Passwortl&#228;nge
 edit_mods=Verf&#252;gbare Webminmodule
 edit_modsg=Verf&#252;gbare Webminmodule (zus&#228;tzlich zu Modulen der Gruppe)
 edit_modules=Module
-edit_nochange=Forciere Passwort&#228;nderungstage
+edit_nochange=Forciere Passwort&#228;nderungstage?
 edit_none=Keine
 edit_notabs=Module in Kategorien aufteilen?
 edit_overlay=Personal theme overlay
@@ -156,7 +156,7 @@ edit_proto_postgresql=PostgreSQL Datenbank
 edit_rbacdeny=RBAC-Zugriffsmodus
 edit_rbacdeny0=RBAC kontrolliert nur ausgew&#228;hlte Modul-ACLs
 edit_rbacdeny1=RBAC kontrolliert alle Module und ACLs
-edit_readonly=Dieser Webminbenutzer sollte &#252;ber das $1 Modul bearbeitet werden. <a href='$2'>Klicken Sie hier</a>, um diese Warnung zu &#252;bergehen und um den Benutzer dennoch zu bearbeiten. Es kann jedoch sein, da&#223; hier vorgenommene &#196;nderungen durch das $1 Modul &#252;berschrieben werden.
+edit_readonly=Dieser Webminbenutzer sollte &#252;ber das $1 Modul bearbeitet werden. <a href='$2'>Klicken Sie hier</a>, um diese Warnung zu &#252;bergehen und um den Benutzer dennoch zu bearbeiten. Es kann jedoch sein, dass hier vorgenommene &#196;nderungen durch das $1 Modul &#252;berschrieben werden!
 edit_real=Echter Name
 edit_return=Webminbenutzer
 edit_return2=Webmingruppe
@@ -188,7 +188,7 @@ edit_twofactorprov=Benutze Provider $1 mit ID $2
 edit_ui=Optionen des Benutzerinterfaces
 edit_unix=Unix-Authentifizierung
 edit_user=Benutzername
-gdelete_desc=Sind Sie sicher, da&#223; Sie die Gruppe $1 und Benutzer $2 l&#246;schen wollen?
+gdelete_desc=Sind Sie sicher, dass Sie die Gruppe $1 und Benutzer $2 l&#246;schen wollen?
 gdelete_ecannot=Sie sind nicht berechtigt Gruppen zu l&#246;schen
 gdelete_err=Fehler beim L&#246;schen einer Gruppe
 gdelete_esub=Gruppen, die Untergruppen enthalten, k&#246;nnen nicht gel&#246;scht werden
@@ -197,7 +197,7 @@ gdelete_ok=Gruppe l&#246;schen
 gdelete_title=Gruppe l&#246;schen
 gdeletes_err=Konnte Gruppen nicht l&#246;schen
 gdeletes_ok=Gruppe l&#246;schen
-gdeletes_rusure=Sind Sie sicher, da&#223; Sie die $1 ausgew&#228;hlten Gruppen, inklusive der darin enthaltenen $2 Benutzer, l&#246;schen m&#246;chten? S&#228;mtliche Benutzer- und zugeh&#246;rige Sicherheitseinstellungen gehen definitiv und nicht wiederherstellbar verloren.
+gdeletes_rusure=Sind Sie sicher, dass Sie die $1 ausgew&#228;hlten Gruppen, inklusive der darin enthaltenen $2 Benutzer, l&#246;schen m&#246;chten? S&#228;mtliche Benutzer- und zugeh&#246;rige Sicherheitseinstellungen gehen definitiv und nicht wiederherstellbar verloren.
 gdeletes_title=Gruppe l&#246;schen
 gdeletes_users=Ausgew&#228;hlte Gruppen: $1
 gedit_desc=Gruppenbeschreibung
@@ -216,7 +216,7 @@ gsave_enamewebmin=Der Gruppenname 'webmin' ist f&#252;r interne Zwecke reservier
 gsave_err=Fehler beim Speichern der Gruppe
 hide_clone=(Klone $1)
 hide_desc=Das folgende Modul wird von der Zugriffskontrollliste f&#252;r $1 entfernt, da die entsprechenden Server nicht auf Ihrem System installiert sind.
-hide_desc2=Bedenken Sie, da&#223; dieses Modul nicht automatisch sichtbar wird, wenn der entsprechende Server nachtr&#228;glich installiert wird. Sie m&#252;ssen den Zugriff &#252;ber dieses Modul erneut einrichten.
+hide_desc2=Bedenken Sie, dass dieses Modul nicht automatisch sichtbar wird, wenn der entsprechende Server nachtr&#228;glich installiert wird. Sie m&#252;ssen den Zugriff &#252;ber dieses Modul erneut einrichten.
 hide_none=Nichts zu verbergen - $1 hat keinen Zugriff zu irgendeinem Modul dessen entsprechender Server nicht auf Ihrem System installiert ist.
 hide_ok=Verberge Module jetzt
 hide_title=Verberge nicht benutzte Module
@@ -431,7 +431,7 @@ udeletes_ereadonly=Einer der ausgew&#228;hlten Benutzer ist als nicht bearbeitba
 udeletes_err=Konnte Benutzer nicht l&#246;schen
 udeletes_jerr=Fehler beim Nutzer zu Gruppe hinzuf&#252;gen
 udeletes_ok=Benutzer l&#246;schen
-udeletes_rusure=Sind Sie sicher, da&#223; Sie die $1 ausgew&#228;hlten Benutzer l&#246;schen m&#246;chten? S&#228;mtliche Benutzer- und zugeh&#246;rige Sicherheitseinstellungen gehen definitiv und nicht wiederherstellbar verloren.
+udeletes_rusure=Sind Sie sicher, dass Sie die $1 ausgew&#228;hlten Benutzer l&#246;schen m&#246;chten? S&#228;mtliche Benutzer- und zugeh&#246;rige Sicherheitseinstellungen gehen definitiv und nicht wiederherstellbar verloren.
 udeletes_title=Benutzer l&#246;schen
 udeletes_users=Ausgew&#228;hlte Benutzer: $1
 unix_all=Erlaube alle Unixbenutzer

acl/lang/no

@@ -271,6 +271,7 @@ log_switch=Byttet til Webmin bruker $1
 log_sync=Endret unix bruker-synkronisering
 log_twofactor=Meldte inn bruker $1 til to-faktor autentisering
 log_unix=Endret unix bruker-autentisering
+logins_title=Siste Webmin innlogginger
 make_done=.. ferdig
 make_err=Kunne ikke opprette bruker- og gruppe-tabeller
 make_exec=Utfører SQL $1 ..
@@ -343,11 +344,17 @@ save_euser=Du har ikke tilgang til å editere denne brukeren
 schema_desc=F&#248;r Webmin kan bruke en LDAP tjener for lagring av brukere og grupper m&#229; den konfigureres til &#229; bruke skjemaet nedenfor. Dette kan typeisk gj&#248;res ved &#229; lagre skjemadefinisjonen i tt>/etc/ldap/schema</tt> eller <tt>/etc/openldap/schema</tt> som <tt>webmin.schema</tt>, og s&#229; konfigurere tjeneren ti l&#229; laste den skjemafilen.
 schema_download=Last ned skjema-fil : <a href=$1>$1</a>
 schema_title=Last ned LDAP skjema
-sessions_desc=Aktuelle Webmin sesjon logins er listet under. For &#229; kansellere en eksisterende sesjon og tvinge brukeren til &#229; logge inn igjen, klikk p&#229; brukerens sesjon ID.
+sessions_actions=Handlinger..
 sessions_host=IP adresse
 sessions_id=Sessions ID
-sessions_login=Logget in p&#229;
+sessions_in=Innlogget
+sessions_kill=Koble fra..
+sessions_login=Innlogget
+sessions_logouts=Vis ogs&#229; utloggede sesjoner..
 sessions_lview=Se logger..
+sessions_out=Logget ut
+sessions_state=Tilstand
+sessions_this=Denne innloggingen
 sessions_title=Aktuell Login Session
 sessions_user=Webmin bruker
 sql_addto0=Legg til nye brukere i databasen valgt ovenfor

acl/list_sessions.cgi

@@ -31,7 +31,7 @@ print &ui_columns_start([ $text{'sessions_id'},
 			], 100);
 foreach my $k (sort { my @a = split(/\s+/, $sessiondb{$a});
 		      my @b = split(/\s+/, $sessiondb{$b}); $b[1] <=> $a[1] }
-		    keys %sessiondb) {
+		    (grep { $sessiondb{$_} } keys %sessiondb)) {
 	next if ($k =~ /^1111111/);
 	my ($user, $ltime, $lip) = split(/\s+/, $sessiondb{$k});
 	next if ($user =~ /^\!/ && !$in{'logouts'});

acl/module.info

@@ -41,3 +41,4 @@ desc_ms_MY=Pengguna Webmin
 longdesc_de=Erstellt Webmin-Benutzer und konfiguriert, auf welche Module und Funktionen diese berechtigt sind, zugreifen.
 longdesc_es=Crear usuarios de webmin y configurar a que modulos y caracteristicas pueden acceder.
 longdesc_pl=Twórz u¿ytkowników Webmina i kontroluj, które modu³y i funkcje s± dla nich dostêpne.
+longdesc_ca=Crea usuaris Webmin i configura quins mòduls i característiques tenen permès d'accedir.

acl/system_info.pl

@@ -16,6 +16,7 @@ my %miniserv;
 my @logins;
 foreach my $k (keys %sessiondb) {
 	next if ($k =~ /^1111111/);
+	next if (!$sessiondb{$k});
 	my ($user, $ltime, $lip) = split(/\s+/, $sessiondb{$k});
 	next if ($user ne $remote_user && $user ne "!".$remote_user);
 	push(@logins, [ $user, $ltime, $lip, $k ]);

adsl-client/module.info

@@ -25,3 +25,4 @@ desc_no=ADSL klient
 longdesc_ms_MY=Sediakan klien PPP dengan pakej RP-PPPoE.
 desc_ms_MY=Klien ADSL
 longdesc_pl=Konfigurowanie klienta PPTP z pakietem RP-PPPoE.
+longdesc_ca=Configura un client PPP amb el paquet RP-PPPoE.

ajaxterm/index.cgi

@@ -1,24 +1,31 @@
 #!/usr/local/bin/perl
 # Start the Ajaxterm webserver on a random port, then print an iframe for
 # a URL that proxies to it
+use strict;
+use warnings;
 
 BEGIN { push(@INC, ".."); };
 use WebminCore;
 use Socket;
+our(%text, %config, %gconfig);
+our $module_root_directory;
+our $module_name;
+
 &init_config();
 
 &ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1);
 
 # Check for python
-$python = &has_command("python");
+my $python = &has_command("python");
 if (!$python) {
 	&ui_print_endpage(&text('index_epython', "<tt>python</tt>"));
 	}
 
 # Pick a free port
+my %miniserv;
 &get_miniserv_config(\%miniserv);
-$port = $miniserv{'port'} + 1;
-$proto = getprotobyname('tcp');
+my $port = $miniserv{'port'} + 1;
+my $proto = getprotobyname('tcp');
 socket(TEST, PF_INET, SOCK_STREAM, $proto) ||
 	&error("Socket failed : $!");
 setsockopt(TEST, SOL_SOCKET, SO_REUSEADDR, pack("l", 1));
@@ -29,17 +36,17 @@ while(1) {
 close(TEST);
 
 # Run the Ajaxterm webserver
-$pid = fork();
+my $pid = fork();
 if (!$pid) {
 	chdir("$module_root_directory/ajaxterm");
-	$logfile = $ENV{'WEBMIN_VAR'}.'/ajaxterm.log';
-	untie(*STDIN); open(STDIN, "</dev/null");
-	untie(*STDOUT); open(STDOUT, ">$logfile");
-	untie(*STDERR); open(STDERR, ">$logfile");
-	$shell = &has_command("bash") ||
+	my $logfile = $ENV{'WEBMIN_VAR'}.'/ajaxterm.log';
+	untie(*STDIN); open(STDIN, "<", "/dev/null");
+	untie(*STDOUT); open(STDOUT, ">", $logfile);
+	untie(*STDERR); open(STDERR, ">", $logfile);
+	my $shell = &has_command("bash") ||
 		 &has_command("sh") || "/bin/sh";
-	@uinfo = getpwnam("root");
-	$home = $uinfo[7] || "/";
+	my @uinfo = getpwnam("root");
+	my $home = $uinfo[7] || "/";
 	$shell = "$shell -c ".quotemeta("cd '$home' ; exec $shell");
 	exec($python, "ajaxterm.py", "--port", $port, "--log",
 	     $config{'autologin'} ? ("--command", $shell) : ( ));
@@ -47,7 +54,9 @@ if (!$pid) {
 	}
 
 # Wait for it to come up
-$try = 0;
+my $try = 0;
+no strict "subs"; # TEST2 is weird. I dunno how to make it lexical without breaking.
+no warnings;
 while(1) {
 	my $err;
 	&open_socket("localhost", $port, TEST2, \$err);
@@ -59,6 +68,8 @@ while(1) {
 	sleep(1);
 	}
 close(TEST2);
+use strict "subs";
+use warnings;
 
 # Show the iframe
 print "<center>\n";
@@ -74,7 +85,7 @@ if (!fork()) {
 	untie(*STDIN); close(STDIN);
 	untie(*STDOUT); close(STDOUT);
 	untie(*STDERR); close(STDERR);
-	$statfile = "$ENV{'WEBMIN_VAR'}/ajaxterm/$port";
+	my $statfile = "$ENV{'WEBMIN_VAR'}/ajaxterm/$port";
 	while(1) {
 		my @st = stat($statfile);
 		if (@st && time() - $st[9] > $config{'timeout'}) {

ajaxterm/module.info

@@ -9,3 +9,4 @@ desc_hu=Shell hozz
 desc_ms_MY=Log masuk Teks
 longdesc_ms_MY=Akses shell pada sistem anda tanpa menggunakan klien SSH secara berasingan dengan menggunaka Ajaxterm
 longdesc_pl=Dostêp do pow³oki systemowej bez konieczno¶ci u¿ywania oddzielnego klienta SSH, u¿ywaj±c Ajaxterm
+longdesc_ca=Accedeix a la shell del sistema sense necessitat d'un client SSH separat utilitzant Ajaxterm

ajaxterm/proxy.cgi

@@ -1,5 +1,7 @@
 #!/usr/local/bin/perl
 # Proxy an Ajaxterm request to the real port
+use strict;
+use warnings;
 
 BEGIN { push(@INC, ".."); };
 use WebminCore;
@@ -11,29 +13,33 @@ use WebminCore;
 # Parse out port
 $ENV{'PATH_INFO'} =~ /^\/(\d+)(.*)$/ ||
 	&error("Missing or invalid PATH_INFO");
-$port = $1;
-$path = $2;
+my $port = $1;
+my $path = $2;
 $| = 1;
-$meth = $ENV{'REQUEST_METHOD'};
+my $meth = $ENV{'REQUEST_METHOD'};
 
 # Connect to the Ajaxterm server, send HTTP request
-$con = &make_http_connection("localhost", $port, 0, $meth, $path);
+my $con = &make_http_connection("localhost", $port, 0, $meth, $path);
 &error($con) if (!ref($con));
 &write_http_connection($con, "Host: localhost\r\n");
 &write_http_connection($con, "User-agent: Webmin\r\n");
-$cl = $ENV{'CONTENT_LENGTH'};
+my $cl = $ENV{'CONTENT_LENGTH'};
 &write_http_connection($con, "Content-length: $cl\r\n") if ($cl);
 &write_http_connection($con, "Content-type: $ENV{'CONTENT_TYPE'}\r\n")
         if ($ENV{'CONTENT_TYPE'});
 &write_http_connection($con, "\r\n");
+my $post;
 if ($cl) {
-        &read_fully(STDIN, \$post, $cl);
+        &read_fully(\*STDIN, \$post, $cl);
         &write_http_connection($con, $post);
         }
 
 # read back the headers
-$dummy = &read_http_connection($con);
+my $dummy = &read_http_connection($con);
+my %header;
+my $headers;
 while(1) {
+        my $headline;
         ($headline = &read_http_connection($con)) =~ s/\r|\n//g;
         last if (!$headline);
         $headline =~ /^(\S+):\s+(.*)$/ || &error("Bad header");
@@ -43,16 +49,17 @@ while(1) {
 print $headers,"\n";
 
 # read back contents
-while($buf = &read_http_connection($con, 1024)) {
+while(my $buf = &read_http_connection($con, 1024)) {
 	print $buf;
         }
 &close_http_connection($con);
 
 # Touch status file to indicate it is still running
-$statusdir = $ENV{'WEBMIN_VAR'}."/ajaxterm";
+my $statusdir = $ENV{'WEBMIN_VAR'}."/ajaxterm";
 if (!-d $statusdir) {
 	&make_dir($statusdir, 0700);
 	}
-&open_tempfile(TOUCH, ">$statusdir/$port", 0, 1);
-&close_tempfile(TOUCH);
+my $TOUCH;
+&open_tempfile($TOUCH, ">$statusdir/$port", 0, 1);
+&close_tempfile($TOUCH);
 

apache/allmanual_form.cgi

@@ -10,7 +10,7 @@ $access{'types'} eq '*' && $access{'virts'} eq '*' ||
 
 $conf = &get_config();
 @files = grep { -f $_ } &unique(map { $_->{'file'} } @$conf);
-$in{'file'} = $files[0] if (!$in{'file'});
+$in{'file'} = $files[0] if ($in{'file'} eq '');
 print "<form action=allmanual_form.cgi>\n";
 print "<input type=submit value='$text{'manual_file'}'>\n";
 print "<select name=file>\n";

apache/apache-lib.pl

@@ -676,8 +676,8 @@ elsif (!$olddir && $newdir) {
 # Update the line numbers and filenames in a list of directives
 sub recursive_set_lines_files
 {
-local ($dirs, $line, $file) = @_;
-foreach my $d (@$dirs) {
+my ($dirs, $line, $file) = @_;
+foreach my $dir (@$dirs) {
 	$dir->{'line'} = $line;
 	$dir->{'file'} = $file;
 	if ($dir->{'type'}) {
@@ -1393,7 +1393,7 @@ if ($httpd_modules{'core'} >= 1.301) {
 			}
 		}
 	local $out = &backquote_command("$cmd 2>&1");
-	if ($out && $out !~ /syntax\s+ok/i) {
+	if ($out && $out !~ /(syntax|Checking).*\s+ok/i) {
 		return $out;
 		}
 	}

apache/config.info.ca

@@ -20,7 +20,7 @@ httpd_version=Versi
 apachectl_path=Camí de l'ordre apachectl,3,Cap
 start_cmd=Ordre per iniciar Apache,3,Utilitza apachectl o inicia manualment
 stop_cmd=Ordre per aturar Apache,3,Utilitza apachectl o mata el procés
-,restart-Executa les ordres d'inici i aturada.
+apply_cmd=Ordre per aplicar la configuració,10,-Utilitza apachectl o senyal HUP,restart-Executa els ordres d'inici i aturada
 graceful_cmd=Ordre per rellegir la configuració,3,La mateixa que per aplicar-la
 httpd_conf=Camí de httpd.conf o apache2.conf,3,Automàtic
 srm_conf=Camí de srm.conf,3,Automàtic

apache/module.info

@@ -40,3 +40,4 @@ longdesc_ms_MY=Mengkonfigurasi hampir kesemua arahan Apache dan ciri-ciri yang a
 desc_ms_MY=Pelayan Web Apache
 longdesc_de=Konfiguriert fast alle Apache-Direktiven und Features.
 longdesc_pl=Konfiguracja niemal wszystkich opcji i dyrektyw Apache.
+longdesc_ca=Configura gairebé totes les directives  característiques d'Apache.

at/acl_security.pl

@@ -1,3 +1,6 @@
+use strict;
+use warnings;
+our (%text, %in);
 
 require 'at-lib.pl';
 

at/at-lib.pl

@@ -1,10 +1,14 @@
 # at-lib.pl
 # Functions for listing and creating at jobs
+use strict;
+use warnings;
+our (%text, %config); 
+our $remote_user;
 
 BEGIN { push(@INC, ".."); };
 use WebminCore;
 &init_config();
-%access = &get_module_acl();
+our %access = &get_module_acl();
 
 do "$config{'at_style'}-lib.pl";
 
@@ -13,9 +17,9 @@ do "$config{'at_style'}-lib.pl";
 # the given width
 sub wrap_lines
 {
-local @rv;
-local $w = $_[1];
-foreach $rest (split(/\n/, $_[0])) {
+my @rv;
+my $w = $_[1];
+foreach my $rest (split(/\n/, $_[0])) {
 	if ($rest =~ /\S/) {
 		while(length($rest) > $w) {
 			push(@rv, substr($rest, 0, $w));
@@ -34,7 +38,7 @@ return @rv;
 # can_edit_user(&access, user)
 sub can_edit_user
 {
-local %umap;
+my %umap;
 map { $umap{$_}++; } split(/\s+/, $_[0]->{'users'});
 if ($_[0]->{'mode'} == 1 && !$umap{$_[1]} ||
     $_[0]->{'mode'} == 2 && $umap{$_[1]}) { return 0; }
@@ -50,13 +54,16 @@ else {
 # Returns a list of all users in the cron allow file
 sub list_allowed
 {
-local(@rv, $_);
+local $_;
+my @rv;
+no strict "subs";
 &open_readfile(ALLOW, $config{allow_file});
 while(<ALLOW>) {
 	next if (/^\s*#/);
 	chop; push(@rv, $_) if (/\S/);
 	}
 close(ALLOW);
+use strict "subs";
 return @rv;
 }
 
@@ -65,13 +72,16 @@ return @rv;
 # Return a list of users from the cron deny file
 sub list_denied
 {
-local(@rv, $_);
+local $_;
+my @rv;
+no strict "subs";
 &open_readfile(DENY, $config{deny_file});
 while(<DENY>) {
 	next if (/^\s*#/);
 	chop; push(@rv, $_) if (/\S/);
 	}
 close(DENY);
+use strict "subs";
 return @rv;
 }
 
@@ -83,11 +93,13 @@ sub save_allowed
 &lock_file($config{allow_file});
 if (@_) {
 	local($_);
+	no strict "subs";
 	&open_tempfile(ALLOW, ">$config{allow_file}");
 	foreach my $u (@_) {
 		&print_tempfile(ALLOW, $u,"\n");
 		}
 	&close_tempfile(ALLOW);
+	use strict "subs";
 	chmod(0444, $config{allow_file});
 	}
 else {
@@ -103,11 +115,13 @@ sub save_denied
 {
 &lock_file($config{deny_file});
 if (@_ || !-r $config{'allow_file'}) {
+	no strict "subs";
 	&open_tempfile(DENY, ">$config{deny_file}");
 	foreach my $u (@_) {
 		&print_tempfile(DENY, $u,"\n");
 		}
 	&close_tempfile(DENY);
+	use strict "subs";
 	chmod(0444, $config{deny_file});
 	}
 else {
@@ -121,7 +135,8 @@ else {
 # any deny files.
 sub can_use_at
 {
-local ($user) = @_;
+my ($user) = @_;
+my (@allow, @deny, @denied);
 if (!$config{'allow_file'}) {
 	return 1;	# not supported by OS
 	}

at/backup_config.pl

@@ -1,3 +1,6 @@
+use strict;
+use warnings;
+our %config;
 
 do 'at-lib.pl';
 
@@ -5,9 +8,9 @@ do 'at-lib.pl';
 # Returns files and directories that can be backed up
 sub backup_config_files
 {
-local @rv;
-opendir(DIR, $config{'at_dir'});
-while($f = readdir(DIR)) {
+my @rv;
+opendir(my $DIR, $config{'at_dir'});
+while(my $f = readdir($DIR)) {
 	next if ($f eq "." || $f eq ".." || $f eq ".SEQ");
 	if (!-d "$config{'at_dir'}/$f") {
 		push(@rv, "$config{'at_dir'}/$f");

at/cgi_args.pl

@@ -1,3 +1,6 @@
+use strict;
+use warnings;
+our %access;
 
 do 'at-lib.pl';
 

at/create_job.cgi

@@ -1,6 +1,9 @@
 #!/usr/local/bin/perl
 # create_job.cgi
 # Create a new at job
+use strict;
+use warnings;
+our (%access, %text, %in);
 
 require './at-lib.pl';
 use Time::Local;
@@ -14,6 +17,7 @@ defined(getpwnam($in{'user'})) || &error($text{'create_euser'});
 $in{'hour'} =~ /^\d+$/ && $in{'min'} =~ /^\d+$/ &&
 	$in{'day'} =~ /^\d+$/ && $in{'year'} =~ /^\d+$/ ||
 		&error($text{'create_edate'});
+my $date;
 eval { $date = timelocal(0, $in{'min'}, $in{'hour'},
 		         $in{'day'}, $in{'month'}, $in{'year'}-1900) };
 $@ && &error($text{'create_edate'});

at/delete_job.cgi

@@ -1,12 +1,15 @@
 #!/usr/local/bin/perl
 # Delete or run an at job
+use strict;
+use warnings;
+our (%text, %in); 
 
 require './at-lib.pl';
 &ReadParse();
 &foreign_require("proc", "proc-lib.pl");
 
-@jobs = &list_atjobs();
-($job) = grep { $_->{'id'} eq $in{'id'} } @jobs;
+my @jobs = &list_atjobs();
+my ($job) = grep { $_->{'id'} eq $in{'id'} } @jobs;
 $job || &error($text{'delete_egone'});
 
 if ($in{'run'}) {
@@ -14,19 +17,20 @@ if ($in{'run'}) {
 	&ui_print_header(undef, $text{'run_title'}, "");
 
 	# Create temp script for job
-	$temp = &transname();
-	&open_tempfile(TEMP, ">$temp");
-	&print_tempfile(TEMP, $job->{'cmd'});
-	&close_tempfile(TEMP);
+	my $temp = &transname();
+	my $TEMP;
+	&open_tempfile($TEMP, ">$temp");
+	&print_tempfile($TEMP, $job->{'cmd'});
+	&close_tempfile($TEMP);
 	chmod(0755, $temp);
 
 	print "<p>\n";
 	print &text('run_output'),"<p>\n";
-	@uinfo = getpwnam($job->{'user'});
+	my @uinfo = getpwnam($job->{'user'});
 	print "<pre>";
 	&additional_log('exec', undef, $job->{'cmd'});
-	$got = &proc::safe_process_exec($temp, $uinfo[2], $uinfo[3],
-					STDOUT, undef, 1);
+	my $got = &proc::safe_process_exec($temp, $uinfo[2], $uinfo[3],
+					*STDOUT, undef, 1);
 	if (!$got) { print "<i>$text{'run_none'}</i>\n"; }
 	unlink($temp);
 	print "</pre>\n";
@@ -37,7 +41,7 @@ if ($in{'run'}) {
 else {
 	# Just delete the at job
 	&error_setup($text{'delete_err'});
-	%access = &get_module_acl();
+	my %access = &get_module_acl();
 	&can_edit_user(\%access, $job->{'user'}) || &error($text{'edit_ecannot'});
 	&delete_atjob($in{'id'});
 	&webmin_log("delete", "job", $job->{'user'}, $job);

at/delete_jobs.cgi

@@ -1,16 +1,19 @@
 #!/usr/local/bin/perl
 # Delete multiple at jobs
+use strict;
+use warnings;
+our(%access, %text, %in);
 
 require './at-lib.pl';
 &ReadParse();
 &error_setup($text{'deletes_err'});
-@d = split(/\0/, $in{'d'});
+my @d = split(/\0/, $in{'d'});
 @d || &error($text{'deletes_enone'});
 
 # Delete each one
-@jobs = &list_atjobs();
-foreach $d (@d) {
-	($job) = grep { $_->{'id'} eq $d } @jobs;
+my @jobs = &list_atjobs();
+foreach my $d (@d) {
+	my ($job) = grep { $_->{'id'} eq $d } @jobs;
 	$job || &error($text{'delete_egone'});
 	&can_edit_user(\%access, $job->{'user'}) ||
 		&error($text{'edit_ecannot'});

at/edit_job.cgi

@@ -1,11 +1,14 @@
 #!/usr/local/bin/perl
 # edit_job.cgi
 # Display a command for deletion
+use strict;
+use warnings;
+our (%access, %text, %in);
 
 require './at-lib.pl';
 &ReadParse();
-@jobs = &list_atjobs();
-($job) = grep { $_->{'id'} eq $in{'id'} } @jobs;
+my @jobs = &list_atjobs();
+my ($job) = grep { $_->{'id'} eq $in{'id'} } @jobs;
 $job || &error($text{'edit_ejob'});
 &can_edit_user(\%access, $job->{'user'}) || &error($text{'edit_ecannot'});
 
@@ -16,7 +19,7 @@ print &ui_hidden("id", $in{'id'});
 print &ui_table_start($text{'edit_header'}, "width=100%", 4);
 
 # Run as user
-@uinfo = getpwnam($job->{'user'});
+my @uinfo = getpwnam($job->{'user'});
 $uinfo[6] =~ s/,.*$//g;
 print &ui_table_row($text{'index_user'},
 	&html_escape($job->{'user'}).

at/freebsd-lib.pl

@@ -1,47 +1,52 @@
 # freebsd-lib.pl
+use strict;
+use warnings;
+our (%config);
 
 sub list_atjobs
 {
-local @rv;
-opendir(DIR, $config{'at_dir'});
-while($f = readdir(DIR)) {
-	local $p = "$config{'at_dir'}/$f";
+my @rv;
+opendir(my $DIR, $config{'at_dir'});
+while(my $f = readdir($DIR)) {
+	my $p = "$config{'at_dir'}/$f";
 	if ($f =~ /^c(\S{5})(\S+)$/) {
-		local @st = stat($p);
-		local $job = { 'id' => hex($1),
+		my @st = stat($p);
+		my $job = { 'id' => hex($1),
 			       'date' => hex($2) * 60,
 			       'user' => scalar(getpwuid($st[4])),
 			       'created' => $st[9] };
-		open(FILE, $p);
-		while(<FILE>) {
+		open(my $FILE, $p);
+		while(<$FILE>) {
 			$job->{'cmd'} .= $_;
 			}
-		close(FILE);
+		close($FILE);
 		$job->{'realcmd'} = $job->{'cmd'};
 		$job->{'realcmd'} =~ s/^[\000-\177]+cd\s+(\S+)\s+\|\|\s+{\n.*\n.*\n.*\n//;
 		push(@rv, $job);
 		}
 	}
-closedir(DIR);
+closedir($DIR);
 return @rv;
 }
 
 # create_atjob(user, time, commands, directory, send-mail)
 sub create_atjob
 {
-local @tm = localtime($_[1]);
-local $date = sprintf "%2.2d:%2.2d %d.%d.%d",
+my @tm = localtime($_[1]);
+my $date = sprintf "%2.2d:%2.2d %d.%d.%d",
 		$tm[2], $tm[1], $tm[3], $tm[4]+1, $tm[5]+1900;
-local $mailflag = $_[4] ? "-m" : "";
-local $cmd = "cd ".quotemeta($_[3])." ; at $mailflag $date";
-local @uinfo = getpwnam($_[0]);
+my $mailflag = $_[4] ? "-m" : "";
+my $cmd = "cd ".quotemeta($_[3])." ; at $mailflag $date";
+my @uinfo = getpwnam($_[0]);
 if ($uinfo[2] != $<) {
 	# Only SU if we are not already the user
 	$cmd = &command_as_user($_[0], 0, $cmd);
 	}
+no strict "subs";
 &open_execute_command(AT, "$cmd >/dev/null 2>&1", 0); 
 print AT $_[2];
 close(AT);
+use strict "subs";
 &additional_log('exec', undef, "su \"$_[0]\" -c \"cd $_[3] ; at $date\"");
 }
 

at/index.cgi

@@ -5,6 +5,10 @@
 # F&AS : default parameters can be set 
 #   ext_user : default user
 #   ext_cmd  : default command
+use strict;
+use warnings;
+our (%access, %text, %in, %config);
+our ($module_name, $remote_user);
 
 require './at-lib.pl';
 use POSIX;
@@ -18,13 +22,13 @@ if (!&has_command("at")) {
 	}
 
 # Show list of existing jobs
-@jobs = &list_atjobs();
+my @jobs = &list_atjobs();
 @jobs = grep { &can_edit_user(\%access, $_->{'user'}) } @jobs;
 if (@jobs) {
 	print &ui_form_start("delete_jobs.cgi", "post");
 	@jobs = sort { $a->{'id'} <=> $b->{'id'} } @jobs;
-	@tds = ( "width=5", "nowrap" );
-	@links = ( &select_all_link("d"), &select_invert_link("d") );
+	my @tds = ( "width=5", "nowrap" );
+	my @links = ( &select_all_link("d"), &select_invert_link("d") );
 	print &ui_links_row(\@links);
 	print &ui_columns_start([
 		"",
@@ -33,13 +37,13 @@ if (@jobs) {
 		$text{'index_exec'},
 		$text{'index_created'},
 		$text{'index_cmd'} ], 100, 0, \@tds);
-	foreach $j (@jobs) {
-		local @cols;
+	foreach my $j (@jobs) {
+		my @cols;
 		push(@cols, &ui_link("edit_job.cgi?id=".$j->{'id'}, $j->{'id'}) );
 		push(@cols, &html_escape($j->{'user'}));
-		$date = localtime($j->{'date'});
+		my $date = localtime($j->{'date'});
 		push(@cols, "<tt>$date</tt>");
-		$created = localtime($j->{'created'});
+		my $created = localtime($j->{'created'});
 		push(@cols, "<tt>$created</tt>");
 		push(@cols, join("<br>", split(/\n/,
 				&html_escape($j->{'realcmd'}))));
@@ -57,7 +61,8 @@ print &ui_form_start("create_job.cgi");
 print &ui_table_start($text{'index_header'}, undef, 2);
 
 # User to run as
-$dir = "/";
+my $dir = "/";
+my ($user, $usel);
 if ($access{'mode'} == 1) {
 	$usel = &ui_select("user", undef,
 			   [ split(/\s+/, $access{'users'}) ]);
@@ -65,7 +70,7 @@ if ($access{'mode'} == 1) {
 elsif ($access{'mode'} == 3) {
 	$usel = "<tt>$remote_user</tt>";
 	print &ui_hidden("user", $remote_user);
-	@uinfo = getpwnam($remote_user);
+	my @uinfo = getpwnam($remote_user);
 	$dir = $uinfo[7];
 	}
 else {
@@ -74,7 +79,7 @@ else {
 print &ui_table_row($text{'index_user'}, $usel, undef, ["valign=middle","valign=middle"]);
 
 # Run date
-@now = localtime(time());
+my @now = localtime(time());
 print &ui_table_row($text{'index_date'},
 	&ui_textbox("day", $now[3], 2)."/".
 	&ui_select("month", $now[4],
@@ -87,7 +92,7 @@ print &ui_table_row($text{'index_time'},
 	&ui_textbox("hour", undef, 2).":".&ui_textbox("min", "00", 2), undef, ["valign=middle","valign=middle"]);
 
 # Current date and time
-($date, $time) = split(/\s+/, &make_date(time()));
+my ($date, $time) = split(/\s+/, &make_date(time()));
 print &ui_table_row($text{'index_cdate'}, $date, undef, ["valign=middle","valign=middle"]);
 print &ui_table_row($text{'index_ctime'}, $time, undef, ["valign=middle","valign=middle"]);
 
@@ -108,8 +113,8 @@ print &ui_form_end([ [ undef, $text{'create'} ] ]);
 
 if ($access{'allow'} && $config{'allow_file'}) {
 	# Show form to manage allowed and denied users
-	@allow = &list_allowed();
-	@deny = &list_denied();
+	my @allow = &list_allowed();
+	my @deny = &list_denied();
 	print &ui_hr();
 	print &ui_form_start("save_allow.cgi", "post");
 	print &ui_table_start($text{'index_allow'}, undef, 2);

at/install_check.pl

@@ -1,4 +1,6 @@
 # install_check.pl
+use strict;
+use warnings;
 
 do 'at-lib.pl';
 

at/linux-lib.pl

@@ -1,48 +1,53 @@
 # linux-lib.pl
+use strict;
+use warnings;
+our (%config);
 
 sub list_atjobs
 {
-local @rv;
-opendir(DIR, $config{'at_dir'});
-while($f = readdir(DIR)) {
-	local $p = "$config{'at_dir'}/$f";
+my @rv;
+opendir(my $DIR, $config{'at_dir'});
+while(my $f = readdir($DIR)) {
+	my $p = "$config{'at_dir'}/$f";
 	if ($f =~ /^a(\S{5})(\S+)$/) {
-		local @st = stat($p);
-		local $job = { 'id' => hex($1),
+		my @st = stat($p);
+		my $job = { 'id' => hex($1),
 			       'date' => hex($2) * 60,
 			       'user' => scalar(getpwuid($st[4])),
 			       'created' => $st[9] };
-		open(FILE, $p);
-		while(<FILE>) {
+		open(my $FILE, "<", $p);
+		while(<$FILE>) {
 			$job->{'cmd'} .= $_;
 			}
-		close(FILE);
+		close($FILE);
 		$job->{'realcmd'} = $job->{'cmd'};
 		$job->{'realcmd'} =~ s/^[\000-\177]+cd\s+(\S+)\s+\|\|\s+{\n.*\n.*\n.*\n//;
 		$job->{'realcmd'} =~ s/\$\{SHELL:.*\n\n?//;
 		push(@rv, $job);
 		}
 	}
-closedir(DIR);
+closedir($DIR);
 return @rv;
 }
 
 # create_atjob(user, time, commands, directory, send-email)
 sub create_atjob
 {
-local @tm = localtime($_[1]);
-local $date = sprintf "%2.2d:%2.2d %d.%d.%d",
+my @tm = localtime($_[1]);
+my $date = sprintf "%2.2d:%2.2d %d.%d.%d",
 		$tm[2], $tm[1], $tm[3], $tm[4]+1, $tm[5]+1900;
-local $mailflag = $_[4] ? "-m" : "";
-local $cmd = "cd ".quotemeta($_[3])." ; at $mailflag $date";
-local @uinfo = getpwnam($_[0]);
+my $mailflag = $_[4] ? "-m" : "";
+my $cmd = "cd ".quotemeta($_[3])." ; at $mailflag $date";
+my @uinfo = getpwnam($_[0]);
 if ($uinfo[2] != $<) {
 	# Only SU if we are not already the user
 	$cmd = &command_as_user($_[0], 0, $cmd);
 	}
+no strict "subs";
 &open_execute_command(AT, "$cmd >/dev/null 2>&1", 0);
 print AT $_[2];
 close(AT);
+use strict "subs";
 &additional_log('exec', undef, $cmd);
 }
 

at/log_parser.pl

@@ -1,5 +1,8 @@
 # log_parser.pl
 # Functions for parsing this module's logs
+use strict;
+use warnings;
+our %text;
 
 do 'at-lib.pl';
 
@@ -7,7 +10,7 @@ do 'at-lib.pl';
 # Converts logged information from this module into human-readable form
 sub parse_webmin_log
 {
-local ($user, $script, $action, $type, $object, $p, $long) = @_;
+my ($user, $script, $action, $type, $object, $p, $long) = @_;
 if ($type eq "job") {
 	return &text('log_'.$action.'_job',
 		     "<tt>".&html_escape($object)."</tt>");

at/macos-lib.pl

@@ -1,41 +1,46 @@
 # macos-lib.pl
+use strict;
+use warnings;
+our %config;
 
 sub list_atjobs
 {
-local @rv;
-opendir(DIR, $config{'at_dir'});
-while($f = readdir(DIR)) {
-	local $p = "$config{'at_dir'}/$f";
+my @rv;
+opendir(my $DIR, $config{'at_dir'});
+while(my $f = readdir($DIR)) {
+	my $p = "$config{'at_dir'}/$f";
 	if ($f =~ /^a(\S+)\.(\d+)$/) {
-		local @st = stat($p);
-		local $job = { 'id' => $f,
+		my @st = stat($p);
+		my $job = { 'id' => $f,
 			       'date' => hex($1)*60,
 			       'user' => scalar(getpwuid($st[4])),
 			       'created' => $st[9] };
-		open(FILE, $p);
-		while(<FILE>) {
+		open(my $FILE, "<", $p);
+		while(<$FILE>) {
 			$job->{'cmd'} .= $_;
 			}
-		close(FILE);
+		close($FILE);
 		$job->{'realcmd'} = $job->{'cmd'};
 		$job->{'realcmd'} =~ s/^[\000-\177]+cd\s+(\S+)\n//;
 		push(@rv, $job);
 		}
 	}
-closedir(DIR);
+closedir($DIR);
 return @rv;
 }
 
 # create_atjob(user, time, commands, directory, send-email)
 sub create_atjob
 {
-local @tm = localtime($_[1]);
-local $date = sprintf "%2.2d:%2.2d %d.%d.%d",
+my @tm = localtime($_[1]);
+my $date = sprintf "%2.2d:%2.2d %d.%d.%d",
 		$tm[2], $tm[1], $tm[3], $tm[4]+1, $tm[5]+1900;
-local $mailflag = $_[4] ? "-m" : "";
+my $mailflag = $_[4] ? "-m" : "";
+no strict "subs";
 &open_execute_command(AT, "su \"$_[0]\" -c \"cd $_[3] ; at $mailflag $date\" >/dev/null 2>&1", 0); 
 print AT $_[2];
 close(AT);
+use strict "subs";
 &additional_log('exec', undef, "su \"$_[0]\" -c \"cd $_[3] ; at $mailflag $date\"");
 }
 

at/module.info

@@ -31,3 +31,4 @@ desc_no=Tidsplanlagte kommandoer
 longdesc_ms_MY=Jadual pelaksanaan arahan one-off atau skrip.
 desc_ms_MY=Perintah Berjadual
 longdesc_pl=Harmonogram wykonywania poleceñ lub skryptów.
+longdesc_ca=Planifica l'execució d'una ordre o script.

at/save_allow.cgi

@@ -1,5 +1,8 @@
 #!/usr/local/bin/perl
 # Update allowed or denied At users
+use strict;
+use warnings;
+our (%access, %text, %in);
 
 require './at-lib.pl';
 ReadParse();
@@ -11,13 +14,13 @@ if ($in{'amode'} == 0) {
 	&save_denied();
 	}
 elsif ($in{'amode'} == 1) {
-	@users = split(/\s+/, $in{'ausers'});
+	my @users = split(/\s+/, $in{'ausers'});
 	@users || &error($text{'allow_eusers'});
 	&save_allowed(@users);
 	&save_denied();
 	}
 elsif ($in{'amode'} == 2) {
-	@users = split(/\s+/, $in{'ausers'});
+	my @users = split(/\s+/, $in{'ausers'});
 	@users || &error($text{'allow_eusers'});
 	&save_allowed();
 	&save_denied(@users);

at/solaris-lib.pl

@@ -1,49 +1,54 @@
 # solaris-lib.pl
+use strict;
+use warnings;
+our %config;
 
 use POSIX;
 
 sub list_atjobs
 {
-local @rv;
-opendir(DIR, $config{'at_dir'});
-while($f = readdir(DIR)) {
-	local $p = "$config{'at_dir'}/$f";
+my @rv;
+opendir(my $DIR, $config{'at_dir'});
+while(my $f = readdir($DIR)) {
+	my $p = "$config{'at_dir'}/$f";
 	if ($f =~ /^(\d+)\.a$/) {
-		local @st = stat($p);
-		local $job = { 'id' => $f,
+		my @st = stat($p);
+		my $job = { 'id' => $f,
 			       'date' => $1,
 			       'user' => scalar(getpwuid($st[4])),
 			       'created' => $st[9] };
-		open(FILE, $p);
-		while(<FILE>) {
+		open(my $FILE, "<", $p);
+		while(<$FILE>) {
 			$job->{'cmd'} .= $_;
 			}
-		close(FILE);
+		close($FILE);
 		$job->{'realcmd'} = $job->{'cmd'};
 		$job->{'realcmd'} =~ s/^[\000-\177]+#ident.*\ncd\s+\S+\numask\s+\S+\n//;
 		$job->{'realcmd'} =~ s/^ulimit\s+\S+\n//;
 		push(@rv, $job);
 		}
 	}
-closedir(DIR);
+closedir($DIR);
 return @rv;
 }
 
 # create_atjob(user, time, commands, directory, send-email)
 sub create_atjob
 {
-local @tm = localtime($_[1]);
-local $date = strftime "%H:%M %b %d", @tm;
-local $mailflag = $_[4] ? "-m" : "";
-local $cmd = "cd ".quotemeta($_[3])." ; at $mailflag $date";
-local @uinfo = getpwnam($_[0]);
+my @tm = localtime($_[1]);
+my $date = strftime "%H:%M %b %d", @tm;
+my $mailflag = $_[4] ? "-m" : "";
+my $cmd = "cd ".quotemeta($_[3])." ; at $mailflag $date";
+my @uinfo = getpwnam($_[0]);
 if ($uinfo[2] != $<) {
 	# Only SU if we are not already the user
 	$cmd = &command_as_user($_[0], 0, $cmd);
 	}
+no strict "subs";
 &open_execute_command(AT, "$cmd >/dev/null 2>&1", 0); 
 print AT $_[2];
 close(AT);
+use strict "subs";
 &additional_log('exec', undef, $cmd);
 }
 

backup-config/module.info

@@ -29,3 +29,4 @@ desc_no=Sikkerhetskopier konfig.filer
 longdesc_ms_MY=Lakukan salinan secara manual atau berjadual dan mengembalikan fail konfigurasi yang diuruskan oleh modul Webmin.
 desc_ms_MY=Backup Fail konfigurasi
 longdesc_pl=Rêczne lub zaplanowane tworzenie i przywracanie kopii zapasowych plików konfiguracyjnych modu³ów zarz±dzanych przez Webmina.
+longdesc_ca=Porta a terme còpies de seguretat i restauracions manuals o planificades dels fitxers de configuració gestionats pels mòduls de Webmin.

bacula-backup/bacula-backup-lib.pl

@@ -948,9 +948,11 @@ foreach my $l (split(/\r?\n/, $status)) {
 	elsif ($l =~ /^Running\s+Jobs/i) { $sect = 2; }
 	elsif ($l =~ /^Terminated\s+Jobs/i) { $sect = 3; }
 
-	if ($sect == 1 && $l =~ /^\s*(\S+)\s+(\S+)\s+(\d+)\s+(\S+\s+\S+(\s+\d+:\d+)?)\s+(\S+)\s+(\S+)\s*$/) {
+	if ($sect == 1 && $l =~ /^\s*(\S+)\s+(\S+)\s+(\d+)\s+(\S+\s+\S+(\s+\d+:\d+)?)\s+(\S+)\s+(\S+)?\s*$/) {
 		# Scheduled job, like 
 		# Full Backup 10 27-Jun-14 17:30 ykfdc1-BackupJob wkly_1736
+		# copy jobs do not have any destination tape (=> ? on the latest field)
+		# Full Backup 11 19-Aug-16 17:50 ykfdc1-Copyjob
 		push(@sched, { 'level' => &full_level("$1"),
 			       'type' => $2,
 			       'pri' => $3,

bacula-backup/module.info

@@ -13,3 +13,4 @@ longdesc_ms_MY=Konfigurasi Bacula untuk melaksanakan salinan dan mengembalikan s
 longdesc_de=Konfiguriert Bacula um Sicherungen zu erstellen und manuell oder nach Plan wiederherzustellen, für eine oder viele Systeme.
 longdesc_pl=Skonfiguruj Bacula do przeprowadzania kopii zapasowej i przywracania rêcznie lub wed³ug harmonogramu na jednym lub wielu systemach.
 desc_no=Bacula backupsystem
+longdesc_ca=Configura Bacula per portar a terme còpies de seguretat i restauracions manualment o de forma planificada, per a un o més sistemes.

bandwidth/bandwidth-lib.pl

@@ -330,6 +330,7 @@ return undef;
 sub process_firewall_line
 {
 local ($line, $hours, $time_now) = @_;
+my @time_now = localtime($time_now);
 if ($line =~ /^(\S+)\s+(\d+)\s+(\d+):(\d+):(\d+).*BANDWIDTH_(IN|OUT):(IN=.*)/) {
 	# Found a valid line
 	local ($mon, $day, $hr, $min, $sec) = ($1, $2, $3, $4, $5);

bandwidth/module.info

@@ -19,3 +19,4 @@ desc_no=Overvåking av båndbredde
 longdesc_ms_MY=Lihat laporan mengenai penggunaan jalur lebar oleh host, port, protokol dan masa pada sistem Linux.
 desc_ms_MY=Pemantauan jalur lebar
 longdesc_pl=Raporty na temat wykorzystania transferu przez host, port, protokó³ w okre¶lonym czasie.
+longdesc_ca=Visualitza els informes de l'ús d'amplada de banda per host, port, protocol i hores en un sistema Linux.

bind8/CHANGELOG

@@ -146,3 +146,5 @@ Added support for NSEC3PARAM records.
 Added support for editing DMARC records, which are specially encoded TXT records for defining the response to SPF and DKIM violations.
 ---- Changes since 1.770 ----
 Automatic creation and deletion of reverse records in partial delegation zones now works the same as in full reverse zones.
+---- Changes since 1.810 ----
+Added support for editing TLSA (SSL Certificate) records.

bind8/acl_security.pl

@@ -1,11 +1,15 @@
+use strict;
+use warnings;
 
 require 'bind8-lib.pl';
+# Globals from bind8-lib.pl
+our (%config, %text, %in);
 
 # acl_security_form(&options)
 # Output HTML for editing security options for the bind8 module
 sub acl_security_form
 {
-local $m = $_[0]->{'zones'} eq '*' ? 1 :
+my $m = $_[0]->{'zones'} eq '*' ? 1 :
 	   $_[0]->{'zones'} =~ /^\!/ ? 2 : 0;
 print "<tr> <td valign=top><b>$text{'acl_zones'}</b></td>\n";
 print "<td colspan=3><table cellpadding=0 cellspacing=0> <tr><td valign=top>\n";
@@ -17,24 +21,23 @@ printf "<input type=radio name=zones_def value=2 %s> %s</td>\n",
 	$m == 2 ? 'checked' : '', $text{'acl_znsel'};
 
 print "<td><select name=zones multiple size=4 width=150>\n";
-local $conf = &get_config();
-local @zones = grep { $_->{'value'} ne "." }
+my $conf = &get_config();
+my @zones = grep { $_->{'value'} ne "." }
 		    &find("zone", $conf);
-local @views = &find("view", $conf);
-local $v;
-foreach $v (@views) {
+my @views = &find("view", $conf);
+foreach my $v (@views) {
 	push(@zones, grep { $_->{'value'} ne "." }
 			  &find("zone", $v->{'members'}));
 	}
-local ($z, %zcan);
+my %zcan;
 map { $zcan{$_}++ } split(/\s+/, $_[0]->{'zones'});
-foreach $z (sort { $a->{'value'} cmp $b->{'value'} } @zones) {
+foreach my $z (sort { $a->{'value'} cmp $b->{'value'} } @zones) {
 	printf "<option value='%s' %s>%s</option>\n",
 		$z->{'value'},
 		$zcan{$z->{'value'}} ? "selected" : "",
 		&arpa_to_ip($z->{'value'});
 	}
-foreach $v (sort { $a->{'value'} cmp $b->{'value'} } @views) {
+foreach my $v (sort { $a->{'value'} cmp $b->{'value'} } @views) {
 	printf "<option value='%s' %s>%s</option>\n",
 		'view_'.$v->{'value'},
 		$zcan{'view_'.$v->{'value'}} ? "selected" : "",
@@ -49,12 +52,12 @@ if (@views) {
 			[ [ 1, $text{'acl_vall'} ],
 			  [ 0, $text{'acl_vsel'} ] ]),"<br>\n";
 	print "<select name=inviews multiple size=4 width=150>\n";
-	local ($v, %vcan);
+	my %vcan;
 	map { $vcan{$_}++ } split(/\s+/, $_[0]->{'inviews'});
 	printf "<option value='%s' %s>%s</option>\n",
 		"_", $vcan{"_"} ? "selected" : "",
 		"&lt;".$text{'acl_toplevel'}."&gt;";
-	foreach $v (sort { $a->{'value'} cmp $b->{'value'} } @views) {
+	foreach my $v (sort { $a->{'value'} cmp $b->{'value'} } @views) {
 		printf "<option value='%s' %s>%s</option>\n",
 			$v->{'value'},
 			$vcan{$v->{'value'}} ? "selected" : "", $v->{'value'};
@@ -83,7 +86,7 @@ printf "<input type=radio name=defaults value=0 %s> $text{'no'}</td> </tr>\n",
 	$_[0]->{'defaults'} ? "" : "checked";
 
 print "<tr> <td><b>$text{'acl_ztypes'}</b></td> <td colspan=3>\n";
-foreach $t ("master", "slave", "forward", "delegation") {
+foreach my $t ("master", "slave", "forward", "delegation") {
 	printf "<input type=checkbox name=%s %s> %s\n",
 		$t, $_[0]->{$t} ? "checked" : "", $text{'acl_ztypes_'.$t};
 	}
@@ -185,7 +188,7 @@ printf "<input type=radio name=views value=0 %s> $text{'no'}</td> </tr>\n",
 	$_[0]->{'views'} ? "" : "checked";
 
 if (@views) {
-	local $m = $_[0]->{'vlist'} eq '*' ? 1 :
+	my $m = $_[0]->{'vlist'} eq '*' ? 1 :
 		   $_[0]->{'vlist'} =~ /^\!/ ? 2 :
 		   $_[0]->{'vlist'} eq '' ? 3 : 0;
 	print "<tr> <td valign=top><b>$text{'acl_vlist'}</b></td>\n";
@@ -200,9 +203,9 @@ if (@views) {
 		$m == 3 ? 'checked' : '', $text{'acl_vnone'};
 
 	print "<td><select name=vlist multiple size=4 width=150>\n";
-	local ($v, %vcan);
+	my ($v, %vcan);
 	map { $vcan{$_}++ } split(/\s+/, $_[0]->{'vlist'});
-	foreach $v (sort { $a->{'value'} cmp $b->{'value'} } @views) {
+	foreach my $v (sort { $a->{'value'} cmp $b->{'value'} } @views) {
 		printf "<option value='%s' %s>%s</option>\n",
 			$v->{'value'},
 			$vcan{$v->{'value'}} ? "selected" : "", $v->{'value'};

bind8/backup_config.pl

@@ -1,31 +1,34 @@
+use strict;
+use warnings;
 
 do 'bind8-lib.pl';
+# Globals from bind8-lib.pl
+our (%config, %text, %in);
 
 # backup_config_files()
 # Returns files and directories that can be backed up
 sub backup_config_files
 {
-local @rv;
+my @rv;
 
 # Add main .conf files
-local $conf = &get_config();
+my $conf = &get_config();
 push(@rv, map { $_->{'file'} } @$conf);
 
 # Add all master and hint zone files
-local @views = &find("view", $conf);
-local ($v, @zones);
-foreach $v (@views) {
-	local @vz = &find("zone", $v->{'members'});
+my @views = &find("view", $conf);
+my @zones;
+foreach my $v (@views) {
+	my @vz = &find("zone", $v->{'members'});
 	push(@zones, @vz);
 	}
 push(@zones, &find("zone", $conf));
-local $z;
-foreach $z (@zones) {
-	local $tv = &find_value("type", $z->{'members'});
+foreach my $z (@zones) {
+	my $tv = &find_value("type", $z->{'members'});
 	next if ($tv ne "master" && $tv ne "hint");
-	local $file = &find_value("file", $z->{'members'});
+	my $file = &find_value("file", $z->{'members'});
 	next if (!$file);
-	local @recs = &read_zone_file($file, $z->{'value'});
+	my @recs = &read_zone_file($file, $z->{'value'});
 	push(@rv, map { $_->{'file'} } @recs);
 	}
 
@@ -58,7 +61,7 @@ return undef;
 sub post_restore
 {
 &flush_zone_names();
-local $pidfile = &get_pid_file();
+my $pidfile = &get_pid_file();
 if (&check_pid_file(&make_chroot($pidfile, 1))) {
 	return &restart_bind();
 	}

bind8/cgi_args.pl

@@ -1,5 +1,9 @@
+use strict;
+use warnings;
 
 do 'bind8-lib.pl';
+# Globals from bind8-lib.pl
+our (%config, %text, %in);
 
 sub cgi_args
 {

bind8/check_zone.cgi

@@ -1,18 +1,23 @@
 #!/usr/local/bin/perl
 # Check a zone's records and report problems
+use strict;
+use warnings;
 
 require './bind8-lib.pl';
+# Globals from bind8-lib.pl
+our (%access, %text, %in);
+
 &ReadParse();
 $access{'apply'} || &error($text{'check_ecannot'});
-$zone = &get_zone_name_or_error($in{'zone'}, $in{'view'});
+my $zone = &get_zone_name_or_error($in{'zone'}, $in{'view'});
 &can_edit_zone($zone) || &error($text{'master_ecannot'});
-$desc = &ip6int_to_net(&arpa_to_ip($dom));
+my $desc = &ip6int_to_net(&arpa_to_ip($zone->{'name'}));
 
 &ui_print_header($desc, $text{'check_title'}, "",
 		 undef, undef, undef, undef, &restart_links($zone));
 
-$file = &make_chroot($zone->{'file'});
-@errs = &check_zone_records($zone);
+my $file = &make_chroot($zone->{'file'});
+my @errs = &check_zone_records($zone);
 if (@errs) {
 	# Show list of errors
 	print "<b>",&text('check_errs', "<tt>$file</tt>"),"</b><p>\n";

bind8/close.cgi

@@ -1,9 +1,13 @@
 #!/usr/local/bin/perl
 # Remove some zone from the open list
+use strict;
+use warnings;
+# Globals
+our (%in);
 
 require './bind8-lib.pl';
 &ReadParse();
-@heiropen = &get_heiropen();
+my @heiropen = &get_heiropen();
 @heiropen = grep { $_ ne $in{'what'} } @heiropen;
 &save_heiropen(\@heiropen);
 &redirect("index.cgi#$in{'what'}");

bind8/conf_acls.cgi

@@ -1,21 +1,25 @@
 #!/usr/local/bin/perl
 # conf_acls.cgi
 # Display global ACLs
+use strict;
+use warnings;
+# Globals
+our (%text, %access);
 
 require './bind8-lib.pl';
 $access{'defaults'} || &error($text{'acls_ecannot'});
 &ui_print_header(undef, $text{'acls_title'}, "",
 		 undef, undef, undef, undef, &restart_links());
 
-$conf = &get_config();
-@acls = ( &find("acl", $conf), { } );
+my $conf = &get_config();
+my @acls = ( &find("acl", $conf), { } );
 
 print &ui_form_start("save_acls.cgi", "post");
 print &ui_columns_start([ $text{'acls_name'}, $text{'acls_values'} ]);
-for($i=0; $i<@acls; $i++) {
-	@cols = ( );
+for(my $i=0; $i<@acls; $i++) {
+	my @cols = ( );
 	push(@cols, &ui_textbox("name_$i", $acls[$i]->{'value'}, 15));
-	@vals = map { join(" ", $_->{'name'}, @{$_->{'values'}}) }
+	my @vals = map { join(" ", $_->{'name'}, @{$_->{'values'}}) }
 		    @{$acls[$i]->{'members'}};
 	push(@cols, &ui_textarea("values_$i", join("\n", @vals), 5, 60, "off"));
 	print &ui_columns_row(\@cols, [ "valign=top" ]);

bind8/conf_controls.cgi

@@ -1,25 +1,31 @@
 #!/usr/local/bin/perl
 # Display NDC control interface options
+use strict;
+use warnings;
+# Globals
+our (%text, %access); 
 
 require './bind8-lib.pl';
 $access{'defaults'} || &error($text{'controls_ecannot'});
 &ui_print_header(undef, $text{'controls_title'}, "",
 		 undef, undef, undef, undef, &restart_links());
 
-$conf = &get_config();
-$controls = &find("controls", $conf);
-$inet = &find("inet", $controls->{'members'});
-$unix = &find("unix", $controls->{'members'});
+my $conf = &get_config();
+my $controls = &find("controls", $conf);
+my $inet = &find("inet", $controls->{'members'});
+my $unix = &find("unix", $controls->{'members'});
 
 print &ui_form_start("save_controls.cgi", "post");
 print &ui_table_start($text{'controls_header'}, undef, 2);
 
 # Show options for inet control
+my $ip;
+my $port;
 if ($inet) {
-	@v = @{$inet->{'values'}};
+	my @v = @{$inet->{'values'}};
 	$ip = shift(@v);
 	while(@v) {
-		$n = shift(@v);
+		my $n = shift(@v);
 		if ($n eq "port") { $port = shift(@v); }
 		}
 	}
@@ -44,12 +50,13 @@ print &ui_table_row($text{'controls_keys'},
 
 print &ui_table_hr();
 
-# Show options for local socket control
+# Show options for local, socket control
+my ($path, $perm, $owner, $group);
 if ($unix) {
-	@v = @{$unix->{'values'}};
+	my @v = @{$unix->{'values'}};
 	$path = shift(@v);
 	while(@v) {
-		$n = shift(@v);
+		my $n = shift(@v);
 		if ($n eq "perm") { $perm = shift(@v); }
 		elsif ($n eq "owner") { $owner = getpwuid(shift(@v)); }
 		elsif ($n eq "group") { $group = getgrgid(shift(@v)); }

bind8/conf_dnssec.cgi

@@ -1,5 +1,9 @@
 #!/usr/local/bin/perl
 # Show a form to setup DNSSEC key rotation
+use strict;
+use warnings;
+# Globals
+our (%text, %access, %config);
 
 require './bind8-lib.pl';
 &ReadParse();
@@ -13,7 +17,7 @@ print &ui_form_start("save_dnssec.cgi", "post");
 print &ui_table_start($text{'dnssec_header'}, undef, 2);
 
 # Rotation enabled?
-$job = &get_dnssec_cron_job();
+my $job = &get_dnssec_cron_job();
 print &ui_table_row($text{'dnssec_enabled'},
 	&ui_yesno_radio("enabled", $job ? 1 : 0));
 

bind8/conf_dnssectools.cgi

@@ -1,18 +1,12 @@
 #!/usr/local/bin/perl
 # Show a form to setup DNSSEC-Tools parameters
+use strict;
+use warnings;
+# Globals
+our (%access, %text, %config);
 
 require './bind8-lib.pl';
 
-local $conf;
-local $emailaddrs;
-local $algorithm;
-local $ksklength;
-local $zsklength;
-local $usensec3;
-local $endtime;
-local $ksklife;
-local $zsklife;
-
 &ReadParse();
 $access{'defaults'} || &error($text{'dt_conf_ecannot'});
 &ui_print_header(undef, $text{'dt_conf_title'}, "",
@@ -20,51 +14,51 @@ $access{'defaults'} || &error($text{'dt_conf_ecannot'});
 
 print $text{'dt_conf_desc'},"<p>\n";
 
-$conf = get_dnssectools_config();
+my $conf = get_dnssectools_config();
 
 print &ui_form_start("save_dnssectools.cgi", "post");
 print &ui_table_start($text{'dt_conf_header'}, undef, 2);
 
-$emailaddrs = find_value("admin-email", $conf);
+my $emailaddrs = find_value("admin-email", $conf);
 print &ui_table_row($text{'dt_conf_email'},
 		ui_textbox("dt_email", $emailaddrs, 50));
 
 #algorithm; dt_alg
-$algorithm = find_value("algorithm", $conf);
+my $algorithm = find_value("algorithm", $conf);
 print &ui_table_row($text{'dt_conf_algorithm'},
 		ui_textbox("dt_alg", $algorithm, 50));
 
 #ksklength; dt_ksklen
-$ksklength = find_value("ksklength", $conf);
+my $ksklength = find_value("ksklength", $conf);
 print &ui_table_row($text{'dt_conf_ksklength'},
 		ui_textbox("dt_ksklen", $ksklength, 50));
 
 #zsklength; dt_zsklen
-$zsklength = find_value("zsklength", $conf);
+my $zsklength = find_value("zsklength", $conf);
 print &ui_table_row($text{'dt_conf_zsklength'},
 		ui_textbox("dt_zsklen", $zsklength, 50));
 
 #usensec3; dt_nsec3
-$usensec3 = find_value("usensec3", $conf);
+my $usensec3 = find_value("usensec3", $conf);
 print &ui_table_row($text{'dt_conf_nsec3'},
 		ui_textbox("dt_nsec3", $usensec3, 50));
 
 
 #endtime; dt_endtime
-$endtime = find_value("endtime", $conf);
+my $endtime = find_value("endtime", $conf);
 print &ui_table_row($text{'dt_conf_endtime'},
 		ui_textbox("dt_endtime", $endtime, 50));
 
 print &ui_table_hr();
 
 #ksklife; dt_ksklife
-$ksklife = find_value("ksklife", $conf);
+my $ksklife = find_value("ksklife", $conf);
 print &ui_table_row($text{'dt_conf_ksklife'},
 		ui_textbox("dt_ksklife", $ksklife, 50)." ".
 		$text{'dnssec_secs'});
 
 #zsklife; dt_zsklife
-$zsklife = find_value("zsklife", $conf);
+my $zsklife = find_value("zsklife", $conf);
 print &ui_table_row($text{'dt_conf_zsklife'},
 		ui_textbox("dt_zsklife", $zsklife, 50)." ".
 		$text{'dnssec_secs'});

bind8/conf_files.cgi

@@ -1,6 +1,10 @@
 #!/usr/local/bin/perl
 # conf_files.cgi
 # Display global files options
+use strict;
+use warnings;
+# Globals
+our (%access, %text);
 
 require './bind8-lib.pl';
 $access{'defaults'} || &error($text{'files_ecannot'});
@@ -8,9 +12,9 @@ $access{'defaults'} || &error($text{'files_ecannot'});
 		 undef, undef, undef, undef, &restart_links());
 
 &ReadParse();
-$conf = &get_config();
-$options = &find("options", $conf);
-$mems = $options->{'members'};
+my $conf = &get_config();
+my $options = &find("options", $conf);
+my $mems = $options->{'members'};
 
 # Start of the form
 print &ui_form_start("save_files.cgi", "post");
@@ -33,4 +37,3 @@ print &ui_form_end([ [ undef, $text{'save'} ] ]);
 
 &ui_print_footer("", $text{'index_return'});
 
-

bind8/conf_forwarding.cgi

@@ -1,15 +1,19 @@
 #!/usr/local/bin/perl
 # conf_forwarding.cgi
 # Display global forwarding and transfer options
+use strict;
+use warnings;
+# Globals
+our (%access, %text);
 
 require './bind8-lib.pl';
 $access{'defaults'} || &error($text{'forwarding_ecannot'});
 &ui_print_header(undef, $text{'forwarding_title'}, "",
 		 undef, undef, undef, undef, &restart_links());
 
-$conf = &get_config();
-$options = &find("options", $conf);
-$mems = $options->{'members'};
+my $conf = &get_config();
+my $options = &find("options", $conf);
+my $mems = $options->{'members'};
 
 # Start of the form
 print &ui_form_start("save_forwarding.cgi", "post");

bind8/conf_keys.cgi

@@ -1,22 +1,27 @@
 #!/usr/local/bin/perl
 # conf_keys.cgi
 # Display options for other DNS servers
+use strict;
+use warnings;
 
 require './bind8-lib.pl';
+# Globals
+our (%access, %text);
+
 $access{'defaults'} || &error($text{'keys_ecannot'});
 &ui_print_header(undef, $text{'keys_title'}, "",
 		 undef, undef, undef, undef, &restart_links());
 
-$conf = &get_config();
-@keys = ( &find("key", $conf), { } );
+my $conf = &get_config();
+my @keys = ( &find("key", $conf), { } );
 
 # Build table of keys
-@table = ( );
-for($i=0; $i<@keys; $i++) {
-	$k = $keys[$i];
-	@algs = ( "hmac-md5" );
-	$alg = &find_value("algorithm", $k->{'members'});
-	$secret = &find_value("secret", $k->{'members'});
+my @table = ( );
+for(my $i=0; $i<@keys; $i++) {
+	my $k = $keys[$i];
+	my @algs = ( "hmac-md5" );
+	my $alg = &find_value("algorithm", $k->{'members'});
+	my $secret = &find_value("secret", $k->{'members'});
 	push(@table, [ &ui_textbox("id_$i", $k->{'value'}, 15),
 		       &ui_select("alg_$i", $alg, \@algs, 1, 0, $alg ? 1 : 0),
 		       &ui_textbox("secret_$i", $secret, 65) ]);

bind8/conf_logging.cgi

@@ -1,18 +1,22 @@
 #!/usr/local/bin/perl
 # conf_logging.cgi
 # Display global logging options
+use strict;
+use warnings;
+our (%access, %text, %in);
+our (@syslog_levels, @severities, @cat_list);
 
 require './bind8-lib.pl';
 $access{'defaults'} || &error($text{'logging_ecannot'});
 &ui_print_header(undef, $text{'logging_title'}, "",
 		 undef, undef, undef, undef, &restart_links());
 &ReadParse();
-$conf = &get_config();
-$logging = &find("logging", $conf);
-$mems = $logging ? $logging->{'members'} : [ ];
+my $conf = &get_config();
+my $logging = &find("logging", $conf);
+my $mems = $logging ? $logging->{'members'} : [ ];
 
 # Start of tabs for channels and categories
-@tabs = ( [ "chans", $text{'logging_chans'}, "conf_logging.cgi?mode=chans" ],
+my @tabs = ( [ "chans", $text{'logging_chans'}, "conf_logging.cgi?mode=chans" ],
 	  [ "cats", $text{'logging_cats'}, "conf_logging.cgi?mode=cats" ] );
 print &ui_tabs_start(\@tabs, "mode", $in{'mode'} || "chans", 1);
 
@@ -20,8 +24,8 @@ print &ui_tabs_start_tab("mode", "chans");
 print $text{'logging_chansdesc'},"<p>\n";
 
 # Add default channels to table
-@table = ( );
-@defchans = ( { 'name' => 'default_syslog',
+my @table = ( );
+my @defchans = ( { 'name' => 'default_syslog',
 		'syslog' => 'daemon',
 		'severity' => 'info' },
 	      { 'name' => 'default_debug',
@@ -32,7 +36,7 @@ print $text{'logging_chansdesc'},"<p>\n";
 		'severity' => 'info' },
 	      { 'name' => 'null',
 		'null' => 1 } );
-foreach $c (@defchans) {
+foreach my $c (@defchans) {
 	push(@table, [
 		$c->{'name'},
 		$c->{'syslog'} ? $c->{'syslog'} :
@@ -47,17 +51,17 @@ foreach $c (@defchans) {
 
 # Add user-defined channels
 # XXX
-@chans = &find("channel", $mems);
-@channames = ( (map { $_->{'value'} } @chans) ,
+my @chans = &find("channel", $mems);
+my @channames = ( (map { $_->{'value'} } @chans) ,
 	       'default_syslog', 'default_debug', 'default_stderr', 'null' );
 push(@chans, { });
-for($i=0; $i<@chans; $i++) {
-	$cmems = $chans[$i]->{'members'};
-	$file = &find("file", $cmems);
-	$filestr = $file ? join(" ", @{$file->{'values'}}) : "";
-	$syslog = &find_value("syslog", $cmems);
-	$null = &find("null", $cmems);
-	$stderr = &find("stderr", $cmems);
+for(my $i=0; $i<@chans; $i++) {
+	my $cmems = $chans[$i]->{'members'};
+	my $file = &find("file", $cmems);
+	my $filestr = $file ? join(" ", @{$file->{'values'}}) : "";
+	my $syslog = &find_value("syslog", $cmems);
+	my $null = &find("null", $cmems);
+	my $stderr = &find("stderr", $cmems);
 	my @cols;
 
 	# Channel name
@@ -65,7 +69,7 @@ for($i=0; $i<@chans; $i++) {
 
 	# Log destination
 	my @dests;
-	$to = $file ? 0 : $syslog ? 1 : $stderr ? 3 : $null ? 2 : 0;
+	my $to = $file ? 0 : $syslog ? 1 : $stderr ? 3 : $null ? 2 : 0;
 	push(@dests, [ 0, $text{'logging_file'},
 		       &ui_filebox("file_$i", $file->{'value'}, 40) ]);
 	push(@dests, [ 1, $text{'logging_syslog'},
@@ -76,7 +80,7 @@ for($i=0; $i<@chans; $i++) {
 	push(@cols, &ui_radio_table("to_$i", $to, \@dests));
 
 	# Severity
-	$sev = &find("severity", $cmems);
+	my $sev = &find("severity", $cmems);
 	push(@cols, &ui_select("sev_$i", $sev->{'value'},
 		[ [ "", "&nbsp;" ],
 		  map { [ $_, $_ eq 'debug' ? $text{'logging_debug'} :
@@ -124,10 +128,10 @@ print $text{'logging_catsdesc'},"<p>\n";
 
 # Build table of categories
 @table = ( );
-@cats = ( &find("category", $mems), { } );
-for($i=0; $i<@cats; $i++) {
+my @cats = ( &find("category", $mems), { } );
+for(my $i=0; $i<@cats; $i++) {
 	my %cchan;
-	foreach $c (@{$cats[$i]->{'members'}}) {
+	foreach my $c (@{$cats[$i]->{'members'}}) {
 		$cchan{$c->{'name'}}++;
 		}
 	push(@table, [

bind8/conf_manual.cgi

@@ -1,5 +1,9 @@
 #!/usr/local/bin/perl
 # Show a page for manually editing named.conf
+use strict;
+use warnings;
+# Globals
+our (%access, %text, %in);
 
 require './bind8-lib.pl';
 $access{'defaults'} || &error($text{'manual_ecannot'});
@@ -8,8 +12,8 @@ $access{'defaults'} || &error($text{'manual_ecannot'});
 		 undef, undef, undef, undef, &restart_links());
 
 # Work out and show the files
-$conf = &get_config();
-@files = &get_all_config_files($conf);
+my $conf = &get_config();
+my @files = &get_all_config_files($conf);
 $in{'file'} ||= $files[0];
 &indexof($in{'file'}, @files) >= 0 || &error($text{'manual_efile'});
 print &ui_form_start("conf_manual.cgi");
@@ -23,7 +27,7 @@ print &ui_form_end();
 print &ui_form_start("save_manual.cgi", "form-data");
 print &ui_hidden("file", $in{'file'}),"\n";
 print &ui_table_start(undef, "width=100%", 2);
-$data = &read_file_contents(&make_chroot($in{'file'}));
+my $data = &read_file_contents(&make_chroot($in{'file'}));
 print &ui_table_row(undef,
 	&ui_textarea("data", $data, 20, 80, undef, 0, "style='width:100%'"), 2);
 print &ui_table_end();

bind8/conf_misc.cgi

@@ -1,6 +1,10 @@
 #!/usr/local/bin/perl
 # conf_misc.cgi
 # Display miscellaneous options
+use strict;
+use warnings;
+# Globals
+our (%access, %text);
 
 require './bind8-lib.pl';
 $access{'defaults'} || &error($text{'misc_ecannot'});
@@ -8,9 +12,9 @@ $access{'defaults'} || &error($text{'misc_ecannot'});
 		 undef, undef, undef, undef, &restart_links());
 
 &ReadParse();
-$conf = &get_config();
-$options = &find("options", $conf);
-$mems = $options->{'members'};
+my $conf = &get_config();
+my $options = &find("options", $conf);
+my $mems = $options->{'members'};
 
 # Start of the form
 print &ui_form_start("save_misc.cgi", "post");

bind8/conf_ncheck.cgi

@@ -1,5 +1,9 @@
 #!/usr/local/bin/perl
 # Check the whole BIND config and report problems
+use strict;
+use warnings;
+# Globals
+our (%access, %text, %config);
 
 require './bind8-lib.pl';
 &ReadParse();
@@ -8,8 +12,8 @@ $access{'defaults'} || &error($text{'ncheck_ecannot'});
 &ui_print_header(undef, $text{'ncheck_title'}, "",
 		 undef, undef, undef, undef, &restart_links());
 
-$file = &make_chroot($config{'named_conf'});
-@errs = &check_bind_config();
+my $file = &make_chroot($config{'named_conf'});
+my @errs = &check_bind_config();
 if (@errs) {
 	# Show list of errors
 	print "<b>",&text('ncheck_errs', "<tt>$file</tt>"),"</b><p>\n";

bind8/conf_net.cgi

@@ -1,5 +1,9 @@
 #!/usr/local/bin/perl
 # Display global networking options
+use strict;
+use warnings;
+# Globals
+our (%access, %text); 
 
 require './bind8-lib.pl';
 $access{'defaults'} || &error($text{'net_ecannot'});
@@ -7,26 +11,26 @@ $access{'defaults'} || &error($text{'net_ecannot'});
 		 undef, undef, undef, undef, &restart_links());
 
 &ReadParse();
-$conf = &get_config();
-$options = &find("options", $conf);
-$mems = $options->{'members'};
+my $conf = &get_config();
+my $options = &find("options", $conf);
+my $mems = $options->{'members'};
 
 # Start of form
 print &ui_form_start("save_net.cgi", "post");
 print &ui_table_start($text{'net_header'}, "width=100%", 4);
 
 # Ports and addresses to listen on
-@listen = &find("listen-on", $mems);
-$ltable = &ui_radio("listen_def", @listen ? 0 : 1,
+my @listen = &find("listen-on", $mems);
+my $ltable = &ui_radio("listen_def", @listen ? 0 : 1,
 		    [ [ 1, $text{'default'} ],
 		      [ 0, $text{'net_below'} ] ])."<br>\n";
 
-@table = ( );
+my @table = ( );
 push(@listen, { });
-for($i=0; $i<@listen; $i++) {
-	$port = $listen[$i]->{'value'} eq 'port' ?
+for(my $i=0; $i<@listen; $i++) {
+	my $port = $listen[$i]->{'value'} eq 'port' ?
                         $listen[$i]->{'values'}->[1] : undef;
-	@vals = map { $_->{'name'} } @{$listen[$i]->{'members'}};
+	my @vals = map { $_->{'name'} } @{$listen[$i]->{'members'}};
 	push(@table, [
 		&ui_radio("pdef_$i", $port ? 0 : 1,
 		  [ [ 1, $text{'default'} ],
@@ -42,11 +46,12 @@ $ltable .= &ui_columns_table(
 	1);
 
 print &ui_table_row($text{'net_listen'}, $ltable, 3);
-print &ui_table_hr();
+#print &ui_table_hr();
 
 # Source address for queries
-$src = &find("query-source", $mems);
-$srcstr = join(" ", @{$src->{'values'}});
+my $src = &find("query-source", $mems);
+my $srcstr = join(" ", $src->{'values'});
+my ($sport, $saddr);
 $sport = $1 if ($srcstr =~ /port\s+(\d+)/i);
 $saddr = $1 if ($srcstr =~ /address\s+([0-9\.]+)/i);
 print &ui_table_row($text{'net_saddr'},
@@ -60,7 +65,8 @@ print &ui_table_row($text{'net_sport'},
 
 # Source port for transfers
 $src = &find("transfer-source", $mems);
-$srcstr = join(" ", @{$src->{'values'}});
+$srcstr = join(" ", $src->{'values'});
+my ($tport, $taddr);
 $tport = $1 if ($srcstr =~ /port\s+(\d+)/i);
 $taddr = $1 if ($srcstr =~ /^([0-9\.]+|\*)/i);
 print &ui_table_row($text{'net_taddr'},

bind8/conf_rndc.cgi

@@ -1,6 +1,11 @@
 #!/usr/local/bin/perl
 # Show a form for setting up RNDC
 # XXX should check if already working!
+use strict;
+use warnings;
+# Globals
+our (%access, %text, %config);
+our $module_name;
 
 require './bind8-lib.pl';
 $access{'defaults'} || &error($text{'rndc_ecannot'});
@@ -16,6 +21,7 @@ if (!&has_command($config{'rndcconf_cmd'})) {
 	}
 
 # Check if already working
+my $out;
 &execute_command("$config{'rndc_cmd'} status", undef, \$out);
 if (!$? && $out !~ /failed/) {
 	print "<b>",$text{'rndc_desc2'},"</b><p>\n";
@@ -23,7 +29,7 @@ if (!$? && $out !~ /failed/) {
 
 # Show form
 print &ui_form_start("save_rndc.cgi", "post");
-$ex = -s $config{'rndc_conf'};
+my $ex = -s $config{'rndc_conf'};
 print &text($ex ? 'rndc_rusure' : 'rndc_rusure2',
 	    "<tt>$config{'rndc_conf'}</tt>"),"<p>\n";
 print &ui_submit($text{'rndc_ok'});

bind8/conf_servers.cgi

@@ -1,15 +1,19 @@
 #!/usr/local/bin/perl
 # conf_servers.cgi
 # Display options for other DNS servers
+use strict;
+use warnings;
+# Globals
+our (%access, %text);
 
 require './bind8-lib.pl';
 $access{'defaults'} || &error($text{'servers_ecannot'});
 &ui_print_header(undef, $text{'servers_title'}, "",
 		 undef, undef, undef, undef, &restart_links());
 
-$conf = &get_config();
-@servers = ( &find("server", $conf), { } );
-@keys = &find("key", $conf);
+my $conf = &get_config();
+my @servers = ( &find("server", $conf), { } );
+my @keys = &find("key", $conf);
 
 print &ui_form_start("save_servers.cgi", "post");
 print &ui_columns_start([ $text{'servers_ip'},
@@ -17,34 +21,34 @@ print &ui_columns_start([ $text{'servers_ip'},
 			  $text{'servers_format'},
 			  $text{'servers_trans'},
 			  @keys ? ( $text{'servers_keys'} ) : ( ) ], 100);
-for($i=0; $i<@servers; $i++) {
-	$s = $servers[$i];
-	@cols = ( );
+for(my $i=0; $i<@servers; $i++) {
+	my $s = $servers[$i];
+	my @cols = ( );
 	push(@cols, &ui_textbox("ip_$i", $s->{'value'}, 30));
 
-	$bogus = &find_value("bogus", $s->{'members'});
+	my $bogus = &find_value("bogus", $s->{'members'});
 	push(@cols, &ui_radio("bogus_$i", lc($bogus) eq 'yes' ? 1 : 0,
 			      [ [ 1, $text{'yes'} ],
 				[ 0, $text{'no'} ] ]));
 
-	$format = &find_value("transfer-format", $s->{'members'});
+	my $format = &find_value("transfer-format", $s->{'members'});
 	push(@cols, &ui_radio("format_$i", lc($format),
 			      [ [ 'one-answer', $text{'servers_one'} ],
 				[ 'many-answers', $text{'servers_many'} ],
 				[ '', $text{'default'} ] ]));
 
-	$trans = &find_value("transfers", $s->{'members'});
+	my $trans = &find_value("transfers", $s->{'members'});
 	push(@cols, &ui_textbox("trans_$i", $trans, 8));
 
 	if (@keys) {
-		local %haskey;
-		$keys = &find("keys", $s->{'members'});
-		foreach $k (@{$keys->{'members'}}) {
+		my %haskey;
+		my $keys = &find("keys", $s->{'members'});
+		foreach my $k (@{$keys->{'members'}}) {
 			$haskey{$k->{'name'}}++;
 			}
-		$cbs = "";
-		foreach $k (@keys) {
-			local $v = $k->{'value'};
+		my $cbs = "";
+		foreach my $k (@keys) {
+			my $v = $k->{'value'};
 			$cbs .= &ui_checkbox("keys_$i", $v, $v, $haskey{$v}).
 				"\n";
 			}

bind8/conf_trusted.cgi

@@ -1,5 +1,10 @@
 #!/usr/local/bin/perl
 # Show a form for setting up DNSSEC verification and trusted keys
+use strict;
+use warnings;
+# Globals
+our (%access, %text);
+our $dnssec_dlv_zone;
 
 require './bind8-lib.pl';
 &ReadParse();
@@ -7,11 +12,11 @@ $access{'defaults'} || &error($text{'trusted_ecannot'});
 &supports_dnssec_client() || &error($text{'trusted_esupport'});
 &ui_print_header(undef, $text{'trusted_title'}, "",
 		 undef, undef, undef, undef, &restart_links());
-$conf = &get_config();
-$options = &find("options", $conf);
-$mems = $options->{'members'};
-@dlv = &find("dnssec-lookaside", $mems);
-$tkeys = &find("trusted-keys", $conf);
+my $conf = &get_config();
+my $options = &find("options", $conf);
+my $mems = $options->{'members'};
+my @dlv = &find("dnssec-lookaside", $mems);
+my $tkeys = &find("trusted-keys", $conf);
 $tkeys ||= { 'members' => [ ] };
 
 # Check if not setup at all
@@ -43,10 +48,10 @@ if (&supports_dnssec_client() == 2) {
 print &ui_table_hr();
 
 # Trusted DLVs
-@dtable = ( );
-$i = 0;
-foreach $d (@dlv, { 'values' => [ '.' ] }) {
-	$dlv = $d->{'values'}->[0];
+my @dtable = ( );
+my $i = 0;
+foreach my $d (@dlv, { 'values' => [ '.' ] }) {
+	my $dlv = $d->{'values'}->[0];
 	$dlv = "" if ($dlv eq ".");
 	push(@dtable, [ &ui_opt_textbox("anchor_$i", $d->{'values'}->[2],
 					30, $text{'trusted_none'}),
@@ -60,11 +65,11 @@ print &ui_table_row($text{'trusted_dlvs'},
 			  \@dtable), 3);
 
 # Trusted keys
-@ktable = ( );
+my @ktable = ( );
 $i = 0;
-foreach $k (@{$tkeys->{'members'}}, { }) {
-	@v = @{$k->{'values'}};
-	@wrapped = ( );
+foreach my $k (@{$tkeys->{'members'}}, { 'values' => [ ] }) {
+	my @v = @{$k->{'values'}};
+	my @wrapped = ( );
 	while(length($v[3]) > 30) {
 		push(@wrapped, substr($v[3], 0, 30));
 		$v[3] = substr($v[3], 30);

bind8/conf_zonedef.cgi

@@ -1,6 +1,10 @@
 #!/usr/local/bin/perl
 # conf_zonedef.cgi
 # Display defaults for master zones
+use strict;
+use warnings;
+# Globals
+our (%access, %text, %config);
 
 require './bind8-lib.pl';
 $access{'defaults'} || &error($text{'zonedef_ecannot'});
@@ -10,6 +14,7 @@ $access{'defaults'} || &error($text{'zonedef_ecannot'});
 # Start of defaults for new zones form
 print &ui_form_start("save_zonedef.cgi", "post");
 print &ui_table_start($text{'zonedef_msg'}, "width=100%", 4);
+my %zd;
 &get_zone_defaults(\%zd);
 
 # Default refresh time
@@ -33,9 +38,9 @@ print &ui_table_row($text{'master_minimum'},
 	&time_unit_choice("minunit", $zd{'minunit'}));
 
 # Records for new zones, as a table
-@table = ( );
-for($i=0; $i<2 || $config{"tmpl_".($i-1)}; $i++) {
-	@c = split(/\s+/, $config{"tmpl_$i"}, 3);
+my @table = ( );
+for(my $i=0; $i<2 || $config{"tmpl_".($i-1)}; $i++) {
+	my @c = split(/\s+/, $config{"tmpl_$i"}, 3);
 	push(@table, [ &ui_textbox("name_$i", $c[0], 15),
 		       &ui_select("type_$i", $c[1],
 			[ map { [ $_, $text{"type_".$_} ] }
@@ -89,7 +94,7 @@ if (&supports_dnssec()) {
 			   [ &list_dnssec_algorithms() ]), 3);
 
 	# Default size
-	$sizedef = $config{'tmpl_dnssecsizedef'};
+	my $sizedef = $config{'tmpl_dnssecsizedef'};
 	$sizedef = 1 if ($sizedef eq '');
 	print &ui_table_row($text{'zonedef_size'},
 		&ui_radio("size_def", $sizedef,
@@ -108,17 +113,18 @@ if (&supports_dnssec()) {
 print &ui_table_end();
 
 # Start of table for global BIND options
-$conf = &get_config();
-$options = &find("options", $conf);
-$mems = $options->{'members'};
-foreach $c (&find("check-names", $mems)) {
+my $conf = &get_config();
+my $options = &find("options", $conf);
+my $mems = $options->{'members'};
+my %check;
+foreach my $c (&find("check-names", $mems)) {
 	$check{$c->{'values'}->[0]} = $c->{'values'}->[1];
 	}
 print &ui_table_start($text{'zonedef_msg2'}, "width=100%", 4);
 
 print &addr_match_input($text{'zonedef_transfer'}, "allow-transfer", $mems);
 print &addr_match_input($text{'zonedef_query'}, "allow-query", $mems);
-print &addr_match_input($text{'master_notify2'}, "allow-notify", $mems);
+print &addr_match_input($text{'master_notify2'}, "also-notify", $mems);
 
 print &ignore_warn_fail($text{'zonedef_cmaster'}, 'master', $check{'master'});
 print &ignore_warn_fail($text{'zonedef_cslave'}, 'slave', $check{'slave'});

bind8/convert_master.cgi

@@ -1,13 +1,17 @@
 #!/usr/local/bin/perl
 # convert_master.cgi
 # Convert a master zone into a slave
+use strict;
+use warnings;
+# Globals
+our (%access, %text, %in, %config);
 
 require './bind8-lib.pl';
 &ReadParse();
 &error_setup($text{'convert_err'});
 
-$zone = &get_zone_name_or_error($in{'zone'}, $in{'view'});
-$zconf = &zone_to_config($zone);
+my $zone = &get_zone_name_or_error($in{'zone'}, $in{'view'});
+my $zconf = &zone_to_config($zone);
 
 $access{'slave'} || &error($text{'screate_ecannot1'});
 &lock_file(&make_chroot($zconf->{'file'}));
@@ -18,7 +22,7 @@ $access{'slave'} || &error($text{'screate_ecannot1'});
 
 # Add a masters section
 if ($config{'default_master'}) {
-	@mdirs = map { { 'name' => $_ } } split(/\s+/, $config{'default_master'});
+	my @mdirs = map { { 'name' => $_ } } split(/\s+/, $config{'default_master'});
 	&save_directive($zconf, 'masters', [ { 'name' => 'masters',
 					       'type' => 1,
 					       'members' => \@mdirs } ], 1);

bind8/convert_slave.cgi

@@ -1,16 +1,20 @@
 #!/usr/local/bin/perl
 # convert_slave.cgi
 # Convert a slave/stub zone into a master
+use strict;
+use warnings;
+# Globals
+our (%access, %text, %in);
 
 require './bind8-lib.pl';
 &ReadParse();
 &error_setup($text{'convert_err'});
 
-$zone = &get_zone_name_or_error($in{'zone'}, $in{'view'});
-$zconf = &zone_to_config($zone);
+my $zone = &get_zone_name_or_error($in{'zone'}, $in{'view'});
+my $zconf = &zone_to_config($zone);
 
 $access{'master'} || &error($text{'mcreate_ecannot'});
-$file = &find_value("file", $zconf->{'members'});
+my $file = &find_value("file", $zconf->{'members'});
 if (!$file) {
 	&error($text{'convert_efile'});
 	}
@@ -35,9 +39,9 @@ if (!-s $file) {
 if (&is_raw_format_records($file)) {
 	&has_command("named-compilezone") ||
 		&error($text{'convert_ebinary'});
-	$temp = &transname();
+	my $temp = &transname();
 	&copy_source_dest($file, $temp);
-	$out = &backquote_logged("named-compilezone -f raw -F text ".
+	my $out = &backquote_logged("named-compilezone -f raw -F text ".
 				 "-o $file $zone->{'name'} $temp 2>&1");
 	&error(&text('convert_ecompile', "<tt>".&html_escape($out)."</tt>"))
 		if ($?);

bind8/create_delegation.cgi

@@ -1,15 +1,20 @@
 #!/usr/local/bin/perl
 # create_forward.cgi
 # Create a new forward zone
+use strict;
+use warnings;
+# Globals
+our (%access, %text, %in, %config);
 
 require './bind8-lib.pl';
 &ReadParse();
 &error_setup($text{'dcreate_err'});
 $access{'delegation'} || &error($text{'dcreate_ecannot'});
 $access{'ro'} && &error($text{'master_ero'});
-$conf = &get_config();
+my $conf = &get_config();
+my $vconf;
 if ($in{'view'} ne '') {
-	$view = $conf->[$in{'view'}];
+	my $view = $conf->[$in{'view'}];
 	&can_edit_view($view) || &error($text{'master_eviewcannot'});
 	$vconf = $view->{'members'};
 	}
@@ -19,7 +24,7 @@ else {
 
 # validate inputs
 if ($in{'rev'}) {
-	local($ipv4);
+	my $ipv4;
 	($ipv4 = &check_net_ip($in{'zone'})) ||
 	$config{'support_aaaa'} &&
 	(($in{'zone'} =~ /^([\w:]+)(\/\d+)$/) || &check_ip6address($1)) ||
@@ -38,15 +43,14 @@ else {
 		&error(&text('create_edom', $in{'zone'}));
 	}
 $in{'zone'} =~ s/\.$//;
-foreach $z (&find("zone", $vconf)) {
+foreach my $z (&find("zone", $vconf)) {
 	if (lc($z->{'value'}) eq lc($in{'zone'})) {
 		&error($text{'master_etaken'});
 		}
 	}
 
 # Create structure
-@mdirs = map { { 'name' => $_ } } @masters;
-$dir = { 'name' => 'zone',
+my $dir = { 'name' => 'zone',
 	 'values' => [ $in{'zone'} ],
 	 'type' => 1,
 	 'members' => [ { 'name' => 'type',
@@ -59,7 +63,7 @@ $dir = { 'name' => 'zone',
 &webmin_log("create", "delegation", $in{'zone'}, \%in);
 
 # Get the new zone's index
-$idx = &get_zone_index($in{'zone'}, $in{'view'});
+my $idx = &get_zone_index($in{'zone'}, $in{'view'});
 
 &add_zone_access($in{'zone'});
 &redirect("edit_delegation.cgi?zone=$in{'zone'}&view=$in{'view'}");

bind8/create_forward.cgi

@@ -1,15 +1,20 @@
 #!/usr/local/bin/perl
 # create_forward.cgi
 # Create a new forward zone
+use strict;
+use warnings;
+# Globals
+our (%access, %text, %in, %config);
 
 require './bind8-lib.pl';
 &ReadParse();
 &error_setup($text{'fcreate_err'});
 $access{'forward'} || &error($text{'fcreate_ecannot'});
 $access{'ro'} && &error($text{'master_ero'});
-$conf = &get_config();
+my $conf = &get_config();
+my $vconf;
 if ($in{'view'} ne '') {
-	$view = $conf->[$in{'view'}];
+	my $view = $conf->[$in{'view'}];
 	&can_edit_view($view) || &error($text{'master_eviewcannot'});
 	$vconf = $view->{'members'};
 	}
@@ -19,7 +24,7 @@ else {
 
 # validate inputs
 if ($in{'rev'}) {
-	local($ipv4);
+	my $ipv4;
 	($ipv4 = &check_net_ip($in{'zone'})) ||
 	  $config{'support_aaaa'} &&
 	  (($in{'zone'} =~ /^([\w:]+)(\/\d+)$/) || &check_ip6address($1)) ||
@@ -38,23 +43,23 @@ else {
 		&error(&text('create_edom', $in{'zone'}));
 	}
 $in{'zone'} =~ s/\.$//;
-@masters = split(/\s+/, $in{'masters'});
-foreach $m (@masters) {
+my @masters = split(/\s+/, $in{'masters'});
+foreach my $m (@masters) {
 	&check_ipaddress($m) || &check_ip6address($m) ||
 		&error(&text('create_emaster', $m));
 	}
 #if (!@masters) {
 #	&error($text{'create_enone'});
 #	}
-foreach $z (&find("zone", $vconf)) {
+foreach my $z (&find("zone", $vconf)) {
 	if (lc($z->{'value'}) eq lc($in{'zone'})) {
 		&error($text{'master_etaken'});
 		}
 	}
 
 # Create structure
-@mdirs = map { { 'name' => $_ } } @masters;
-$dir = { 'name' => 'zone',
+my @mdirs = map { { 'name' => $_ } } @masters;
+my $dir = { 'name' => 'zone',
 	 'values' => [ $in{'zone'} ],
 	 'type' => 1,
 	 'members' => [ { 'name' => 'type',
@@ -70,7 +75,7 @@ $dir = { 'name' => 'zone',
 &webmin_log("create", "forward", $in{'zone'}, \%in);
 
 # Get the new zone's index
-$idx = &get_zone_index($in{'zone'}, $in{'view'});
+my $idx = &get_zone_index($in{'zone'}, $in{'view'});
 
 &add_zone_access($in{'zone'});
 &redirect("edit_forward.cgi?zone=$in{'zone'}&view=$in{'view'}");