summaryrefslogtreecommitdiff
path: root/databases/firebird-devel/scripts/createuser
diff options
context:
space:
mode:
authorWill Andrews <will@FreeBSD.org>2001-03-10 20:32:33 +0000
committerWill Andrews <will@FreeBSD.org>2001-03-10 20:32:33 +0000
commitcca71f50d225f7829cd5f1539338fa678225bd91 (patch)
treeefa61cf749d57bdf40c5cb6e2fd2dd93fbcb7020 /databases/firebird-devel/scripts/createuser
parentAdd wapsh 1.0, a system to allow remote shell logins via a WAP (diff)
Add firebird 0.9, the open-source InterBase(tm) 6.0 spin-off
(Classic version). PR: 24313 Submitted by: Geoffrey C. Speicher <geoff@sea-incorporated.com>
Notes
Notes: svn path=/head/; revision=39463
Diffstat (limited to 'databases/firebird-devel/scripts/createuser')
-rw-r--r--databases/firebird-devel/scripts/createuser50
1 files changed, 50 insertions, 0 deletions
diff --git a/databases/firebird-devel/scripts/createuser b/databases/firebird-devel/scripts/createuser
new file mode 100644
index 000000000000..b61d47fd84bd
--- /dev/null
+++ b/databases/firebird-devel/scripts/createuser
@@ -0,0 +1,50 @@
+#!/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 );
+}