Initial revision

1 files changed, 33 insertions, 0 deletions

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";