Corrected identifier for tpcCalibRaw
[u/mrichter/AliRoot.git] / TPC / AliTPCPreprocessor.cxx
index 9e3e5d0..11b2b02 100644 (file)
@@ -27,6 +27,9 @@
 #include "AliTPCCalibPedestal.h"
 #include "AliTPCCalibPulser.h"
 #include "AliTPCCalibCE.h"
+#include "AliTPCCalibRaw.h"
+#include "AliTPCdataQA.h"
+#include "ARVersion.h"
 #include "TFile.h"
 #include "TTree.h"
 #include "TGraph.h" 
 const Int_t kValCutTemp = 100;               // discard temperatures > 100 degrees
 const Int_t kDiffCutTemp = 5;               // discard temperature differences > 5 degrees
 const TString kPedestalRunType = "PEDESTAL";  // pedestal run identifier
-const TString kPulserRunType = "PULSER";   // pulser run identifier
+const TString kPulserRunType = "PULSER";     // pulser run identifier
 const TString kPhysicsRunType = "PHYSICS";   // physics run identifier
-const TString kStandAloneRunType = "STANDALONE"; // standalone run identifier
-const TString kCosmicRunType = "COSMIC"; // cosmic run identifier
-const TString kLaserRunType = "LASER";   // laser run identifier
+const TString kCosmicRunType = "COSMIC";     // cosmic run identifier
+const TString kLaserRunType = "LASER";       // laser run identifier
 const TString kDaqRunType = "DAQ"; // DAQ run identifier
 const TString kAmandaTemp = "TPC_PT_%d_TEMPERATURE"; // Amanda string for temperature entries
 //const Double_t kFitFraction = 0.7;                 // Fraction of DCS sensor fits required              
@@ -57,7 +59,7 @@ ClassImp(AliTPCPreprocessor)
 //______________________________________________________________________________________________
 AliTPCPreprocessor::AliTPCPreprocessor(AliShuttleInterface* shuttle) :
   AliPreprocessor("TPC",shuttle),
