CSCCondDB/test/CreateConfigNoise.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 $noise =
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     untracked int32 Verbosity = 0
0027     FileInPath theMappingFile = \"OnlineDB/CSCCondDB/test/csc_slice_test_map.txt\"
0028     }
0029
0030         module analyzer = CSCNoiseMatrixAnalyzer {
0031         untracked int32 Verbosity = 0
0032         #change to true to send constants to DB !!
0033         untracked bool debug = false
0034     }
0035
0036
0037     path p = {cscunpacker,analyzer}
0038 }";
0039
0040 print "$noise\n";
0041 open(CONFIGFILE, ">CSCmatrix.cfg");
0042 print CONFIGFILE "$noise";
0043 close(CONFIGFILE);