/data/refman/pasoursint/CMSSW_4_1_8_patch9/src/CondTools/Ecal/src/EcalTPGBadXTHandler.cc

Go to the documentation of this file.

#include "CondTools/Ecal/interface/EcalTPGBadXTHandler.h"

#include "OnlineDB/EcalCondDB/interface/EcalLogicID.h"
#include "OnlineDB/EcalCondDB/interface/RunTPGConfigDat.h"
#include "OnlineDB/EcalCondDB/interface/FEConfigMainInfo.h"
#include "OnlineDB/EcalCondDB/interface/FEConfigBadXTInfo.h"
#include "OnlineDB/EcalCondDB/interface/RunList.h"
#include "FWCore/ParameterSet/interface/ParameterSetfwd.h"
#include "FWCore/MessageLogger/interface/MessageLogger.h"

#include "CondFormats/EcalObjects/interface/EcalTPGCrystalStatus.h"

#include<iostream>
#include<fstream>


#include <time.h>
#include <unistd.h>

#include <string>
#include <cstdio>
#include <typeinfo>
#include <sstream>

popcon::EcalTPGBadXTHandler::EcalTPGBadXTHandler(const edm::ParameterSet & ps)
  :    m_name(ps.getUntrackedParameter<std::string>("name","EcalTPGBadXTHandler")) {

        edm::LogInfo("EcalTPGBadXTHandler") << "EcalTPGBadXT Source handler constructor.";
        m_firstRun=static_cast<unsigned int>(atoi( ps.getParameter<std::string>("firstRun").c_str()));
        m_lastRun=static_cast<unsigned int>(atoi( ps.getParameter<std::string>("lastRun").c_str()));
        m_sid= ps.getParameter<std::string>("OnlineDBSID");
        m_user= ps.getParameter<std::string>("OnlineDBUser");
        m_pass= ps.getParameter<std::string>("OnlineDBPassword");
        m_locationsource= ps.getParameter<std::string>("LocationSource");
        m_location=ps.getParameter<std::string>("Location");
        m_gentag=ps.getParameter<std::string>("GenTag");
        m_runtype=ps.getParameter<std::string>("RunType");

        edm::LogInfo("EcalTPGBadXTHandler") << m_sid<<"/"<<m_user<<"/"<<m_location<<"/"<<m_gentag;


}

popcon::EcalTPGBadXTHandler::~EcalTPGBadXTHandler()
{
}


