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

[alexmv at bestpractical.com]

Author: alexmv
Date: Tue Apr  4 12:52:07 2006
New Revision: 4948

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

Log:
 r12118 at zoq-fot-pik:  chmrr | 2006-04-04 12:51:54 -0400
  * Add @Initial list of subrefs as well


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	Tue Apr  4 12:52:07 2006
@@ -47,7 +47,7 @@
 use strict;
 use vars qw($PROMPT $VERSION $Handle $Nobody $SystemUser $item);
 use vars
-  qw(@Groups @Users @ACL @Queues @ScripActions @ScripConditions @Templates @CustomFields @Scrips @Attributes @Final);
+  qw(@Groups @Users @ACL @Queues @ScripActions @ScripConditions @Templates @CustomFields @Scrips @Attributes @Initial @Final);
 
 use lib ("@LOCAL_LIB_PATH@", "@RT_LIB_PATH@");
 
@@ -454,6 +454,12 @@
     require $datafile
       || die "Couldn't find initial data for import\n" . $@;
 
+    if (@Initial) {
+        print "Running initial actions...\n";
+        # Don't trap errors here, as they *should* be fatal
+        $_->() for @Initial;
+    }
+
     if (@Groups) {
         print "Creating groups...";
         foreach $item (@Groups) {