OnlineDB/CSCCondDB/test/CreateConfigConnect.pl - master - githubmirror/cmssw

OnlineDB/CSCCondDB/test/CreateConfigConnect.pl

45 строк1 KB

Giulio Eulisse

Snapshot of CMSSW_6_2_0_pre8.

26 июн 2013, 18:12

26 июн 2013, 18:12214ab73

#!/usr/local/bin/perl

#read in config updates from ConfigUpdate.txt
open (UPDATES, "ConfigUpdate.txt");
while (<UPDATES>) {
    $DSOURCE_INPUT = $DSOURCE_INPUT . $_ ;
}
close(UPDATES);

$RUI_DUMMY = substr($ARGV[0],30);
$RUI = substr($RUI_DUMMY,0, 5);

$connect=
"process TEST = {
        source = DaqSource{ string reader = \"CSCFileReader\"
               	PSet pset = {untracked vstring $RUI ={\"$ARGV[0]\"}
                untracked string dataType  = \"DAQ\"
                untracked int32 input = -1
                $DSOURCE_INPUT
                untracked int32 firstEvent = 0
        }
 
        module cscunpacker = CSCDCCUnpacker {
                //untracked bool PrintEventNumber = false
                untracked bool Debug = false
                FileInPath theMappingFile = \"OnlineDB/CSCCondDB/test/csc_slice_test_map.txt\"
                untracked int32 Verbosity = 0
                untracked uint32 ErrorMask = 3754946559
                untracked uint32 ErrorMask = 3754946559
        }
 
        module analyzer = CSCCFEBConnectivityAnalyzer {
                untracked int32 Verbosity = 0
                #change to true to send constants to DB !!
                untracked bool debug = false
        }
 
        path p = {cscunpacker,analyzer}
 
}";

print "$connect\n";
open(CONFIGFILE, ">CSCCFEBconnect.cfg");
print CONFIGFILE "$connect";
close(CONFIGFILE);