void popcon::EcalTPGBadXTHandler::getNewObjects()
{
        edm::LogInfo("EcalTPGBadXTHandler") << "Started GetNewObjects!!!";

        
        unsigned int max_since=0;
        max_since=static_cast<unsigned int>(tagInfo().lastInterval.first);
        edm::LogInfo("EcalTPGBadXTHandler") << "max_since : "  << max_since;
        edm::LogInfo("EcalTPGBadXTHandler")  << "retrieved last payload ";

        // here we retrieve all the runs after the last from online DB 
        edm::LogInfo("EcalTPGBadXTHandler") << "Retrieving run list from ONLINE DB ... ";

        edm::LogInfo("EcalTPGBadXTHandler") << "Making connection...";
        econn = new EcalCondDBInterface( m_sid, m_user, m_pass );
        edm::LogInfo("EcalTPGBadXTHandler")<< "Done.";
        
        if (!econn)
          {
            std::cout << " connection parameters " <<m_sid <<"/"<<m_user<<std::endl;
            //      cerr << e.what() << std::endl;
            throw cms::Exception("OMDS not available");
          } 
      
        LocationDef my_locdef;
        my_locdef.setLocation(m_location); 

        RunTypeDef my_rundef;
        my_rundef.setRunType(m_runtype); 

        RunTag  my_runtag;
        my_runtag.setLocationDef( my_locdef );
        my_runtag.setRunTypeDef(  my_rundef );
        my_runtag.setGeneralTag(m_gentag); 

        readFromFile("last_tpg_badXT_settings.txt");


        unsigned int min_run=m_i_run_number+1;

        if(m_firstRun<m_i_run_number) {
          min_run=m_i_run_number+1;
        } else {
          min_run=m_firstRun;
        }
        if(min_run<max_since) {
          min_run=  max_since+1; // we have to add 1 to the last transferred one
        } 

        std::cout<<"m_i_run_number"<< m_i_run_number <<"m_firstRun "<<m_firstRun<< "max_since " <<max_since<< std::endl;


        unsigned int max_run=m_lastRun;
        edm::LogInfo("EcalTPGBadXTHandler") << "min_run= " << min_run << "max_run= " << max_run;

        RunList my_list; 
        my_list=econn->fetchGlobalRunListByLocation(my_runtag, min_run, max_run, my_locdef);
        //      my_list=econn->fetchRunListByLocation(my_runtag, min_run, max_run, my_locdef); 
      
        std::vector<RunIOV> run_vec=  my_list.getRuns();
        size_t num_runs=run_vec.size();

        std::cout <<"number of runs is : "<< num_runs<< std::endl;

        std::vector<EcalLogicID> my_EcalLogicId;
        std::vector<EcalLogicID> my_EcalLogicId_EE;

        unsigned int irun=0;
        if(num_runs>0){


          my_EcalLogicId = econn->getEcalLogicIDSetOrdered( "ECAL_crystal_number_fedccuxt",
                                                          610, 650,
                                                          1, 100,
                                                          0, 100, 
                                                          "EB_crystal_number",123 );

          my_EcalLogicId_EE = econn->getEcalLogicIDSetOrdered( "ECAL_crystal_number_fedccuxt",
                                                          600, 700,
                                                          1, 100,
                                                          0, 100, 
                                                          "EE_crystal_number",123 );



          for(size_t kr=0; kr<run_vec.size(); kr++){
            std::cout << "here we are in run "<<kr<<std::endl;
            irun=static_cast<unsigned int>(run_vec[kr].getRunNumber());
            
            std::cout<<" **************** "<<std::endl;
            std::cout<<" **************** "<<std::endl;
            std::cout<<" run= "<<irun<<std::endl;

            // retrieve the data :
            std::map<EcalLogicID, RunTPGConfigDat> dataset;
            econn->fetchDataSet(&dataset, &run_vec[kr]);
            
            std::string the_config_tag="";
            int the_config_version=0;
            
            std::map< EcalLogicID,  RunTPGConfigDat>::const_iterator it;
        
            int nr=0;
            for( it=dataset.begin(); it!=dataset.end(); it++ )
            {
              ++nr;
              //EcalLogicID ecalid  = it->first;
            
              RunTPGConfigDat  dat = it->second;
              the_config_tag=dat.getConfigTag();
              the_config_version=dat.getVersion();
            }

            // it is all the same for all SM... get the last one 


            std::cout<<" run= "<<irun<<" tag "<<the_config_tag<<" version="<<the_config_version <<std::endl;

            // here we should check if it is the same as previous run.


            if((the_config_tag != m_i_tag || the_config_version != m_i_version ) && nr>0 ) {
              std::cout<<"the tag is different from last transferred run ... retrieving last config set from DB"<<std::endl;

              FEConfigMainInfo fe_main_info;
              fe_main_info.setConfigTag(the_config_tag);
              fe_main_info.setVersion(the_config_version);
              std::cout << " version=" <<fe_main_info.getVersion()<< std::endl;

              
              try{ 
                std::cout << " before fetch config set" << std::endl;       
                econn-> fetchConfigSet(&fe_main_info);
                std::cout << " after fetch config set" << std::endl;        

        
                // now get TPGBadXT
                int badxtId=fe_main_info.getBxtId();
            
                if( badxtId != m_i_badXT && badxtId!=0) {
            
                  FEConfigBadXTInfo fe_badXt_info;
                  fe_badXt_info.setId(badxtId);
                  econn-> fetchConfigSet(&fe_badXt_info);
                  std::vector<FEConfigBadXTDat> dataset_TpgBadXT;
                  econn->fetchConfigDataSet(&dataset_TpgBadXT, &fe_badXt_info);

                  // NB new 

                  EcalTPGCrystalStatus* badXt;
                  badXt =  produceEcalTrgChannelStatus();


                  typedef std::vector<FEConfigBadXTDat>::const_iterator CIfeped;
                  EcalLogicID ecid_xt;
                  FEConfigBadXTDat  rd_badXt;
                  int icells=0;

                  for (CIfeped p = dataset_TpgBadXT.begin(); p != dataset_TpgBadXT.end(); p++) {
                    rd_badXt = *p;
                
                    int fed_id=rd_badXt.getFedId();
                    //int tcc_id=rd_badXt.getTCCId();
                    int tt_id=rd_badXt.getTTId();
                    int xt_id=rd_badXt.getXTId();

                    // EB data      
                    if (fed_id>=610 && fed_id<=645) {

                      // logic id is 1011ssxxxx
                      // get SM id
                      int sm_num=0;
                      if(fed_id<=627 ) sm_num=fed_id-609+18; 
                      if(fed_id>627  ) sm_num=fed_id-627; 
              
                      // get crystal id
                      int xt_num=0;
              
                      for(size_t ixt=0; ixt<my_EcalLogicId.size(); ixt++){
                
                        if(my_EcalLogicId[ixt].getID1()==fed_id && my_EcalLogicId[ixt].getID2()==tt_id 
                        && my_EcalLogicId[ixt].getID3()==xt_id ) {
                          //1011060504
                          int ecid= my_EcalLogicId[ixt].getLogicID();
                          xt_num=(ecid)-(101100+sm_num)*10000;
                  
                        }
                      }

                      std::cout<< " masking crystal "<<sm_num<<"/"<<xt_num<<" from fed/tt/xt"<<
                        fed_id<<"/"<<tt_id<<"/"<<xt_id<< std::endl;
                      EBDetId ebdetid(sm_num,xt_num,EBDetId::SMCRYSTALMODE);
                    
                      badXt->setValue(ebdetid.rawId(),rd_badXt.getStatus());    
                      ++icells;
                    } else {
                      // EE data

                      long x=0;
                      long y=0;
                      long z=0; 

                      for(size_t ixt=0; ixt<my_EcalLogicId_EE.size(); ixt++){
                
                        if(my_EcalLogicId_EE[ixt].getID1()==fed_id && my_EcalLogicId_EE[ixt].getID2()==tt_id 
                          && my_EcalLogicId_EE[ixt].getID3()==xt_id ) {
                  
                          long ecid=(long) my_EcalLogicId_EE[ixt].getLogicID();
                          // logic_id 201Zxxxyyy Z=0 / 2 -> z= -1 / 1 , x -> 1 100,  y -> 1 100 
                          y=ecid-( (long)(ecid/1000) ) *1000;
                          x= ( ecid- y) /1000 ;
                          x= x -( (long)(x/1000) ) *1000;
                          z= (ecid-y-x*1000 )/1000000 -2010;
                          if(z==0) z=-1;
                          if(z==2) z= 1; 
                        }
                      }

                      EEDetId eedetid(x,y,z);
                      badXt->setValue(eedetid.rawId(),rd_badXt.getStatus());    
                      ++icells;
                    }
                  }//end for over data
          
                  edm::LogInfo("EcalTPGBadXTHandler") << "Finished badXT reading";
            
                  Time_t snc= (Time_t) irun ;                      
                  m_to_transfer.push_back(std::make_pair((EcalTPGCrystalStatus*)badXt,snc));
            
                  m_i_run_number=irun;
                  m_i_tag=the_config_tag;
                  m_i_version=the_config_version;
                  m_i_badXT=badxtId;
            
                  writeFile("last_tpg_badXT_settings.txt");
            
                } else {
              
                m_i_run_number=irun;
                m_i_tag=the_config_tag;
                m_i_version=the_config_version;
              
                writeFile("last_tpg_badXT_settings.txt");
              
                std::cout<< " even if the tag/version is not the same, the badXT id is the same -> no transfer needed "<< std::endl; 
              
                }

              }       
              
              catch (std::exception &e) { 
                std::cout << "ERROR: THIS CONFIG DOES NOT EXIST: tag=" <<the_config_tag
                          <<" version="<<the_config_version<< std::endl;
                std::cout << e.what() << std::endl;
                m_i_run_number=irun;

              }
              std::cout<<" **************** "<<std::endl;
              
            } else if(nr==0) {
              m_i_run_number=irun;
              std::cout<< " no tag saved to RUN_TPGCONFIG_DAT by EcalSupervisor -> no transfer needed "<< std::endl; 
              std::cout<<" **************** "<<std::endl;
            } else {
              m_i_run_number=irun;
              m_i_tag=the_config_tag;
              m_i_version=the_config_version;
              std::cout<< " the tag/version is the same -> no transfer needed "<< std::endl; 
              std::cout<<" **************** "<<std::endl;
              writeFile("last_tpg_badXT_settings.txt");
            }

                
          }//end for over kr (nr of runs)
        }//end if
        
        delete econn;

        edm::LogInfo("EcalTPGBadXTHandler")<< "Ecal - > end of getNewObjects -----------";        
}