-  fConfEnv(0), fTemp(0), fHighVoltage(0), fHighVoltageStat(0), fConfigOK(kTRUE), fROC(0)
+  fConfEnv(0), fTemp(0), fHighVoltage(0), fHighVoltageStat(0), fGoofie(0), fConfigOK(kTRUE), fROC(0)
 {
   // constructor
   fROC = AliTPCROC::Instance();
@@ -67,7 +69,6 @@ AliTPCPreprocessor::AliTPCPreprocessor(AliShuttleInterface* shuttle) :
   AddRunType(kPedestalRunType);
   AddRunType(kPulserRunType);
   AddRunType(kPhysicsRunType);
-  AddRunType(kStandAloneRunType);
   AddRunType(kCosmicRunType);
   AddRunType(kLaserRunType);
   AddRunType(kDaqRunType);
@@ -76,7 +77,7 @@ AliTPCPreprocessor::AliTPCPreprocessor(AliShuttleInterface* shuttle) :
 //______________________________________________________________________________________________
  AliTPCPreprocessor::AliTPCPreprocessor(const AliTPCPreprocessor&  ) :
    AliPreprocessor("TPC",0),
-   fConfEnv(0), fTemp(0), fHighVoltage(0), fHighVoltageStat(0), fConfigOK(kTRUE), fROC(0)
+   fConfEnv(0), fTemp(0), fHighVoltage(0), fHighVoltageStat(0), fGoofie(0), fConfigOK(kTRUE), fROC(0)
  {
 
    Fatal("AliTPCPreprocessor", "copy constructor not implemented");
@@ -106,9 +107,10 @@ void AliTPCPreprocessor::Initialize(Int_t run, UInt_t startTime,
 {
   // Creates AliTestDataDCS object -- start maps half an hour beforre actual run start
 
-  UInt_t startTimeLocal = startTime-1800;
+  UInt_t startTimeLocal = startTime-3600;
+  UInt_t endTimeLocal = endTime+1800;
 
-  AliPreprocessor::Initialize(run, startTimeLocal, endTime);
+  AliPreprocessor::Initialize(run, startTimeLocal, endTimeLocal);
 
        AliInfo(Form("\n\tRun %d \n\tStartTime %s \n\tEndTime %s", run,
                TTimeStamp((time_t)startTime,0).AsString(),
@@ -138,7 +140,7 @@ void AliTPCPreprocessor::Initialize(Int_t run, UInt_t startTime,
           fConfigOK = kFALSE;
           return;
         }
-        fTemp = new AliTPCSensorTempArray(startTimeLocal, fEndTime, confTree, kAmandaTemp);
+        fTemp = new AliTPCSensorTempArray(startTimeLocal, endTimeLocal, confTree, kAmandaTemp);
        fTemp->SetValCut(kValCutTemp);
        fTemp->SetDiffCut(kDiffCutTemp);
        }
@@ -157,10 +159,14 @@ void AliTPCPreprocessor::Initialize(Int_t run, UInt_t startTime,
            fConfigOK = kFALSE;
            return;
         }
-        fHighVoltage = new AliDCSSensorArray(startTimeLocal, fEndTime, confTree);
+        fHighVoltage = new AliDCSSensorArray(startTimeLocal, endTimeLocal, confTree);
+      }
 
    // High voltage status values
      
+      TString hvStatConf = fConfEnv->GetValue("HighVoltageStat","ON");
+      hvStatConf.ToUpper();
+      if (hvStatConf != "OFF" ) { 
         confTree=0;
         entry=0;
         entry = GetFromOCDB("Config", "HighVoltageStat");
@@ -170,8 +176,27 @@ void AliTPCPreprocessor::Initialize(Int_t run, UInt_t startTime,
            fConfigOK = kFALSE;
            return;
         }
-        fHighVoltageStat = new AliDCSSensorArray(startTimeLocal, fEndTime, confTree);
+        fHighVoltageStat = new AliDCSSensorArray(startTimeLocal, endTimeLocal, confTree);
+      }
+
+   // Goofie values
+     
+      TString goofieConf = fConfEnv->GetValue("Goofie","ON");
+      goofieConf.ToUpper();
+      if (goofieConf != "OFF" ) { 
+        confTree=0;
+        entry=0;
+        entry = GetFromOCDB("Config", "Goofie");
+        if (entry) confTree = (TTree*) entry->GetObject();
+        if ( confTree==0 ) {
+           Log("AliTPCPreprocsessor: Goofie Config OCDB entry missing.\n");
+           fConfigOK = kFALSE;
+           return;
+        }
+        fGoofie = new AliDCSSensorArray(startTimeLocal, endTimeLocal, confTree);
       }
+
+
 }
 
 //______________________________________________________________________________________________
@@ -228,6 +253,18 @@ UInt_t AliTPCPreprocessor::Process(TMap* dcsAliasMap)
    resultArray->Add(status);
  }
 
+  // Goofie values
+
+
+  TString goofieConf = fConfEnv->GetValue("Goofie","ON");
+  goofieConf.ToUpper();
+  if (goofieConf != "OFF" ) { 
+   UInt_t goofieResult = MapGoofie(dcsAliasMap);
+   result+=goofieResult;
+   status = new TParameter<int>("goofieResult",goofieResult);
+   resultArray->Add(status);
+ }
+
   // Other calibration information will be retrieved through FXS files
   //  examples:
   //    TList* fileSourcesDAQ = GetFile(AliShuttleInterface::kDAQ, "pedestals");
@@ -254,7 +291,7 @@ UInt_t AliTPCPreprocessor::Process(TMap* dcsAliasMap)
      if (source == "DAQHLT" ) numSources=2;
      UInt_t pedestalResult=0;
      for (Int_t i=0; i<numSources; i++ ) {     
-       UInt_t pedestalResult = ExtractPedestals(pedestalSource[i]);
+       pedestalResult = ExtractPedestals(pedestalSource[i]);
        if ( pedestalResult == 0 ) break;
      }
      result += pedestalResult;
@@ -291,13 +328,52 @@ UInt_t AliTPCPreprocessor::Process(TMap* dcsAliasMap)
   }
 
 
+// raw calibration processing
+
+  if(runType == kPhysicsRunType) {
+    Int_t numSources = 1;
+    Int_t rawSource[2] = {AliShuttleInterface::kDAQ,AliShuttleInterface::kHLT} ;
+    TString source = fConfEnv->GetValue("Raw","DAQ");
+    source.ToUpper();
+    if ( source != "OFF") { 
+     if ( source == "HLT") rawSource[0] = AliShuttleInterface::kHLT;
+     if (!GetHLTStatus()) rawSource[0] = AliShuttleInterface::kDAQ;
+     if (source == "HLTDAQ" ) {
+         numSources=2;
+        rawSource[0] = AliShuttleInterface::kHLT;
+        rawSource[1] = AliShuttleInterface::kDAQ;
+     }
+     if (source == "DAQHLT" ) numSources=2;
+     UInt_t rawResult=0;
+     for (Int_t i=0; i<numSources; i++ ) {     
+       rawResult = ExtractRaw(rawSource[i]);
+       if ( rawResult == 0 ) break;
+     }
+     result += rawResult;
+     status = new TParameter<int>("rawResult",rawResult);
+     resultArray->Add(status);
+    }
+  }
+
+
+  // Altro configuration
+
+
+  TString altroConf = fConfEnv->GetValue("AltroConf","ON");
+  goofieConf.ToUpper();
+  if (altroConf != "OFF" ) { 
+   UInt_t altroResult = ExtractAltro(AliShuttleInterface::kDCS);
+   result+=altroResult;
+   status = new TParameter<int>("altroResult",altroResult);
+   resultArray->Add(status);
+ }
+
 
   // Central Electrode processing
 
-  if( runType == kPhysicsRunType || runType == kStandAloneRunType || 
-      runType == kDaqRunType ) {    
+  if( runType == kPhysicsRunType || 
+      runType == kLaserRunType ) {    
 
-//   if (true) {                 // do CE processing for all run types
     Int_t numSources = 1;
     Int_t ceSource[2] = {AliShuttleInterface::kDAQ,AliShuttleInterface::kHLT} ;
     TString source = fConfEnv->GetValue("CE","DAQ");
@@ -316,16 +392,45 @@ UInt_t AliTPCPreprocessor::Process(TMap* dcsAliasMap)
        ceResult = ExtractCE(ceSource[i]);
        if ( ceResult == 0 ) break;
      }
-     result += ceResult;
+
+   // only flag error if CE result is missing from LASER runs
+   //    -- for PHYSICS run do CE processing if data available
+   
+     if ( runType == kLaserRunType ) result += ceResult;
      status = new TParameter<int>("ceResult",ceResult);
      resultArray->Add(status);
+
+    numSources = 1;
+    Int_t qaSource[2] = {AliShuttleInterface::kDAQ,AliShuttleInterface::kHLT} ;
+    source = fConfEnv->GetValue("QA","DAQ");
+    source.ToUpper();
+    if ( source != "OFF" ) { 
+     if ( source == "HLT") qaSource[0] = AliShuttleInterface::kHLT;
+     if (!GetHLTStatus()) qaSource[0] = AliShuttleInterface::kDAQ;
+     if (source == "HLTDAQ" ) {
+        numSources=2;
+       qaSource[0] = AliShuttleInterface::kHLT;
+       qaSource[1] = AliShuttleInterface::kDAQ;
+     }
+     if (source == "DAQHLT" ) numSources=2;
+     UInt_t qaResult=0;
+     for (Int_t i=0; i<numSources; i++ ) {     
+       qaResult = ExtractQA(qaSource[i]);
+       if ( qaResult == 0 ) break;
+     }
+//     result += qaResult;
+     if ( qaResult !=0 ) Log ("ExtractQA failed, no QA entry available.");
+     status = new TParameter<int>("qaResult",qaResult);
+     resultArray->Add(status);
     }
+   }
   }
   
   if (errorHandling == "OFF" ) {
     AliCDBMetaData metaData;
     metaData.SetBeamPeriod(0);
     metaData.SetResponsible("Haavard Helstrup");
+    metaData.SetAliRootVersion(ALIROOT_SVN_BRANCH);
     metaData.SetComment("Preprocessor AliTPC status.");
     Store("Calib", "PreprocStatus", resultArray, &metaData, 0, kFALSE);
     resultArray->Delete();
@@ -362,6 +467,7 @@ UInt_t AliTPCPreprocessor::MapTemperature(TMap* dcsAliasMap)
         AliCDBMetaData metaData;
        metaData.SetBeamPeriod(0);
        metaData.SetResponsible("Haavard Helstrup");
+       metaData.SetAliRootVersion(ALIROOT_SVN_BRANCH);
        metaData.SetComment("Preprocessor AliTPC data base entries.");
 
        Bool_t storeOK = Store("Calib", "Temperature", fTemp, &metaData, 0, kFALSE);
@@ -396,18 +502,58 @@ UInt_t AliTPCPreprocessor::MapHighVoltage(TMap* dcsAliasMap)
   }
   delete map;
 
