michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-02-03 14:13:29 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix pointless warnings flooding error log

Browse Source
This commit is contained in:
iliajie
2022-06-30 13:08:38 +03:00
parent ff5d73b12c
commit d0ed6f944e
561 changed files with 1117 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
acl/acl-lib.pl
View File

@@ -15,6 +15,7 @@ BEGIN { push(@INC, ".."); };
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine'; no warnings 'redefine';
no warnings 'uninitialized';
use WebminCore; use WebminCore;
&init_config(); &init_config();
do 'md5-lib.pl'; do 'md5-lib.pl';

2
acl/acl_security.pl
View File

@@ -1,6 +1,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
do 'acl-lib.pl'; do 'acl-lib.pl';
our (%text, %in); our (%text, %in);

2
acl/backup_config.pl
View File

@@ -1,6 +1,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require 'acl-lib.pl'; require 'acl-lib.pl';
our ($config_directory, %gconfig); our ($config_directory, %gconfig);

2
acl/cert_form.cgi
View File

@@ -3,6 +3,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl'; require './acl-lib.pl';
our (%in, %text, %config, %access); our (%in, %text, %config, %access);
&ui_print_header(undef, $text{'cert_title'}, "", undef, undef, undef, undef, &ui_print_header(undef, $text{'cert_title'}, "", undef, undef, undef, undef,

2
acl/cert_issue.cgi
View File

@@ -3,6 +3,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl'; require './acl-lib.pl';
our (%in, %text, %config, %access, $module_config_directory, $base_remote_user); our (%in, %text, %config, %access, $module_config_directory, $base_remote_user);
&ReadParse(); &ReadParse();

2
acl/cert_output.cgi
View File

@@ -3,6 +3,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl'; require './acl-lib.pl';
our (%in, %text, %config, %access); our (%in, %text, %config, %access);

2
acl/cgi_args.pl
View File

@@ -1,6 +1,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
do 'acl-lib.pl'; do 'acl-lib.pl';
our (%access); our (%access);

2
acl/convert.cgi
View File

@@ -4,6 +4,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl'; require './acl-lib.pl';
our (%in, %text, %config, %access, $config_directory); our (%in, %text, %config, %access, $config_directory);
&ReadParse(); &ReadParse();

2
acl/convert_form.cgi
View File

@@ -4,6 +4,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl'; require './acl-lib.pl';
our (%in, %text, %config, %access); our (%in, %text, %config, %access);
$access{'sync'} && $access{'create'} || &error($text{'convert_ecannot'}); $access{'sync'} && $access{'create'} || &error($text{'convert_ecannot'});

2
acl/delete_group.cgi
View File

@@ -4,6 +4,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl'; require './acl-lib.pl';
our (%in, %text, %config, %access, $base_remote_user); our (%in, %text, %config, %access, $base_remote_user);
&ReadParse(); &ReadParse();

2
acl/delete_groups.cgi
View File

@@ -3,6 +3,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl'; require './acl-lib.pl';
our (%in, %text, %config, %access, $base_remote_user); our (%in, %text, %config, %access, $base_remote_user);
&ReadParse(); &ReadParse();

2
acl/delete_session.cgi
View File

@@ -4,6 +4,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl'; require './acl-lib.pl';
our (%in, %text, %config, %access, %sessiondb); our (%in, %text, %config, %access, %sessiondb);
&ReadParse(); &ReadParse();

2
acl/delete_user.cgi
View File

@@ -4,6 +4,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl'; require './acl-lib.pl';
our (%in, %text, %config, %access, $base_remote_user); our (%in, %text, %config, %access, $base_remote_user);
&ReadParse(); &ReadParse();

2
acl/delete_users.cgi
View File

@@ -3,6 +3,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl'; require './acl-lib.pl';
our (%in, %text, %config, %access, $base_remote_user); our (%in, %text, %config, %access, $base_remote_user);
&ReadParse(); &ReadParse();

2
acl/edit_acl.cgi
View File

@@ -4,6 +4,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl'; require './acl-lib.pl';
our (%in, %text, %config, %access, $base_remote_user, %gconfig); our (%in, %text, %config, %access, $base_remote_user, %gconfig);
&ReadParse(); &ReadParse();

2
acl/edit_group.cgi
View File

@@ -4,6 +4,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl'; require './acl-lib.pl';
our (%in, %text, %config, %access, $config_directory); our (%in, %text, %config, %access, $config_directory);
&ReadParse(); &ReadParse();

2
acl/edit_pass.cgi
View File

@@ -3,6 +3,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl'; require './acl-lib.pl';
our (%in, %text, %config, %access); our (%in, %text, %config, %access);
$access{'pass'} || &error($text{'pass_ecannot'}); $access{'pass'} || &error($text{'pass_ecannot'});

2
acl/edit_rbac.cgi
View File

@@ -3,6 +3,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl'; require './acl-lib.pl';
our (%in, %text, %gconfig, %access, $module_name, $module_root_directory); our (%in, %text, %gconfig, %access, $module_name, $module_root_directory);
$access{'rbacenable'} || &error($text{'rbac_ecannot'}); $access{'rbacenable'} || &error($text{'rbac_ecannot'});

2
acl/edit_sql.cgi
View File

@@ -3,6 +3,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl'; require './acl-lib.pl';
our (%in, %text, %config, %access); our (%in, %text, %config, %access);
$access{'sql'} || &error($text{'sql_ecannot'}); $access{'sql'} || &error($text{'sql_ecannot'});

2
acl/edit_sync.cgi
View File

@@ -4,6 +4,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl'; require './acl-lib.pl';
our (%in, %text, %config, %access); our (%in, %text, %config, %access);
$access{'sync'} && $access{'create'} && $access{'delete'} || $access{'sync'} && $access{'create'} && $access{'delete'} ||

2
acl/edit_unix.cgi
View File

@@ -5,6 +5,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl'; require './acl-lib.pl';
our (%in, %text, %config, %access); our (%in, %text, %config, %access);
$access{'unix'} && $access{'create'} && $access{'delete'} || $access{'unix'} && $access{'create'} && $access{'delete'} ||

2
acl/edit_user.cgi
View File

@@ -4,6 +4,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl'; require './acl-lib.pl';
our (%in, %text, %config, %access, $config_directory, $base_remote_user, $remote_user); our (%in, %text, %config, %access, $config_directory, $base_remote_user, $remote_user);
&foreign_require("webmin", "webmin-lib.pl"); &foreign_require("webmin", "webmin-lib.pl");

2
acl/feedback_files.pl
View File

@@ -1,6 +1,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
do 'acl-lib.pl'; do 'acl-lib.pl';
our ($config_directory); our ($config_directory);

2
acl/index.cgi
View File

@@ -4,6 +4,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl'; require './acl-lib.pl';
our (%in, %text, %config, %access, $base_remote_user); our (%in, %text, %config, %access, $base_remote_user);
&ReadParse(); &ReadParse();

2
acl/list_sessions.cgi
View File

@@ -4,6 +4,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl'; require './acl-lib.pl';
our (%in, %text, %config, %access, %sessiondb); our (%in, %text, %config, %access, %sessiondb);
$access{'sessions'} || &error($text{'sessions_ecannot'}); $access{'sessions'} || &error($text{'sessions_ecannot'});

2
acl/log_parser.pl
View File

@@ -3,6 +3,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
do 'acl-lib.pl'; do 'acl-lib.pl';
our (%text); our (%text);

2
acl/makedn.cgi
View File

@@ -3,6 +3,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl'; require './acl-lib.pl';
our (%in, %text, %config, %access); our (%in, %text, %config, %access);
$access{'pass'} || &error($text{'sql_ecannot'}); $access{'pass'} || &error($text{'sql_ecannot'});

2
acl/maketables.cgi
View File

@@ -3,6 +3,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl'; require './acl-lib.pl';
our (%in, %text, %config, %access); our (%in, %text, %config, %access);
$access{'pass'} || &error($text{'sql_ecannot'}); $access{'pass'} || &error($text{'sql_ecannot'});

2
acl/postinstall.pl
View File

@@ -1,6 +1,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require 'acl-lib.pl'; require 'acl-lib.pl';
our ($config_directory); our ($config_directory);

2
acl/save_acl.cgi
View File

@@ -4,6 +4,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl'; require './acl-lib.pl';
our (%in, %text, %config, %access, $base_remote_user, %gconfig, our (%in, %text, %config, %access, $base_remote_user, %gconfig,
$config_directory); $config_directory);

2
acl/save_group.cgi
View File

@@ -4,6 +4,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl'; require './acl-lib.pl';
our (%in, %text, %config, %access, $config_directory); our (%in, %text, %config, %access, $config_directory);
&ReadParse(); &ReadParse();

2
acl/save_pass.cgi
View File

@@ -3,6 +3,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl'; require './acl-lib.pl';
our (%in, %text, %config, %access); our (%in, %text, %config, %access);
$access{'pass'} || &error($text{'pass_ecannot'}); $access{'pass'} || &error($text{'pass_ecannot'});

2
acl/save_sql.cgi
View File

@@ -3,6 +3,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl'; require './acl-lib.pl';
our (%in, %text, %config, %access); our (%in, %text, %config, %access);
$access{'pass'} || &error($text{'sql_ecannot'}); $access{'pass'} || &error($text{'sql_ecannot'});

2
acl/save_sync.cgi
View File

@@ -4,6 +4,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl'; require './acl-lib.pl';
our (%in, %text, %config, %access, $module_config_directory); our (%in, %text, %config, %access, $module_config_directory);
&ReadParse(); &ReadParse();

2
acl/save_twofactor.cgi
View File

@@ -3,6 +3,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl'; require './acl-lib.pl';
our (%in, %text, %config, %access, $base_remote_user); our (%in, %text, %config, %access, $base_remote_user);
&foreign_require("webmin"); &foreign_require("webmin");

2
acl/save_unix.cgi
View File

@@ -4,6 +4,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl'; require './acl-lib.pl';
our (%in, %text, %config, %access); our (%in, %text, %config, %access);
&ReadParse(); &ReadParse();

2
acl/save_user.cgi
View File

@@ -4,6 +4,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl'; require './acl-lib.pl';
our (%in, %text, %config, %access, $config_directory, $base_remote_user); our (%in, %text, %config, %access, $config_directory, $base_remote_user);
&foreign_require("webmin", "webmin-lib.pl"); &foreign_require("webmin", "webmin-lib.pl");

2
acl/schema.cgi
View File

@@ -3,6 +3,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl'; require './acl-lib.pl';
our (%in, %text, %config, %access); our (%in, %text, %config, %access);
$access{'pass'} || &error($text{'sql_ecannot'}); $access{'pass'} || &error($text{'sql_ecannot'});

2
acl/switch.cgi
View File

@@ -3,6 +3,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl'; require './acl-lib.pl';
our (%in, %text, %config, %access, %sessiondb); our (%in, %text, %config, %access, %sessiondb);
&ReadParse(); &ReadParse();

2
acl/system_info.pl
View File

@@ -1,6 +1,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
our (%text, $remote_user, %sessiondb, $module_name); our (%text, $remote_user, %sessiondb, $module_name);
do 'acl-lib.pl'; do 'acl-lib.pl';

2
acl/twofactor_form.cgi
View File

@@ -3,6 +3,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl'; require './acl-lib.pl';
our (%in, %text, %config, %access, $base_remote_user); our (%in, %text, %config, %access, $base_remote_user);
&foreign_require("webmin"); &foreign_require("webmin");

2
acl/useradmin_update.pl
View File

@@ -1,6 +1,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
if (!$main::done_foreign_require{"acl","acl-lib.pl"}) { if (!$main::done_foreign_require{"acl","acl-lib.pl"}) {
do "acl-lib.pl"; do "acl-lib.pl";
} }

4
ajaxterm/index.cgi
View File

@@ -3,6 +3,8 @@
# a URL that proxies to it # a URL that proxies to it
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
BEGIN { push(@INC, ".."); }; BEGIN { push(@INC, ".."); };
use WebminCore; use WebminCore;
@@ -70,6 +72,8 @@ while(1) {
close(TEST2); close(TEST2);
use strict "subs"; use strict "subs";
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
# Show the iframe # Show the iframe
print "<center>\n"; print "<center>\n";

2
ajaxterm/proxy.cgi
View File

@@ -2,6 +2,8 @@
# Proxy an Ajaxterm request to the real port # Proxy an Ajaxterm request to the real port
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
BEGIN { push(@INC, ".."); }; BEGIN { push(@INC, ".."); };
use WebminCore; use WebminCore;

2
at/acl_security.pl
View File

@@ -1,5 +1,7 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
our (%text, %in); our (%text, %in);
require 'at-lib.pl'; require 'at-lib.pl';

2
at/backup_config.pl
View File

@@ -1,5 +1,7 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
our %config; our %config;
do 'at-lib.pl'; do 'at-lib.pl';

2
at/cgi_args.pl
View File

@@ -1,5 +1,7 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
our %access; our %access;
do 'at-lib.pl'; do 'at-lib.pl';

2
at/create_job.cgi
View File

@@ -3,6 +3,8 @@
# Create a new at job # Create a new at job
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
our (%access, %text, %in); our (%access, %text, %in);
require './at-lib.pl'; require './at-lib.pl';

2
at/delete_job.cgi
View File

@@ -2,6 +2,8 @@
# Delete or run an at job # Delete or run an at job
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
our (%text, %in); our (%text, %in);
require './at-lib.pl'; require './at-lib.pl';

2
at/delete_jobs.cgi
View File

@@ -2,6 +2,8 @@
# Delete multiple at jobs # Delete multiple at jobs
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
our(%access, %text, %in); our(%access, %text, %in);
require './at-lib.pl'; require './at-lib.pl';

2
at/edit_job.cgi
View File

@@ -3,6 +3,8 @@
# Display a command for deletion # Display a command for deletion
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
our (%access, %text, %in); our (%access, %text, %in);
require './at-lib.pl'; require './at-lib.pl';

2
at/freebsd-lib.pl
View File

@@ -1,6 +1,8 @@
# freebsd-lib.pl # freebsd-lib.pl
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
no warnings "redefine"; no warnings "redefine";
our (%config); our (%config);

2
at/index.cgi
View File

@@ -7,6 +7,8 @@
# ext_cmd : default command # ext_cmd : default command
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
our (%access, %text, %in, %config); our (%access, %text, %in, %config);
our ($module_name, $remote_user); our ($module_name, $remote_user);

2
at/install_check.pl
View File

@@ -1,6 +1,8 @@
# install_check.pl # install_check.pl
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
do 'at-lib.pl'; do 'at-lib.pl';

2
at/linux-lib.pl
View File

@@ -1,6 +1,8 @@
# linux-lib.pl # linux-lib.pl
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
no warnings "redefine"; no warnings "redefine";
our (%config); our (%config);

2
at/log_parser.pl
View File

@@ -2,6 +2,8 @@
# Functions for parsing this module's logs # Functions for parsing this module's logs
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
our %text; our %text;
do 'at-lib.pl'; do 'at-lib.pl';

2
at/macos-lib.pl
View File

@@ -1,6 +1,8 @@
# macos-lib.pl # macos-lib.pl
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
no warnings "redefine"; no warnings "redefine";
our %config; our %config;

2
at/save_allow.cgi
View File

@@ -2,6 +2,8 @@
# Update allowed or denied At users # Update allowed or denied At users
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
our (%access, %text, %in); our (%access, %text, %in);
require './at-lib.pl'; require './at-lib.pl';

2
at/solaris-lib.pl
View File

@@ -1,6 +1,8 @@
# solaris-lib.pl # solaris-lib.pl
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
no warnings "redefine"; no warnings "redefine";
our %config; our %config;

2
backup-config/backup-config-lib.pl
View File

@@ -13,6 +13,8 @@ Functions for creating configuration file backups. Some example code :
BEGIN { push(@INC, ".."); }; BEGIN { push(@INC, ".."); };
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
use WebminCore; use WebminCore;
our (%text, $module_config_directory, %config); our (%text, $module_config_directory, %config);
&init_config(); &init_config();

2
backup-config/backup.cgi
View File

@@ -3,6 +3,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './backup-config-lib.pl'; require './backup-config-lib.pl';
our (%in, %text, %config, $module_config_file); our (%in, %text, %config, $module_config_file);
&ReadParse(); &ReadParse();

2
backup-config/backup.pl
View File

@@ -3,6 +3,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
our (%text, %config, $no_acl_check); our (%text, %config, $no_acl_check);
$no_acl_check++; $no_acl_check++;
require './backup-config-lib.pl'; require './backup-config-lib.pl';

2
backup-config/cgi_args.pl
View File

@@ -1,6 +1,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
do 'backup-config-lib.pl'; do 'backup-config-lib.pl';
sub cgi_args sub cgi_args

2
backup-config/edit.cgi
View File

@@ -3,6 +3,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './backup-config-lib.pl'; require './backup-config-lib.pl';
our (%in, %text); our (%in, %text);
&ReadParse(); &ReadParse();

2
backup-config/index.cgi
View File

@@ -3,6 +3,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './backup-config-lib.pl'; require './backup-config-lib.pl';
our (%text, %in, %config); our (%text, %in, %config);
&ReadParse(); &ReadParse();

2
backup-config/log_parser.pl
View File

@@ -3,6 +3,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
do 'backup-config-lib.pl'; do 'backup-config-lib.pl';
our (%text); our (%text);

2
backup-config/restore.cgi
View File

@@ -3,6 +3,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './backup-config-lib.pl'; require './backup-config-lib.pl';
our (%in, %text, %config, $module_config_file); our (%in, %text, %config, $module_config_file);
&ReadParseMime(); &ReadParseMime();

2
backup-config/save.cgi
View File

@@ -3,6 +3,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './backup-config-lib.pl'; require './backup-config-lib.pl';
our (%in, %text, $cron_cmd, $module_name); our (%in, %text, $cron_cmd, $module_name);
&ReadParse(); &ReadParse();

2
backup-config/uninstall.pl
View File

@@ -3,6 +3,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require 'backup-config-lib.pl'; require 'backup-config-lib.pl';
sub module_uninstall sub module_uninstall

2
bin/disable-proxy
View File

@@ -2,6 +2,8 @@
# disable-proxy - Reverse/remove the configuration options set by enable-proxy. # disable-proxy - Reverse/remove the configuration options set by enable-proxy.
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
BEGIN { $Pod::Usage::Formatter = 'Pod::Text::Color'; } BEGIN { $Pod::Usage::Formatter = 'Pod::Text::Color'; }
use 5.010; # Version in CentOS 6 use 5.010; # Version in CentOS 6

2
bin/disable-twofactor
View File

@@ -2,6 +2,8 @@
# disable-twofactor - Disable two-factor authentication for a user. # disable-twofactor - Disable two-factor authentication for a user.
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
BEGIN { $Pod::Usage::Formatter = 'Pod::Text::Color'; } BEGIN { $Pod::Usage::Formatter = 'Pod::Text::Color'; }
use 5.010; # Version in CentOS 6 use 5.010; # Version in CentOS 6

2
bin/enable-proxy
View File

@@ -3,6 +3,8 @@
# through a proxy. # through a proxy.
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
BEGIN { $Pod::Usage::Formatter = 'Pod::Text::Color'; } BEGIN { $Pod::Usage::Formatter = 'Pod::Text::Color'; }
use 5.010; # Version in CentOS 6 use 5.010; # Version in CentOS 6

2
bin/language-manager
View File

@@ -3,6 +3,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
use 5.014; use 5.014;
use File::Spec; use File::Spec;

2
bin/list-config
View File

@@ -3,6 +3,8 @@
# module. # module.
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
BEGIN { $Pod::Usage::Formatter = 'Pod::Text::Color'; } BEGIN { $Pod::Usage::Formatter = 'Pod::Text::Color'; }
use 5.010; # Version in CentOS 6 use 5.010; # Version in CentOS 6

2
bin/passwd
View File

@@ -3,6 +3,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
use 5.010; use 5.010;
use File::Basename; use File::Basename;

2
bin/server
View File

@@ -3,6 +3,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
use 5.010; use 5.010;
use File::Basename; use File::Basename;

2
bin/set-config
View File

@@ -3,6 +3,8 @@
# restart Webmin to apply the change. # restart Webmin to apply the change.
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
BEGIN { $Pod::Usage::Formatter = 'Pod::Text::Color'; } BEGIN { $Pod::Usage::Formatter = 'Pod::Text::Color'; }
use 5.010; # Version in CentOS 6 use 5.010; # Version in CentOS 6

2
bin/update-devel
View File

@@ -3,6 +3,8 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
use 5.010; use 5.010;

2
bin/webmin
View File

@@ -3,6 +3,8 @@
# functions on the command line. # functions on the command line.
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
BEGIN { $Pod::Usage::Formatter = 'Pod::Text::Color'; } BEGIN { $Pod::Usage::Formatter = 'Pod::Text::Color'; }
use 5.010; # Version in CentOS 6 use 5.010; # Version in CentOS 6

2
bind8/acl_security.pl
View File

@@ -1,5 +1,7 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require 'bind8-lib.pl'; require 'bind8-lib.pl';
# Globals from bind8-lib.pl # Globals from bind8-lib.pl

2
bind8/backup_config.pl
View File

@@ -1,5 +1,7 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
do 'bind8-lib.pl'; do 'bind8-lib.pl';
# Globals from bind8-lib.pl # Globals from bind8-lib.pl

3
bind8/bind8-lib.pl
View File

@@ -3,8 +3,9 @@
use strict; use strict;
use warnings; use warnings;
use Time::Local;
no warnings 'redefine'; no warnings 'redefine';
no warnings 'uninitialized';
use Time::Local;
BEGIN { push(@INC, ".."); }; BEGIN { push(@INC, ".."); };
use WebminCore; use WebminCore;

2
bind8/cgi_args.pl
View File

@@ -1,5 +1,7 @@
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
do 'bind8-lib.pl'; do 'bind8-lib.pl';
# Globals from bind8-lib.pl # Globals from bind8-lib.pl

2
bind8/check_zone.cgi
View File

@@ -2,6 +2,8 @@
# Check a zone's records and report problems # Check a zone's records and report problems
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './bind8-lib.pl'; require './bind8-lib.pl';
# Globals from bind8-lib.pl # Globals from bind8-lib.pl

2
bind8/close.cgi
View File

@@ -2,6 +2,8 @@
# Remove some zone from the open list # Remove some zone from the open list
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
# Globals # Globals
our (%in); our (%in);

2
bind8/conf_acls.cgi
View File

@@ -3,6 +3,8 @@
# Display global ACLs # Display global ACLs
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
# Globals # Globals
our (%text, %access); our (%text, %access);

2
bind8/conf_controls.cgi
View File

@@ -2,6 +2,8 @@
# Display NDC control interface options # Display NDC control interface options
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
# Globals # Globals
our (%text, %access); our (%text, %access);

2
bind8/conf_dnssec.cgi
View File

@@ -2,6 +2,8 @@
# Show a form to setup DNSSEC key rotation # Show a form to setup DNSSEC key rotation
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
# Globals # Globals
our (%text, %access, %config); our (%text, %access, %config);

2
bind8/conf_dnssectools.cgi
View File

@@ -2,6 +2,8 @@
# Show a form to setup DNSSEC-Tools parameters # Show a form to setup DNSSEC-Tools parameters
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
# Globals # Globals
our (%access, %text, %config); our (%access, %text, %config);

2
bind8/conf_files.cgi
View File

@@ -3,6 +3,8 @@
# Display global files options # Display global files options
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
# Globals # Globals
our (%access, %text); our (%access, %text);

2
bind8/conf_forwarding.cgi
View File

@@ -3,6 +3,8 @@
# Display global forwarding and transfer options # Display global forwarding and transfer options
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
# Globals # Globals
our (%access, %text); our (%access, %text);

2
bind8/conf_keys.cgi
View File

@@ -3,6 +3,8 @@
# Display options for other DNS servers # Display options for other DNS servers
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './bind8-lib.pl'; require './bind8-lib.pl';
# Globals # Globals

2
bind8/conf_logging.cgi
View File

@@ -3,6 +3,8 @@
# Display global logging options # Display global logging options
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
our (%access, %text, %in); our (%access, %text, %in);
our (@syslog_levels, @severities, @cat_list); our (@syslog_levels, @severities, @cat_list);

2
bind8/conf_manual.cgi
View File

@@ -2,6 +2,8 @@
# Show a page for manually editing named.conf # Show a page for manually editing named.conf
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
# Globals # Globals
our (%access, %text, %in); our (%access, %text, %in);

2
bind8/conf_misc.cgi
View File

@@ -3,6 +3,8 @@
# Display miscellaneous options # Display miscellaneous options
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
# Globals # Globals
our (%access, %text); our (%access, %text);

2
bind8/conf_ncheck.cgi
View File

@@ -2,6 +2,8 @@
# Check the whole BIND config and report problems # Check the whole BIND config and report problems
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
# Globals # Globals
our (%access, %text, %config); our (%access, %text, %config);

2
bind8/conf_net.cgi
View File

@@ -2,6 +2,8 @@
# Display global networking options # Display global networking options
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
# Globals # Globals
our (%access, %text); our (%access, %text);

2
bind8/conf_rndc.cgi
View File

@@ -3,6 +3,8 @@
# XXX should check if already working! # XXX should check if already working!
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
# Globals # Globals
our (%access, %text, %config); our (%access, %text, %config);
our $module_name; our $module_name;

2
bind8/conf_servers.cgi
View File

@@ -3,6 +3,8 @@
# Display options for other DNS servers # Display options for other DNS servers
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
# Globals # Globals
our (%access, %text); our (%access, %text);

2
bind8/conf_trusted.cgi
View File

@@ -2,6 +2,8 @@
# Show a form for setting up DNSSEC verification and trusted keys # Show a form for setting up DNSSEC verification and trusted keys
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
# Globals # Globals
our (%access, %text); our (%access, %text);
our $dnssec_dlv_zone; our $dnssec_dlv_zone;

Some files were not shown because too many files have changed in this diff Show More