diff --git a/acl/acl-lib.pl b/acl/acl-lib.pl index 5e3429c64..c2f2d654f 100755 --- a/acl/acl-lib.pl +++ b/acl/acl-lib.pl @@ -15,6 +15,7 @@ BEGIN { push(@INC, ".."); }; use strict; use warnings; no warnings 'redefine'; +no warnings 'uninitialized'; use WebminCore; &init_config(); do 'md5-lib.pl'; diff --git a/acl/acl_security.pl b/acl/acl_security.pl index af25d4503..41f6c8ecc 100755 --- a/acl/acl_security.pl +++ b/acl/acl_security.pl @@ -1,6 +1,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; do 'acl-lib.pl'; our (%text, %in); diff --git a/acl/backup_config.pl b/acl/backup_config.pl index b31a2dfc7..0cdc1482a 100755 --- a/acl/backup_config.pl +++ b/acl/backup_config.pl @@ -1,6 +1,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require 'acl-lib.pl'; our ($config_directory, %gconfig); diff --git a/acl/cert_form.cgi b/acl/cert_form.cgi index 1666c0904..d2a16f1bd 100755 --- a/acl/cert_form.cgi +++ b/acl/cert_form.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './acl-lib.pl'; our (%in, %text, %config, %access); &ui_print_header(undef, $text{'cert_title'}, "", undef, undef, undef, undef, diff --git a/acl/cert_issue.cgi b/acl/cert_issue.cgi index 77be5ede1..e9126462a 100755 --- a/acl/cert_issue.cgi +++ b/acl/cert_issue.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './acl-lib.pl'; our (%in, %text, %config, %access, $module_config_directory, $base_remote_user); &ReadParse(); diff --git a/acl/cert_output.cgi b/acl/cert_output.cgi index 9314763a3..1f90f5fcb 100755 --- a/acl/cert_output.cgi +++ b/acl/cert_output.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './acl-lib.pl'; our (%in, %text, %config, %access); diff --git a/acl/cgi_args.pl b/acl/cgi_args.pl index ba888658d..19a4f00c2 100755 --- a/acl/cgi_args.pl +++ b/acl/cgi_args.pl @@ -1,6 +1,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; do 'acl-lib.pl'; our (%access); diff --git a/acl/convert.cgi b/acl/convert.cgi index 289b60b28..52d138317 100755 --- a/acl/convert.cgi +++ b/acl/convert.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './acl-lib.pl'; our (%in, %text, %config, %access, $config_directory); &ReadParse(); diff --git a/acl/convert_form.cgi b/acl/convert_form.cgi index 00c74b088..31048cbaa 100755 --- a/acl/convert_form.cgi +++ b/acl/convert_form.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './acl-lib.pl'; our (%in, %text, %config, %access); $access{'sync'} && $access{'create'} || &error($text{'convert_ecannot'}); diff --git a/acl/delete_group.cgi b/acl/delete_group.cgi index eb524d8de..c4fd4fdef 100755 --- a/acl/delete_group.cgi +++ b/acl/delete_group.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './acl-lib.pl'; our (%in, %text, %config, %access, $base_remote_user); &ReadParse(); diff --git a/acl/delete_groups.cgi b/acl/delete_groups.cgi index 7f80e0979..51ff09294 100755 --- a/acl/delete_groups.cgi +++ b/acl/delete_groups.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './acl-lib.pl'; our (%in, %text, %config, %access, $base_remote_user); &ReadParse(); diff --git a/acl/delete_session.cgi b/acl/delete_session.cgi index 16e82a5a2..0214658dc 100755 --- a/acl/delete_session.cgi +++ b/acl/delete_session.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './acl-lib.pl'; our (%in, %text, %config, %access, %sessiondb); &ReadParse(); diff --git a/acl/delete_user.cgi b/acl/delete_user.cgi index a6dce4c17..184036e89 100755 --- a/acl/delete_user.cgi +++ b/acl/delete_user.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './acl-lib.pl'; our (%in, %text, %config, %access, $base_remote_user); &ReadParse(); diff --git a/acl/delete_users.cgi b/acl/delete_users.cgi index 59e0df8af..a46659aad 100755 --- a/acl/delete_users.cgi +++ b/acl/delete_users.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './acl-lib.pl'; our (%in, %text, %config, %access, $base_remote_user); &ReadParse(); diff --git a/acl/edit_acl.cgi b/acl/edit_acl.cgi index 4fa9d1bf1..b36930482 100755 --- a/acl/edit_acl.cgi +++ b/acl/edit_acl.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './acl-lib.pl'; our (%in, %text, %config, %access, $base_remote_user, %gconfig); &ReadParse(); diff --git a/acl/edit_group.cgi b/acl/edit_group.cgi index 666f1d018..8840f6a39 100755 --- a/acl/edit_group.cgi +++ b/acl/edit_group.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './acl-lib.pl'; our (%in, %text, %config, %access, $config_directory); &ReadParse(); diff --git a/acl/edit_pass.cgi b/acl/edit_pass.cgi index d8ae69d64..8467725ca 100755 --- a/acl/edit_pass.cgi +++ b/acl/edit_pass.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './acl-lib.pl'; our (%in, %text, %config, %access); $access{'pass'} || &error($text{'pass_ecannot'}); diff --git a/acl/edit_rbac.cgi b/acl/edit_rbac.cgi index 9dafb7430..ad35224ae 100755 --- a/acl/edit_rbac.cgi +++ b/acl/edit_rbac.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './acl-lib.pl'; our (%in, %text, %gconfig, %access, $module_name, $module_root_directory); $access{'rbacenable'} || &error($text{'rbac_ecannot'}); diff --git a/acl/edit_sql.cgi b/acl/edit_sql.cgi index 620531864..4fd2971d2 100755 --- a/acl/edit_sql.cgi +++ b/acl/edit_sql.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './acl-lib.pl'; our (%in, %text, %config, %access); $access{'sql'} || &error($text{'sql_ecannot'}); diff --git a/acl/edit_sync.cgi b/acl/edit_sync.cgi index 485c7576a..39c2e68a4 100755 --- a/acl/edit_sync.cgi +++ b/acl/edit_sync.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './acl-lib.pl'; our (%in, %text, %config, %access); $access{'sync'} && $access{'create'} && $access{'delete'} || diff --git a/acl/edit_unix.cgi b/acl/edit_unix.cgi index 636598843..0f6ff0651 100755 --- a/acl/edit_unix.cgi +++ b/acl/edit_unix.cgi @@ -5,6 +5,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './acl-lib.pl'; our (%in, %text, %config, %access); $access{'unix'} && $access{'create'} && $access{'delete'} || diff --git a/acl/edit_user.cgi b/acl/edit_user.cgi index 98349d2dd..0b1dae979 100755 --- a/acl/edit_user.cgi +++ b/acl/edit_user.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './acl-lib.pl'; our (%in, %text, %config, %access, $config_directory, $base_remote_user, $remote_user); &foreign_require("webmin", "webmin-lib.pl"); diff --git a/acl/feedback_files.pl b/acl/feedback_files.pl index d7066543e..dfa4256a0 100755 --- a/acl/feedback_files.pl +++ b/acl/feedback_files.pl @@ -1,6 +1,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; do 'acl-lib.pl'; our ($config_directory); diff --git a/acl/index.cgi b/acl/index.cgi index 7f7ef2d1e..a69377a75 100755 --- a/acl/index.cgi +++ b/acl/index.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './acl-lib.pl'; our (%in, %text, %config, %access, $base_remote_user); &ReadParse(); diff --git a/acl/list_sessions.cgi b/acl/list_sessions.cgi index 689046451..fa30c3780 100755 --- a/acl/list_sessions.cgi +++ b/acl/list_sessions.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './acl-lib.pl'; our (%in, %text, %config, %access, %sessiondb); $access{'sessions'} || &error($text{'sessions_ecannot'}); diff --git a/acl/log_parser.pl b/acl/log_parser.pl index 2179115db..7bd83a48a 100755 --- a/acl/log_parser.pl +++ b/acl/log_parser.pl @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; do 'acl-lib.pl'; our (%text); diff --git a/acl/makedn.cgi b/acl/makedn.cgi index 5a70004f2..10e00c15c 100755 --- a/acl/makedn.cgi +++ b/acl/makedn.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './acl-lib.pl'; our (%in, %text, %config, %access); $access{'pass'} || &error($text{'sql_ecannot'}); diff --git a/acl/maketables.cgi b/acl/maketables.cgi index 835a88d14..e687c650d 100755 --- a/acl/maketables.cgi +++ b/acl/maketables.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './acl-lib.pl'; our (%in, %text, %config, %access); $access{'pass'} || &error($text{'sql_ecannot'}); diff --git a/acl/postinstall.pl b/acl/postinstall.pl index 50324b8ac..0f364f998 100755 --- a/acl/postinstall.pl +++ b/acl/postinstall.pl @@ -1,6 +1,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require 'acl-lib.pl'; our ($config_directory); diff --git a/acl/save_acl.cgi b/acl/save_acl.cgi index 56bba0b16..3dff5f637 100755 --- a/acl/save_acl.cgi +++ b/acl/save_acl.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './acl-lib.pl'; our (%in, %text, %config, %access, $base_remote_user, %gconfig, $config_directory); diff --git a/acl/save_group.cgi b/acl/save_group.cgi index cb6f096e0..01dc85ceb 100755 --- a/acl/save_group.cgi +++ b/acl/save_group.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './acl-lib.pl'; our (%in, %text, %config, %access, $config_directory); &ReadParse(); diff --git a/acl/save_pass.cgi b/acl/save_pass.cgi index 2a6befa9d..607246a55 100755 --- a/acl/save_pass.cgi +++ b/acl/save_pass.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './acl-lib.pl'; our (%in, %text, %config, %access); $access{'pass'} || &error($text{'pass_ecannot'}); diff --git a/acl/save_sql.cgi b/acl/save_sql.cgi index edb28548b..cd5ca5697 100755 --- a/acl/save_sql.cgi +++ b/acl/save_sql.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './acl-lib.pl'; our (%in, %text, %config, %access); $access{'pass'} || &error($text{'sql_ecannot'}); diff --git a/acl/save_sync.cgi b/acl/save_sync.cgi index 86d50f873..1e55860a8 100755 --- a/acl/save_sync.cgi +++ b/acl/save_sync.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './acl-lib.pl'; our (%in, %text, %config, %access, $module_config_directory); &ReadParse(); diff --git a/acl/save_twofactor.cgi b/acl/save_twofactor.cgi index c56a508a4..865a83da4 100755 --- a/acl/save_twofactor.cgi +++ b/acl/save_twofactor.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './acl-lib.pl'; our (%in, %text, %config, %access, $base_remote_user); &foreign_require("webmin"); diff --git a/acl/save_unix.cgi b/acl/save_unix.cgi index 11d5e3b50..b58928af7 100755 --- a/acl/save_unix.cgi +++ b/acl/save_unix.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './acl-lib.pl'; our (%in, %text, %config, %access); &ReadParse(); diff --git a/acl/save_user.cgi b/acl/save_user.cgi index b32f1d865..8c8b33ae9 100755 --- a/acl/save_user.cgi +++ b/acl/save_user.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './acl-lib.pl'; our (%in, %text, %config, %access, $config_directory, $base_remote_user); &foreign_require("webmin", "webmin-lib.pl"); diff --git a/acl/schema.cgi b/acl/schema.cgi index bd401c7f9..94516d0e5 100755 --- a/acl/schema.cgi +++ b/acl/schema.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './acl-lib.pl'; our (%in, %text, %config, %access); $access{'pass'} || &error($text{'sql_ecannot'}); diff --git a/acl/switch.cgi b/acl/switch.cgi index 38bb9f42e..435d08da2 100755 --- a/acl/switch.cgi +++ b/acl/switch.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './acl-lib.pl'; our (%in, %text, %config, %access, %sessiondb); &ReadParse(); diff --git a/acl/system_info.pl b/acl/system_info.pl index df7a88841..58dc0eec7 100644 --- a/acl/system_info.pl +++ b/acl/system_info.pl @@ -1,6 +1,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, $remote_user, %sessiondb, $module_name); do 'acl-lib.pl'; diff --git a/acl/twofactor_form.cgi b/acl/twofactor_form.cgi index ed7e0485e..1b53334de 100755 --- a/acl/twofactor_form.cgi +++ b/acl/twofactor_form.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './acl-lib.pl'; our (%in, %text, %config, %access, $base_remote_user); &foreign_require("webmin"); diff --git a/acl/useradmin_update.pl b/acl/useradmin_update.pl index 4ab556495..6076c2cb4 100755 --- a/acl/useradmin_update.pl +++ b/acl/useradmin_update.pl @@ -1,6 +1,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; if (!$main::done_foreign_require{"acl","acl-lib.pl"}) { do "acl-lib.pl"; } diff --git a/ajaxterm/index.cgi b/ajaxterm/index.cgi index b8b8fe024..86355176c 100755 --- a/ajaxterm/index.cgi +++ b/ajaxterm/index.cgi @@ -3,6 +3,8 @@ # a URL that proxies to it use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; BEGIN { push(@INC, ".."); }; use WebminCore; @@ -70,6 +72,8 @@ while(1) { close(TEST2); use strict "subs"; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; # Show the iframe print "
\n"; diff --git a/ajaxterm/proxy.cgi b/ajaxterm/proxy.cgi index 4a68ab059..08de0307d 100755 --- a/ajaxterm/proxy.cgi +++ b/ajaxterm/proxy.cgi @@ -2,6 +2,8 @@ # Proxy an Ajaxterm request to the real port use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; BEGIN { push(@INC, ".."); }; use WebminCore; diff --git a/at/acl_security.pl b/at/acl_security.pl index 0d5854227..6699871c1 100755 --- a/at/acl_security.pl +++ b/at/acl_security.pl @@ -1,5 +1,7 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in); require 'at-lib.pl'; diff --git a/at/backup_config.pl b/at/backup_config.pl index 57a69c247..f9b752939 100755 --- a/at/backup_config.pl +++ b/at/backup_config.pl @@ -1,5 +1,7 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our %config; do 'at-lib.pl'; diff --git a/at/cgi_args.pl b/at/cgi_args.pl index 5e2ce2b8c..56b93592b 100755 --- a/at/cgi_args.pl +++ b/at/cgi_args.pl @@ -1,5 +1,7 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our %access; do 'at-lib.pl'; diff --git a/at/create_job.cgi b/at/create_job.cgi index 2537b04db..fcac61a72 100755 --- a/at/create_job.cgi +++ b/at/create_job.cgi @@ -3,6 +3,8 @@ # Create a new at job use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in); require './at-lib.pl'; diff --git a/at/delete_job.cgi b/at/delete_job.cgi index 696829e80..e4588165c 100755 --- a/at/delete_job.cgi +++ b/at/delete_job.cgi @@ -2,6 +2,8 @@ # Delete or run an at job use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in); require './at-lib.pl'; diff --git a/at/delete_jobs.cgi b/at/delete_jobs.cgi index 8adcf323f..d610e54e9 100755 --- a/at/delete_jobs.cgi +++ b/at/delete_jobs.cgi @@ -2,6 +2,8 @@ # Delete multiple at jobs use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our(%access, %text, %in); require './at-lib.pl'; diff --git a/at/edit_job.cgi b/at/edit_job.cgi index 6236d18b1..a7e9c97d2 100755 --- a/at/edit_job.cgi +++ b/at/edit_job.cgi @@ -3,6 +3,8 @@ # Display a command for deletion use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in); require './at-lib.pl'; diff --git a/at/freebsd-lib.pl b/at/freebsd-lib.pl index 83bc3f837..d13418050 100755 --- a/at/freebsd-lib.pl +++ b/at/freebsd-lib.pl @@ -1,6 +1,8 @@ # freebsd-lib.pl use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; no warnings "redefine"; our (%config); diff --git a/at/index.cgi b/at/index.cgi index da6366d53..631f9266c 100755 --- a/at/index.cgi +++ b/at/index.cgi @@ -7,6 +7,8 @@ # ext_cmd : default command use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in, %config); our ($module_name, $remote_user); diff --git a/at/install_check.pl b/at/install_check.pl index 5a8f6e4a2..3e5b1b4d4 100755 --- a/at/install_check.pl +++ b/at/install_check.pl @@ -1,6 +1,8 @@ # install_check.pl use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; do 'at-lib.pl'; diff --git a/at/linux-lib.pl b/at/linux-lib.pl index ef78de00f..50a74a3fc 100755 --- a/at/linux-lib.pl +++ b/at/linux-lib.pl @@ -1,6 +1,8 @@ # linux-lib.pl use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; no warnings "redefine"; our (%config); diff --git a/at/log_parser.pl b/at/log_parser.pl index aa31dedcd..29e76dafc 100755 --- a/at/log_parser.pl +++ b/at/log_parser.pl @@ -2,6 +2,8 @@ # Functions for parsing this module's logs use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our %text; do 'at-lib.pl'; diff --git a/at/macos-lib.pl b/at/macos-lib.pl index 57cd07676..4f9d0b586 100755 --- a/at/macos-lib.pl +++ b/at/macos-lib.pl @@ -1,6 +1,8 @@ # macos-lib.pl use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; no warnings "redefine"; our %config; diff --git a/at/save_allow.cgi b/at/save_allow.cgi index 817a32536..9febb0fdd 100755 --- a/at/save_allow.cgi +++ b/at/save_allow.cgi @@ -2,6 +2,8 @@ # Update allowed or denied At users use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in); require './at-lib.pl'; diff --git a/at/solaris-lib.pl b/at/solaris-lib.pl index eec7c3157..b2c4c03c1 100755 --- a/at/solaris-lib.pl +++ b/at/solaris-lib.pl @@ -1,6 +1,8 @@ # solaris-lib.pl use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; no warnings "redefine"; our %config; diff --git a/backup-config/backup-config-lib.pl b/backup-config/backup-config-lib.pl index d9dd93293..c8b172489 100755 --- a/backup-config/backup-config-lib.pl +++ b/backup-config/backup-config-lib.pl @@ -13,6 +13,8 @@ Functions for creating configuration file backups. Some example code : BEGIN { push(@INC, ".."); }; use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; use WebminCore; our (%text, $module_config_directory, %config); &init_config(); diff --git a/backup-config/backup.cgi b/backup-config/backup.cgi index 95dcfbd2f..96fe4e71b 100755 --- a/backup-config/backup.cgi +++ b/backup-config/backup.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './backup-config-lib.pl'; our (%in, %text, %config, $module_config_file); &ReadParse(); diff --git a/backup-config/backup.pl b/backup-config/backup.pl index a0358d4a9..f6016efc7 100755 --- a/backup-config/backup.pl +++ b/backup-config/backup.pl @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %config, $no_acl_check); $no_acl_check++; require './backup-config-lib.pl'; diff --git a/backup-config/cgi_args.pl b/backup-config/cgi_args.pl index 4316b3cd9..dc7ff4198 100755 --- a/backup-config/cgi_args.pl +++ b/backup-config/cgi_args.pl @@ -1,6 +1,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; do 'backup-config-lib.pl'; sub cgi_args diff --git a/backup-config/edit.cgi b/backup-config/edit.cgi index 01024d802..362bf35ed 100755 --- a/backup-config/edit.cgi +++ b/backup-config/edit.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './backup-config-lib.pl'; our (%in, %text); &ReadParse(); diff --git a/backup-config/index.cgi b/backup-config/index.cgi index 723e7afd0..0645243be 100755 --- a/backup-config/index.cgi +++ b/backup-config/index.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './backup-config-lib.pl'; our (%text, %in, %config); &ReadParse(); diff --git a/backup-config/log_parser.pl b/backup-config/log_parser.pl index ceb1420fe..e1dfc97e9 100755 --- a/backup-config/log_parser.pl +++ b/backup-config/log_parser.pl @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; do 'backup-config-lib.pl'; our (%text); diff --git a/backup-config/restore.cgi b/backup-config/restore.cgi index 642479efd..73e721803 100755 --- a/backup-config/restore.cgi +++ b/backup-config/restore.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './backup-config-lib.pl'; our (%in, %text, %config, $module_config_file); &ReadParseMime(); diff --git a/backup-config/save.cgi b/backup-config/save.cgi index 478b98175..8ec1e9cef 100755 --- a/backup-config/save.cgi +++ b/backup-config/save.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './backup-config-lib.pl'; our (%in, %text, $cron_cmd, $module_name); &ReadParse(); diff --git a/backup-config/uninstall.pl b/backup-config/uninstall.pl index 7343f29ce..7f81cccf6 100755 --- a/backup-config/uninstall.pl +++ b/backup-config/uninstall.pl @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require 'backup-config-lib.pl'; sub module_uninstall diff --git a/bin/disable-proxy b/bin/disable-proxy index 694733404..a4072cf64 100755 --- a/bin/disable-proxy +++ b/bin/disable-proxy @@ -2,6 +2,8 @@ # disable-proxy - Reverse/remove the configuration options set by enable-proxy. use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; BEGIN { $Pod::Usage::Formatter = 'Pod::Text::Color'; } use 5.010; # Version in CentOS 6 diff --git a/bin/disable-twofactor b/bin/disable-twofactor index ba2d52aa3..24ab84d9f 100755 --- a/bin/disable-twofactor +++ b/bin/disable-twofactor @@ -2,6 +2,8 @@ # disable-twofactor - Disable two-factor authentication for a user. use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; BEGIN { $Pod::Usage::Formatter = 'Pod::Text::Color'; } use 5.010; # Version in CentOS 6 diff --git a/bin/enable-proxy b/bin/enable-proxy index 97bf86730..5d0751961 100755 --- a/bin/enable-proxy +++ b/bin/enable-proxy @@ -3,6 +3,8 @@ # through a proxy. use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; BEGIN { $Pod::Usage::Formatter = 'Pod::Text::Color'; } use 5.010; # Version in CentOS 6 diff --git a/bin/language-manager b/bin/language-manager index 889e3550d..f2d1ac9e2 100755 --- a/bin/language-manager +++ b/bin/language-manager @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; use 5.014; use File::Spec; diff --git a/bin/list-config b/bin/list-config index 30bb57976..abd0defb1 100755 --- a/bin/list-config +++ b/bin/list-config @@ -3,6 +3,8 @@ # module. use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; BEGIN { $Pod::Usage::Formatter = 'Pod::Text::Color'; } use 5.010; # Version in CentOS 6 diff --git a/bin/passwd b/bin/passwd index cc966e916..f7e5dd42e 100755 --- a/bin/passwd +++ b/bin/passwd @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; use 5.010; use File::Basename; diff --git a/bin/server b/bin/server index 89d7ea55b..395ad15ab 100755 --- a/bin/server +++ b/bin/server @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; use 5.010; use File::Basename; diff --git a/bin/set-config b/bin/set-config index 1106a2902..726026f46 100755 --- a/bin/set-config +++ b/bin/set-config @@ -3,6 +3,8 @@ # restart Webmin to apply the change. use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; BEGIN { $Pod::Usage::Formatter = 'Pod::Text::Color'; } use 5.010; # Version in CentOS 6 diff --git a/bin/update-devel b/bin/update-devel index 25f93eda2..4e602f79e 100755 --- a/bin/update-devel +++ b/bin/update-devel @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; use 5.010; diff --git a/bin/webmin b/bin/webmin index 99d86c26d..c496cd053 100755 --- a/bin/webmin +++ b/bin/webmin @@ -3,6 +3,8 @@ # functions on the command line. use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; BEGIN { $Pod::Usage::Formatter = 'Pod::Text::Color'; } use 5.010; # Version in CentOS 6 diff --git a/bind8/acl_security.pl b/bind8/acl_security.pl index c59dab6f1..edd16d880 100755 --- a/bind8/acl_security.pl +++ b/bind8/acl_security.pl @@ -1,5 +1,7 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require 'bind8-lib.pl'; # Globals from bind8-lib.pl diff --git a/bind8/backup_config.pl b/bind8/backup_config.pl index 4f7d42755..b41e6f279 100755 --- a/bind8/backup_config.pl +++ b/bind8/backup_config.pl @@ -1,5 +1,7 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; do 'bind8-lib.pl'; # Globals from bind8-lib.pl diff --git a/bind8/bind8-lib.pl b/bind8/bind8-lib.pl index 17717faba..370599c80 100755 --- a/bind8/bind8-lib.pl +++ b/bind8/bind8-lib.pl @@ -3,8 +3,9 @@ use strict; use warnings; -use Time::Local; no warnings 'redefine'; +no warnings 'uninitialized'; +use Time::Local; BEGIN { push(@INC, ".."); }; use WebminCore; diff --git a/bind8/cgi_args.pl b/bind8/cgi_args.pl index b3af94e21..719a3124b 100755 --- a/bind8/cgi_args.pl +++ b/bind8/cgi_args.pl @@ -1,5 +1,7 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; do 'bind8-lib.pl'; # Globals from bind8-lib.pl diff --git a/bind8/check_zone.cgi b/bind8/check_zone.cgi index 472689a0c..f788f6ddd 100755 --- a/bind8/check_zone.cgi +++ b/bind8/check_zone.cgi @@ -2,6 +2,8 @@ # Check a zone's records and report problems use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './bind8-lib.pl'; # Globals from bind8-lib.pl diff --git a/bind8/close.cgi b/bind8/close.cgi index 5ad24431c..a9cdade96 100755 --- a/bind8/close.cgi +++ b/bind8/close.cgi @@ -2,6 +2,8 @@ # Remove some zone from the open list use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; # Globals our (%in); diff --git a/bind8/conf_acls.cgi b/bind8/conf_acls.cgi index 37d4c0865..4bed2015b 100755 --- a/bind8/conf_acls.cgi +++ b/bind8/conf_acls.cgi @@ -3,6 +3,8 @@ # Display global ACLs use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; # Globals our (%text, %access); diff --git a/bind8/conf_controls.cgi b/bind8/conf_controls.cgi index afed61e5d..af8dcf85e 100755 --- a/bind8/conf_controls.cgi +++ b/bind8/conf_controls.cgi @@ -2,6 +2,8 @@ # Display NDC control interface options use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; # Globals our (%text, %access); diff --git a/bind8/conf_dnssec.cgi b/bind8/conf_dnssec.cgi index 7ca68f79d..b47450430 100755 --- a/bind8/conf_dnssec.cgi +++ b/bind8/conf_dnssec.cgi @@ -2,6 +2,8 @@ # Show a form to setup DNSSEC key rotation use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; # Globals our (%text, %access, %config); diff --git a/bind8/conf_dnssectools.cgi b/bind8/conf_dnssectools.cgi index 0c103a3a7..c367f2871 100755 --- a/bind8/conf_dnssectools.cgi +++ b/bind8/conf_dnssectools.cgi @@ -2,6 +2,8 @@ # Show a form to setup DNSSEC-Tools parameters use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; # Globals our (%access, %text, %config); diff --git a/bind8/conf_files.cgi b/bind8/conf_files.cgi index 96d86bf67..a2522d118 100755 --- a/bind8/conf_files.cgi +++ b/bind8/conf_files.cgi @@ -3,6 +3,8 @@ # Display global files options use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; # Globals our (%access, %text); diff --git a/bind8/conf_forwarding.cgi b/bind8/conf_forwarding.cgi index 70fd9699a..7e7928fbf 100755 --- a/bind8/conf_forwarding.cgi +++ b/bind8/conf_forwarding.cgi @@ -3,6 +3,8 @@ # Display global forwarding and transfer options use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; # Globals our (%access, %text); diff --git a/bind8/conf_keys.cgi b/bind8/conf_keys.cgi index 908210650..a928384f7 100755 --- a/bind8/conf_keys.cgi +++ b/bind8/conf_keys.cgi @@ -3,6 +3,8 @@ # Display options for other DNS servers use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './bind8-lib.pl'; # Globals diff --git a/bind8/conf_logging.cgi b/bind8/conf_logging.cgi index ebe698dc0..1d9dd2a68 100755 --- a/bind8/conf_logging.cgi +++ b/bind8/conf_logging.cgi @@ -3,6 +3,8 @@ # Display global logging options use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in); our (@syslog_levels, @severities, @cat_list); diff --git a/bind8/conf_manual.cgi b/bind8/conf_manual.cgi index da02d6455..92ab1bd57 100755 --- a/bind8/conf_manual.cgi +++ b/bind8/conf_manual.cgi @@ -2,6 +2,8 @@ # Show a page for manually editing named.conf use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; # Globals our (%access, %text, %in); diff --git a/bind8/conf_misc.cgi b/bind8/conf_misc.cgi index ce3416070..e1d1c1728 100755 --- a/bind8/conf_misc.cgi +++ b/bind8/conf_misc.cgi @@ -3,6 +3,8 @@ # Display miscellaneous options use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; # Globals our (%access, %text); diff --git a/bind8/conf_ncheck.cgi b/bind8/conf_ncheck.cgi index 48d3c9a07..7c2534182 100755 --- a/bind8/conf_ncheck.cgi +++ b/bind8/conf_ncheck.cgi @@ -2,6 +2,8 @@ # Check the whole BIND config and report problems use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; # Globals our (%access, %text, %config); diff --git a/bind8/conf_net.cgi b/bind8/conf_net.cgi index 9d5ef6fe1..5d5071bb1 100755 --- a/bind8/conf_net.cgi +++ b/bind8/conf_net.cgi @@ -2,6 +2,8 @@ # Display global networking options use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; # Globals our (%access, %text); diff --git a/bind8/conf_rndc.cgi b/bind8/conf_rndc.cgi index 78f5784b4..d332f77cb 100755 --- a/bind8/conf_rndc.cgi +++ b/bind8/conf_rndc.cgi @@ -3,6 +3,8 @@ # XXX should check if already working! use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; # Globals our (%access, %text, %config); our $module_name; diff --git a/bind8/conf_servers.cgi b/bind8/conf_servers.cgi index 455b15cfc..07ded0843 100755 --- a/bind8/conf_servers.cgi +++ b/bind8/conf_servers.cgi @@ -3,6 +3,8 @@ # Display options for other DNS servers use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; # Globals our (%access, %text); diff --git a/bind8/conf_trusted.cgi b/bind8/conf_trusted.cgi index 84f4119c6..bb794b11f 100755 --- a/bind8/conf_trusted.cgi +++ b/bind8/conf_trusted.cgi @@ -2,6 +2,8 @@ # Show a form for setting up DNSSEC verification and trusted keys use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; # Globals our (%access, %text); our $dnssec_dlv_zone; diff --git a/bind8/conf_zonedef.cgi b/bind8/conf_zonedef.cgi index 6fd8c77cb..9f6467cf6 100755 --- a/bind8/conf_zonedef.cgi +++ b/bind8/conf_zonedef.cgi @@ -3,6 +3,8 @@ # Display defaults for master zones use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; # Globals our (%access, %text, %config); diff --git a/bind8/convert_master.cgi b/bind8/convert_master.cgi index 6ff5c09a9..70c450fbc 100755 --- a/bind8/convert_master.cgi +++ b/bind8/convert_master.cgi @@ -3,6 +3,8 @@ # Convert a master zone into a slave use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; # Globals our (%access, %text, %in, %config); diff --git a/bind8/convert_slave.cgi b/bind8/convert_slave.cgi index 356c1f244..beb492575 100755 --- a/bind8/convert_slave.cgi +++ b/bind8/convert_slave.cgi @@ -3,6 +3,8 @@ # Convert a slave/stub zone into a master use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; # Globals our (%access, %text, %in); diff --git a/bind8/create_delegation.cgi b/bind8/create_delegation.cgi index 2cf6c51da..dc209fdfa 100755 --- a/bind8/create_delegation.cgi +++ b/bind8/create_delegation.cgi @@ -3,6 +3,8 @@ # Create a new forward zone use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; # Globals our (%access, %text, %in, %config); diff --git a/bind8/create_forward.cgi b/bind8/create_forward.cgi index b2b24b7ee..4be6b5ee8 100755 --- a/bind8/create_forward.cgi +++ b/bind8/create_forward.cgi @@ -3,6 +3,8 @@ # Create a new forward zone use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; # Globals our (%access, %text, %in, %config); diff --git a/bind8/create_hint.cgi b/bind8/create_hint.cgi index 5b43d88c0..b11ef844b 100755 --- a/bind8/create_hint.cgi +++ b/bind8/create_hint.cgi @@ -3,6 +3,8 @@ # Create a new root zone use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; # Globals our (%access, %text, %in); our $module_root_directory; diff --git a/bind8/create_master.cgi b/bind8/create_master.cgi index afa179e87..dd6fd951e 100755 --- a/bind8/create_master.cgi +++ b/bind8/create_master.cgi @@ -3,6 +3,8 @@ # Create a new master zone use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; # Globals our (%access, %text, %in, %config); diff --git a/bind8/create_slave.cgi b/bind8/create_slave.cgi index 05e7da283..33cbfc34b 100755 --- a/bind8/create_slave.cgi +++ b/bind8/create_slave.cgi @@ -6,6 +6,8 @@ # on a non-standard port use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; # Globals our (%access, %text, %in, %config); diff --git a/bind8/create_view.cgi b/bind8/create_view.cgi index b5b112d71..95ed24a44 100755 --- a/bind8/create_view.cgi +++ b/bind8/create_view.cgi @@ -2,6 +2,8 @@ # create_view.cgi use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; # Globals our (%access, %text, %in); diff --git a/bind8/delegation_form.cgi b/bind8/delegation_form.cgi index 23a35ef86..7c62a43d2 100755 --- a/bind8/delegation_form.cgi +++ b/bind8/delegation_form.cgi @@ -3,6 +3,8 @@ # A form for creating a new delegation-only use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; # Globals our (%access, %text, %config); diff --git a/bind8/delete_recs.cgi b/bind8/delete_recs.cgi index e912a29ef..6efbf75bf 100755 --- a/bind8/delete_recs.cgi +++ b/bind8/delete_recs.cgi @@ -2,6 +2,8 @@ # Delete multiple records from a zone file use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; # Globals our (%access, %text, %in, %config); diff --git a/bind8/delete_view.cgi b/bind8/delete_view.cgi index 2de6b9498..8cea84e10 100755 --- a/bind8/delete_view.cgi +++ b/bind8/delete_view.cgi @@ -3,6 +3,8 @@ # Delete an existing view and all its zones use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; # Globals our (%access, %text, %in); diff --git a/bind8/delete_zone.cgi b/bind8/delete_zone.cgi index 6ec0fd5ce..29fe54c0b 100755 --- a/bind8/delete_zone.cgi +++ b/bind8/delete_zone.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; # Globals from bind8-lib.pl our (%access, %text, %in, %config); # Globals from records-lib.pl diff --git a/bind8/disable_zonedt.cgi b/bind8/disable_zonedt.cgi index 8f2a6de4a..b5f52ca45 100755 --- a/bind8/disable_zonedt.cgi +++ b/bind8/disable_zonedt.cgi @@ -2,6 +2,8 @@ # Remove the signing key records for a zone use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in); require './bind8-lib.pl'; diff --git a/bind8/disable_zonekey.cgi b/bind8/disable_zonekey.cgi index 3509ed583..2dccdb29e 100755 --- a/bind8/disable_zonekey.cgi +++ b/bind8/disable_zonekey.cgi @@ -2,6 +2,8 @@ # Remove the signing key records for a zone use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in); require './bind8-lib.pl'; diff --git a/bind8/dns_boot.cgi b/bind8/dns_boot.cgi index 81044886a..649df338b 100755 --- a/bind8/dns_boot.cgi +++ b/bind8/dns_boot.cgi @@ -3,6 +3,8 @@ # Create an empty named.conf file and start the name server use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %config, %in); require './bind8-lib.pl'; diff --git a/bind8/edit_delegation.cgi b/bind8/edit_delegation.cgi index 9c3bcadb3..0bb1a1c41 100755 --- a/bind8/edit_delegation.cgi +++ b/bind8/edit_delegation.cgi @@ -3,6 +3,8 @@ # Display options for an existing delegation-only use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %in, %text); require './bind8-lib.pl'; diff --git a/bind8/edit_forward.cgi b/bind8/edit_forward.cgi index 8aa69ddf5..ecd109394 100755 --- a/bind8/edit_forward.cgi +++ b/bind8/edit_forward.cgi @@ -3,6 +3,8 @@ # Display options for an existing forward zone use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %in, %text); require './bind8-lib.pl'; diff --git a/bind8/edit_hint.cgi b/bind8/edit_hint.cgi index f8d65054f..1f9a22b52 100755 --- a/bind8/edit_hint.cgi +++ b/bind8/edit_hint.cgi @@ -3,6 +3,8 @@ # Display information about the hint (root) zone use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%in, %text); require './bind8-lib.pl'; diff --git a/bind8/edit_master.cgi b/bind8/edit_master.cgi index 5741f6a42..4f6aba0e3 100755 --- a/bind8/edit_master.cgi +++ b/bind8/edit_master.cgi @@ -3,6 +3,8 @@ # Display options and directives in an existing master zone use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in, %config, %is_extra); require './bind8-lib.pl'; diff --git a/bind8/edit_options.cgi b/bind8/edit_options.cgi index 77e6345dc..855ee34b1 100755 --- a/bind8/edit_options.cgi +++ b/bind8/edit_options.cgi @@ -3,6 +3,8 @@ # Display options for an existing master zone use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in); require './bind8-lib.pl'; diff --git a/bind8/edit_record.cgi b/bind8/edit_record.cgi index 82d275924..48ce82b7a 100755 --- a/bind8/edit_record.cgi +++ b/bind8/edit_record.cgi @@ -3,6 +3,8 @@ # Edit an existing record of some type use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in); require './bind8-lib.pl'; diff --git a/bind8/edit_recs.cgi b/bind8/edit_recs.cgi index fdfd02028..82687e4c8 100755 --- a/bind8/edit_recs.cgi +++ b/bind8/edit_recs.cgi @@ -3,6 +3,8 @@ # Display records of some type from some domain use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in, %config, %is_extra); require './bind8-lib.pl'; diff --git a/bind8/edit_slave.cgi b/bind8/edit_slave.cgi index 045efd8fc..35c01e119 100755 --- a/bind8/edit_slave.cgi +++ b/bind8/edit_slave.cgi @@ -3,6 +3,8 @@ # Display records and other info for an existing slave or stub zone use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in, %config); require './bind8-lib.pl'; diff --git a/bind8/edit_soa.cgi b/bind8/edit_soa.cgi index d0cf80c43..88cb363df 100755 --- a/bind8/edit_soa.cgi +++ b/bind8/edit_soa.cgi @@ -3,6 +3,8 @@ # Display the SOA for an existing master zone use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %in, %text, %config); require './bind8-lib.pl'; diff --git a/bind8/edit_soptions.cgi b/bind8/edit_soptions.cgi index 9cf36518f..c05951553 100755 --- a/bind8/edit_soptions.cgi +++ b/bind8/edit_soptions.cgi @@ -3,6 +3,8 @@ # Display options for an existing slave or stub zone use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %in, %text); our $scriptname; diff --git a/bind8/edit_text.cgi b/bind8/edit_text.cgi index a56bd966d..069fcd130 100755 --- a/bind8/edit_text.cgi +++ b/bind8/edit_text.cgi @@ -3,6 +3,8 @@ # Display a form for manually editing a records file use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in, %config); require './bind8-lib.pl'; diff --git a/bind8/edit_view.cgi b/bind8/edit_view.cgi index f722834bc..792868233 100755 --- a/bind8/edit_view.cgi +++ b/bind8/edit_view.cgi @@ -3,6 +3,8 @@ # Display options for an existing view use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in); require './bind8-lib.pl'; diff --git a/bind8/edit_zonedt.cgi b/bind8/edit_zonedt.cgi index 6b85fe196..39cce1cc3 100755 --- a/bind8/edit_zonedt.cgi +++ b/bind8/edit_zonedt.cgi @@ -2,6 +2,8 @@ # Display the signing key for a zone, or offer to set one up use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in, %config, $in); require './bind8-lib.pl'; diff --git a/bind8/edit_zonekey.cgi b/bind8/edit_zonekey.cgi index a078e58c0..53d363831 100755 --- a/bind8/edit_zonekey.cgi +++ b/bind8/edit_zonekey.cgi @@ -2,6 +2,8 @@ # Display the signing key for a zone, or offer to set one up use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %in, %text, $in, %config); require './bind8-lib.pl'; diff --git a/bind8/enable_zonedt.cgi b/bind8/enable_zonedt.cgi index 6a5142f73..52b342630 100755 --- a/bind8/enable_zonedt.cgi +++ b/bind8/enable_zonedt.cgi @@ -2,6 +2,8 @@ # Create a signing key for a zone, add it, and sign the zone use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in); require './bind8-lib.pl'; diff --git a/bind8/enable_zonekey.cgi b/bind8/enable_zonekey.cgi index d07437dfd..bff9591ec 100755 --- a/bind8/enable_zonekey.cgi +++ b/bind8/enable_zonekey.cgi @@ -2,6 +2,8 @@ # Create a signing key for a zone, add it, and sign the zone use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in); require './bind8-lib.pl'; diff --git a/bind8/feedback_files.pl b/bind8/feedback_files.pl index ba5e3a1d9..3b184baa8 100755 --- a/bind8/feedback_files.pl +++ b/bind8/feedback_files.pl @@ -1,5 +1,7 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%config); do 'bind8-lib.pl'; diff --git a/bind8/find_free.cgi b/bind8/find_free.cgi index d9074af31..9889a7dba 100755 --- a/bind8/find_free.cgi +++ b/bind8/find_free.cgi @@ -4,6 +4,8 @@ # by Ivan Andrian, , 11/07/2000 use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in); require './bind8-lib.pl'; diff --git a/bind8/find_zones.cgi b/bind8/find_zones.cgi index c3747aa08..15e4cb6f8 100755 --- a/bind8/find_zones.cgi +++ b/bind8/find_zones.cgi @@ -3,6 +3,8 @@ # Display zones matching some search use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%in, %config, %text); require './bind8-lib.pl'; diff --git a/bind8/fix_trusted.cgi b/bind8/fix_trusted.cgi index 2804f6338..38c3681a9 100755 --- a/bind8/fix_trusted.cgi +++ b/bind8/fix_trusted.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in, %config); require './bind8-lib.pl'; diff --git a/bind8/forward_form.cgi b/bind8/forward_form.cgi index 63916285b..3f350ea8b 100755 --- a/bind8/forward_form.cgi +++ b/bind8/forward_form.cgi @@ -3,6 +3,8 @@ # A form for creating a new forard zone use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %config); require './bind8-lib.pl'; diff --git a/bind8/free_chooser.cgi b/bind8/free_chooser.cgi index e3436ca23..ad7a1b416 100755 --- a/bind8/free_chooser.cgi +++ b/bind8/free_chooser.cgi @@ -2,6 +2,8 @@ # Show a list of free IP addresses, within the configured ranges use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%config, %text); require './bind8-lib.pl'; diff --git a/bind8/freeze_zone.cgi b/bind8/freeze_zone.cgi index 85aeba5d5..201c8b7e2 100755 --- a/bind8/freeze_zone.cgi +++ b/bind8/freeze_zone.cgi @@ -3,6 +3,8 @@ # Apply changes to one zone only using the ndc command use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in); require './bind8-lib.pl'; diff --git a/bind8/hint_form.cgi b/bind8/hint_form.cgi index ee68077ec..9f0212771 100755 --- a/bind8/hint_form.cgi +++ b/bind8/hint_form.cgi @@ -3,6 +3,8 @@ # Display options for creating a new root zone use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %config); require './bind8-lib.pl'; diff --git a/bind8/index.cgi b/bind8/index.cgi index 7aa43d434..ec04ac8cc 100755 --- a/bind8/index.cgi +++ b/bind8/index.cgi @@ -2,6 +2,8 @@ # Display a list of domains, views, and icons for global options. use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %config, %gconfig, %in); our ($module_name, $module_config_directory); diff --git a/bind8/install_check.pl b/bind8/install_check.pl index 221430a54..61957a096 100755 --- a/bind8/install_check.pl +++ b/bind8/install_check.pl @@ -1,6 +1,8 @@ # install_check.pl use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%config); do 'bind8-lib.pl'; diff --git a/bind8/list_gen.cgi b/bind8/list_gen.cgi index 2cd906820..64001e2c7 100755 --- a/bind8/list_gen.cgi +++ b/bind8/list_gen.cgi @@ -3,6 +3,8 @@ # Display $generate entries use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our(%access, %text, %in); our $bind_version; diff --git a/bind8/list_slaves.cgi b/bind8/list_slaves.cgi index 51d982109..582c001ac 100755 --- a/bind8/list_slaves.cgi +++ b/bind8/list_slaves.cgi @@ -2,6 +2,8 @@ # Show hosts in BIND cluster use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text); require './bind8-lib.pl'; diff --git a/bind8/mass_create.cgi b/bind8/mass_create.cgi index 62962afdb..1c3868b33 100755 --- a/bind8/mass_create.cgi +++ b/bind8/mass_create.cgi @@ -2,6 +2,8 @@ # Actually create multiple zones use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %in, %text, %config); require './bind8-lib.pl'; diff --git a/bind8/mass_delete.cgi b/bind8/mass_delete.cgi index dc6595daa..a310465a4 100755 --- a/bind8/mass_delete.cgi +++ b/bind8/mass_delete.cgi @@ -2,6 +2,8 @@ # Delete a bunch of zones, after asking for confirmation use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in); require './bind8-lib.pl'; diff --git a/bind8/mass_form.cgi b/bind8/mass_form.cgi index d7d22b72a..c04390814 100755 --- a/bind8/mass_form.cgi +++ b/bind8/mass_form.cgi @@ -2,6 +2,8 @@ # Form for creating multiple zones from an uploaded file, local file or text use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %config); require './bind8-lib.pl'; diff --git a/bind8/mass_rcreate.cgi b/bind8/mass_rcreate.cgi index 1ffe734b3..86a56c2d2 100755 --- a/bind8/mass_rcreate.cgi +++ b/bind8/mass_rcreate.cgi @@ -2,6 +2,8 @@ # Add a record to multiple domains use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in); require './bind8-lib.pl'; diff --git a/bind8/mass_rcreate_form.cgi b/bind8/mass_rcreate_form.cgi index f12ef1441..36a36b2c9 100755 --- a/bind8/mass_rcreate_form.cgi +++ b/bind8/mass_rcreate_form.cgi @@ -2,6 +2,8 @@ # Show a form for adding a record to multiple domains at once use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %config); require './bind8-lib.pl'; diff --git a/bind8/mass_rdelete.cgi b/bind8/mass_rdelete.cgi index c4e0946b3..ef210d767 100755 --- a/bind8/mass_rdelete.cgi +++ b/bind8/mass_rdelete.cgi @@ -2,6 +2,8 @@ # Delete all records of some type with some name use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in); require './bind8-lib.pl'; diff --git a/bind8/mass_rdelete_form.cgi b/bind8/mass_rdelete_form.cgi index 127032328..207e2a1be 100755 --- a/bind8/mass_rdelete_form.cgi +++ b/bind8/mass_rdelete_form.cgi @@ -2,6 +2,8 @@ # Show a form for deleting a record in multiple zones use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %config); require './bind8-lib.pl'; diff --git a/bind8/mass_update.cgi b/bind8/mass_update.cgi index 74defa75b..04e8dda04 100755 --- a/bind8/mass_update.cgi +++ b/bind8/mass_update.cgi @@ -2,6 +2,8 @@ # Change all instances of some IP use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in); require './bind8-lib.pl'; diff --git a/bind8/master_form.cgi b/bind8/master_form.cgi index 072206d52..d4a8274d7 100755 --- a/bind8/master_form.cgi +++ b/bind8/master_form.cgi @@ -3,6 +3,8 @@ # Form for creating a new master zone use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %config); require './bind8-lib.pl'; diff --git a/bind8/move_zone.cgi b/bind8/move_zone.cgi index 1d8612400..8e115dc1a 100755 --- a/bind8/move_zone.cgi +++ b/bind8/move_zone.cgi @@ -3,6 +3,8 @@ # Move a zone to a different view use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %config); require './bind8-lib.pl'; diff --git a/bind8/old_save_controls.cgi b/bind8/old_save_controls.cgi index d425b3d2a..1cfb283f6 100755 --- a/bind8/old_save_controls.cgi +++ b/bind8/old_save_controls.cgi @@ -3,6 +3,8 @@ # Save global miscellaneous options use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in, %config); require './bind8-lib.pl'; diff --git a/bind8/open.cgi b/bind8/open.cgi index 5f1cc7fc9..61ca345d2 100755 --- a/bind8/open.cgi +++ b/bind8/open.cgi @@ -2,6 +2,8 @@ # Add some zone to the open list use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%in); require './bind8-lib.pl'; diff --git a/bind8/records-lib.pl b/bind8/records-lib.pl index 194fe2a3d..f7413327e 100755 --- a/bind8/records-lib.pl +++ b/bind8/records-lib.pl @@ -2,6 +2,7 @@ use strict; use warnings; no warnings 'redefine'; +no warnings 'uninitialized'; # Globals from Webmin or bind8-lib.pl our (%config, %text, %in); diff --git a/bind8/refetch.cgi b/bind8/refetch.cgi index e53b7bb6b..e2cc4a2da 100755 --- a/bind8/refetch.cgi +++ b/bind8/refetch.cgi @@ -2,6 +2,8 @@ # Re-download the root zone servers use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in); require './bind8-lib.pl'; diff --git a/bind8/resign.pl b/bind8/resign.pl index d48b0ff44..267302c6d 100755 --- a/bind8/resign.pl +++ b/bind8/resign.pl @@ -2,6 +2,8 @@ # Called from cron to re-sign all zones that are too old use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our %config; my $no_acl_check++; diff --git a/bind8/resign_zone.cgi b/bind8/resign_zone.cgi index 21ac8577e..174537bf5 100755 --- a/bind8/resign_zone.cgi +++ b/bind8/resign_zone.cgi @@ -2,6 +2,8 @@ # Re-generate the zone key and re-sign a zone use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in); require './bind8-lib.pl'; diff --git a/bind8/restart.cgi b/bind8/restart.cgi index 370554e90..523386c33 100755 --- a/bind8/restart.cgi +++ b/bind8/restart.cgi @@ -3,6 +3,8 @@ # Restart the running named use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in); require './bind8-lib.pl'; diff --git a/bind8/restart_zone.cgi b/bind8/restart_zone.cgi index a79f23438..6b445b5bf 100755 --- a/bind8/restart_zone.cgi +++ b/bind8/restart_zone.cgi @@ -3,6 +3,8 @@ # Apply changes to one zone only using the ndc command use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in); require './bind8-lib.pl'; diff --git a/bind8/save_acls.cgi b/bind8/save_acls.cgi index 8bac76e1d..fbd24763d 100755 --- a/bind8/save_acls.cgi +++ b/bind8/save_acls.cgi @@ -3,6 +3,8 @@ # Update all the acl directives use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in, %config); require './bind8-lib.pl'; diff --git a/bind8/save_controls.cgi b/bind8/save_controls.cgi index 98cb5145d..a7f888a76 100755 --- a/bind8/save_controls.cgi +++ b/bind8/save_controls.cgi @@ -2,6 +2,8 @@ # Save control interface options use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in, %config); require './bind8-lib.pl'; diff --git a/bind8/save_dnssec.cgi b/bind8/save_dnssec.cgi index 5fb176fe7..fd49ddd04 100755 --- a/bind8/save_dnssec.cgi +++ b/bind8/save_dnssec.cgi @@ -2,6 +2,8 @@ # Turn on or off the DNSSEC key rotation cron job use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in, %config); our $dnssec_cron_cmd; our $module_name; diff --git a/bind8/save_dnssectools.cgi b/bind8/save_dnssectools.cgi index f34b12dc1..70ba22480 100755 --- a/bind8/save_dnssectools.cgi +++ b/bind8/save_dnssectools.cgi @@ -2,6 +2,8 @@ # save dnssec-tools related options use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in, %config); our $module_config_file; diff --git a/bind8/save_files.cgi b/bind8/save_files.cgi index dcc2e0f9a..6c0a4f68b 100755 --- a/bind8/save_files.cgi +++ b/bind8/save_files.cgi @@ -3,6 +3,8 @@ # Save global files options use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in, %config); require './bind8-lib.pl'; diff --git a/bind8/save_forward.cgi b/bind8/save_forward.cgi index 904d901a7..f57d77d1c 100755 --- a/bind8/save_forward.cgi +++ b/bind8/save_forward.cgi @@ -3,6 +3,8 @@ # Save changes to forward zone options in named.conf use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in); require './bind8-lib.pl'; diff --git a/bind8/save_forwarding.cgi b/bind8/save_forwarding.cgi index 03794b2b6..9cfd3cd8b 100755 --- a/bind8/save_forwarding.cgi +++ b/bind8/save_forwarding.cgi @@ -3,6 +3,8 @@ # Save global forwarding options use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %config, %in); require './bind8-lib.pl'; diff --git a/bind8/save_gen.cgi b/bind8/save_gen.cgi index 2cea60926..46074b12a 100755 --- a/bind8/save_gen.cgi +++ b/bind8/save_gen.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in); # From records-lib.pl our ($uscore, $star); diff --git a/bind8/save_keys.cgi b/bind8/save_keys.cgi index 33efae5df..a7bc14ef0 100755 --- a/bind8/save_keys.cgi +++ b/bind8/save_keys.cgi @@ -3,6 +3,8 @@ # Update all the key directives use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in, %config); require './bind8-lib.pl'; diff --git a/bind8/save_logging.cgi b/bind8/save_logging.cgi index c8310a27b..08b68104c 100755 --- a/bind8/save_logging.cgi +++ b/bind8/save_logging.cgi @@ -3,6 +3,8 @@ # Save global logging options use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in, %config); require './bind8-lib.pl'; diff --git a/bind8/save_manual.cgi b/bind8/save_manual.cgi index 11252ef6f..c46be74d8 100755 --- a/bind8/save_manual.cgi +++ b/bind8/save_manual.cgi @@ -2,6 +2,8 @@ # Update a manually edited config file use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in); require './bind8-lib.pl'; diff --git a/bind8/save_master.cgi b/bind8/save_master.cgi index 08ff0a48b..ad3ec931a 100755 --- a/bind8/save_master.cgi +++ b/bind8/save_master.cgi @@ -3,6 +3,8 @@ # Save changes to master zone options in named.conf use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in); require './bind8-lib.pl'; diff --git a/bind8/save_misc.cgi b/bind8/save_misc.cgi index 199d2581e..19d319fbb 100755 --- a/bind8/save_misc.cgi +++ b/bind8/save_misc.cgi @@ -3,6 +3,8 @@ # Save global miscellaneous options use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in, %config); require './bind8-lib.pl'; diff --git a/bind8/save_net.cgi b/bind8/save_net.cgi index 2a985acc4..2aad007e4 100755 --- a/bind8/save_net.cgi +++ b/bind8/save_net.cgi @@ -3,6 +3,8 @@ # Save global address and topology options use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in, %config); require './bind8-lib.pl'; diff --git a/bind8/save_record.cgi b/bind8/save_record.cgi index e429015e1..8dfd43f92 100755 --- a/bind8/save_record.cgi +++ b/bind8/save_record.cgi @@ -3,6 +3,8 @@ # Adds or updates a record of some type use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in, %config); require './bind8-lib.pl'; diff --git a/bind8/save_rndc.cgi b/bind8/save_rndc.cgi index edd1b412a..91978395e 100755 --- a/bind8/save_rndc.cgi +++ b/bind8/save_rndc.cgi @@ -2,6 +2,8 @@ # Actually setup rndc use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %config); require './bind8-lib.pl'; diff --git a/bind8/save_servers.cgi b/bind8/save_servers.cgi index 8920c3f87..1151a9457 100755 --- a/bind8/save_servers.cgi +++ b/bind8/save_servers.cgi @@ -3,6 +3,8 @@ # Update all the server directives use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in, %config); require './bind8-lib.pl'; diff --git a/bind8/save_slave.cgi b/bind8/save_slave.cgi index 9912c1a2c..10d5f716e 100755 --- a/bind8/save_slave.cgi +++ b/bind8/save_slave.cgi @@ -3,6 +3,8 @@ # Save changes to slave zone options in named.conf use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in); require './bind8-lib.pl'; diff --git a/bind8/save_soa.cgi b/bind8/save_soa.cgi index 7e630f3a5..8bd6491a2 100755 --- a/bind8/save_soa.cgi +++ b/bind8/save_soa.cgi @@ -3,6 +3,8 @@ # Save changes to an SOA record use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in, %config); require './bind8-lib.pl'; diff --git a/bind8/save_text.cgi b/bind8/save_text.cgi index e9f2afafb..0b8610e98 100755 --- a/bind8/save_text.cgi +++ b/bind8/save_text.cgi @@ -3,6 +3,8 @@ # Save a manually edit zone file use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in); require './bind8-lib.pl'; diff --git a/bind8/save_trusted.cgi b/bind8/save_trusted.cgi index 07a8b9e8e..4da2dbebe 100755 --- a/bind8/save_trusted.cgi +++ b/bind8/save_trusted.cgi @@ -2,6 +2,8 @@ # Save DNSSEC verification options use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in, %config); require './bind8-lib.pl'; diff --git a/bind8/save_view.cgi b/bind8/save_view.cgi index 0f57d44da..5f01ca621 100755 --- a/bind8/save_view.cgi +++ b/bind8/save_view.cgi @@ -3,6 +3,8 @@ # Update an existing view use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in); require './bind8-lib.pl'; diff --git a/bind8/save_zonedef.cgi b/bind8/save_zonedef.cgi index 308a9a52c..04b2009b7 100755 --- a/bind8/save_zonedef.cgi +++ b/bind8/save_zonedef.cgi @@ -3,6 +3,8 @@ # Save zone defaults use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in, %config); our $module_config_directory; diff --git a/bind8/sign_zone.cgi b/bind8/sign_zone.cgi index e8b3b0a83..a6ba534f7 100755 --- a/bind8/sign_zone.cgi +++ b/bind8/sign_zone.cgi @@ -2,6 +2,8 @@ # Sign a master zone use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in); require './bind8-lib.pl'; diff --git a/bind8/slave_add.cgi b/bind8/slave_add.cgi index cf57ceeed..2f8c83627 100755 --- a/bind8/slave_add.cgi +++ b/bind8/slave_add.cgi @@ -2,6 +2,8 @@ # Add or update a server or group from the webmin servers module use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in, %config); require './bind8-lib.pl'; diff --git a/bind8/slave_delete.cgi b/bind8/slave_delete.cgi index cb4fff62b..6b73b3956 100755 --- a/bind8/slave_delete.cgi +++ b/bind8/slave_delete.cgi @@ -2,6 +2,8 @@ # Remove some servers from the managed list use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in); require './bind8-lib.pl'; diff --git a/bind8/slave_form.cgi b/bind8/slave_form.cgi index af315d1db..3ad13069f 100755 --- a/bind8/slave_form.cgi +++ b/bind8/slave_form.cgi @@ -3,6 +3,8 @@ # A form for creating a new slave or stub zone use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %config); require './bind8-lib.pl'; diff --git a/bind8/start.cgi b/bind8/start.cgi index e71d0299d..5df8b67f9 100755 --- a/bind8/start.cgi +++ b/bind8/start.cgi @@ -3,6 +3,8 @@ # Start bind 8 use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in); require './bind8-lib.pl'; diff --git a/bind8/syslog_logs.pl b/bind8/syslog_logs.pl index 7a0f7d269..4e0ac538b 100755 --- a/bind8/syslog_logs.pl +++ b/bind8/syslog_logs.pl @@ -1,6 +1,8 @@ # Contains a function to supply the syslog module with extra logs use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text); require 'bind8-lib.pl'; diff --git a/bind8/unfreeze_zone.cgi b/bind8/unfreeze_zone.cgi index 1e90dd2fe..9455ebed3 100755 --- a/bind8/unfreeze_zone.cgi +++ b/bind8/unfreeze_zone.cgi @@ -3,6 +3,8 @@ # Apply changes to one zone only using the ndc command use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in); require './bind8-lib.pl'; diff --git a/bind8/view_form.cgi b/bind8/view_form.cgi index 364344bd6..5bfab8714 100755 --- a/bind8/view_form.cgi +++ b/bind8/view_form.cgi @@ -3,6 +3,8 @@ # Display options for creating a new view use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text); require './bind8-lib.pl'; diff --git a/bind8/view_text.cgi b/bind8/view_text.cgi index 0feb8e762..343c97e9f 100755 --- a/bind8/view_text.cgi +++ b/bind8/view_text.cgi @@ -3,6 +3,8 @@ # Display the records in a zone use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in); require './bind8-lib.pl'; diff --git a/bind8/whois.cgi b/bind8/whois.cgi index 7b6f9219b..1a4524ab8 100755 --- a/bind8/whois.cgi +++ b/bind8/whois.cgi @@ -3,6 +3,8 @@ # Call whois to get zone info use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in, %config); require './bind8-lib.pl'; diff --git a/bind8/xfer.cgi b/bind8/xfer.cgi index fcf63871f..a373c4084 100755 --- a/bind8/xfer.cgi +++ b/bind8/xfer.cgi @@ -2,6 +2,8 @@ # Force a zone transfer for a slave domain use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in); require './bind8-lib.pl'; diff --git a/bind8/zone_dnssecmgt_dt.cgi b/bind8/zone_dnssecmgt_dt.cgi index 1b61689c5..ba9b9239c 100755 --- a/bind8/zone_dnssecmgt_dt.cgi +++ b/bind8/zone_dnssecmgt_dt.cgi @@ -2,6 +2,8 @@ # Perform one of a number of DNSSEC-related operations for the zone use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in); require './bind8-lib.pl'; diff --git a/bind8/zone_dnssecmigrate_dt.cgi b/bind8/zone_dnssecmigrate_dt.cgi index 5d108bc21..5b95a8f7f 100755 --- a/bind8/zone_dnssecmigrate_dt.cgi +++ b/bind8/zone_dnssecmigrate_dt.cgi @@ -2,6 +2,8 @@ # Migrate an existing DNSSEC signed zone to using the DNSSEC-Tools suite for DNSSEC-related automation use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%access, %text, %in, %config); require './bind8-lib.pl'; diff --git a/bsdfdisk/bsdfdisk-lib.pl b/bsdfdisk/bsdfdisk-lib.pl index 249a94cf5..b2d66e1ff 100644 --- a/bsdfdisk/bsdfdisk-lib.pl +++ b/bsdfdisk/bsdfdisk-lib.pl @@ -2,6 +2,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; BEGIN { push(@INC, ".."); }; use WebminCore; &init_config(); diff --git a/bsdfdisk/create_part.cgi b/bsdfdisk/create_part.cgi index cd94121f2..6b91d2d13 100755 --- a/bsdfdisk/create_part.cgi +++ b/bsdfdisk/create_part.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './bsdfdisk-lib.pl'; our (%in, %text, $module_name); &ReadParse(); diff --git a/bsdfdisk/create_slice.cgi b/bsdfdisk/create_slice.cgi index ddf363a8f..b9e7a1961 100755 --- a/bsdfdisk/create_slice.cgi +++ b/bsdfdisk/create_slice.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './bsdfdisk-lib.pl'; our (%in, %text, $module_name); &ReadParse(); diff --git a/bsdfdisk/delete_part.cgi b/bsdfdisk/delete_part.cgi index addd2ef9e..04112d71b 100755 --- a/bsdfdisk/delete_part.cgi +++ b/bsdfdisk/delete_part.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './bsdfdisk-lib.pl'; our (%in, %text, $module_name); &ReadParse(); diff --git a/bsdfdisk/delete_slice.cgi b/bsdfdisk/delete_slice.cgi index f927725d1..c230c5754 100755 --- a/bsdfdisk/delete_slice.cgi +++ b/bsdfdisk/delete_slice.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './bsdfdisk-lib.pl'; our (%in, %text, $module_name); &ReadParse(); diff --git a/bsdfdisk/edit_disk.cgi b/bsdfdisk/edit_disk.cgi index a758eca96..66a94458b 100755 --- a/bsdfdisk/edit_disk.cgi +++ b/bsdfdisk/edit_disk.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './bsdfdisk-lib.pl'; our (%in, %text, $module_name); &ReadParse(); diff --git a/bsdfdisk/edit_part.cgi b/bsdfdisk/edit_part.cgi index 52cc02fd4..87ff74a0b 100755 --- a/bsdfdisk/edit_part.cgi +++ b/bsdfdisk/edit_part.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './bsdfdisk-lib.pl'; our (%in, %text, $module_name); &ReadParse(); diff --git a/bsdfdisk/edit_slice.cgi b/bsdfdisk/edit_slice.cgi index 1e77d92c9..3a901154c 100755 --- a/bsdfdisk/edit_slice.cgi +++ b/bsdfdisk/edit_slice.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './bsdfdisk-lib.pl'; our (%in, %text, $module_name); &ReadParse(); diff --git a/bsdfdisk/fsck.cgi b/bsdfdisk/fsck.cgi index aa66d29a5..b4f6a8b78 100755 --- a/bsdfdisk/fsck.cgi +++ b/bsdfdisk/fsck.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './bsdfdisk-lib.pl'; our (%in, %text, $module_name); &ReadParse(); diff --git a/bsdfdisk/index.cgi b/bsdfdisk/index.cgi index adaf0f272..589e62ee2 100755 --- a/bsdfdisk/index.cgi +++ b/bsdfdisk/index.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './bsdfdisk-lib.pl'; our (%in, %text, %config, $module_name); diff --git a/bsdfdisk/newfs.cgi b/bsdfdisk/newfs.cgi index 9a3143a53..384030035 100755 --- a/bsdfdisk/newfs.cgi +++ b/bsdfdisk/newfs.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './bsdfdisk-lib.pl'; our (%in, %text, $module_name); &ReadParse(); diff --git a/bsdfdisk/newfs_form.cgi b/bsdfdisk/newfs_form.cgi index a4a6870fa..7466a2448 100755 --- a/bsdfdisk/newfs_form.cgi +++ b/bsdfdisk/newfs_form.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './bsdfdisk-lib.pl'; our (%in, %text, $module_name); &ReadParse(); diff --git a/bsdfdisk/part_form.cgi b/bsdfdisk/part_form.cgi index 2eefe9558..f6eb6fefe 100755 --- a/bsdfdisk/part_form.cgi +++ b/bsdfdisk/part_form.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './bsdfdisk-lib.pl'; our (%in, %text, $module_name); &ReadParse(); diff --git a/bsdfdisk/save_part.cgi b/bsdfdisk/save_part.cgi index fb16cadea..fda89d07b 100755 --- a/bsdfdisk/save_part.cgi +++ b/bsdfdisk/save_part.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './bsdfdisk-lib.pl'; our (%in, %text, $module_name); &ReadParse(); diff --git a/bsdfdisk/save_slice.cgi b/bsdfdisk/save_slice.cgi index 9a063b543..69cbda19f 100755 --- a/bsdfdisk/save_slice.cgi +++ b/bsdfdisk/save_slice.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './bsdfdisk-lib.pl'; our (%in, %text, $module_name); &ReadParse(); diff --git a/bsdfdisk/slice_form.cgi b/bsdfdisk/slice_form.cgi index b55f1487d..904310e43 100755 --- a/bsdfdisk/slice_form.cgi +++ b/bsdfdisk/slice_form.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './bsdfdisk-lib.pl'; our (%in, %text, $module_name); &ReadParse(); diff --git a/change-user/acl_security.pl b/change-user/acl_security.pl index 9fe0f97d1..8c7cbe8f0 100755 --- a/change-user/acl_security.pl +++ b/change-user/acl_security.pl @@ -1,6 +1,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; do 'change-user-lib.pl'; our (%text, %in); diff --git a/change-user/change-user-lib.pl b/change-user/change-user-lib.pl index bf06df5a0..affc66d9b 100755 --- a/change-user/change-user-lib.pl +++ b/change-user/change-user-lib.pl @@ -8,6 +8,8 @@ say here. BEGIN { push(@INC, ".."); }; use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; use WebminCore; &init_config(); &foreign_require("acl", "acl-lib.pl"); diff --git a/change-user/change.cgi b/change-user/change.cgi index ac7cada55..abc4b6992 100755 --- a/change-user/change.cgi +++ b/change-user/change.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './change-user-lib.pl'; our (%text, %in, %gconfig, $base_remote_user, %access); &ReadParse(); diff --git a/change-user/index.cgi b/change-user/index.cgi index 9b2b68c97..d1857e0ef 100755 --- a/change-user/index.cgi +++ b/change-user/index.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './change-user-lib.pl'; our (%text, %access, $base_remote_user, $default_lang, %gconfig); &ui_print_header(undef, $text{'index_title'}, "", undef, 0, 1); diff --git a/exports/backup_config.pl b/exports/backup_config.pl index 39fac7fe1..15af476d3 100755 --- a/exports/backup_config.pl +++ b/exports/backup_config.pl @@ -1,6 +1,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; do 'exports-lib.pl'; our (%config); diff --git a/exports/cgi_args.pl b/exports/cgi_args.pl index c66d3ef25..4d25499a4 100755 --- a/exports/cgi_args.pl +++ b/exports/cgi_args.pl @@ -1,6 +1,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; do 'exports-lib.pl'; sub cgi_args diff --git a/exports/delete_exports.cgi b/exports/delete_exports.cgi index ed76ac138..edad1fe86 100755 --- a/exports/delete_exports.cgi +++ b/exports/delete_exports.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './exports-lib.pl'; our (%text, %in, %config); diff --git a/exports/edit_export.cgi b/exports/edit_export.cgi index 352d5ef7a..469377f97 100755 --- a/exports/edit_export.cgi +++ b/exports/edit_export.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './exports-lib.pl'; our (%text, %in, %gconfig); diff --git a/exports/exports-lib.pl b/exports/exports-lib.pl index 1700f3a3c..48d3599cd 100755 --- a/exports/exports-lib.pl +++ b/exports/exports-lib.pl @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; BEGIN { push(@INC, ".."); }; use WebminCore; &init_config(); diff --git a/exports/index.cgi b/exports/index.cgi index 08a7f29fc..a8a7f75aa 100755 --- a/exports/index.cgi +++ b/exports/index.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './exports-lib.pl'; our (%text); &ui_print_header(undef, $text{'index_title'}, "", "intro", 1, 1, 0, diff --git a/exports/install_check.pl b/exports/install_check.pl index 0376422d7..6730794e6 100755 --- a/exports/install_check.pl +++ b/exports/install_check.pl @@ -2,6 +2,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; do 'exports-lib.pl'; # is_installed(mode) diff --git a/exports/log_parser.pl b/exports/log_parser.pl index 4513f2e40..ef4bd7ed4 100755 --- a/exports/log_parser.pl +++ b/exports/log_parser.pl @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; do 'exports-lib.pl'; our (%text); diff --git a/exports/restart_mountd.cgi b/exports/restart_mountd.cgi index 64a0be537..b182d14ec 100755 --- a/exports/restart_mountd.cgi +++ b/exports/restart_mountd.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './exports-lib.pl'; our (%text); &error_setup($text{'restart_err'}); diff --git a/exports/save_export.cgi b/exports/save_export.cgi index bcd4f8863..1576fd6c0 100755 --- a/exports/save_export.cgi +++ b/exports/save_export.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './exports-lib.pl'; our (%text, %in, %config); &ReadParse(); diff --git a/fail2ban/atboot.cgi b/fail2ban/atboot.cgi index e06ab704c..f4884c01d 100755 --- a/fail2ban/atboot.cgi +++ b/fail2ban/atboot.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './fail2ban-lib.pl'; our (%text, %in, %config, $module_config_directory); &ReadParse(); diff --git a/fail2ban/backup_config.pl b/fail2ban/backup_config.pl index d3217ef8c..2ac2c8d34 100755 --- a/fail2ban/backup_config.pl +++ b/fail2ban/backup_config.pl @@ -1,6 +1,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; do 'fail2ban-lib.pl'; our ($config_directory, %gconfig); diff --git a/fail2ban/delete_actions.cgi b/fail2ban/delete_actions.cgi index b653a6cca..f7fc60d0d 100755 --- a/fail2ban/delete_actions.cgi +++ b/fail2ban/delete_actions.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './fail2ban-lib.pl'; our (%in, %text, %config); &ReadParse(); diff --git a/fail2ban/delete_filters.cgi b/fail2ban/delete_filters.cgi index f3ac3eb9e..839400947 100755 --- a/fail2ban/delete_filters.cgi +++ b/fail2ban/delete_filters.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './fail2ban-lib.pl'; our (%in, %text, %config); &ReadParse(); diff --git a/fail2ban/delete_jails.cgi b/fail2ban/delete_jails.cgi index c3f434480..ad1c156a9 100755 --- a/fail2ban/delete_jails.cgi +++ b/fail2ban/delete_jails.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './fail2ban-lib.pl'; our (%in, %text, %config); &ReadParse(); diff --git a/fail2ban/edit_action.cgi b/fail2ban/edit_action.cgi index a02d289b1..0940f14ef 100755 --- a/fail2ban/edit_action.cgi +++ b/fail2ban/edit_action.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './fail2ban-lib.pl'; our (%in, %text); &ReadParse(); diff --git a/fail2ban/edit_config.cgi b/fail2ban/edit_config.cgi index d4e22b9ea..7edbd19b1 100755 --- a/fail2ban/edit_config.cgi +++ b/fail2ban/edit_config.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './fail2ban-lib.pl'; our (%in, %text); diff --git a/fail2ban/edit_filter.cgi b/fail2ban/edit_filter.cgi index 0e9661e0d..277350fcf 100755 --- a/fail2ban/edit_filter.cgi +++ b/fail2ban/edit_filter.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './fail2ban-lib.pl'; our (%in, %text); &ReadParse(); diff --git a/fail2ban/edit_jail.cgi b/fail2ban/edit_jail.cgi index faeb82d6f..7b1653017 100755 --- a/fail2ban/edit_jail.cgi +++ b/fail2ban/edit_jail.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './fail2ban-lib.pl'; our (%in, %text); &ReadParse(); diff --git a/fail2ban/edit_jaildef.cgi b/fail2ban/edit_jaildef.cgi index 2d6044f9f..492b4ba53 100755 --- a/fail2ban/edit_jaildef.cgi +++ b/fail2ban/edit_jaildef.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './fail2ban-lib.pl'; our (%in, %text); &ReadParse(); diff --git a/fail2ban/edit_manual.cgi b/fail2ban/edit_manual.cgi index 733027d60..67426da0d 100755 --- a/fail2ban/edit_manual.cgi +++ b/fail2ban/edit_manual.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './fail2ban-lib.pl'; our (%in, %text); &ReadParse(); diff --git a/fail2ban/fail2ban-lib.pl b/fail2ban/fail2ban-lib.pl index bbd0fe92f..510af88a2 100644 --- a/fail2ban/fail2ban-lib.pl +++ b/fail2ban/fail2ban-lib.pl @@ -3,6 +3,8 @@ BEGIN { push(@INC, ".."); }; use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; use WebminCore; &init_config(); our ($module_root_directory, %text, %config, %gconfig, $base_remote_user); diff --git a/fail2ban/index.cgi b/fail2ban/index.cgi index a5b065858..da5d12476 100755 --- a/fail2ban/index.cgi +++ b/fail2ban/index.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './fail2ban-lib.pl'; our (%in, %text, %config, $module_name, $module_root_directory); diff --git a/fail2ban/install_check.pl b/fail2ban/install_check.pl index 006058e23..c8f34edd5 100755 --- a/fail2ban/install_check.pl +++ b/fail2ban/install_check.pl @@ -2,6 +2,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, %config); do 'fail2ban-lib.pl'; diff --git a/fail2ban/list_actions.cgi b/fail2ban/list_actions.cgi index 73938dbed..b3e34da46 100755 --- a/fail2ban/list_actions.cgi +++ b/fail2ban/list_actions.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './fail2ban-lib.pl'; our (%in, %text); diff --git a/fail2ban/list_filters.cgi b/fail2ban/list_filters.cgi index 6145883d8..73b069596 100755 --- a/fail2ban/list_filters.cgi +++ b/fail2ban/list_filters.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './fail2ban-lib.pl'; our (%in, %text); diff --git a/fail2ban/list_jails.cgi b/fail2ban/list_jails.cgi index 439c33f95..8646bc6b2 100755 --- a/fail2ban/list_jails.cgi +++ b/fail2ban/list_jails.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './fail2ban-lib.pl'; our (%in, %text); diff --git a/fail2ban/list_status.cgi b/fail2ban/list_status.cgi index 9300ef125..333f92049 100755 --- a/fail2ban/list_status.cgi +++ b/fail2ban/list_status.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './fail2ban-lib.pl'; our (%in, %text, %config); diff --git a/fail2ban/log_parser.pl b/fail2ban/log_parser.pl index 9c43a5f8f..4883224a0 100755 --- a/fail2ban/log_parser.pl +++ b/fail2ban/log_parser.pl @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; do 'fail2ban-lib.pl'; our (%text); diff --git a/fail2ban/restart.cgi b/fail2ban/restart.cgi index 2b5157803..8a86fae56 100755 --- a/fail2ban/restart.cgi +++ b/fail2ban/restart.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './fail2ban-lib.pl'; our (%text); &error_setup($text{'restart_err'}); diff --git a/fail2ban/save_action.cgi b/fail2ban/save_action.cgi index 44b440d00..18c97ab01 100755 --- a/fail2ban/save_action.cgi +++ b/fail2ban/save_action.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './fail2ban-lib.pl'; our (%in, %text, %config); &ReadParse(); diff --git a/fail2ban/save_config.cgi b/fail2ban/save_config.cgi index da08b8664..23239ab18 100755 --- a/fail2ban/save_config.cgi +++ b/fail2ban/save_config.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './fail2ban-lib.pl'; our (%in, %text, %config); &ReadParse(); diff --git a/fail2ban/save_filter.cgi b/fail2ban/save_filter.cgi index 6ee3afd66..b5825dbbb 100755 --- a/fail2ban/save_filter.cgi +++ b/fail2ban/save_filter.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './fail2ban-lib.pl'; our (%in, %text, %config); &ReadParse(); diff --git a/fail2ban/save_jail.cgi b/fail2ban/save_jail.cgi index 931204c57..9b4c753c0 100755 --- a/fail2ban/save_jail.cgi +++ b/fail2ban/save_jail.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './fail2ban-lib.pl'; our (%in, %text, %config); &ReadParse(); diff --git a/fail2ban/save_jaildef.cgi b/fail2ban/save_jaildef.cgi index 0c6270311..fd7ddec46 100755 --- a/fail2ban/save_jaildef.cgi +++ b/fail2ban/save_jaildef.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './fail2ban-lib.pl'; our (%in, %text, %config); &ReadParse(); diff --git a/fail2ban/save_manual.cgi b/fail2ban/save_manual.cgi index 099c1c171..699380fe3 100755 --- a/fail2ban/save_manual.cgi +++ b/fail2ban/save_manual.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './fail2ban-lib.pl'; our (%in, %text); &ReadParseMime(); diff --git a/fail2ban/start.cgi b/fail2ban/start.cgi index c4bb2c70d..3fb0581fb 100755 --- a/fail2ban/start.cgi +++ b/fail2ban/start.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './fail2ban-lib.pl'; our (%text); &error_setup($text{'start_err'}); diff --git a/fail2ban/stop.cgi b/fail2ban/stop.cgi index b8fdc50d3..4d875e37d 100755 --- a/fail2ban/stop.cgi +++ b/fail2ban/stop.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './fail2ban-lib.pl'; our (%text); &error_setup($text{'stop_err'}); diff --git a/fail2ban/syslog_logs.pl b/fail2ban/syslog_logs.pl index ef06b7fa0..3deaf5118 100755 --- a/fail2ban/syslog_logs.pl +++ b/fail2ban/syslog_logs.pl @@ -2,6 +2,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, %config); require 'fail2ban-lib.pl'; diff --git a/fail2ban/unblock_jail.cgi b/fail2ban/unblock_jail.cgi index aa50f729b..3208905e4 100755 --- a/fail2ban/unblock_jail.cgi +++ b/fail2ban/unblock_jail.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './fail2ban-lib.pl'; our (%in, %text, %config); &ReadParse(); diff --git a/filemin/lib/File/Basename.pm b/filemin/lib/File/Basename.pm index 4b4fe95cf..686296135 100644 --- a/filemin/lib/File/Basename.pm +++ b/filemin/lib/File/Basename.pm @@ -50,6 +50,8 @@ BEGIN { use strict; use 5.006; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our(@ISA, @EXPORT, $VERSION, $Fileparse_fstype, $Fileparse_igncase); require Exporter; @ISA = qw(Exporter); diff --git a/firewalld/bootup.cgi b/firewalld/bootup.cgi index 81d02ed01..15c9bd1df 100755 --- a/firewalld/bootup.cgi +++ b/firewalld/bootup.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './firewalld-lib.pl'; our (%in, %config); &ReadParse(); diff --git a/firewalld/create_zone.cgi b/firewalld/create_zone.cgi index 93423725e..89cdb95d9 100755 --- a/firewalld/create_zone.cgi +++ b/firewalld/create_zone.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './firewalld-lib.pl'; our (%text, %in); &ReadParse(); diff --git a/firewalld/default_zone.cgi b/firewalld/default_zone.cgi index c8a7d45ee..62d9e5d27 100755 --- a/firewalld/default_zone.cgi +++ b/firewalld/default_zone.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './firewalld-lib.pl'; our (%text, %in); &ReadParse(); diff --git a/firewalld/delete_rules.cgi b/firewalld/delete_rules.cgi index a0b9a866a..00eab0241 100755 --- a/firewalld/delete_rules.cgi +++ b/firewalld/delete_rules.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './firewalld-lib.pl'; our (%in, %text); &error_setup($text{'delete_err'}); diff --git a/firewalld/delete_zone.cgi b/firewalld/delete_zone.cgi index 01d95aa83..198cb58ca 100755 --- a/firewalld/delete_zone.cgi +++ b/firewalld/delete_zone.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './firewalld-lib.pl'; our (%text, %in); &ReadParse(); diff --git a/firewalld/edit_forward.cgi b/firewalld/edit_forward.cgi index 319c88956..21e7c2029 100755 --- a/firewalld/edit_forward.cgi +++ b/firewalld/edit_forward.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './firewalld-lib.pl'; our (%in, %text); &ReadParse(); diff --git a/firewalld/edit_port.cgi b/firewalld/edit_port.cgi index cb281bfc9..77dda6c6d 100755 --- a/firewalld/edit_port.cgi +++ b/firewalld/edit_port.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './firewalld-lib.pl'; our (%in, %text); &ReadParse(); diff --git a/firewalld/edit_serv.cgi b/firewalld/edit_serv.cgi index 70011dc3f..c69381bc9 100755 --- a/firewalld/edit_serv.cgi +++ b/firewalld/edit_serv.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './firewalld-lib.pl'; our (%in, %text); &ReadParse(); diff --git a/firewalld/firewalld-lib.pl b/firewalld/firewalld-lib.pl index 778d8f28b..057dd6381 100644 --- a/firewalld/firewalld-lib.pl +++ b/firewalld/firewalld-lib.pl @@ -3,6 +3,8 @@ BEGIN { push(@INC, ".."); }; use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; use WebminCore; &init_config(); do 'md5-lib.pl'; diff --git a/firewalld/index.cgi b/firewalld/index.cgi index 92fad9568..fa28476c9 100755 --- a/firewalld/index.cgi +++ b/firewalld/index.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './firewalld-lib.pl'; our (%in, %text, %config, %access, $base_remote_user); &ReadParse(); diff --git a/firewalld/install_check.pl b/firewalld/install_check.pl index 8a17e1ab9..85a46d0e3 100755 --- a/firewalld/install_check.pl +++ b/firewalld/install_check.pl @@ -2,6 +2,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; do 'firewalld-lib.pl'; # is_installed(mode) diff --git a/firewalld/list_rules.cgi b/firewalld/list_rules.cgi index fb58f8f7d..0425fbb64 100755 --- a/firewalld/list_rules.cgi +++ b/firewalld/list_rules.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './firewalld-lib.pl'; our (%in, %text, %config); &ReadParse(); diff --git a/firewalld/log_parser.pl b/firewalld/log_parser.pl index 1e6f834a8..22d9c2028 100755 --- a/firewalld/log_parser.pl +++ b/firewalld/log_parser.pl @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; do 'firewalld-lib.pl'; our (%text); diff --git a/firewalld/open-ports.pl b/firewalld/open-ports.pl index 7456a085e..20145f87c 100755 --- a/firewalld/open-ports.pl +++ b/firewalld/open-ports.pl @@ -9,6 +9,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our ($module_name, $no_acl_check); $no_acl_check++; $ENV{'WEBMIN_CONFIG'} = "/etc/webmin"; diff --git a/firewalld/restart.cgi b/firewalld/restart.cgi index 26db0fa7a..4ca9e6faf 100755 --- a/firewalld/restart.cgi +++ b/firewalld/restart.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './firewalld-lib.pl'; our (%text, %in); &error_setup($text{'restart_err'}); diff --git a/firewalld/save_forward.cgi b/firewalld/save_forward.cgi index f5e0947cb..987f6bda7 100755 --- a/firewalld/save_forward.cgi +++ b/firewalld/save_forward.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './firewalld-lib.pl'; our (%in, %text); &error_setup($text{'forward_err'}); diff --git a/firewalld/save_ifaces.cgi b/firewalld/save_ifaces.cgi index 19eb3f7a3..9b57b5bc5 100755 --- a/firewalld/save_ifaces.cgi +++ b/firewalld/save_ifaces.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './firewalld-lib.pl'; our (%in, %text); &error_setup($text{'ifaces_err'}); diff --git a/firewalld/save_port.cgi b/firewalld/save_port.cgi index 217ce9490..caa29844c 100755 --- a/firewalld/save_port.cgi +++ b/firewalld/save_port.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './firewalld-lib.pl'; our (%in, %text); &error_setup($text{'port_err'}); diff --git a/firewalld/save_rules.cgi b/firewalld/save_rules.cgi index c63f4a31d..f7da707a5 100755 --- a/firewalld/save_rules.cgi +++ b/firewalld/save_rules.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './firewalld-lib.pl'; our (%in, %text); &error_setup($text{'delete_err'}); diff --git a/firewalld/save_serv.cgi b/firewalld/save_serv.cgi index dc8ba02ad..af900a669 100755 --- a/firewalld/save_serv.cgi +++ b/firewalld/save_serv.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './firewalld-lib.pl'; our (%in, %text); &error_setup($text{'serv_err'}); diff --git a/firewalld/start.cgi b/firewalld/start.cgi index cefc40fd7..5bbeb44f7 100755 --- a/firewalld/start.cgi +++ b/firewalld/start.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './firewalld-lib.pl'; our (%text, %in); &error_setup($text{'start_err'}); diff --git a/firewalld/stop.cgi b/firewalld/stop.cgi index db8b60a19..84da4bd72 100755 --- a/firewalld/stop.cgi +++ b/firewalld/stop.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './firewalld-lib.pl'; our (%text, %in); &error_setup($text{'stop_err'}); diff --git a/firewalld/zone_form.cgi b/firewalld/zone_form.cgi index 666f46f7d..542230ad6 100755 --- a/firewalld/zone_form.cgi +++ b/firewalld/zone_form.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './firewalld-lib.pl'; our (%text, %in); &ReadParse(); diff --git a/gray-theme/gray-theme-lib.pl b/gray-theme/gray-theme-lib.pl index bc0335cb2..5f4cdf1d6 100644 --- a/gray-theme/gray-theme-lib.pl +++ b/gray-theme/gray-theme-lib.pl @@ -2,6 +2,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; BEGIN { push(@INC, ".."); }; use WebminCore; &init_config(); diff --git a/gray-theme/index.cgi b/gray-theme/index.cgi index c91823ba7..f033b5442 100755 --- a/gray-theme/index.cgi +++ b/gray-theme/index.cgi @@ -2,6 +2,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require 'gray-theme/gray-theme-lib.pl'; &ReadParse(); our ($current_theme, %in); diff --git a/gray-theme/left.cgi b/gray-theme/left.cgi index 5bbdef807..e93f7a4c7 100755 --- a/gray-theme/left.cgi +++ b/gray-theme/left.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require 'gray-theme/gray-theme-lib.pl'; &ReadParse(); our ($current_theme, $remote_user, %gconfig); diff --git a/gray-theme/right.cgi b/gray-theme/right.cgi index be0572073..eed712556 100755 --- a/gray-theme/right.cgi +++ b/gray-theme/right.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require 'gray-theme/gray-theme-lib.pl'; &ReadParse(); &load_theme_library(); diff --git a/htaccess-htpasswd/htaccess-lib.pl b/htaccess-htpasswd/htaccess-lib.pl index 480226dec..24478979e 100755 --- a/htaccess-htpasswd/htaccess-lib.pl +++ b/htaccess-htpasswd/htaccess-lib.pl @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%config, %module_info, @remote_user_info, $user_module_config_directory, $remote_user, $module_config_directory); BEGIN { push(@INC, ".."); }; diff --git a/htpasswd-file/htpasswd-file-lib.pl b/htpasswd-file/htpasswd-file-lib.pl index 0da0f786a..6cc9ae269 100755 --- a/htpasswd-file/htpasswd-file-lib.pl +++ b/htpasswd-file/htpasswd-file-lib.pl @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; BEGIN { push(@INC, ".."); }; use WebminCore; our (%access, $module_name, %config, %gconfig, %list_authusers_cache, diff --git a/iscsi-client/add_conn.cgi b/iscsi-client/add_conn.cgi index 92720c8a2..a8aac75b4 100755 --- a/iscsi-client/add_conn.cgi +++ b/iscsi-client/add_conn.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-client-lib.pl'; our (%text, %in); &ReadParse(); diff --git a/iscsi-client/add_form.cgi b/iscsi-client/add_form.cgi index 38af87f29..576c98be6 100755 --- a/iscsi-client/add_form.cgi +++ b/iscsi-client/add_form.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-client-lib.pl'; our (%text, %in); &ReadParse(); diff --git a/iscsi-client/add_iface.cgi b/iscsi-client/add_iface.cgi index eb0ef29fb..8906fa5b4 100755 --- a/iscsi-client/add_iface.cgi +++ b/iscsi-client/add_iface.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-client-lib.pl'; our (%text, %in); &ReadParse(); diff --git a/iscsi-client/atboot.cgi b/iscsi-client/atboot.cgi index eb3705a13..18b35c9f8 100755 --- a/iscsi-client/atboot.cgi +++ b/iscsi-client/atboot.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-client-lib.pl'; &foreign_require("init"); our (%text, %config, %in); diff --git a/iscsi-client/delete_conns.cgi b/iscsi-client/delete_conns.cgi index b9836e314..cbc6cf630 100755 --- a/iscsi-client/delete_conns.cgi +++ b/iscsi-client/delete_conns.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-client-lib.pl'; our (%text, %in); &ReadParse(); diff --git a/iscsi-client/delete_ifaces.cgi b/iscsi-client/delete_ifaces.cgi index a2542ff18..8b54d2a2f 100755 --- a/iscsi-client/delete_ifaces.cgi +++ b/iscsi-client/delete_ifaces.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-client-lib.pl'; our (%text, %in); &ReadParse(); diff --git a/iscsi-client/edit_auth.cgi b/iscsi-client/edit_auth.cgi index e7b87156b..1e2e818db 100755 --- a/iscsi-client/edit_auth.cgi +++ b/iscsi-client/edit_auth.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-client-lib.pl'; our (%text); my $conf = &get_iscsi_config(); diff --git a/iscsi-client/edit_iscsi.cgi b/iscsi-client/edit_iscsi.cgi index 0f229dbe7..1e0a74230 100755 --- a/iscsi-client/edit_iscsi.cgi +++ b/iscsi-client/edit_iscsi.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-client-lib.pl'; our (%text); my $conf = &get_iscsi_config(); diff --git a/iscsi-client/edit_timeout.cgi b/iscsi-client/edit_timeout.cgi index 9f83591c5..2d8ee5ca3 100755 --- a/iscsi-client/edit_timeout.cgi +++ b/iscsi-client/edit_timeout.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-client-lib.pl'; our (%text); my $conf = &get_iscsi_config(); diff --git a/iscsi-client/index.cgi b/iscsi-client/index.cgi index 306f2951d..0b4632c9b 100755 --- a/iscsi-client/index.cgi +++ b/iscsi-client/index.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-client-lib.pl'; our (%text, %config, $module_name); diff --git a/iscsi-client/iscsi-client-lib.pl b/iscsi-client/iscsi-client-lib.pl index 52b53e5d9..84374644b 100644 --- a/iscsi-client/iscsi-client-lib.pl +++ b/iscsi-client/iscsi-client-lib.pl @@ -3,6 +3,8 @@ BEGIN { push(@INC, ".."); }; use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; use WebminCore; &init_config(); &foreign_require("fdisk"); diff --git a/iscsi-client/list_conns.cgi b/iscsi-client/list_conns.cgi index 3284aa798..34ac3d595 100755 --- a/iscsi-client/list_conns.cgi +++ b/iscsi-client/list_conns.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-client-lib.pl'; our (%text); diff --git a/iscsi-client/list_ifaces.cgi b/iscsi-client/list_ifaces.cgi index 2ab52dd91..de86ad169 100755 --- a/iscsi-client/list_ifaces.cgi +++ b/iscsi-client/list_ifaces.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-client-lib.pl'; our (%text); diff --git a/iscsi-client/save_auth.cgi b/iscsi-client/save_auth.cgi index 680de55b9..e96080914 100755 --- a/iscsi-client/save_auth.cgi +++ b/iscsi-client/save_auth.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-client-lib.pl'; our (%text, %config, %in); &ReadParse(); diff --git a/iscsi-client/save_iscsi.cgi b/iscsi-client/save_iscsi.cgi index d94c1f876..a31a0b943 100755 --- a/iscsi-client/save_iscsi.cgi +++ b/iscsi-client/save_iscsi.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-client-lib.pl'; our (%text, %config, %in); &ReadParse(); diff --git a/iscsi-client/save_timeout.cgi b/iscsi-client/save_timeout.cgi index baa8fd49e..a7553a54e 100755 --- a/iscsi-client/save_timeout.cgi +++ b/iscsi-client/save_timeout.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-client-lib.pl'; our (%text, %config, %in); &ReadParse(); diff --git a/iscsi-client/view_conn.cgi b/iscsi-client/view_conn.cgi index 89a177c77..92a84f8b9 100755 --- a/iscsi-client/view_conn.cgi +++ b/iscsi-client/view_conn.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-client-lib.pl'; our (%text, %in); &ReadParse(); diff --git a/iscsi-server/atboot.cgi b/iscsi-server/atboot.cgi index 5240df62b..12f396be1 100755 --- a/iscsi-server/atboot.cgi +++ b/iscsi-server/atboot.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-server-lib.pl'; &foreign_require("init"); our (%text, %config, %in); diff --git a/iscsi-server/delete_devices.cgi b/iscsi-server/delete_devices.cgi index afc2d7f6f..7105a94bf 100755 --- a/iscsi-server/delete_devices.cgi +++ b/iscsi-server/delete_devices.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-server-lib.pl'; our (%text, %in, %config); my $conf = &get_iscsi_config(); diff --git a/iscsi-server/delete_extents.cgi b/iscsi-server/delete_extents.cgi index 26a616291..93dd8f7b6 100755 --- a/iscsi-server/delete_extents.cgi +++ b/iscsi-server/delete_extents.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-server-lib.pl'; our (%text, %in, %config); my $conf = &get_iscsi_config(); diff --git a/iscsi-server/delete_targets.cgi b/iscsi-server/delete_targets.cgi index bf160083f..c6694a63a 100755 --- a/iscsi-server/delete_targets.cgi +++ b/iscsi-server/delete_targets.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-server-lib.pl'; our (%text, %in, %config); my $conf = &get_iscsi_config(); diff --git a/iscsi-server/delete_users.cgi b/iscsi-server/delete_users.cgi index 41547d23a..88ea208e1 100755 --- a/iscsi-server/delete_users.cgi +++ b/iscsi-server/delete_users.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-server-lib.pl'; our (%text, %in, %config); &error_setup($text{'dusers_err'}); diff --git a/iscsi-server/edit_device.cgi b/iscsi-server/edit_device.cgi index 74d3a9fe8..bb6f2ac57 100755 --- a/iscsi-server/edit_device.cgi +++ b/iscsi-server/edit_device.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-server-lib.pl'; our (%text, %in); my $conf = &get_iscsi_config(); diff --git a/iscsi-server/edit_extent.cgi b/iscsi-server/edit_extent.cgi index 06beff8bf..c81c062f6 100755 --- a/iscsi-server/edit_extent.cgi +++ b/iscsi-server/edit_extent.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-server-lib.pl'; our (%text, %in); my $conf = &get_iscsi_config(); diff --git a/iscsi-server/edit_manual.cgi b/iscsi-server/edit_manual.cgi index 7bedd2614..d184c814f 100755 --- a/iscsi-server/edit_manual.cgi +++ b/iscsi-server/edit_manual.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-server-lib.pl'; our (%text, %config); diff --git a/iscsi-server/edit_opts.cgi b/iscsi-server/edit_opts.cgi index 0b48667ed..502b37260 100755 --- a/iscsi-server/edit_opts.cgi +++ b/iscsi-server/edit_opts.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-server-lib.pl'; our (%text, %config); diff --git a/iscsi-server/edit_target.cgi b/iscsi-server/edit_target.cgi index 7087b2ef7..422ed5744 100755 --- a/iscsi-server/edit_target.cgi +++ b/iscsi-server/edit_target.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-server-lib.pl'; our (%text, %in); my $conf = &get_iscsi_config(); diff --git a/iscsi-server/edit_user.cgi b/iscsi-server/edit_user.cgi index be14810d4..cf7e323f9 100755 --- a/iscsi-server/edit_user.cgi +++ b/iscsi-server/edit_user.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-server-lib.pl'; our (%text, %in); &ReadParse(); diff --git a/iscsi-server/index.cgi b/iscsi-server/index.cgi index 992b7cada..e7199f8a0 100755 --- a/iscsi-server/index.cgi +++ b/iscsi-server/index.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-server-lib.pl'; our (%text, %config, $module_name); diff --git a/iscsi-server/iscsi-server-lib.pl b/iscsi-server/iscsi-server-lib.pl index 1b3b10a9b..45442e74b 100644 --- a/iscsi-server/iscsi-server-lib.pl +++ b/iscsi-server/iscsi-server-lib.pl @@ -4,6 +4,8 @@ BEGIN { push(@INC, ".."); }; use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; use WebminCore; &init_config(); &foreign_require("raid"); diff --git a/iscsi-server/list_devices.cgi b/iscsi-server/list_devices.cgi index 9cf7df29a..09521075e 100755 --- a/iscsi-server/list_devices.cgi +++ b/iscsi-server/list_devices.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-server-lib.pl'; our (%text); my $conf = &get_iscsi_config(); diff --git a/iscsi-server/list_extents.cgi b/iscsi-server/list_extents.cgi index 748acad27..d6dae67a4 100755 --- a/iscsi-server/list_extents.cgi +++ b/iscsi-server/list_extents.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-server-lib.pl'; our (%text); my $conf = &get_iscsi_config(); diff --git a/iscsi-server/list_targets.cgi b/iscsi-server/list_targets.cgi index d926ce7db..5ef079bf0 100755 --- a/iscsi-server/list_targets.cgi +++ b/iscsi-server/list_targets.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-server-lib.pl'; our (%text); my $conf = &get_iscsi_config(); diff --git a/iscsi-server/list_users.cgi b/iscsi-server/list_users.cgi index f526a0b6e..45fbb7e73 100755 --- a/iscsi-server/list_users.cgi +++ b/iscsi-server/list_users.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-server-lib.pl'; our (%text); my @users = &list_iscsi_users(); diff --git a/iscsi-server/restart.cgi b/iscsi-server/restart.cgi index b85b44d73..8c70e6e0f 100755 --- a/iscsi-server/restart.cgi +++ b/iscsi-server/restart.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-server-lib.pl'; our (%text); &error_setup($text{'restart_err'}); diff --git a/iscsi-server/save_device.cgi b/iscsi-server/save_device.cgi index ad309c772..2961cf6d1 100755 --- a/iscsi-server/save_device.cgi +++ b/iscsi-server/save_device.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-server-lib.pl'; our (%text, %in, %config); &lock_file($config{'targets_file'}); diff --git a/iscsi-server/save_extent.cgi b/iscsi-server/save_extent.cgi index f40cfca38..39687adc4 100755 --- a/iscsi-server/save_extent.cgi +++ b/iscsi-server/save_extent.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-server-lib.pl'; our (%text, %in, %config); &lock_file($config{'targets_file'}); diff --git a/iscsi-server/save_manual.cgi b/iscsi-server/save_manual.cgi index 51f22b1ed..6fcc57d45 100755 --- a/iscsi-server/save_manual.cgi +++ b/iscsi-server/save_manual.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-server-lib.pl'; our (%text, %config, %in); &ReadParseMime(); diff --git a/iscsi-server/save_opts.cgi b/iscsi-server/save_opts.cgi index d474fc3ae..5e31a017c 100755 --- a/iscsi-server/save_opts.cgi +++ b/iscsi-server/save_opts.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-server-lib.pl'; our (%text, %config, %in); &ReadParse(); diff --git a/iscsi-server/save_target.cgi b/iscsi-server/save_target.cgi index 43c64e02a..30c74b05d 100755 --- a/iscsi-server/save_target.cgi +++ b/iscsi-server/save_target.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-server-lib.pl'; our (%text, %in, %config); &lock_file($config{'targets_file'}); diff --git a/iscsi-server/save_user.cgi b/iscsi-server/save_user.cgi index 20df296c3..8b766ebf7 100755 --- a/iscsi-server/save_user.cgi +++ b/iscsi-server/save_user.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-server-lib.pl'; our (%text, %in, %config); &error_setup($text{'user_err'}); diff --git a/iscsi-server/start.cgi b/iscsi-server/start.cgi index ef873af79..df813c86c 100755 --- a/iscsi-server/start.cgi +++ b/iscsi-server/start.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-server-lib.pl'; our (%text); &error_setup($text{'start_err'}); diff --git a/iscsi-server/stop.cgi b/iscsi-server/stop.cgi index 8517a8792..ffad59fb6 100755 --- a/iscsi-server/stop.cgi +++ b/iscsi-server/stop.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-server-lib.pl'; our (%text); &error_setup($text{'stop_err'}); diff --git a/iscsi-target/atboot.cgi b/iscsi-target/atboot.cgi index 5f7f84da2..9658550de 100755 --- a/iscsi-target/atboot.cgi +++ b/iscsi-target/atboot.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-target-lib.pl'; &foreign_require("init"); our (%text, %config, %in); diff --git a/iscsi-target/delete_allows.cgi b/iscsi-target/delete_allows.cgi index 2c3ebb276..602d6cf49 100755 --- a/iscsi-target/delete_allows.cgi +++ b/iscsi-target/delete_allows.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-target-lib.pl'; our (%text, %in); &ReadParse(); diff --git a/iscsi-target/delete_targets.cgi b/iscsi-target/delete_targets.cgi index 821c5d242..21749fa15 100755 --- a/iscsi-target/delete_targets.cgi +++ b/iscsi-target/delete_targets.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-target-lib.pl'; our (%text, %in, %config); &ReadParse(); diff --git a/iscsi-target/down_allow.cgi b/iscsi-target/down_allow.cgi index e5d11d494..84fe2ec74 100755 --- a/iscsi-target/down_allow.cgi +++ b/iscsi-target/down_allow.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-target-lib.pl'; our (%text, %in); &ReadParse(); diff --git a/iscsi-target/edit_addr.cgi b/iscsi-target/edit_addr.cgi index 88080be79..55db1060f 100755 --- a/iscsi-target/edit_addr.cgi +++ b/iscsi-target/edit_addr.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-target-lib.pl'; our (%text); my $opts = &get_iscsi_options(); diff --git a/iscsi-target/edit_allow.cgi b/iscsi-target/edit_allow.cgi index 4eab96cc0..88355d972 100755 --- a/iscsi-target/edit_allow.cgi +++ b/iscsi-target/edit_allow.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-target-lib.pl'; our (%text, %in); &ReadParse(); diff --git a/iscsi-target/edit_auth.cgi b/iscsi-target/edit_auth.cgi index 8e9f65664..eb95a8dd5 100755 --- a/iscsi-target/edit_auth.cgi +++ b/iscsi-target/edit_auth.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-target-lib.pl'; our (%text); my $conf = &get_iscsi_config(); diff --git a/iscsi-target/edit_conn.cgi b/iscsi-target/edit_conn.cgi index 2d820e0fc..1e146dbda 100755 --- a/iscsi-target/edit_conn.cgi +++ b/iscsi-target/edit_conn.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-target-lib.pl'; our (%text); my $conf = &get_iscsi_config(); diff --git a/iscsi-target/edit_manual.cgi b/iscsi-target/edit_manual.cgi index b4da71931..efcea7e53 100755 --- a/iscsi-target/edit_manual.cgi +++ b/iscsi-target/edit_manual.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-target-lib.pl'; our (%text, %config); diff --git a/iscsi-target/edit_target.cgi b/iscsi-target/edit_target.cgi index e6c6b4404..11b62f2e3 100755 --- a/iscsi-target/edit_target.cgi +++ b/iscsi-target/edit_target.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-target-lib.pl'; our (%text, %in); &ReadParse(); diff --git a/iscsi-target/edit_timeout.cgi b/iscsi-target/edit_timeout.cgi index 98bf5eb34..047777104 100755 --- a/iscsi-target/edit_timeout.cgi +++ b/iscsi-target/edit_timeout.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-target-lib.pl'; our (%text); my $conf = &get_iscsi_config(); diff --git a/iscsi-target/index.cgi b/iscsi-target/index.cgi index 3989df97b..df58e9fd4 100755 --- a/iscsi-target/index.cgi +++ b/iscsi-target/index.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-target-lib.pl'; our (%text, %config, $module_name); diff --git a/iscsi-target/iscsi-target-lib.pl b/iscsi-target/iscsi-target-lib.pl index 64aa41957..0cba32e7f 100644 --- a/iscsi-target/iscsi-target-lib.pl +++ b/iscsi-target/iscsi-target-lib.pl @@ -4,6 +4,8 @@ BEGIN { push(@INC, ".."); }; use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; use WebminCore; &init_config(); &foreign_require("raid"); diff --git a/iscsi-target/list_allow.cgi b/iscsi-target/list_allow.cgi index ec3c7ce09..6f227ae78 100755 --- a/iscsi-target/list_allow.cgi +++ b/iscsi-target/list_allow.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-target-lib.pl'; our (%text, %in); &ReadParse(); diff --git a/iscsi-target/restart.cgi b/iscsi-target/restart.cgi index d7c9be9cb..c33036879 100755 --- a/iscsi-target/restart.cgi +++ b/iscsi-target/restart.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-target-lib.pl'; our (%text); &error_setup($text{'restart_err'}); diff --git a/iscsi-target/save_addr.cgi b/iscsi-target/save_addr.cgi index 896a71b6c..33ab2601e 100755 --- a/iscsi-target/save_addr.cgi +++ b/iscsi-target/save_addr.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-target-lib.pl'; our (%text, %in, %config); &ReadParse(); diff --git a/iscsi-target/save_allow.cgi b/iscsi-target/save_allow.cgi index b06f6e40d..9781b40f5 100755 --- a/iscsi-target/save_allow.cgi +++ b/iscsi-target/save_allow.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-target-lib.pl'; our (%text, %in); &ReadParse(); diff --git a/iscsi-target/save_auth.cgi b/iscsi-target/save_auth.cgi index 9f15c984c..6b83ea5e6 100755 --- a/iscsi-target/save_auth.cgi +++ b/iscsi-target/save_auth.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-target-lib.pl'; our (%text, %in, %config); &ReadParse(); diff --git a/iscsi-target/save_conn.cgi b/iscsi-target/save_conn.cgi index 38f738e32..0b93459df 100755 --- a/iscsi-target/save_conn.cgi +++ b/iscsi-target/save_conn.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-target-lib.pl'; our (%text, %in, %config); &ReadParse(); diff --git a/iscsi-target/save_manual.cgi b/iscsi-target/save_manual.cgi index c7f0e00e6..e7bbfa464 100755 --- a/iscsi-target/save_manual.cgi +++ b/iscsi-target/save_manual.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-target-lib.pl'; our (%text, %config, %in); &ReadParseMime(); diff --git a/iscsi-target/save_target.cgi b/iscsi-target/save_target.cgi index effbf3e6a..1dce9ce75 100755 --- a/iscsi-target/save_target.cgi +++ b/iscsi-target/save_target.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-target-lib.pl'; our (%text, %in, %config); &ReadParse(); diff --git a/iscsi-target/save_timeout.cgi b/iscsi-target/save_timeout.cgi index 12085d3d2..a56633585 100755 --- a/iscsi-target/save_timeout.cgi +++ b/iscsi-target/save_timeout.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-target-lib.pl'; our (%text, %in, %config); &ReadParse(); diff --git a/iscsi-target/start.cgi b/iscsi-target/start.cgi index 3e9267c4a..b006eae5a 100755 --- a/iscsi-target/start.cgi +++ b/iscsi-target/start.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-target-lib.pl'; our (%text); &error_setup($text{'start_err'}); diff --git a/iscsi-target/stop.cgi b/iscsi-target/stop.cgi index 49b464d13..430228a45 100755 --- a/iscsi-target/stop.cgi +++ b/iscsi-target/stop.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-target-lib.pl'; our (%text); &error_setup($text{'stop_err'}); diff --git a/iscsi-target/up_allow.cgi b/iscsi-target/up_allow.cgi index 1760cd217..d15397b82 100755 --- a/iscsi-target/up_allow.cgi +++ b/iscsi-target/up_allow.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-target-lib.pl'; our (%text, %in); &ReadParse(); diff --git a/iscsi-tgtd/atboot.cgi b/iscsi-tgtd/atboot.cgi index 5df751eb1..db560fc4f 100755 --- a/iscsi-tgtd/atboot.cgi +++ b/iscsi-tgtd/atboot.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-tgtd-lib.pl'; &foreign_require("init"); our (%text, %config, %in); diff --git a/iscsi-tgtd/delete_targets.cgi b/iscsi-tgtd/delete_targets.cgi index 56c3fc2d6..f0f0d363e 100755 --- a/iscsi-tgtd/delete_targets.cgi +++ b/iscsi-tgtd/delete_targets.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-tgtd-lib.pl'; our (%text, %in, %config); &ReadParse(); diff --git a/iscsi-tgtd/edit_manual.cgi b/iscsi-tgtd/edit_manual.cgi index 7cc888bb3..3e9697d97 100755 --- a/iscsi-tgtd/edit_manual.cgi +++ b/iscsi-tgtd/edit_manual.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-tgtd-lib.pl'; our (%text, %config, %in); &ReadParse(); diff --git a/iscsi-tgtd/edit_target.cgi b/iscsi-tgtd/edit_target.cgi index 7de22d751..c5ecc24e2 100755 --- a/iscsi-tgtd/edit_target.cgi +++ b/iscsi-tgtd/edit_target.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-tgtd-lib.pl'; our (%text, %in); &ReadParse(); diff --git a/iscsi-tgtd/index.cgi b/iscsi-tgtd/index.cgi index e4104c0d4..3ad3b0296 100755 --- a/iscsi-tgtd/index.cgi +++ b/iscsi-tgtd/index.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-tgtd-lib.pl'; our (%text, %config, $module_name); diff --git a/iscsi-tgtd/iscsi-tgtd-lib.pl b/iscsi-tgtd/iscsi-tgtd-lib.pl index 2a36afa81..54fe36810 100644 --- a/iscsi-tgtd/iscsi-tgtd-lib.pl +++ b/iscsi-tgtd/iscsi-tgtd-lib.pl @@ -4,6 +4,8 @@ BEGIN { push(@INC, ".."); }; use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; use WebminCore; &init_config(); &foreign_require("raid"); diff --git a/iscsi-tgtd/restart.cgi b/iscsi-tgtd/restart.cgi index fd51479a3..6c94bf9b9 100755 --- a/iscsi-tgtd/restart.cgi +++ b/iscsi-tgtd/restart.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-tgtd-lib.pl'; our (%text); &error_setup($text{'restart_err'}); diff --git a/iscsi-tgtd/save_manual.cgi b/iscsi-tgtd/save_manual.cgi index 00de77bfb..21ee86b6f 100755 --- a/iscsi-tgtd/save_manual.cgi +++ b/iscsi-tgtd/save_manual.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-tgtd-lib.pl'; our (%text, %config, %in); &ReadParseMime(); diff --git a/iscsi-tgtd/save_target.cgi b/iscsi-tgtd/save_target.cgi index f0fcd1746..d461ef6b4 100755 --- a/iscsi-tgtd/save_target.cgi +++ b/iscsi-tgtd/save_target.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-tgtd-lib.pl'; our (%text, %in, %config); &ReadParse(); diff --git a/iscsi-tgtd/start.cgi b/iscsi-tgtd/start.cgi index 779a42368..db425e629 100755 --- a/iscsi-tgtd/start.cgi +++ b/iscsi-tgtd/start.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-tgtd-lib.pl'; our (%text); &error_setup($text{'start_err'}); diff --git a/iscsi-tgtd/stop.cgi b/iscsi-tgtd/stop.cgi index 40ffc16a2..6406c3a91 100755 --- a/iscsi-tgtd/stop.cgi +++ b/iscsi-tgtd/stop.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './iscsi-tgtd-lib.pl'; our (%text); &error_setup($text{'stop_err'}); diff --git a/makemoduledeb.pl b/makemoduledeb.pl index d9574bc32..85a9c7881 100755 --- a/makemoduledeb.pl +++ b/makemoduledeb.pl @@ -3,6 +3,8 @@ # Create a Debian package for a webmin or usermin module or theme use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; use POSIX; use Term::ANSIColor qw(:constants); use 5.010; diff --git a/makemodulerpm.pl b/makemodulerpm.pl index e4719e656..5699305cd 100755 --- a/makemodulerpm.pl +++ b/makemodulerpm.pl @@ -3,6 +3,8 @@ # Create an RPM for a webmin or usermin module or theme use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; use 5.010; # Colors! diff --git a/minecraft/add_version.cgi b/minecraft/add_version.cgi index e6cdb6ecf..353b7ae16 100755 --- a/minecraft/add_version.cgi +++ b/minecraft/add_version.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './minecraft-lib.pl'; our (%in, %text, %config, $download_page_url); &error_setup($text{'versions_err'}); diff --git a/minecraft/atboot.cgi b/minecraft/atboot.cgi index 2ac0413bb..8a034d0ac 100755 --- a/minecraft/atboot.cgi +++ b/minecraft/atboot.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './minecraft-lib.pl'; our (%text, %in, %config, $module_config_directory); &ReadParse(); diff --git a/minecraft/change_version.cgi b/minecraft/change_version.cgi index efeabf414..617c01e4f 100755 --- a/minecraft/change_version.cgi +++ b/minecraft/change_version.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './minecraft-lib.pl'; our (%in, %text, %config); &ReadParse(); diff --git a/minecraft/change_world.cgi b/minecraft/change_world.cgi index 01fe2d3da..4aa996be8 100755 --- a/minecraft/change_world.cgi +++ b/minecraft/change_world.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './minecraft-lib.pl'; our (%in, %text, %config); &ReadParse(); diff --git a/minecraft/command.cgi b/minecraft/command.cgi index a48452474..9726234f0 100755 --- a/minecraft/command.cgi +++ b/minecraft/command.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './minecraft-lib.pl'; our (%in, %text, %config); &ReadParse(); diff --git a/minecraft/console.cgi b/minecraft/console.cgi index f18c659de..d16186d2f 100755 --- a/minecraft/console.cgi +++ b/minecraft/console.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './minecraft-lib.pl'; our (%in, %text, %config); &ReadParse(); diff --git a/minecraft/download.cgi b/minecraft/download.cgi index 966ac5855..7939505c8 100755 --- a/minecraft/download.cgi +++ b/minecraft/download.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './minecraft-lib.pl'; our (%text, %config, %in); our $progress_callback_url; diff --git a/minecraft/edit_backup.cgi b/minecraft/edit_backup.cgi index 28201a854..5d7e8c083 100755 --- a/minecraft/edit_backup.cgi +++ b/minecraft/edit_backup.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './minecraft-lib.pl'; &foreign_require("webmincron"); our (%in, %text, %config); diff --git a/minecraft/edit_cmds.cgi b/minecraft/edit_cmds.cgi index a1b173d9e..daf26dfc5 100755 --- a/minecraft/edit_cmds.cgi +++ b/minecraft/edit_cmds.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './minecraft-lib.pl'; our (%in, %text); &ReadParse(); diff --git a/minecraft/edit_conf.cgi b/minecraft/edit_conf.cgi index 12febb438..b887aa0a3 100755 --- a/minecraft/edit_conf.cgi +++ b/minecraft/edit_conf.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './minecraft-lib.pl'; our (%in, %text, %config); my $conf = &get_minecraft_config(); diff --git a/minecraft/edit_manual.cgi b/minecraft/edit_manual.cgi index bdbca7e89..82465bec8 100755 --- a/minecraft/edit_manual.cgi +++ b/minecraft/edit_manual.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './minecraft-lib.pl'; our (%in, %text); diff --git a/minecraft/edit_users.cgi b/minecraft/edit_users.cgi index 3bb9f1b83..6cf15a56d 100755 --- a/minecraft/edit_users.cgi +++ b/minecraft/edit_users.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './minecraft-lib.pl'; our (%in, %text, %config); &ReadParse(); diff --git a/minecraft/edit_world.cgi b/minecraft/edit_world.cgi index bb3e37156..d889cc664 100755 --- a/minecraft/edit_world.cgi +++ b/minecraft/edit_world.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './minecraft-lib.pl'; our (%in, %text, %config); &ReadParse(); diff --git a/minecraft/index.cgi b/minecraft/index.cgi index 81f584198..eb4b8dc7d 100755 --- a/minecraft/index.cgi +++ b/minecraft/index.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './minecraft-lib.pl'; our (%in, %text, %config, $module_name, $module_root_directory, $module_config_directory); diff --git a/minecraft/item_chooser.cgi b/minecraft/item_chooser.cgi index e21cfca63..51a1f8e30 100755 --- a/minecraft/item_chooser.cgi +++ b/minecraft/item_chooser.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './minecraft-lib.pl'; our (%text, %in); &ReadParse(undef, undef, 2); diff --git a/minecraft/list_conns.cgi b/minecraft/list_conns.cgi index ca14d27f8..a677905c4 100755 --- a/minecraft/list_conns.cgi +++ b/minecraft/list_conns.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './minecraft-lib.pl'; our (%in, %text, %config); diff --git a/minecraft/list_playtime.cgi b/minecraft/list_playtime.cgi index e9dfc413e..64f16e0a5 100755 --- a/minecraft/list_playtime.cgi +++ b/minecraft/list_playtime.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './minecraft-lib.pl'; our (%in, %text, %config); diff --git a/minecraft/list_versions.cgi b/minecraft/list_versions.cgi index 7bbca1358..bf6038378 100755 --- a/minecraft/list_versions.cgi +++ b/minecraft/list_versions.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './minecraft-lib.pl'; our (%in, %text, %config, $download_page_url); diff --git a/minecraft/list_worlds.cgi b/minecraft/list_worlds.cgi index 2e36d708c..452df0c61 100755 --- a/minecraft/list_worlds.cgi +++ b/minecraft/list_worlds.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './minecraft-lib.pl'; our (%in, %text, %config); diff --git a/minecraft/minecraft-lib.pl b/minecraft/minecraft-lib.pl index 3c3e73b9a..a7051c176 100644 --- a/minecraft/minecraft-lib.pl +++ b/minecraft/minecraft-lib.pl @@ -7,6 +7,8 @@ BEGIN { push(@INC, ".."); }; use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; use WebminCore; use Time::Local; use POSIX; diff --git a/minecraft/output.cgi b/minecraft/output.cgi index f2b112280..4999da67f 100755 --- a/minecraft/output.cgi +++ b/minecraft/output.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './minecraft-lib.pl'; our (%config); my $logfile = &get_minecraft_log_file(); diff --git a/minecraft/restart.cgi b/minecraft/restart.cgi index f4f77e265..e4df76c07 100755 --- a/minecraft/restart.cgi +++ b/minecraft/restart.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './minecraft-lib.pl'; our (%text); &error_setup($text{'restart_err'}); diff --git a/minecraft/save_backup.cgi b/minecraft/save_backup.cgi index 600468323..11329dfa8 100755 --- a/minecraft/save_backup.cgi +++ b/minecraft/save_backup.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './minecraft-lib.pl'; &foreign_require("webmincron"); our (%in, %text, %config, $module_config_file, $module_name); diff --git a/minecraft/save_cmds.cgi b/minecraft/save_cmds.cgi index 3acbd2eb3..2a469816a 100755 --- a/minecraft/save_cmds.cgi +++ b/minecraft/save_cmds.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './minecraft-lib.pl'; our (%in, %text); &ReadParse(); diff --git a/minecraft/save_conf.cgi b/minecraft/save_conf.cgi index 05da9f55b..a8802d82d 100755 --- a/minecraft/save_conf.cgi +++ b/minecraft/save_conf.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './minecraft-lib.pl'; our (%in, %text, %config, $module_config_file); &ReadParse(); diff --git a/minecraft/save_conn.cgi b/minecraft/save_conn.cgi index d703b28ce..1e2221ef1 100755 --- a/minecraft/save_conn.cgi +++ b/minecraft/save_conn.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './minecraft-lib.pl'; our (%in, %text); &ReadParse(); diff --git a/minecraft/save_manual.cgi b/minecraft/save_manual.cgi index 8e43ba43b..7bb5c7659 100755 --- a/minecraft/save_manual.cgi +++ b/minecraft/save_manual.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './minecraft-lib.pl'; our (%in, %text); &ReadParseMime(); diff --git a/minecraft/save_playtime.cgi b/minecraft/save_playtime.cgi index a8b17fcad..a7c3e2fb9 100755 --- a/minecraft/save_playtime.cgi +++ b/minecraft/save_playtime.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './minecraft-lib.pl'; our (%in, %text, %config, $module_config_file, $module_name); &ReadParse(); diff --git a/minecraft/save_users.cgi b/minecraft/save_users.cgi index db52e1ea2..000d9646e 100755 --- a/minecraft/save_users.cgi +++ b/minecraft/save_users.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './minecraft-lib.pl'; our (%in, %text, %config); &ReadParse(); diff --git a/minecraft/save_world.cgi b/minecraft/save_world.cgi index 127ca5982..254579284 100755 --- a/minecraft/save_world.cgi +++ b/minecraft/save_world.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './minecraft-lib.pl'; our (%in, %text, %config); if ($ENV{'CONTENT_TYPE'} =~ /boundary=/) { diff --git a/minecraft/start.cgi b/minecraft/start.cgi index 3650147c4..fe226c683 100755 --- a/minecraft/start.cgi +++ b/minecraft/start.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './minecraft-lib.pl'; our (%text); &error_setup($text{'start_err'}); diff --git a/minecraft/stop.cgi b/minecraft/stop.cgi index ff2e10823..9ef4c5875 100755 --- a/minecraft/stop.cgi +++ b/minecraft/stop.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './minecraft-lib.pl'; our (%text, %in); &ReadParse(); diff --git a/minecraft/view_conn.cgi b/minecraft/view_conn.cgi index 03bfca66f..5f4f3f06f 100755 --- a/minecraft/view_conn.cgi +++ b/minecraft/view_conn.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './minecraft-lib.pl'; our (%in, %text); &ReadParse(); diff --git a/minecraft/view_logs.cgi b/minecraft/view_logs.cgi index 022c85572..be6494a66 100755 --- a/minecraft/view_logs.cgi +++ b/minecraft/view_logs.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './minecraft-lib.pl'; our (%in, %text, %config); my $logfile = &get_minecraft_log_file(); diff --git a/record-failed.pl b/record-failed.pl index 65190fef5..c9976f7b5 100755 --- a/record-failed.pl +++ b/record-failed.pl @@ -4,6 +4,8 @@ BEGIN { push(@INC, ".."); }; use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; use WebminCore; &init_config(); our ($remote_user); diff --git a/record-login.pl b/record-login.pl index 50d02b5f4..c97fd0bae 100755 --- a/record-login.pl +++ b/record-login.pl @@ -4,6 +4,8 @@ BEGIN { push(@INC, "."); }; use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; use WebminCore; our ($remote_user); diff --git a/record-logout.pl b/record-logout.pl index 143eb4dfc..93d1798ed 100755 --- a/record-logout.pl +++ b/record-logout.pl @@ -4,6 +4,8 @@ BEGIN { push(@INC, ".."); }; use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; use WebminCore; our ($remote_user); diff --git a/servers/auto.pl b/servers/auto.pl index 6581f4336..79402a003 100755 --- a/servers/auto.pl +++ b/servers/auto.pl @@ -4,6 +4,8 @@ $no_acl_check++; use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './servers-lib.pl'; our (%config, %text, @cluster_modules); &foreign_require("mailboxes", "mailboxes-lib.pl"); diff --git a/servers/backup_config.pl b/servers/backup_config.pl index b326c2840..5fdac3dce 100755 --- a/servers/backup_config.pl +++ b/servers/backup_config.pl @@ -1,6 +1,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; do 'servers-lib.pl'; # backup_config_files() diff --git a/servers/cgi_args.pl b/servers/cgi_args.pl index a680f412b..d9e8de45c 100755 --- a/servers/cgi_args.pl +++ b/servers/cgi_args.pl @@ -1,6 +1,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; do 'servers-lib.pl'; our (%access); diff --git a/servers/config_info.pl b/servers/config_info.pl index c50285252..bc5ed6278 100755 --- a/servers/config_info.pl +++ b/servers/config_info.pl @@ -1,6 +1,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; do 'servers-lib.pl'; our (%config, %text); diff --git a/servers/delete_servs.cgi b/servers/delete_servs.cgi index d9d4e4efb..b50f99c53 100755 --- a/servers/delete_servs.cgi +++ b/servers/delete_servs.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './servers-lib.pl'; our (%text, %access, %in); &ReadParse(); diff --git a/servers/edit_auto.cgi b/servers/edit_auto.cgi index 70c8a26b9..e6dac0647 100755 --- a/servers/edit_auto.cgi +++ b/servers/edit_auto.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './servers-lib.pl'; our (%text, %config, %access, @cluster_modules); $access{'auto'} || &error($text{'auto_ecannot'}); diff --git a/servers/edit_serv.cgi b/servers/edit_serv.cgi index f539ad824..7812828e7 100755 --- a/servers/edit_serv.cgi +++ b/servers/edit_serv.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './servers-lib.pl'; our (%text, %in, %config, %access, $status_error_msg); &ReadParse(); diff --git a/servers/find.cgi b/servers/find.cgi index c80f36236..faafcee18 100755 --- a/servers/find.cgi +++ b/servers/find.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './servers-lib.pl'; our (%text, %access, %in, %config); &ReadParse(); diff --git a/servers/index-json.cgi b/servers/index-json.cgi index 3b4f2c9ff..f1a7860c0 100755 --- a/servers/index-json.cgi +++ b/servers/index-json.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './servers-lib.pl'; # Get servers and apply search diff --git a/servers/index.cgi b/servers/index.cgi index 4c43c4cfd..909af0878 100755 --- a/servers/index.cgi +++ b/servers/index.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './servers-lib.pl'; our (%text, %config, %access, %in); &ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1); diff --git a/servers/link.cgi b/servers/link.cgi index 801c7d3ce..256ce52a1 100755 --- a/servers/link.cgi +++ b/servers/link.cgi @@ -9,6 +9,8 @@ if ($ENV{'PATH_INFO'} =~ /^\/(\d+)\/([a-zA-Z0-9\-\/]+)\.(jar|class|gif|png)$/) { } use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './servers-lib.pl'; our (%text, %gconfig, %access, $module_name, %tconfig); $ENV{'PATH_INFO'} =~ /^\/(\d+)(.*)$/ || diff --git a/servers/log_parser.pl b/servers/log_parser.pl index 3ab1dc01f..d47056c30 100755 --- a/servers/log_parser.pl +++ b/servers/log_parser.pl @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; do 'servers-lib.pl'; our (%text); diff --git a/servers/login.cgi b/servers/login.cgi index 7d222ba38..ee88ddd2f 100755 --- a/servers/login.cgi +++ b/servers/login.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './servers-lib.pl'; our (%in); &ReadParse(); diff --git a/servers/logout.cgi b/servers/logout.cgi index 655c1533d..6c642786e 100755 --- a/servers/logout.cgi +++ b/servers/logout.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './servers-lib.pl'; &ReadParse(); our (%in); diff --git a/servers/save_auto.cgi b/servers/save_auto.cgi index 272040df4..a3aed2bad 100755 --- a/servers/save_auto.cgi +++ b/servers/save_auto.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './servers-lib.pl'; our (%in, %text, $module_name, $cron_cmd, @cluster_modules, %config, %access); $access{'auto'} || &error($text{'auto_ecannot'}); diff --git a/servers/save_serv.cgi b/servers/save_serv.cgi index 920c1558d..43db14a14 100755 --- a/servers/save_serv.cgi +++ b/servers/save_serv.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './servers-lib.pl'; our (%in, %access, %text); &ReadParse(); diff --git a/servers/servers-lib.pl b/servers/servers-lib.pl index 4441eb3f5..92528c239 100755 --- a/servers/servers-lib.pl +++ b/servers/servers-lib.pl @@ -19,6 +19,8 @@ for RPC operations. Example code : BEGIN { push(@INC, ".."); }; use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; use WebminCore; use Socket; our (%text, %config, %gconfig, $module_config_directory); diff --git a/servers/uninstall.pl b/servers/uninstall.pl index 50ca5e5be..f3520c557 100755 --- a/servers/uninstall.pl +++ b/servers/uninstall.pl @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require 'servers-lib.pl'; sub module_uninstall diff --git a/squid/acl.cgi b/squid/acl.cgi index b949eb133..d0d1f4632 100755 --- a/squid/acl.cgi +++ b/squid/acl.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config, %acl_types, @caseless_acl_types, @nodns_acl_types); require './squid-lib.pl'; diff --git a/squid/acl_save.cgi b/squid/acl_save.cgi index de1788615..25a1f1bdb 100755 --- a/squid/acl_save.cgi +++ b/squid/acl_save.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config, %acl_types); require './squid-lib.pl'; $access{'actrl'} || &error($text{'eacl_ecannot'}); diff --git a/squid/always.cgi b/squid/always.cgi index 3cf55d660..26081db5e 100755 --- a/squid/always.cgi +++ b/squid/always.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'othercaches'} || &error($text{'eicp_ecannot'}); diff --git a/squid/always_save.cgi b/squid/always_save.cgi index 4e201bf22..e938d9e3b 100755 --- a/squid/always_save.cgi +++ b/squid/always_save.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'othercaches'} || &error($text{'eicp_ecannot'}); diff --git a/squid/backup_config.pl b/squid/backup_config.pl index 622da761b..42794d7ce 100755 --- a/squid/backup_config.pl +++ b/squid/backup_config.pl @@ -1,6 +1,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); do 'squid-lib.pl'; diff --git a/squid/cachemgr.cgi b/squid/cachemgr.cgi index b75f94276..10548b50f 100755 --- a/squid/cachemgr.cgi +++ b/squid/cachemgr.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config, $module_name); require './squid-lib.pl'; $access{'cms'} || &error($text{'cach_ecannot'}); diff --git a/squid/calamaris.cgi b/squid/calamaris.cgi index 06cd175a1..9f6d4c817 100755 --- a/squid/calamaris.cgi +++ b/squid/calamaris.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config, %gconfig, $module_name); require './squid-lib.pl'; $access{'calamaris'} || &error($text{'calamaris_ecannot'}); diff --git a/squid/cgi_args.pl b/squid/cgi_args.pl index af4e8235e..218151c2d 100755 --- a/squid/cgi_args.pl +++ b/squid/cgi_args.pl @@ -1,6 +1,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); do 'squid-lib.pl'; diff --git a/squid/chown.cgi b/squid/chown.cgi index ede4e3b87..dbad280f9 100755 --- a/squid/chown.cgi +++ b/squid/chown.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'admopts'} || &error($text{'eadm_ecannot'}); diff --git a/squid/clear.cgi b/squid/clear.cgi index d5b3fc6de..8812f228d 100755 --- a/squid/clear.cgi +++ b/squid/clear.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'rebuild'} || &error($text{'clear_ecannot'}); diff --git a/squid/delete_http_accesses.cgi b/squid/delete_http_accesses.cgi index b6c996c2b..6d92ce859 100755 --- a/squid/delete_http_accesses.cgi +++ b/squid/delete_http_accesses.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; &error_setup($text{'dhttp_err'}); diff --git a/squid/delete_http_reply_accesses.cgi b/squid/delete_http_reply_accesses.cgi index 26cc50645..8b3e81585 100755 --- a/squid/delete_http_reply_accesses.cgi +++ b/squid/delete_http_reply_accesses.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; &error_setup($text{'dhttp_err'}); diff --git a/squid/delete_https.cgi b/squid/delete_https.cgi index 5c419b890..a49153b7c 100755 --- a/squid/delete_https.cgi +++ b/squid/delete_https.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; &error_setup($text{'dhttp_err'}); diff --git a/squid/delete_icp_accesses.cgi b/squid/delete_icp_accesses.cgi index 75586436d..58662b738 100755 --- a/squid/delete_icp_accesses.cgi +++ b/squid/delete_icp_accesses.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; &error_setup($text{'dicp_err'}); diff --git a/squid/delete_icps.cgi b/squid/delete_icps.cgi index 4d237602c..e342c5662 100755 --- a/squid/delete_icps.cgi +++ b/squid/delete_icps.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; &error_setup($text{'deicp_err'}); diff --git a/squid/delete_pools.cgi b/squid/delete_pools.cgi index f4d3d712e..45d5d6e42 100755 --- a/squid/delete_pools.cgi +++ b/squid/delete_pools.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; &error_setup($text{'dpool_err'}); diff --git a/squid/delete_refreshes.cgi b/squid/delete_refreshes.cgi index 0326fa2a3..b25e2f502 100755 --- a/squid/delete_refreshes.cgi +++ b/squid/delete_refreshes.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; &error_setup($text{'drefresh_err'}); diff --git a/squid/edit_acl.cgi b/squid/edit_acl.cgi index ec02b241e..5ef2be434 100755 --- a/squid/edit_acl.cgi +++ b/squid/edit_acl.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config, %acl_types); require './squid-lib.pl'; &ReadParse(); diff --git a/squid/edit_admin.cgi b/squid/edit_admin.cgi index f8d139822..3f0a1e9b4 100755 --- a/squid/edit_admin.cgi +++ b/squid/edit_admin.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'admopts'} || &error($text{'eadm_ecannot'}); diff --git a/squid/edit_authparam.cgi b/squid/edit_authparam.cgi index 4b12c863a..63858c86e 100755 --- a/squid/edit_authparam.cgi +++ b/squid/edit_authparam.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config, $auth_program); require './squid-lib.pl'; $access{'authparam'} || &error($text{'authparam_ecannot'}); diff --git a/squid/edit_cache.cgi b/squid/edit_cache.cgi index 36b987e33..19526aa16 100755 --- a/squid/edit_cache.cgi +++ b/squid/edit_cache.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'copts'} || &error($text{'ec_ecannot'}); diff --git a/squid/edit_cache_host.cgi b/squid/edit_cache_host.cgi index 8e5c9dad9..d356e366a 100755 --- a/squid/edit_cache_host.cgi +++ b/squid/edit_cache_host.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'othercaches'} || &error($text{'eicp_ecannot'}); diff --git a/squid/edit_cachemgr.cgi b/squid/edit_cachemgr.cgi index 13f904b27..ad56ea999 100755 --- a/squid/edit_cachemgr.cgi +++ b/squid/edit_cachemgr.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'cachemgr'} || &error($text{'cachemgr_ecannot'}); diff --git a/squid/edit_delay.cgi b/squid/edit_delay.cgi index cdb4a21da..edcde1f87 100755 --- a/squid/edit_delay.cgi +++ b/squid/edit_delay.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'delay'} || &error($text{'delay_ecannot'}); diff --git a/squid/edit_ext.cgi b/squid/edit_ext.cgi index e61c8deb3..4e5cae2dd 100755 --- a/squid/edit_ext.cgi +++ b/squid/edit_ext.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'actrl'} || &error($text{'eacl_ecannot'}); diff --git a/squid/edit_headeracc.cgi b/squid/edit_headeracc.cgi index 3afe926dd..18c39c3b0 100755 --- a/squid/edit_headeracc.cgi +++ b/squid/edit_headeracc.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'headeracc'} || &error($text{'header_ecannot'}); diff --git a/squid/edit_icp.cgi b/squid/edit_icp.cgi index 82db9278e..239c5086a 100755 --- a/squid/edit_icp.cgi +++ b/squid/edit_icp.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'othercaches'} || &error($text{'eicp_ecannot'}); diff --git a/squid/edit_iptables.cgi b/squid/edit_iptables.cgi index eb10121f7..552342b91 100755 --- a/squid/edit_iptables.cgi +++ b/squid/edit_iptables.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; &ui_print_header(undef, $text{'iptables_title'}, ""); diff --git a/squid/edit_logs.cgi b/squid/edit_logs.cgi index e3c63694a..325f1dcfd 100755 --- a/squid/edit_logs.cgi +++ b/squid/edit_logs.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'logging'} || &error($text{'elogs_ecannot'}); diff --git a/squid/edit_mem.cgi b/squid/edit_mem.cgi index af446f768..2eb30c8b4 100755 --- a/squid/edit_mem.cgi +++ b/squid/edit_mem.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'musage'} || &error($text{'emem_ecannot'}); diff --git a/squid/edit_misc.cgi b/squid/edit_misc.cgi index 5224efa99..9a7c2518a 100755 --- a/squid/edit_misc.cgi +++ b/squid/edit_misc.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'miscopt'} || &error($text{'emisc_ecannot'}); diff --git a/squid/edit_nauth.cgi b/squid/edit_nauth.cgi index 5f0516b18..764ff0566 100755 --- a/squid/edit_nauth.cgi +++ b/squid/edit_nauth.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config, $module_name); require './squid-lib.pl'; diff --git a/squid/edit_nuser.cgi b/squid/edit_nuser.cgi index 94277e889..94bd018be 100755 --- a/squid/edit_nuser.cgi +++ b/squid/edit_nuser.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'proxyauth'} || &error($text{'eauth_ecannot'}); diff --git a/squid/edit_pool.cgi b/squid/edit_pool.cgi index c14b9d33f..75dd36cf1 100755 --- a/squid/edit_pool.cgi +++ b/squid/edit_pool.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; &ReadParse(); diff --git a/squid/edit_ports.cgi b/squid/edit_ports.cgi index 58e1c3ca6..31d3b05c9 100755 --- a/squid/edit_ports.cgi +++ b/squid/edit_ports.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'portsnets'} || &error($text{'eports_ecannot'}); diff --git a/squid/edit_progs.cgi b/squid/edit_progs.cgi index 05504f679..f2e36c811 100755 --- a/squid/edit_progs.cgi +++ b/squid/edit_progs.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'hprogs'} || &error($text{'eprogs_ecannot'}); diff --git a/squid/edit_refresh.cgi b/squid/edit_refresh.cgi index fcfa146c3..c013bd062 100755 --- a/squid/edit_refresh.cgi +++ b/squid/edit_refresh.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'refresh'} || &error($text{'refresh_ecannot'}); diff --git a/squid/http_access.cgi b/squid/http_access.cgi index cbde0a63e..65ac53dd0 100755 --- a/squid/http_access.cgi +++ b/squid/http_access.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'actrl'} || &error($text{'eacl_ecannot'}); diff --git a/squid/http_access_save.cgi b/squid/http_access_save.cgi index a58502dec..557d5ec86 100755 --- a/squid/http_access_save.cgi +++ b/squid/http_access_save.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'actrl'} || &error($text{'eacl_ecannot'}); diff --git a/squid/http_reply_access.cgi b/squid/http_reply_access.cgi index fa71a87bc..9d3e0ec1b 100755 --- a/squid/http_reply_access.cgi +++ b/squid/http_reply_access.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'actrl'} || &error($text{'eacl_ecannot'}); diff --git a/squid/http_reply_access_save.cgi b/squid/http_reply_access_save.cgi index ac57a0d7b..f089c5644 100755 --- a/squid/http_reply_access_save.cgi +++ b/squid/http_reply_access_save.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'actrl'} || &error($text{'eacl_ecannot'}); diff --git a/squid/icp_access.cgi b/squid/icp_access.cgi index d6dfcbe11..ec8c95dde 100755 --- a/squid/icp_access.cgi +++ b/squid/icp_access.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'actrl'} || &error($text{'eacl_ecannot'}); diff --git a/squid/icp_access_save.cgi b/squid/icp_access_save.cgi index c90036548..500aa2c06 100755 --- a/squid/icp_access_save.cgi +++ b/squid/icp_access_save.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'actrl'} || &error($text{'eacl_ecannot'}); diff --git a/squid/index.cgi b/squid/index.cgi index 184ed6bf3..bc95c2c94 100755 --- a/squid/index.cgi +++ b/squid/index.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './squid-lib.pl'; our (%in, %text, %config, %access, $module_name, $module_config_directory); diff --git a/squid/init_cache.cgi b/squid/init_cache.cgi index e72508458..40785d46f 100755 --- a/squid/init_cache.cgi +++ b/squid/init_cache.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'rebuild'} || &error($text{'icache_ecannot'}); diff --git a/squid/install_check.pl b/squid/install_check.pl index 995d1e7ce..864f1a2f0 100755 --- a/squid/install_check.pl +++ b/squid/install_check.pl @@ -2,6 +2,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); do 'squid-lib.pl'; diff --git a/squid/list_headeracc.cgi b/squid/list_headeracc.cgi index 776104525..2f823eac3 100755 --- a/squid/list_headeracc.cgi +++ b/squid/list_headeracc.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'headeracc'} || &error($text{'header_ecannot'}); diff --git a/squid/list_refresh.cgi b/squid/list_refresh.cgi index fe7516ed1..19772ff02 100755 --- a/squid/list_refresh.cgi +++ b/squid/list_refresh.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'refresh'} || &error($text{'refresh_ecannot'}); diff --git a/squid/log_parser.pl b/squid/log_parser.pl index 0e85c688e..45bfc1e0b 100755 --- a/squid/log_parser.pl +++ b/squid/log_parser.pl @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); do 'squid-lib.pl'; diff --git a/squid/move_always.cgi b/squid/move_always.cgi index 4f34d685e..f2ca762d7 100755 --- a/squid/move_always.cgi +++ b/squid/move_always.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'othercaches'} || &error($text{'eicp_ecannot'}); diff --git a/squid/move_headeracc.cgi b/squid/move_headeracc.cgi index 7cad79b01..a8709ec00 100755 --- a/squid/move_headeracc.cgi +++ b/squid/move_headeracc.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'headeracc'} || &error($text{'header_ecannot'}); diff --git a/squid/move_http.cgi b/squid/move_http.cgi index e5ebc542f..5181d5d03 100755 --- a/squid/move_http.cgi +++ b/squid/move_http.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'actrl'} || &error($text{'eacl_ecannot'}); diff --git a/squid/move_http_reply.cgi b/squid/move_http_reply.cgi index ae0ad2795..9c242f4cd 100755 --- a/squid/move_http_reply.cgi +++ b/squid/move_http_reply.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'actrl'} || &error($text{'eacl_ecannot'}); diff --git a/squid/move_icp.cgi b/squid/move_icp.cgi index 1d7d19133..570b760e3 100755 --- a/squid/move_icp.cgi +++ b/squid/move_icp.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'actrl'} || &error($text{'eacl_ecannot'}); diff --git a/squid/move_never.cgi b/squid/move_never.cgi index cd250bb81..e7d5f3c54 100755 --- a/squid/move_never.cgi +++ b/squid/move_never.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'othercaches'} || &error($text{'eicp_ecannot'}); diff --git a/squid/move_pool.cgi b/squid/move_pool.cgi index 6c51cfa34..1cb5d9cfb 100755 --- a/squid/move_pool.cgi +++ b/squid/move_pool.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'delay'} || &error($text{'delay_ecannot'}); diff --git a/squid/move_refresh.cgi b/squid/move_refresh.cgi index 677f79bb8..b1398180b 100755 --- a/squid/move_refresh.cgi +++ b/squid/move_refresh.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'refresh'} || &error($text{'header_ecannot'}); diff --git a/squid/never.cgi b/squid/never.cgi index 224b62b4f..dd342ebe6 100755 --- a/squid/never.cgi +++ b/squid/never.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'othercaches'} || &error($text{'eicp_ecannot'}); diff --git a/squid/never_save.cgi b/squid/never_save.cgi index 77b06402b..32397d39d 100755 --- a/squid/never_save.cgi +++ b/squid/never_save.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'othercaches'} || &error($text{'eicp_ecannot'}); diff --git a/squid/parser-lib.pl b/squid/parser-lib.pl index 7328afd52..c10b096b3 100755 --- a/squid/parser-lib.pl +++ b/squid/parser-lib.pl @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (@get_config_cache, %config); # get_config() diff --git a/squid/pool_access.cgi b/squid/pool_access.cgi index e52b1462a..462cd77c3 100755 --- a/squid/pool_access.cgi +++ b/squid/pool_access.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'delay'} || &error($text{'delay_ecannot'}); diff --git a/squid/pool_access_save.cgi b/squid/pool_access_save.cgi index b2aed95cf..4194e0fa3 100755 --- a/squid/pool_access_save.cgi +++ b/squid/pool_access_save.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'delay'} || &error($text{'delay_ecannot'}); diff --git a/squid/purge.cgi b/squid/purge.cgi index 63fde33a9..f40c2d38f 100755 --- a/squid/purge.cgi +++ b/squid/purge.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; &error_setup($text{'purge_err'}); diff --git a/squid/restart.cgi b/squid/restart.cgi index 27160b9a2..2f7de8e62 100755 --- a/squid/restart.cgi +++ b/squid/restart.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; &ReadParse(); diff --git a/squid/save_admin.cgi b/squid/save_admin.cgi index bde89a98c..52aec0924 100755 --- a/squid/save_admin.cgi +++ b/squid/save_admin.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'admopts'} || &error($text{'eadm_ecannot'}); diff --git a/squid/save_authparam.cgi b/squid/save_authparam.cgi index 255710279..46b8012b9 100755 --- a/squid/save_authparam.cgi +++ b/squid/save_authparam.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config, $auth_program, $auth_database, $module_root_directory, $module_config_directory); require './squid-lib.pl'; diff --git a/squid/save_cache.cgi b/squid/save_cache.cgi index d0257bc62..ff3c54d23 100755 --- a/squid/save_cache.cgi +++ b/squid/save_cache.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'copts'} || &error($text{'ec_ecannot'}); diff --git a/squid/save_cache_host.cgi b/squid/save_cache_host.cgi index 4db0af751..51dbe575e 100755 --- a/squid/save_cache_host.cgi +++ b/squid/save_cache_host.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'othercaches'} || &error($text{'eicp_ecannot'}); diff --git a/squid/save_cachemgr.cgi b/squid/save_cachemgr.cgi index 492b5ed24..fbde60070 100755 --- a/squid/save_cachemgr.cgi +++ b/squid/save_cachemgr.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; &error_setup($text{'cachemgr_err'}); diff --git a/squid/save_delay.cgi b/squid/save_delay.cgi index 5f982b29b..55853e794 100755 --- a/squid/save_delay.cgi +++ b/squid/save_delay.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'delay'} || &error($text{'delay_ecannot'}); diff --git a/squid/save_ext.cgi b/squid/save_ext.cgi index e5e076091..aead1821d 100755 --- a/squid/save_ext.cgi +++ b/squid/save_ext.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; &error_setup($text{'ext_err'}); diff --git a/squid/save_headeracc.cgi b/squid/save_headeracc.cgi index 908300dcb..5e26478c7 100755 --- a/squid/save_headeracc.cgi +++ b/squid/save_headeracc.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'headeracc'} || &error($text{'headeracc_ecannot'}); diff --git a/squid/save_icp.cgi b/squid/save_icp.cgi index 5f0f8a39b..4b3163ee1 100755 --- a/squid/save_icp.cgi +++ b/squid/save_icp.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'othercaches'} || &error($text{'eicp_ecannot'}); diff --git a/squid/save_iptables.cgi b/squid/save_iptables.cgi index e1656da93..0a2bdf3d8 100755 --- a/squid/save_iptables.cgi +++ b/squid/save_iptables.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; &foreign_require("firewall", "firewall-lib.pl"); diff --git a/squid/save_logs.cgi b/squid/save_logs.cgi index ce2f31393..3e843b70c 100755 --- a/squid/save_logs.cgi +++ b/squid/save_logs.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'logging'} || &error($text{'elogs_ecannot'}); diff --git a/squid/save_mem.cgi b/squid/save_mem.cgi index 58d43cbb5..7b09ed292 100755 --- a/squid/save_mem.cgi +++ b/squid/save_mem.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'musage'} || &error($text{'emem_ecannot'}); diff --git a/squid/save_misc.cgi b/squid/save_misc.cgi index adbed4b8b..07b5cecb4 100755 --- a/squid/save_misc.cgi +++ b/squid/save_misc.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'miscopt'} || &error($text{'emisc_ecannot'}); diff --git a/squid/save_nuser.cgi b/squid/save_nuser.cgi index f8527412c..8abef7ecc 100755 --- a/squid/save_nuser.cgi +++ b/squid/save_nuser.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config, $module_name); require './squid-lib.pl'; if ($config{'crypt_conf'} == 1) { diff --git a/squid/save_pool.cgi b/squid/save_pool.cgi index 609651098..dc23ba3a8 100755 --- a/squid/save_pool.cgi +++ b/squid/save_pool.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'delay'} || &error($text{'delay_ecannot'}); diff --git a/squid/save_ports.cgi b/squid/save_ports.cgi index b9362b95d..f60526dff 100755 --- a/squid/save_ports.cgi +++ b/squid/save_ports.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'portsnets'} || &error($text{'eports_ecannot'}); diff --git a/squid/save_progs.cgi b/squid/save_progs.cgi index 6ad910b32..6f85247b5 100755 --- a/squid/save_progs.cgi +++ b/squid/save_progs.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'hprogs'} || &error($text{'eprogs_ecannot'}); diff --git a/squid/save_refresh.cgi b/squid/save_refresh.cgi index 94fff49e1..57221e7b7 100755 --- a/squid/save_refresh.cgi +++ b/squid/save_refresh.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'refresh'} || &error($text{'refresh_ecannot'}); diff --git a/squid/squid-auth.pl b/squid/squid-auth.pl index 42fb1bf79..1801ba681 100755 --- a/squid/squid-auth.pl +++ b/squid/squid-auth.pl @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; my %auth; open(my $fh, "<".$ARGV[0]); diff --git a/squid/squid-lib.pl b/squid/squid-lib.pl index dc0e5032a..9ac9c0311 100755 --- a/squid/squid-lib.pl +++ b/squid/squid-lib.pl @@ -4,6 +4,8 @@ BEGIN { push(@INC, ".."); }; use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; use WebminCore; &init_config(); do 'parser-lib.pl'; diff --git a/squid/start.cgi b/squid/start.cgi index 46af5504a..a653b3f1a 100755 --- a/squid/start.cgi +++ b/squid/start.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'start'} || &error($text{'start_ecannot'}); diff --git a/squid/stop.cgi b/squid/stop.cgi index 3946d074d..2e50c3c48 100755 --- a/squid/stop.cgi +++ b/squid/stop.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'start'} || &error($text{'stop_ecannot'}); diff --git a/squid/syslog_logs.pl b/squid/syslog_logs.pl index dbdd910a9..c42aa3eb6 100755 --- a/squid/syslog_logs.pl +++ b/squid/syslog_logs.pl @@ -2,6 +2,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require 'squid-lib.pl'; diff --git a/squid/useradmin_update.pl b/squid/useradmin_update.pl index 17bb1f041..4d5cc6c0f 100755 --- a/squid/useradmin_update.pl +++ b/squid/useradmin_update.pl @@ -1,6 +1,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); do 'squid-lib.pl'; diff --git a/system-status/acl_security.pl b/system-status/acl_security.pl index b1d9f76d6..5007bd444 100644 --- a/system-status/acl_security.pl +++ b/system-status/acl_security.pl @@ -1,5 +1,7 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; do 'acl-lib.pl'; our (%text, %in); diff --git a/system-status/enable-collection.pl b/system-status/enable-collection.pl index 8224b5d2e..53136d2e7 100755 --- a/system-status/enable-collection.pl +++ b/system-status/enable-collection.pl @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%config); require './system-status-lib.pl'; my $zero = @ARGV ? $ARGV[0] : ''; diff --git a/system-status/postinstall.pl b/system-status/postinstall.pl index e2fab1b1f..969c03654 100755 --- a/system-status/postinstall.pl +++ b/system-status/postinstall.pl @@ -1,6 +1,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require 'system-status-lib.pl'; our ($module_config_directory, $module_name); diff --git a/system-status/recollect.cgi b/system-status/recollect.cgi index 0c2c6d78f..e9ff09035 100755 --- a/system-status/recollect.cgi +++ b/system-status/recollect.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './system-status-lib.pl'; &scheduled_collect_system_info('manual'); &redirect($ENV{'HTTP_REFERER'}); diff --git a/system-status/system-status-lib.pl b/system-status/system-status-lib.pl index de7b864ec..054d0b7d0 100755 --- a/system-status/system-status-lib.pl +++ b/system-status/system-status-lib.pl @@ -3,6 +3,7 @@ use strict; use warnings; no warnings 'redefine'; +no warnings 'uninitialized'; BEGIN { push(@INC, ".."); }; eval "use WebminCore;"; &init_config(); diff --git a/system-status/system_info.pl b/system-status/system_info.pl index 62f20d5f5..a5fbb5530 100644 --- a/system-status/system_info.pl +++ b/system-status/system_info.pl @@ -1,6 +1,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require 'system-status-lib.pl'; our (%text, %gconfig, $module_name, %config); diff --git a/system-status/systeminfo.pl b/system-status/systeminfo.pl index ec0e1f862..1d6e5c51f 100755 --- a/system-status/systeminfo.pl +++ b/system-status/systeminfo.pl @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; package system_status; require './system-status-lib.pl'; &scheduled_collect_system_info(); diff --git a/time/acl_security.pl b/time/acl_security.pl index 907e68246..e8ca3261e 100755 --- a/time/acl_security.pl +++ b/time/acl_security.pl @@ -1,6 +1,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require 'time-lib.pl'; our (%text); diff --git a/time/backup_config.pl b/time/backup_config.pl index 343ef740e..ed40f3d76 100755 --- a/time/backup_config.pl +++ b/time/backup_config.pl @@ -1,6 +1,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; do 'time-lib.pl'; our ($module_config_file); diff --git a/time/freebsd-lib.pl b/time/freebsd-lib.pl index 65243415e..599c1a708 100755 --- a/time/freebsd-lib.pl +++ b/time/freebsd-lib.pl @@ -2,6 +2,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our $timezones_file = "/usr/share/zoneinfo/zone.tab"; our $currentzone_link = "/etc/localtime"; our $timezones_dir = "/usr/share/zoneinfo"; diff --git a/time/index.cgi b/time/index.cgi index 530674012..c8b7225fb 100755 --- a/time/index.cgi +++ b/time/index.cgi @@ -2,6 +2,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './time-lib.pl'; our (%in, %text, %config, %access, $base_remote_user, $get_hardware_time_error); diff --git a/time/linux-lib.pl b/time/linux-lib.pl index b2bb85f5c..4ab63946b 100755 --- a/time/linux-lib.pl +++ b/time/linux-lib.pl @@ -2,6 +2,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our $timezones_file = "/usr/share/zoneinfo/zone.tab"; our $currentzone_link = "/etc/localtime"; our $currentzone_file = "/etc/timezone"; diff --git a/time/log_parser.pl b/time/log_parser.pl index 2f3c2afaf..c56d37f37 100755 --- a/time/log_parser.pl +++ b/time/log_parser.pl @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; do 'time-lib.pl'; our (%text); diff --git a/time/postinstall.pl b/time/postinstall.pl index f9b93ccda..10733ec7e 100755 --- a/time/postinstall.pl +++ b/time/postinstall.pl @@ -1,6 +1,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require 'time-lib.pl'; our ($module_name); diff --git a/time/solaris-lib.pl b/time/solaris-lib.pl index 65769427d..ac883b69f 100755 --- a/time/solaris-lib.pl +++ b/time/solaris-lib.pl @@ -2,6 +2,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our $timezone_file = "/etc/TIMEZONE"; our $timezones_dir = "/usr/share/lib/zoneinfo"; our $rtc_config = "/etc/rtc_config"; diff --git a/time/time-lib.pl b/time/time-lib.pl index 2a52640b0..471f12ae9 100755 --- a/time/time-lib.pl +++ b/time/time-lib.pl @@ -2,6 +2,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; BEGIN { push(@INC, ".."); }; use WebminCore; &init_config(); diff --git a/time/uninstall.pl b/time/uninstall.pl index 0139ba033..6c2313128 100755 --- a/time/uninstall.pl +++ b/time/uninstall.pl @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require 'time-lib.pl'; sub module_uninstall diff --git a/tunnel/index.cgi b/tunnel/index.cgi index 729f812c3..c115c1f25 100755 --- a/tunnel/index.cgi +++ b/tunnel/index.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%config, %text, %module_info); require './tunnel-lib.pl'; diff --git a/tunnel/link.cgi b/tunnel/link.cgi index 8b46e0a1a..4d5f09cfe 100755 --- a/tunnel/link.cgi +++ b/tunnel/link.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%config, %text, %module_info, %in, %gconfig, $module_name); require './tunnel-lib.pl'; diff --git a/tunnel/login.cgi b/tunnel/login.cgi index 9645967b2..fb5f88c65 100755 --- a/tunnel/login.cgi +++ b/tunnel/login.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%config, %text, %module_info, %in); require './tunnel-lib.pl'; diff --git a/tunnel/seturl.cgi b/tunnel/seturl.cgi index dd96aac9d..892a5ccde 100755 --- a/tunnel/seturl.cgi +++ b/tunnel/seturl.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%config, %text, %module_info, %in); require './tunnel-lib.pl'; &ReadParse(); diff --git a/tunnel/tunnel-lib.pl b/tunnel/tunnel-lib.pl index 53eb6e2b9..3959c5988 100755 --- a/tunnel/tunnel-lib.pl +++ b/tunnel/tunnel-lib.pl @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; BEGIN { push(@INC, ".."); }; use WebminCore; &init_config(); diff --git a/useradmin/md5-lib.pl b/useradmin/md5-lib.pl index a2c989040..9f05c3efe 100755 --- a/useradmin/md5-lib.pl +++ b/useradmin/md5-lib.pl @@ -3,6 +3,7 @@ use strict; use warnings; no warnings 'redefine'; +no warnings 'uninitialized'; our %config; # check_md5() diff --git a/webalizer/acl_security.pl b/webalizer/acl_security.pl index c9105fabf..98b153138 100755 --- a/webalizer/acl_security.pl +++ b/webalizer/acl_security.pl @@ -1,6 +1,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in); do 'webalizer-lib.pl'; diff --git a/webalizer/backup_config.pl b/webalizer/backup_config.pl index 7a8723b99..bf2471ef8 100755 --- a/webalizer/backup_config.pl +++ b/webalizer/backup_config.pl @@ -1,6 +1,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %in, $module_config_directory, $cron_cmd, %config); do 'webalizer-lib.pl'; diff --git a/webalizer/cgi_args.pl b/webalizer/cgi_args.pl index 6f1313516..1b77ca3ac 100755 --- a/webalizer/cgi_args.pl +++ b/webalizer/cgi_args.pl @@ -1,6 +1,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %access); do 'webalizer-lib.pl'; diff --git a/webalizer/edit_global.cgi b/webalizer/edit_global.cgi index 84013969f..4e3649ffd 100755 --- a/webalizer/edit_global.cgi +++ b/webalizer/edit_global.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %config, %gconfig, %access, $module_name, %in, $remote_user); require './webalizer-lib.pl'; &ReadParse(); diff --git a/webalizer/edit_log.cgi b/webalizer/edit_log.cgi index b2f9d6d5f..419252f56 100755 --- a/webalizer/edit_log.cgi +++ b/webalizer/edit_log.cgi @@ -5,6 +5,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %config, %gconfig, %access, $module_name, %in, $remote_user); require './webalizer-lib.pl'; &foreign_require("cron", "cron-lib.pl"); diff --git a/webalizer/index.cgi b/webalizer/index.cgi index 455ddb50e..f76cf30d2 100755 --- a/webalizer/index.cgi +++ b/webalizer/index.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %config, %gconfig, %access, $module_name); require './webalizer-lib.pl'; &foreign_require("cron", "cron-lib.pl"); diff --git a/webalizer/install_check.pl b/webalizer/install_check.pl index 5abcedd30..5650e8b7e 100755 --- a/webalizer/install_check.pl +++ b/webalizer/install_check.pl @@ -2,6 +2,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%config); do 'webalizer-lib.pl'; diff --git a/webalizer/log_parser.pl b/webalizer/log_parser.pl index c2e076a86..502f81cb2 100755 --- a/webalizer/log_parser.pl +++ b/webalizer/log_parser.pl @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text); do 'webalizer-lib.pl'; diff --git a/webalizer/mass.cgi b/webalizer/mass.cgi index 7b6019ff7..63e328ed8 100755 --- a/webalizer/mass.cgi +++ b/webalizer/mass.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %config, %gconfig, %access, $module_name, %in, $cron_cmd); require './webalizer-lib.pl'; &foreign_require("cron", "cron-lib.pl"); diff --git a/webalizer/save_global.cgi b/webalizer/save_global.cgi index 8af9f0d2a..0cf133844 100755 --- a/webalizer/save_global.cgi +++ b/webalizer/save_global.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %config, %gconfig, %access, $module_name, %in, $remote_user); require './webalizer-lib.pl'; &error_setup($text{'global_err'}); diff --git a/webalizer/save_log.cgi b/webalizer/save_log.cgi index 7dc84fde4..10e7ac1b7 100755 --- a/webalizer/save_log.cgi +++ b/webalizer/save_log.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %config, %gconfig, %access, $module_name, %in, $remote_user, $cron_cmd, $custom_logs_file); require './webalizer-lib.pl'; diff --git a/webalizer/view_log.cgi b/webalizer/view_log.cgi index c5bb4c3d4..c95fef978 100755 --- a/webalizer/view_log.cgi +++ b/webalizer/view_log.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our (%text, %config, %gconfig, %access, $module_name, %in, $remote_user); require './webalizer-lib.pl'; &ReadParse(); diff --git a/webalizer/webalizer-lib.pl b/webalizer/webalizer-lib.pl index 2c0a92b5f..6029d9d1d 100755 --- a/webalizer/webalizer-lib.pl +++ b/webalizer/webalizer-lib.pl @@ -4,6 +4,7 @@ use strict; use warnings; no warnings 'redefine'; +no warnings 'uninitialized'; BEGIN { push(@INC, ".."); }; use WebminCore; &init_config(); diff --git a/webalizer/webalizer.pl b/webalizer/webalizer.pl index a4977af95..a39954ea8 100755 --- a/webalizer/webalizer.pl +++ b/webalizer/webalizer.pl @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; our ($no_acl_check, %config); $no_acl_check++; require './webalizer-lib.pl'; diff --git a/webmin/edit_ssl.cgi b/webmin/edit_ssl.cgi index 2915df4f5..a774cab97 100755 --- a/webmin/edit_ssl.cgi +++ b/webmin/edit_ssl.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require "./webmin-lib.pl"; diff --git a/webmin/gnupg-lib.pl b/webmin/gnupg-lib.pl index 56ff07a08..4ca0acf46 100755 --- a/webmin/gnupg-lib.pl +++ b/webmin/gnupg-lib.pl @@ -5,6 +5,7 @@ BEGIN { push(@INC, ".."); }; use strict; use warnings; no warnings 'redefine'; +no warnings 'uninitialized'; use WebminCore; our ($module_name, %config, $user_module_config_directory, %text); diff --git a/webmin/index.cgi b/webmin/index.cgi index 05314792c..c42b85927 100755 --- a/webmin/index.cgi +++ b/webmin/index.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './webmin-lib.pl'; our (%in, %text, %gconfig, %config); my $ver = &get_webmin_version(); diff --git a/webmin/letsencrypt.cgi b/webmin/letsencrypt.cgi index 813d596bf..cb1967819 100755 --- a/webmin/letsencrypt.cgi +++ b/webmin/letsencrypt.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require "./webmin-lib.pl"; our %text; diff --git a/webmin/system_info.pl b/webmin/system_info.pl index 19becfc13..7125a4c19 100644 --- a/webmin/system_info.pl +++ b/webmin/system_info.pl @@ -1,6 +1,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; do 'webmin-lib.pl'; our ($module_var_directory, %gconfig, $hidden_announce_file, $module_name, %text); diff --git a/webmin/webmin-lib.pl b/webmin/webmin-lib.pl index 53afaf32a..63cc6adfd 100755 --- a/webmin/webmin-lib.pl +++ b/webmin/webmin-lib.pl @@ -8,6 +8,7 @@ BEGIN { push(@INC, ".."); }; use strict; use warnings; no warnings 'redefine'; +no warnings 'uninitialized'; use WebminCore; &init_config(); our ($module_root_directory, %text, %gconfig, $root_directory, %config, diff --git a/webminlog/index.cgi b/webminlog/index.cgi index c05ceca36..c0a8c9056 100755 --- a/webminlog/index.cgi +++ b/webminlog/index.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './webminlog-lib.pl'; our (%text, %gconfig, %access_users, %in, %config, %access); &ReadParse(); diff --git a/webminlog/rollback.cgi b/webminlog/rollback.cgi index 2817d9fe1..8f9c7b470 100755 --- a/webminlog/rollback.cgi +++ b/webminlog/rollback.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './webminlog-lib.pl'; our (%text, %in, %access); &ReadParse(); diff --git a/webminlog/save_notify.cgi b/webminlog/save_notify.cgi index 543a6c51d..f169098d1 100755 --- a/webminlog/save_notify.cgi +++ b/webminlog/save_notify.cgi @@ -3,6 +3,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './webminlog-lib.pl'; our (%text, %gconfig, %access, %in, $config_file); &ReadParse(); diff --git a/webminlog/search.cgi b/webminlog/search.cgi index 3d075610c..9dd9b8dcd 100755 --- a/webminlog/search.cgi +++ b/webminlog/search.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; use Time::Local; require './webminlog-lib.pl'; our (%text, %config, %gconfig, $webmin_logfile, %in, $in); diff --git a/webminlog/view.cgi b/webminlog/view.cgi index 14a4d4833..27e01c283 100755 --- a/webminlog/view.cgi +++ b/webminlog/view.cgi @@ -4,6 +4,8 @@ use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; require './webminlog-lib.pl'; our (%text, %in); &ReadParse(); diff --git a/webminlog/webminlog-lib.pl b/webminlog/webminlog-lib.pl index 8dc284715..907ce8858 100755 --- a/webminlog/webminlog-lib.pl +++ b/webminlog/webminlog-lib.pl @@ -13,6 +13,8 @@ This module contains functions for parsing the Webmin actions log file. BEGIN { push(@INC, ".."); }; use strict; use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; use WebminCore; &init_config(); our %access = &get_module_acl();