From b919b8311bc5d38e5731d40525c88c54816f4530 Mon Sep 17 00:00:00 2001 From: cvs2svn Date: Fri, 14 May 1999 11:54:55 +0000 Subject: This commit was manufactured by cvs2svn to create tag 'RELEASE_3_2_0'. --- .../postgresql-devel-server/scripts/createuser | 50 ---------------------- 1 file changed, 50 deletions(-) delete mode 100644 databases/postgresql-devel-server/scripts/createuser (limited to 'databases/postgresql-devel-server/scripts') diff --git a/databases/postgresql-devel-server/scripts/createuser b/databases/postgresql-devel-server/scripts/createuser deleted file mode 100644 index 2abe201e7a4b..000000000000 --- a/databases/postgresql-devel-server/scripts/createuser +++ /dev/null @@ -1,50 +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( "pgsql" ) ) { - ( $null, $null, $pgUID ) = getpwnam( "pgsql" ); -} else { - $pgUID = 70; - while( getpwuid( $pgUID ) ) { - $pgUID++; - } -} - -if( getgrnam( "pgsql" ) ) { - ( $null, $null, $pgGID ) = getgrnam( "pgsql" ); -} else { - $pgGID = 70; - while( getgrgid( $pgGID ) ) { - $pgGID++; - } - &append_file( "/etc/group", "pgsql:*:$pgGID:" ); -} - -print "pgsql user using uid $pgUID\n"; -print "pgsql user using gid $pgGID\n"; - -system( "/usr/bin/chpass -a \"pgsql:*:$pgUID:$pgGID\:\:0:0:PostgreSQL pseudo-user:$ENV{'PREFIX'}/pgsql:/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 ); -} -- cgit v1.2.3