void  popcon::EcalTPGBadXTHandler::readFromFile(const char* inputFile) {
  //-------------------------------------------------------------
  
  m_i_tag="";
  m_i_version=0;
  m_i_run_number=0;
  m_i_badXT=0; 

  FILE *inpFile; // input file
  inpFile = fopen(inputFile,"r");
  if(!inpFile) {
    edm::LogError("EcalTPGBadXTHandler")<<"*** Can not open file: "<<inputFile;
  }

  char line[256];
    
  std::ostringstream str;

  fgets(line,255,inpFile);
  m_i_tag=to_string(line);
  str << "gen tag " << m_i_tag << std::endl ;  // should I use this? 

  fgets(line,255,inpFile);
  m_i_version=atoi(line);
  str << "version= " << m_i_version << std::endl ;  

  fgets(line,255,inpFile);
  m_i_run_number=atoi(line);
  str << "run_number= " << m_i_run_number << std::endl ;  

  fgets(line,255,inpFile);
  m_i_badXT=atoi(line);
  str << "badXT_config= " << m_i_badXT << std::endl ;  

    
  fclose(inpFile);           // close inp. file

}

void  popcon::EcalTPGBadXTHandler::writeFile(const char* inputFile) {
  //-------------------------------------------------------------
  
  
  std::ofstream myfile;
  myfile.open (inputFile);
  myfile << m_i_tag <<std::endl;
  myfile << m_i_version <<std::endl;
  myfile << m_i_run_number <<std::endl;
  myfile << m_i_badXT <<std::endl;

  myfile.close();

}

