[Rt-commit] r5675 - in rt/branches/3.7-EXPERIMENTAL: .

[ruz at bestpractical.com]

Author: ruz
Date: Wed Aug  2 15:41:11 2006
New Revision: 5675

Modified:
   rt/branches/3.7-EXPERIMENTAL/   (props changed)
   rt/branches/3.7-EXPERIMENTAL/sbin/rt-setup-database.in

Log:
 r3509 at cubic-pc:  cubic | 2006-06-29 06:14:21 +0400
 * allow user or extension to override DB properties via ENV
   in rt-setup-database script


Modified: rt/branches/3.7-EXPERIMENTAL/sbin/rt-setup-database.in
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/sbin/rt-setup-database.in	(original)
+++ rt/branches/3.7-EXPERIMENTAL/sbin/rt-setup-database.in	Wed Aug  2 15:41:11 2006
@@ -46,8 +46,8 @@
 # END BPS TAGGED BLOCK }}}
 use strict;
 use vars qw($PROMPT $VERSION $Handle $Nobody $SystemUser $item);
-use vars
-  qw(@Groups @Users @ACL @Queues @ScripActions @ScripConditions @Templates @CustomFields @Scrips @Attributes @Initial @Final);
+use vars qw(@Groups @Users @ACL @Queues @ScripActions @ScripConditions
+            @Templates @CustomFields @Scrips @Attributes @Initial @Final);
 
 use lib ("@LOCAL_LIB_PATH@", "@RT_LIB_PATH@");
 
@@ -59,7 +59,6 @@
     RT::LoadConfig();
     RT::InitClasses();
 }
-use Carp;
 
 use Term::ReadKey;
 use Getopt::Long;
@@ -79,6 +78,11 @@
 
 $| = 1;    #unbuffer that output.
 
+foreach my $key(qw(Type Host Name User Password)) {
+    next unless exists $ENV{ 'RT_DB_'. uc $key };
+    RT->Config->Set( "Database$key", $ENV{ 'RT_DB_'. uc $key });
+}
+
 my $db_type = RT->Config->Get('DatabaseType') || '';
 my $db_host = RT->Config->Get('DatabaseHost') || '';
 my $db_name = RT->Config->Get('DatabaseName') || '';