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

Strict and warnings complaint

Browse Source
This commit is contained in:
Jamie Cameron
2011-04-30 18:01:03 -07:00
parent b50a295e57
commit ed9deeeeb4
1 changed files with 13 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
webmin/index.cgi
View File

@@ -2,13 +2,17 @@
# index.cgi
# Display a table of icons for different types of webmin configuration
use strict;
use warnings;
require './webmin-lib.pl';
$ver = &get_webmin_version();
our (%in, %text, %gconfig, %config);
my $ver = &get_webmin_version();
&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1, 0,
undef, undef, undef, &text('index_version', $ver));
%access = &get_module_acl();
my %access = &get_module_acl();
&ReadParse();
my (@wlinks, @wtitles, @wicons);
@wlinks = ( "edit_access.cgi", "edit_bind.cgi", "edit_log.cgi",
"edit_proxy.cgi", "edit_ui.cgi", "edit_mods.cgi",
"edit_os.cgi", "edit_lang.cgi", "edit_startpage.cgi",
@@ -53,9 +57,9 @@ push(@wtitles, $text{'ssl_title'}, $text{'ca_title'});
push(@wicons, "images/ssl.gif", "images/ca.gif");
# Hide dis-allowed pages
%allow = map { $_, 1 } split(/\s+/, $access{'allow'});
%disallow = map { $_, 1 } split(/\s+/, $access{'disallow'});
for($i=0; $i<@wlinks; $i++) {
my %allow = map { $_, 1 } split(/\s+/, $access{'allow'});
my %disallow = map { $_, 1 } split(/\s+/, $access{'disallow'});
for(my $i=0; $i<@wlinks; $i++) {
$wlinks[$i] =~ /edit_(\S+)\.cgi/;
if (%allow && !$allow{$1} ||
$disallow{$1} ||
@@ -72,9 +76,12 @@ print &ui_hr();
print &ui_buttons_start();
my %miniserv;
&get_miniserv_config(\%miniserv);
if (&foreign_check("init")) {
&foreign_require("init", "init-lib.pl");
$starting = &init::action_status("webmin");
my $starting = &init::action_status("webmin");
print &ui_buttons_row("bootup.cgi",
$text{'index_boot'},
$text{'index_bootmsg'}.