From c81b7f986867db292d62a1757123723b5ef66518 Mon Sep 17 00:00:00 2001
From: Jonas Smedegaard <dr@jones.dk>
Date: Wed, 12 Dec 2001 19:52:40 +0000
Subject: Initial revision

---
 usergroupinfo | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100755 usergroupinfo

(limited to 'usergroupinfo')

diff --git a/usergroupinfo b/usergroupinfo
new file mode 100755
index 0000000..f9fa9b8
--- /dev/null
+++ b/usergroupinfo
@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+@input = "| grep -i \"@ARGV\"" if @ARGV;
+@users = `cat /etc/passwd @input`;
+#print @input;
+foreach $n (@users)
+{
+  $user =~ /(\S+)/;
+  ($a, $b, $c, $d, $name) = split (/:/, $n);
+  ($name) = split(/,/,$name);
+  next if ($c < 100);
+  print "$a\t($name)\t";
+  print `id -Gn $a`;
+}
-- 
cgit v1.2.3