CSCCondDB/test/CreateConfigConnect.pl

0001 #!/usr/local/bin/perl
0002
0003 #read in config updates from ConfigUpdate.txt
0004 open (UPDATES, "ConfigUpdate.txt");
0005 while (<UPDATES>) {
0006     $DSOURCE_INPUT = $DSOURCE_INPUT . $_ ;
0007 }
0008 close(UPDATES);
0009
0010 $RUI_DUMMY = substr($ARGV[0],30);
0011 $RUI = substr($RUI_DUMMY,0, 5);
0012
0013 $connect=
0014 "process TEST = {
0015         source = DaqSource{ string reader = \"CSCFileReader\"
0016                 PSet pset = {untracked vstring $RUI ={\"$ARGV[0]\"}
0017                 untracked string dataType  = \"DAQ\"
0018                 untracked int32 input = -1
0019                 $DSOURCE_INPUT
0020                 untracked int32 firstEvent = 0
0021         }
0022
0023         module cscunpacker = CSCDCCUnpacker {
0024                 //untracked bool PrintEventNumber = false
0025                 untracked bool Debug = false
0026                 FileInPath theMappingFile = \"OnlineDB/CSCCondDB/test/csc_slice_test_map.txt\"
0027                 untracked int32 Verbosity = 0
0028                 untracked uint32 ErrorMask = 3754946559
0029                 untracked uint32 ErrorMask = 3754946559
0030         }
0031
0032         module analyzer = CSCCFEBConnectivityAnalyzer {
0033                 untracked int32 Verbosity = 0
0034                 #change to true to send constants to DB !!
0035                 untracked bool debug = false
0036         }
0037
0038         path p = {cscunpacker,analyzer}
0039
0040 }";
0041
0042 print "$connect\n";
0043 open(CONFIGFILE, ">CSCCFEBconnect.cfg");
0044 print CONFIGFILE "$connect";
0045 close(CONFIGFILE);
0046