summaryrefslogtreecommitdiff
path: root/net/nagios/scripts/createuser
diff options
context:
space:
mode:
authorcvs2svn <cvs2svn@FreeBSD.org>2000-09-23 01:36:53 +0000
committercvs2svn <cvs2svn@FreeBSD.org>2000-09-23 01:36:53 +0000
commit8c7499bdfa85657ea6c2517ada0ef4a4db489beb (patch)
tree1c37a6088704b234484b1352cd1f882fb2a253ad /net/nagios/scripts/createuser
parentCatch up with Wnn6-lib update. (diff)
This commit was manufactured by cvs2svn to create tag 'RELEASE_4_1_1'.release/4.1.1
Notes
Notes: svn path=/head/; revision=33029 svn path=/tags/RELEASE_4_1_1/; revision=33030; tag=release/4.1.1
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 );
-}