diff options
| -rwxr-xr-x | userdrake2 | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -30,6 +30,7 @@ use ugtk2 qw(:all); use interactive; use POSIX qw(mktime ceil); use USER; +use Devel::Peek; my $conffile = '/etc/sysconfig/userdrake'; my $secfile = '/etc/sysconfig/msec'; @@ -649,8 +650,9 @@ sub Edit { !$error and $userEnt->ShadowExpire($Exp); } else { $userEnt->ShadowExpire(ceil(-1)) } if ($us->{o}->{pcheckexpire}->get_active()) { - my $allowed = $us->{o}->{dbca}->get_text(); my $required = $us->{o}->{dbcr}->get_text(); - my $warning = $us->{o}->{bwbc}->get_text(); my $inactive = $us->{o}->{dbai}->get_text(); + my $allowed = int($us->{o}->{dbca}->get_text()); my $required = int($us->{o}->{dbcr}->get_text()); + my $warning = int($us->{o}->{bwbc}->get_text()); my $inactive = int($us->{o}->{dbai}->get_text()); + $allowed && $required && $warning && $inactive or RaiseError(N("Please specify all field for password aging")); if(!$error) { $userEnt->ShadowMin($allowed); $userEnt->ShadowMax($required); |