EcalTPGCrystalStatus* popcon::EcalTPGBadXTHandler::produceEcalTrgChannelStatus()
{

  EcalTPGCrystalStatus*  ical =  new EcalTPGCrystalStatus() ;
  // barrel
  for(int ieta=-EBDetId::MAX_IETA; ieta<=EBDetId::MAX_IETA; ++ieta) {
    if(ieta==0) continue;
    for(int iphi=EBDetId::MIN_IPHI; iphi<=EBDetId::MAX_IPHI; ++iphi) {
      if (EBDetId::validDetId(ieta,iphi)) {
        EBDetId ebid(ieta,iphi);
        ical->setValue( ebid, 0 );
      }
    }
  }
  // endcap
  for(int iX=EEDetId::IX_MIN; iX<=EEDetId::IX_MAX ;++iX) {
    for(int iY=EEDetId::IY_MIN; iY<=EEDetId::IY_MAX; ++iY) {
      // make an EEDetId since we need EEDetId::rawId() to be used as the key for the pedestals
      if (EEDetId::validDetId(iX,iY,1)) {
        EEDetId eedetidpos(iX,iY,1);
        ical->setValue( eedetidpos, 0 );
      }
      if (EEDetId::validDetId(iX,iY,-1)) {
        EEDetId eedetidneg(iX,iY,-1);
        ical->setValue( eedetidneg, 0 );
      }
    }
  }
  return ical;
}