-  TMap *map2 = fHighVoltageStat->ExtractDCS(dcsAliasMap);
-  if (map2) {
-    fHighVoltageStat->StoreGraph(map2);
+  TString hvStatConf = fConfEnv->GetValue("HighVoltageStat","ON");
+  hvStatConf.ToUpper();
+  if (hvStatConf != "OFF" ) { 
+    TMap *map2 = fHighVoltageStat->ExtractDCS(dcsAliasMap);
+    if (map2) {
+      fHighVoltageStat->ClearFit();
+      fHighVoltageStat->SetGraph(map2);
+    } else {
+       Log("No high voltage status recordings extracted. \n");
+      result=9;
+    }
+    delete map2;
+
+    // add status maps to high voltage sensor array
+
+    fHighVoltage->AddSensors(fHighVoltageStat);
+   }
+  // Now store the final CDB file
+
+  if ( result == 0 ) {
+        AliCDBMetaData metaData;
+       metaData.SetBeamPeriod(0);
+       metaData.SetResponsible("Haavard Helstrup");
+       metaData.SetAliRootVersion(ALIROOT_SVN_BRANCH);
+       metaData.SetComment("Preprocessor AliTPC data base entries.");
+
+       Bool_t storeOK = Store("Calib", "HighVoltage", fHighVoltage, &metaData, 0, kFALSE);
+        if ( !storeOK )  result=1;
+
+   }
+
+   return result;
+
+}
+
+//______________________________________________________________________________________________
+UInt_t AliTPCPreprocessor::MapGoofie(TMap* dcsAliasMap)
+{
+
+   // extract DCS Goofie maps. Do not perform fits (low update rate)
+
+  UInt_t result=0;
+
+  TMap *map = fGoofie->ExtractDCS(dcsAliasMap);
+  if (map) {
+    fGoofie->ClearFit();
+    fGoofie->SetGraph(map);
   } else {
-    Log("No high voltage status recordings extracted. \n");
+    Log("No Goofie recordings extracted. \n");
     result=9;
   }
-  delete map2;
-
-  // add status maps to high voltage sensor array
-
-  fHighVoltage->AddSensors(fHighVoltageStat);
+  delete map;
 
   // Now store the final CDB file
 
@@ -415,9 +561,10 @@ UInt_t AliTPCPreprocessor::MapHighVoltage(TMap* dcsAliasMap)
         AliCDBMetaData metaData;
        metaData.SetBeamPeriod(0);
        metaData.SetResponsible("Haavard Helstrup");
+        metaData.SetAliRootVersion(ALIROOT_SVN_BRANCH);
        metaData.SetComment("Preprocessor AliTPC data base entries.");
 
-       Bool_t storeOK = Store("Calib", "HighVoltage", fHighVoltage, &metaData, 0, kFALSE);
+       Bool_t storeOK = Store("Calib", "Goofie", fGoofie, &metaData, 0, kFALSE);
         if ( !storeOK )  result=1;
 
    }
