First start-up script for TrbNet settings

diff --git a/tools/start.pl b/tools/start.pl
index 55a23d9fac2edab648671ce0ddf0edd87418c658..21ee9c35f307e67f31d0dd7e74298b1e49e83701 100755 (executable)
--- a/tools/start.pl
+++ b/tools/start.pl
@@ -18,23 +18,24 @@ trb_init_ports() or die trb_strerror();
 
 sub trb_write {
   my($a,$r,$v) = @_;
-  trb_register_write($a,$r,$v) or print trb_strerror();
+  trb_register_write($a,$r,$v) or print trb_strerror()."\n";
+  }
+  
+sub run {
+  my($c) = @_;
+  print $c."\n";
+  system($c);
   }
 
 #Set addresses
-print(DAQTOOLSPATH."/tools/merge_serial_address.pl ".CONFIGPATH."/network/serials_hub.db ".CONFIGPATH."/network/addresses_hub.db");
-print "\n";
-print(DAQTOOLSPATH."/tools/merge_serial_address.pl ".CONFIGPATH."/network/serials_mapsaddon.db ".CONFIGPATH."/network/addresses_mapsaddon.db");
-print "\n";
-print(DAQTOOLSPATH."/tools/merge_serial_address.pl ".CONFIGPATH."/network/serials_arbiter.db ".CONFIGPATH."/network/addresses_arbiter.db");
-print "\n";
+run(DAQTOOLSPATH."/tools/merge_serial_address.pl ".CONFIGPATH."/network/serials_hub.db ".CONFIGPATH."/network/addresses_hub.db");
+run(DAQTOOLSPATH."/tools/merge_serial_address.pl ".CONFIGPATH."/network/serials_mapsaddon.db ".CONFIGPATH."/network/addresses_mapsaddon.db");
+run(DAQTOOLSPATH."/tools/merge_serial_address.pl ".CONFIGPATH."/network/serials_arbiter.db ".CONFIGPATH."/network/addresses_arbiter.db");
 
 
 #Set GbE Configuration
-print(DAQTOOLSPATH."/tools/loadregisterdb.pl ".CONFIGPATH."/network/register_configgbe_mvd.db");
-print "\n";
-print(DAQTOOLSPATH."/tools/loadregisterdb.pl ".CONFIGPATH."/network/register_configgbe_ip_mvd.db");
-print "\n";
+run(DAQTOOLSPATH."/tools/loadregisterdb.pl ".CONFIGPATH."/network/register_configgbe_mvd.db");
+run(DAQTOOLSPATH."/tools/loadregisterdb.pl ".CONFIGPATH."/network/register_configgbe_ip_mvd.db");
 
 trb_write(0xff7f,0x8000,0x8000);
 trb_write(0xff7f,0x8000,0x0000);