Add some heuristics to ignore system users in the 500-999 range

1 files changed, 1 insertions, 0 deletions

diff --git a/userdrake b/userdrake
index 377ccfc..2cbe8f7 100755
--- a/userdrake
+++ b/userdrake
@@ -300,6 +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) eq "/" || $l->HomeDir($GetValue) =~ /^\/var\// || $l->LoginShell($GetValue) =~ /(nologin|false)$/);
         push @UserReal, $l if $l->UserName($GetValue) =~ /^\Q$strfilt/;
     }
     my $i;