VladPolskiy/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2025-07-21 23:40:34 +00:00
Code Issues Packages Projects Releases Wiki Activity

strict conversion

Browse Source
This commit is contained in:
Jamie Cameron
2013-12-17 21:26:24 -08:00
parent 8c1b58a26a
commit 1b308f4a83
3 changed files with 16 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
acl/edit_pass.cgi
View File

@ -1,9 +1,14 @@
#!/usr/local/bin/perl
# Show password quality and change restrictions
use strict;
use warnings;
require './acl-lib.pl';
our (%in, %text, %config, %access);
$access{'pass'} || &error($text{'pass_ecannot'});
&ui_print_header(undef, $text{'pass_title'}, "");
my %miniserv;
&get_miniserv_config(\%miniserv);
print &ui_form_start("save_pass.cgi");

3
acl/edit_rbac.cgi
View File

@ -1,7 +1,10 @@
#!/usr/local/bin/perl
# Show RBAC status
use strict;
use warnings;
require './acl-lib.pl';
our (%in, %text, %gconfig, %access, $module_name, $module_root_directory);
$access{'rbacenable'} || &error($text{'rbac_ecannot'});
&ui_print_header(undef, $text{'rbac_title'}, "");

11
acl/save_pass.cgi
View File

@ -1,11 +1,16 @@
#!/usr/local/bin/perl
# Save password quality and change restrictions
use strict;
use warnings;
require './acl-lib.pl';
our (%in, %text, %config, %access);
$access{'pass'} || &error($text{'pass_ecannot'});
&error_setup($text{'pass_err'});
my %miniserv;
&get_miniserv_config(\%miniserv);
&ReadParse();
&error_setup($text{'pass_err'});
# Validate and store inputs
if ($in{'minsize_def'}) {
@ -45,8 +50,8 @@ else {
&unlock_file($ENV{'MINISERV_CONFIG'});
# For any users with no last change time set, set it now
$fixed = 0;
foreach $user (&list_users()) {
my $fixed = 0;
foreach my $user (&list_users()) {
if ($miniserv{'pass_maxdays'} && !$user->{'lastchange'}) {
$user->{'lastchange'} = time();
&modify_user($user->{'name'}, $user);