summaryrefslogtreecommitdiff
path: root/databases/firebird-devel/scripts/createuser
diff options
context:
space:
mode:
authorAlexander Leidinger <netchild@FreeBSD.org>2003-12-04 17:34:21 +0000
committerAlexander Leidinger <netchild@FreeBSD.org>2003-12-04 17:34:21 +0000
commitea7d06de9102477b334d82b5b9617fdbefe1ec89 (patch)
tree010f6253bb4c0f6be3bcb32f6489cdb9b501d351 /databases/firebird-devel/scripts/createuser
parentAdd 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/createuser50
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 );
-}