diff options
author | Alexander Leidinger <netchild@FreeBSD.org> | 2003-12-04 17:34:21 +0000 |
---|---|---|
committer | Alexander Leidinger <netchild@FreeBSD.org> | 2003-12-04 17:34:21 +0000 |
commit | ea7d06de9102477b334d82b5b9617fdbefe1ec89 (patch) | |
tree | 010f6253bb4c0f6be3bcb32f6489cdb9b501d351 /databases/firebird-devel/scripts/createuser | |
parent | Add missing patches for the 1.5.r7 update. (diff) |
- Update to 2.0.a0.
- Previous maintainer is now tha actual maintainer again.
- No package at the moment.
PR: 59001
Submitted by: chris@e-easy.com.au
Notes
Notes:
svn path=/head/; revision=95039
Diffstat (limited to 'databases/firebird-devel/scripts/createuser')
-rw-r--r-- | databases/firebird-devel/scripts/createuser | 50 |
1 files changed, 0 insertions, 50 deletions
diff --git a/databases/firebird-devel/scripts/createuser b/databases/firebird-devel/scripts/createuser deleted file mode 100644 index eba7ce1b887d..000000000000 --- a/databases/firebird-devel/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( "firebird" ) ) { - ( $null, $null, $fbUID ) = getpwnam( "firebird" ); -} else { - $fbUID = 90; - while( getpwuid( $fbUID ) ) { - $fbUID++; - } -} - -if( getgrnam( "firebird" ) ) { - ( $null, $null, $fbGID ) = getgrnam( "firebird" ); -} else { - $fbGID = 90; - while( getgrgid( $fbGID ) ) { - $fbGID++; - } - &append_file( "/etc/group", "firebird:*:$fbGID:" ); -} - -print "firebird user using uid $fbUID\n"; -print "firebird user using gid $fbGID\n"; - -system( "/usr/bin/chpass -a \"firebird:*:$fbUID:$fbGID\:\:0:0:Firebird pseudo-user:$ENV{'PREFIX'}/firebird:/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 ); -} |