@@ -491,9 +638,8 @@ UInt_t AliTPCPreprocessor::ExtractPedestals(Int_t sourceFXS)
            AliTPCCalROC *rocRMS=calPed->GetCalRocRMS(sector, kFALSE);
            if ( rocRMS )  calPadRMS->SetCalROC(rocRMS,sector);
         }
-
-        f->Close();
         delete calPed; 
+        f->Close();
       }
      ++index;
     }  // while(list)
@@ -504,6 +650,7 @@ UInt_t AliTPCPreprocessor::ExtractPedestals(Int_t sourceFXS)
      AliCDBMetaData metaData;
      metaData.SetBeamPeriod(0);
      metaData.SetResponsible("Haavard Helstrup");
+     metaData.SetAliRootVersion(ALIROOT_SVN_BRANCH);
      metaData.SetComment("Preprocessor AliTPC data base entries."); 
  
      Bool_t storeOK = Store("Calib", "Pedestals", calPadPed, &metaData, 0, kTRUE);
@@ -597,8 +744,8 @@ UInt_t AliTPCPreprocessor::ExtractPulser(Int_t sourceFXS)
            AliTPCCalROC *rocQmean=calPulser->GetCalRocQ(sector);
            if ( rocQmean )  pulserQmean->SetCalROC(rocQmean,sector);
         }
