diff options
-rwxr-xr-x | userdrake | 7 |
1 files changed, 7 insertions, 0 deletions
@@ -218,7 +218,14 @@ sub RefreshUsersFull { $utree_model->clear; my @UserReal; LOOP: foreach my $l (@$users) { next LOOP if $filterusers && $l->Uid($GetValue) <= 499 || $l->Uid($GetValue) == 65534; push(@UserReal, $l) if $l->UserName($GetValue) =~ /^\Q$strfilt/ } + my $i; foreach my $l (@UserReal) { + $i++; + my $uid = $l->Uid($GetValue); + if (!defined $uid) { + warn "bogus user at line $i\n"; + next; + } my $a = $l->Gid($GetValue); $group = $ctx->LookupGroupById($a); $groupnm = ''; $expr = ComputeLockExpire($l); $group and $groupnm = $group->GroupName($GetValue); my $s = $l->Gecos($GetValue); |