CSCCondDB/test/CreateConfigCrosstalk.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 $xtalk =
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
0024     module cscunpacker = CSCDCCUnpacker {
0025                 InputTag InputObjects = source
0026             //untracked bool PrintEventNumber = false
0027         untracked bool Debug = false
0028         FileInPath theMappingFile = \"OnlineDB/CSCCondDB/test/csc_slice_test_map.txt\"
0029         untracked int32 Verbosity = 0
0030     }
0031
0032         module analyzer = CSCCrossTalkAnalyzer {
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 "$xtalk\n";
0043 open(CONFIGFILE, ">CSCxtalk.cfg");
0044 print CONFIGFILE "$xtalk";
0045 close(CONFIGFILE);