-       f->Close();
        delete calPulser;
+       f->Close();
       }
      ++index;
     }  // while(list)
@@ -609,6 +756,7 @@ UInt_t AliTPCPreprocessor::ExtractPulser(Int_t sourceFXS)
      AliCDBMetaData metaData;
      metaData.SetBeamPeriod(0);
      metaData.SetResponsible("Haavard Helstrup");
+     metaData.SetAliRootVersion(ALIROOT_SVN_BRANCH);
      metaData.SetComment("Preprocessor AliTPC data base entries.");
 
      Bool_t storeOK = Store("Calib", "Pulser", pulserObjects, &metaData, 0, kTRUE);
@@ -622,58 +770,103 @@ UInt_t AliTPCPreprocessor::ExtractPulser(Int_t sourceFXS)
   return result;
 }
 
+//______________________________________________________________________________________________
+
+
+UInt_t AliTPCPreprocessor::ExtractRaw(Int_t sourceFXS)
+{
+ //
+ //  Read Raw calibration file from file exchage server
+ //
+ UInt_t result=0;
+ TObjArray* rawArray = new TObjArray;
+
+ TList* list = GetFileSources(sourceFXS,"tpcCalibRaw");
+ if (list && list->GetEntries()>0) {
+
+//  loop through all files
+
+    UInt_t index = 0;
+    while (list->At(index)!=NULL) {
+     TObjString* fileNameEntry = (TObjString*) list->At(index);
+     if (fileNameEntry!=NULL) {
+        TString fileName = GetFile(sourceFXS, "tpcCalibRaw",
+                                        fileNameEntry->GetString().Data());
+        TFile *f = TFile::Open(fileName);
+        if (!f) {
+         Log ("Error opening raw file.");
+         result =2;
+         break;
+       }
+        AliTPCCalibRaw *calRaw;
+       f->GetObject("tpcCalibRaw",calRaw);
+        if ( !calRaw ) {
+         Log ("No raw calibration object in file.");
+         result = 2;
+         break;
+       }
+       rawArray->Add(calRaw);
+       delete calRaw;
+       f->Close();
+      }
+     ++index;
+    }  // while(list)
+//
+//  Store updated pedestal entry to OCDB
+//
+     AliCDBMetaData metaData;
+     metaData.SetBeamPeriod(0);
+     metaData.SetResponsible("Haavard Helstrup");
+     metaData.SetAliRootVersion(ALIROOT_SVN_BRANCH);
+     metaData.SetComment("Preprocessor AliTPC data base entries.");
+
+     Bool_t storeOK = Store("Calib", "Raw", rawArray, &metaData, 0, kTRUE);
+     if ( !storeOK ) ++result;
+  } else {
+    Log ("Error: no entries in input file list!");
+    result = 1;
+  }
+
+  return result;
+}
+//______________________________________________________________________________________________
+
 UInt_t AliTPCPreprocessor::ExtractCE(Int_t sourceFXS)
 {
  //
  //  Read Central Electrode file from file exchage server
- //  Keep original entry from OCDB in case no new CE calibration is available
+ //  
  //
- TObjArray    *ceObjects=0;
  AliTPCCalPad *ceTmean=0;
  AliTPCCalPad *ceTrms=0;
  AliTPCCalPad *ceQmean=0;
  TObjArray    *rocTtime=0;  
  TObjArray    *rocQtime=0;  
 
- AliCDBEntry* entry = GetFromOCDB("Calib", "CE");
- if (entry) ceObjects = (TObjArray*)entry->GetObject();
- if ( ceObjects==NULL ) {
-     Log("AliTPCPreprocsessor: No previous TPC central electrode entry available.\n");
-     ceObjects = new TObjArray;    
- }
+ TObjArray    *ceObjects= new TObjArray;
+  
 
  Int_t nSectors = fROC->GetNSectors();
 
- ceTmean = (AliTPCCalPad*)ceObjects->FindObject("CETmean");
- if ( !ceTmean ) {
-    ceTmean = new AliTPCCalPad("CETmean","CETmean");
-    ceObjects->Add(ceTmean);
- }
- ceTrms = (AliTPCCalPad*)ceObjects->FindObject("CETrms");
- if ( !ceTrms )  { 
-    ceTrms = new AliTPCCalPad("CETrms","CETrms");
-    ceObjects->Add(ceTrms);
- }
- ceQmean = (AliTPCCalPad*)ceObjects->FindObject("CEQmean");
- if ( !ceQmean )  { 
-    ceQmean = new AliTPCCalPad("CEQmean","CEQmean");
-    ceObjects->Add(ceQmean);
- }
- //!new from here please have a look!!!
- rocTtime = (TObjArray*)ceObjects->FindObject("rocTtime");
- if ( !rocTtime ) {
-     rocTtime = new TObjArray(nSectors);
-     rocTtime->SetName("rocTtime");
-     ceObjects->Add(rocTtime);
- }
- rocQtime = (TObjArray*)ceObjects->FindObject("rocQtime");
- if ( !rocQtime ) {
-     rocQtime = new TObjArray(nSectors);
-     rocQtime->SetName("rocQtime");
-     ceObjects->Add(rocQtime);
- }
+ ceTmean = new AliTPCCalPad("CETmean","CETmean");
+ ceObjects->Add(ceTmean);
 
+ ceTrms = new AliTPCCalPad("CETrms","CETrms");
+ ceObjects->Add(ceTrms);
+
+ ceQmean = new AliTPCCalPad("CEQmean","CEQmean");
+ ceObjects->Add(ceQmean);
+ rocTtime = new TObjArray(nSectors+2);   // also make room for A and C side average
+ rocTtime->SetName("rocTtime");
+ ceObjects->Add(rocTtime);
+ rocQtime = new TObjArray(nSectors);
+ rocQtime->SetName("rocQtime");
+ ceObjects->Add(rocQtime);
 
  UInt_t result=0;
 
@@ -698,6 +891,11 @@ UInt_t AliTPCPreprocessor::ExtractCE(Int_t sourceFXS)
         AliTPCCalibCE *calCE;
        f->GetObject("tpcCalibCE",calCE);
 
+        if (!calCE) {
+         Log ("No valid calibCE object.");
+         result=2;
+         break;
+       }
         //  replace entries for the sectors available in the present file
 
         for (Int_t sector=0; sector<nSectors; sector++) {
@@ -712,8 +910,15 @@ UInt_t AliTPCPreprocessor::ExtractCE(Int_t sourceFXS)
           TGraph *grQ=calCE->MakeGraphTimeCE(sector,0,3); // Q time graph
            if ( grQ ) rocTtime->AddAt(grQ,sector);         
         }
-       f->Close();
+
+       TGraph *grT=calCE->MakeGraphTimeCE(-1,0,2); // A side average
+       if ( grT ) rocTtime->AddAt(grT,nSectors);         
+       grT=calCE->MakeGraphTimeCE(-2,0,2); // C side average
+       if ( grT ) rocTtime->AddAt(grT,nSectors+1);         
+
+
        delete calCE;
+       f->Close();
       }
      ++index;
     }  // while(list)
