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

---
 usergroupadd | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100755 usergroupadd

(limited to 'usergroupadd')

diff --git a/usergroupadd b/usergroupadd
new file mode 100755
index 0000000..b7611a4
--- /dev/null
+++ b/usergroupadd
@@ -0,0 +1,33 @@
+#!/usr/bin/perl
+($newgroup, @ARGV) = @ARGV;
+if ($newgroup eq "")
+{
+    print "Syntax: usergroupadd newgroup PATTERN\|*\n";
+    exit;
+}
+@input = "| grep -i \"@ARGV\"" if @ARGV;
+@users = `cat /etc/passwd @input`;
+
+print "Users modified: ";
+foreach $n (@users)
+{
+    $user =~ /(\S+)/;
+    ($a, $b, $c, $d, $name) = split (/:/, $n);
+#    ($name) = split(/,/,$name);
+    next if ($c < 100);
+
+#    $output = "";
+#    @id = split /\s/, `id -Gn $a`;
+#    foreach $o (@id)
+#    {
+#	$output .= "$o,";
+#    }
+#    $output .= "$newgroup";
+#    
+#    `usermod -G $output $a`;
+    `adduser $a $newgroup`;
+    print "$a";
+#    print "($output)";
+    print ", ";
+}
+print "Done!\n";
-- 
cgit v1.2.3