From: Thibault Godouet <yo8192@users.noreply.github.com>
Date: Tue, 10 Jul 2001 10:52:59 +0000 (+0000)
Subject: Initial revision
X-Git-Tag: ver2_9_4~285
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=e94b44270e7cf5ef18431ba5ea89e8e32ffe9c2f;p=thirdparty%2Ffcron.git

Initial revision
---

diff --git a/script/has_usrgrp.pl b/script/has_usrgrp.pl
new file mode 100755
index 0000000..63d73de
--- /dev/null
+++ b/script/has_usrgrp.pl
@@ -0,0 +1,32 @@
+#!/usr/bin/perl
+
+# call getpwnam() or getgrnam() to check if user or group (given as arg) exists
+#   on the system (getpwnam() and getgrnam() use nsswitch.conf, so it works
+#   even if NYS (or similar) is used)
+
+if ( $#ARGV < 1 || $#ARGV > 2) {
+    print "usage:\n  has_usrgrp.pl [-user user|-group group] [-printgid]\n";
+    exit 1;
+}
+
+if ( $ARGV[0] eq "-user" ) {
+    ($name, $passwd, $uid, $gid, $quota, $comment,
+     $gcos, $dir, $shell, $expire) = getpwnam($ARGV[1]);
+}
+elsif ( $ARGV[0] eq "-group" ) {
+    ($name, $passwd, $gid, $members) = getgrnam($ARGV[1]);
+}
+else {
+    print "usage:\n  has_usrgrp.pl [-user user|-group group] [-printgid]\n";
+    exit 1;
+}
+
+if ($name) {
+    if ( $#ARGV == 2 && $ARGV[2] eq "-printgid" ) {
+	print $gid, "\n";
+    }
+    exit 0;
+}
+else {
+    exit 1;
+}