@@ -723,6 +928,7 @@ UInt_t AliTPCPreprocessor::ExtractCE(Int_t sourceFXS)
     AliCDBMetaData metaData;
     metaData.SetBeamPeriod(0);
     metaData.SetResponsible("Haavard Helstrup");
+    metaData.SetAliRootVersion(ALIROOT_SVN_BRANCH);
     metaData.SetComment("Preprocessor AliTPC data base entries.");
 
     Bool_t storeOK = Store("Calib", "CE", ceObjects, &metaData, 0, kTRUE);
@@ -735,3 +941,203 @@ UInt_t AliTPCPreprocessor::ExtractCE(Int_t sourceFXS)
 
   return result;
 }
+//______________________________________________________________________________________________
+
+UInt_t AliTPCPreprocessor::ExtractQA(Int_t sourceFXS)
+{
+ //
+ //  Read Quality Assurance file from file exchage server
+ //
+ UInt_t result=0;
+
+ TList* list = GetFileSources(sourceFXS,"QA");
+ if (list && list->GetEntries()>0) {
+
+//  only one QA objetc should be available!
+
+    AliTPCdataQA *calQA;
+
+    UInt_t nentries = list->GetEntries();  
+    UInt_t index=0;
+    if ( nentries > 1) Log ( "More than one QA entry. First one processed");      
+    TObjString* fileNameEntry = (TObjString*) list->At(index);
+    if (fileNameEntry!=NULL) {
+        TString fileName = GetFile(sourceFXS, "QA",
+                                        fileNameEntry->GetString().Data());
+        TFile *f = TFile::Open(fileName);
+        if (!f) {
+         Log ("Error opening QA file.");
+         result =2;          
+       } else {
+         f->GetObject("tpcCalibQA",calQA);
+          if ( calQA ) {      
+//
+//  Store updated pedestal entry to OCDB
+//
+           AliCDBMetaData metaData;
+           metaData.SetBeamPeriod(0);
+           metaData.SetResponsible("Haavard Helstrup");
+          metaData.SetAliRootVersion(ALIROOT_SVN_BRANCH);
+           metaData.SetComment("Preprocessor AliTPC data base entries.");
+
+           Bool_t storeOK = Store("Calib", "QA", calQA, &metaData, 0, kTRUE);
+           if ( !storeOK ) ++result;
+         }
+        }
+    } else {
+    Log ("Error: no QA files on FXS!");
+    result = 2;
+    }
+  } else {
+    Log ("Error: no QA entries in FXS list!");
+    result = 1;
+  }
+  return result;
+}
+
+//______________________________________________________________________________________________
+
+
+UInt_t AliTPCPreprocessor::ExtractAltro(Int_t sourceFXS)
+{
+ //
+ //  Read pulser calibration file from file exchage server
+ //  Keep original entry from OCDB in case no new pulser calibration is available
+ //
+ TObjArray    *altroObjects=0;
+ AliTPCCalPad *acqStart=0;
+ AliTPCCalPad *zsThr=0;
+ AliTPCCalPad *acqStop=0;
+ AliTPCCalPad *FPED=0;
+ AliTPCCalPad *masked=0;
+
+ AliCDBEntry* entry = GetFromOCDB("Calib", "Altro");
+ if (entry) altroObjects = (TObjArray*)entry->GetObject();
+ if ( altroObjects==NULL ) {
+     Log("AliTPCPreprocsessor: No previous TPC altro calibration entry available.\n");
+     altroObjects = new TObjArray;    
+ }
+
+ acqStart = (AliTPCCalPad*)altroObjects->FindObject("AcqStart");
+ if ( !acqStart ) {
+    acqStart = new AliTPCCalPad("AcqStart","AcqStart");
+    altroObjects->Add(acqStart);
+ }
+ zsThr = (AliTPCCalPad*)altroObjects->FindObject("ZsThr");
+ if ( !zsThr )  { 
+    zsThr = new AliTPCCalPad("ZsThr","ZsThr");
+    altroObjects->Add(zsThr);
+ }
+ FPED = (AliTPCCalPad*)altroObjects->FindObject("FPED");
+ if ( !FPED )  { 
+    FPED = new AliTPCCalPad("FPED","FPED");
+    altroObjects->Add(FPED);
+ }
+ acqStop = (AliTPCCalPad*)altroObjects->FindObject("AcqStop");
+ if ( !acqStop ) {
+    acqStop = new AliTPCCalPad("AcqStop","AcqStop");
+    altroObjects->Add(acqStop);
+ }
+ masked = (AliTPCCalPad*)altroObjects->FindObject("Masked");
+ if ( !masked )  { 
+    masked = new AliTPCCalPad("Masked","Masked");
+    altroObjects->Add(masked);
+ }
+
+
+
+ UInt_t result=0;
+ TString idFXS[2]={"AltroConfigA","AltroConfigC"};
+
+ Int_t nSectors = fROC->GetNSectors();
+ Bool_t changed=false;
+ for ( Int_t id=0; id<2; id++) {
+   TList* list = GetFileSources(sourceFXS,idFXS[id].Data());
+   if (list && list->GetEntries()>0) {
+      if (altroObjects == 0 ) altroObjects = new TObjArray;
+
+//  loop through all files from LDCs
+
+    UInt_t index = 0;
+    while (list->At(index)!=NULL) {
+     TObjString* fileNameEntry = (TObjString*) list->At(index);
+     if (fileNameEntry!=NULL) {
+        TString fileName = GetFile(sourceFXS, idFXS[id].Data(),
+                                        fileNameEntry->GetString().Data());
+        TFile *f = TFile::Open(fileName);
+        if (!f) {
+          char message[40];
+         sprintf(message,"Error opening Altro configuration file, id = %d",id);
+         Log (message);
+         result =2;
+         break;
+       }
+        TObjArray *altroFXS;
+       f->GetObject("AltroConfig",altroFXS);
+        if ( !altroFXS ) {
+         Log ("No Altro configuration object in file.");
+         result = 2;
+         break;
+       }
+
+        //  replace entries for the sectors available in the present file
+        AliTPCCalPad *acqStartFXS=(AliTPCCalPad*)altroFXS->FindObject("AcqStart");
+        AliTPCCalPad *zsThrFXS=(AliTPCCalPad*)altroFXS->FindObject("ZsThr");
+        AliTPCCalPad *acqStopFXS=(AliTPCCalPad*)altroFXS->FindObject("AcqStop");
+        AliTPCCalPad *FPEDFXS=(AliTPCCalPad*)altroFXS->FindObject("FPED");
+        AliTPCCalPad *maskedFXS=(AliTPCCalPad*)altroFXS->FindObject("Masked");
+
+        changed=true;
+        for (Int_t sector=0; sector<nSectors; sector++) {
+            
+           if (acqStartFXS) {
+             AliTPCCalROC *rocAcqStart=acqStartFXS->GetCalROC(sector);
+              if ( rocAcqStart )  acqStart->SetCalROC(rocAcqStart,sector);
+          }
+          if (zsThrFXS ) {
+              AliTPCCalROC *rocZsThr=zsThrFXS->GetCalROC(sector);
+              if ( rocZsThr )  zsThr->SetCalROC(rocZsThr,sector);
+          }
+          if (acqStopFXS) {
+              AliTPCCalROC *rocAcqStop=acqStopFXS->GetCalROC(sector);
+              if ( rocAcqStop )  acqStop->SetCalROC(rocAcqStop,sector);
+          }
+          if (FPEDFXS ) {
+              AliTPCCalROC *rocFPED=FPEDFXS->GetCalROC(sector);
+              if ( rocFPED )  FPED->SetCalROC(rocFPED,sector);
+          }
+          if (maskedFXS) {
+              AliTPCCalROC *rocMasked=maskedFXS->GetCalROC(sector);
+              if ( rocMasked )  masked->SetCalROC(rocMasked,sector);
+          }
+        }
+       delete altroFXS;
+       f->Close();
+      }
+     ++index;
+     }  // while(list)
+    } else {
+      Log ("Error: no entries in input file list!");
+      result = 1;
+    }
+
+   }   // for - id
+//
+//  Store updated pedestal entry to OCDB
+//
+    if (changed) {
+     AliCDBMetaData metaData;
+     metaData.SetBeamPeriod(0);
+     metaData.SetResponsible("Haavard Helstrup");
+     metaData.SetAliRootVersion(ALIROOT_SVN_BRANCH);
+     metaData.SetComment("Preprocessor AliTPC data base entries.");
+
+     Bool_t storeOK = Store("Calib", "AltroConfig", altroObjects, &metaData, 0, kTRUE);
+     if ( !storeOK ) ++result;
+    }  
+
+  return result;
+}