File indexing completed on 2024-04-06 12:22:50
0001
0002
0003 open(RUNFILE, "tempFile.txt");
0004
0005 @runs = readline(RUNFILE);
0006 close(RUNFILE);
0007
0008 foreach $run (@runs)
0009 {
0010 $runName = substr($run,0,45);
0011 $runName = "/tmp/csccalib/" . $runName;
0012 $list = "$list" . "\"" . "$runName" . "\",";
0013 }
0014
0015
0016
0017 $list = substr($list,0,-1);
0018
0019
0020 open (UPDATES, "ConfigUpdate.txt");
0021 while (<UPDATES>) {
0022 $DSOURCE_INPUT = $DSOURCE_INPUT . $_ ;
0023 }
0024 close(UPDATES);
0025
0026 $RUI_DUMMY = substr($ARGV[0],30);
0027 $RUI = substr($RUI_DUMMY,0, 5);
0028
0029 $saturation =
0030
0031 "process TEST = {
0032 source = DaqSource{ string reader = \"CSCFileReader\"
0033 PSet pset = {untracked vstring $RUI ={\"$ARGV[0]\"}
0034 untracked string dataType = \"DAQ\"
0035 untracked int32 input = -1
0036 $DSOURCE_INPUT
0037 untracked int32 firstEvent = 0
0038 }
0039 }
0040
0041 module cscunpacker = CSCDCCUnpacker {
0042 //untracked bool PrintEventNumber = false
0043 untracked bool Debug = false
0044 untracked int32 debugVerbosity = 0
0045 FileInPath theMappingFile = \"OnlineDB/CSCCondDB/test/csc_slice_test_map.txt\"
0046 }
0047
0048 module analyzer = CSCSaturationAnalyzer {
0049 untracked int32 Verbosity = 0
0050 #change to true to send constants to DB !!
0051 untracked bool debug = false
0052 }
0053
0054
0055 path p = {cscunpacker,analyzer}
0056 }";
0057
0058
0059 print "$saturation\n";
0060
0061
0062 open(CONFIGFILE, ">CSCsaturation.cfg");
0063 print CONFIGFILE "$saturation";
0064 close(CONFIGFILE);
0065
0066
0067 open(DUMMYRUNSOLD, "GoodSaturationRunsDummy.txt");
0068 @dummyruns = readline(DUMMYRUNSOLD);
0069 close(DUMMYRUNSOLD);
0070
0071
0072
0073
0074
0075
0076 $runVar="";
0077 foreach $run (@runs){
0078 $runVar=$runVar . $run
0079 }
0080 print "$runVar\n";
0081
0082
0083 $dummyrunsNew = "";
0084
0085
0086 foreach $dummyrun (@dummyruns){
0087
0088
0089 if ( $runVar =~ ){ print "$dummyrun processed\n"}
0090 else {
0091 print "$dummyrun NOT processed\n";
0092 $dummyrunsNew = $dummyrunsNew . $dummyrun;
0093 };
0094 }
0095
0096
0097 print "\n\n ******dummrunsNew******\n$dummyrunsNew";
0098
0099
0100 open(DUMMYRUNS, ">GoodSaturationRunsDummy.txt");
0101 print DUMMYRUNS "$dummyrunsNew";
0102 close(DUMMYRUNS);
0103