summaryrefslogtreecommitdiff
path: root/net/nagios/scripts/createuser
diff options
context:
space:
mode:
authorcvs2svn <cvs2svn@FreeBSD.org>2000-07-21 18:15:36 +0000
committercvs2svn <cvs2svn@FreeBSD.org>2000-07-21 18:15:36 +0000
commit70f89778c0f2f76bc2f8046e99cc55f2962ac9c2 (patch)
tree14c35099cfb4f4257c5e0b8e589d530fcb829468 /net/nagios/scripts/createuser
parentFix typo. (ghostscript55htff -> ghostscript55httf) (diff)
This commit was manufactured by cvs2svn to create tag 'RELEASE_4_1_0'.release/4.1.0
Notes
Notes: svn path=/head/; revision=30942 svn path=/tags/RELEASE_4_1_0/; revision=30943; tag=release/4.1.0
Diffstat (limited to 'net/nagios/scripts/createuser')
-rw-r--r--net/nagios/scripts/createuser49
1 files changed, 0 insertions, 49 deletions
diff --git a/net/nagios/scripts/createuser b/net/nagios/scripts/createuser
deleted file mode 100644
index ce858d738462..000000000000
--- a/net/nagios/scripts/createuser
+++ /dev/null
@@ -1,49 +0,0 @@
-#!/usr/bin/perl
-#
-
-eval '(exit $?0)' && eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
-& eval 'exec /usr/bin/perl -S $0 $argv:q'
-if 0;
-
-if( $> ) {
- print "\nYou must be root to run this step!\n\n";
- exit 1;
-}
-
-if( getpwnam( "netsaint" ) ) {
- ( $null, $null, $nsUID ) = getpwnam( "netsaint" );
-} else {
- $nsUID = 70;
- while( getpwuid( $nsUID ) ) {
- $nsUID++;
- }
-}
-
-if( getgrnam( "netsaint" ) ) {
- ( $null, $null, $nsGID ) = getgrnam( "netsaint" );
-} else {
- $nsGID = 70;
- while( getgrgid( $nsGID ) ) {
- $nsGID++;
- }
- &append_file( "/etc/group", "netsaint:*:$nsGID:" );
-}
-
-print "netsaint user using uid $nsUID and gid $nsGID\n";
-
-system( "/usr/bin/chpass -a \"netsaint:*:$nsUID:$nsGID\:\:0:0:Netsaint pseudo-user:$ENV{'PREFIX'}/netsaint:/bin/sh\"" );
-
-sub append_file {
- local($file,@list) = @_;
- local($LOCK_EX) = 2;
- local($LOCK_NB) = 4;
- local($LOCK_UN) = 8;
-
- open(F, ">> $file") || die "$file: $!\n";
- while( ! flock( F, $LOCK_EX | $LOCK_NB ) ) {
- exit 1;
- }
- print F join( "\n", @list) . "\n";
- close F;
- flock( F, $LOCK_UN );
-}