diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-08-27 17:59:55 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-08-27 17:59:55 +0200 |
| commit | 798af185c031de747cf373ade8bfbc1488b46159 (patch) | |
| tree | cd2a872ae1297d04ce117c502c15270696b2fbef | |
| parent | ab0b0c9d905bbe1ea94d8ec760513cd024495a83 (diff) | |
| download | userdrake-798af185c031de747cf373ade8bfbc1488b46159.tar userdrake-798af185c031de747cf373ade8bfbc1488b46159.tar.gz userdrake-798af185c031de747cf373ade8bfbc1488b46159.tar.bz2 userdrake-798af185c031de747cf373ade8bfbc1488b46159.tar.xz userdrake-798af185c031de747cf373ade8bfbc1488b46159.zip | |
perl_checker cleanups
| -rwxr-xr-x | userdrake | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -284,7 +284,7 @@ sub NotebookSwitch() { } sub ComputeLockExpire { - my $l = shift; + my ($l) = @_; my $ep = $l->ShadowExpire($GetValue); my $tm = ceil(time()/(24*60*60)); $ep = -1 if int($tm) <= $ep; @@ -300,7 +300,7 @@ sub RefreshUsersFull { my @UserReal; LOOP: foreach my $l (@$users) { next LOOP if $filterusers && $l->Uid($GetValue) <= 499 || $l->Uid($GetValue) == 65534; - next LOOP if $filterusers && $l->Uid($GetValue) > 499 && $l->Uid($GetValue) < 1000 && ($l->HomeDir($GetValue) =~ /^\/($|var\/|run\/)/ || $l->LoginShell($GetValue) =~ /(nologin|false)$/); + next LOOP if $filterusers && $l->Uid($GetValue) > 499 && $l->Uid($GetValue) < 1000 && ($l->HomeDir($GetValue) =~ m!^/($|var/|run/)! || $l->LoginShell($GetValue) =~ /(nologin|false)$/); push @UserReal, $l if $l->UserName($GetValue) =~ /^\Q$strfilt/; } my $i; |