diff options
| author | Akinori MUSHA <knu@FreeBSD.org> | 2001-05-08 12:36:01 +0000 |
|---|---|---|
| committer | Akinori MUSHA <knu@FreeBSD.org> | 2001-05-08 12:36:01 +0000 |
| commit | 652c758fe74cd6fcb512e1d251aad4916cb5c511 (patch) | |
| tree | b01fc99dbcefe33bcfd5b8d32dc7248d42fde208 /japanese/postgresql-tcltk/scripts/createuser | |
| parent | add p5-Event (diff) | |
Update to 7.1 with jumob-patch 20010429 and synchronize with
databases/postgresql7.
Include Japanezed psql (psqlj).
PR: 27156
Submitted by: Saito Tomokatsu <saito@a2z.co.jp> (MAINTAINER)
Diffstat (limited to 'japanese/postgresql-tcltk/scripts/createuser')
| -rw-r--r-- | japanese/postgresql-tcltk/scripts/createuser | 50 |
1 files changed, 0 insertions, 50 deletions
diff --git a/japanese/postgresql-tcltk/scripts/createuser b/japanese/postgresql-tcltk/scripts/createuser deleted file mode 100644 index 2abe201e7a4b..000000000000 --- a/japanese/postgresql-tcltk/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 ); -} |
