]> git.uio.no Git - u/mrichter/AliRoot.git/blobdiff - TPC/AliTPCPreprocessor.cxx
Assign track label pi to the raw digits, to be consitent with other detectors.
[u/mrichter/AliRoot.git] / TPC / AliTPCPreprocessor.cxx
index 0fad5e53c9f8661a5cfaed3aeecbe56bad6468c7..501ed83575b9a1acf18347c3ade0961c0159de7b 100644 (file)
 
 
 #include "AliTPCPreprocessor.h"
+#include "AliShuttleInterface.h"
 
 #include "AliCDBMetaData.h"
 #include "AliDCSValue.h"
 #include "AliLog.h"
 #include "AliTPCSensorTempArray.h"
+#include "AliTPCROC.h"
+#include "AliTPCCalROC.h"
+#include "AliTPCCalPad.h"
+#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" 
+#include "TEnv.h"
+#include "TParameter.h"
 
 #include <TTimeStamp.h>
 
-const char kFname[]="$ALICE_ROOT/TPC";
-const char kAmandaStringTemp[] = "tpc_PT_%d.Temperature";
+const Int_t kValCutTemp = 100;               // discard temperatures > 100 degrees
+const Int_t kDiffCutTemp = 5;               // discard temperature differences > 5 degrees
+const Double_t kHighVoltageDifference = 1e-4; // don't record High Voltage points 
+                                             // differing by less than 1e-4 from
+                                            // previous point.
+const TString kPedestalRunType = "PEDESTAL";  // pedestal run identifier
+const TString kPulserRunType = "PULSER";     // pulser run identifier
+const TString kPhysicsRunType = "PHYSICS";   // physics 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 TString kAmandaDDL = "DDL%d";   // Amanda string for list of active DDLs
+const Int_t  kNumDDL = 216;           // number of TPC DDLs
+const Int_t  kFirstDDL = 768;         // identifier of first DDL
+//const Double_t kFitFraction = 0.7;                 // Fraction of DCS sensor fits required              
+const Double_t kFitFraction = -1.0;          // Don't require minimum number of fits in commissioning run 
+const Int_t   kNumPressureSensors = 3;    // number of pressure sensors
+const char* kPressureSensorNames[kNumPressureSensors] = {
+                   "CavernAtmosPressure",
+                   "CavernAtmosPressure2",
+                   "SurfaceAtmosPressure" };
+const Int_t  kMinCESectors = 32;      // minimum number of sectors (per side)
+                                      // to accept CE calibration
+      
 
 //
 // This class is the SHUTTLE preprocessor for the TPC detector.
-// It contains several components, this far the part containing 
-// temperatures is implemented
 //
 
 ClassImp(AliTPCPreprocessor)
 
 //______________________________________________________________________________________________
-AliTPCPreprocessor::AliTPCPreprocessor(const char* detector, AliShuttleInterface* shuttle) :
-  AliPreprocessor(detector, shuttle),
-  fTemp(0)
+AliTPCPreprocessor::AliTPCPreprocessor(AliShuttleInterface* shuttle) :
+  AliPreprocessor("TPC",shuttle),
+  fConfEnv(0), fTemp(0), fHighVoltage(0), fHighVoltageStat(0), fGoofie(0),
+  fPressure(0), fConfigOK(kTRUE), fROC(0)
 {
   // constructor
+  fROC = AliTPCROC::Instance();
+
+  // define run types to be processed
+  
+  AddRunType(kPedestalRunType);
+  AddRunType(kPulserRunType);
+  AddRunType(kPhysicsRunType);
+  AddRunType(kCosmicRunType);
+  AddRunType(kLaserRunType);
+  AddRunType(kDaqRunType);
+  
 }
 //______________________________________________________________________________________________
-// AliTPCPreprocessor::AliTPCPreprocessor(const AliTPCPreprocessor& org) :
-//   AliPreprocessor(org),
-//   fTemp(0)
-// {
-//   // copy constructor not implemented
-//   //   -- missing underlying copy constructor in AliPreprocessor 
-// 
-//   Fatal("AliTPCPreprocessor", "copy constructor not implemented");
-//   
-// //  fTemp = new AliTPCSensorTempArray(*(org.fTemp)); 
-// }
+ AliTPCPreprocessor::AliTPCPreprocessor(const AliTPCPreprocessor&  ) :
+   AliPreprocessor("TPC",0),
+   fConfEnv(0), fTemp(0), fHighVoltage(0), fHighVoltageStat(0), fGoofie(0),
+   fPressure(0), fConfigOK(kTRUE), fROC(0)
+ {
+
+   Fatal("AliTPCPreprocessor", "copy constructor not implemented");
+//
+// //  fTemp = new AliTPCSensorTempArray(*(org.fTemp));
+ }
 
 //______________________________________________________________________________________________
 AliTPCPreprocessor::~AliTPCPreprocessor()
 {
   // destructor
-  
+
   delete fTemp;
+  delete fHighVoltage;
+  delete fHighVoltageStat;
+  delete fGoofie;
+  delete fPressure;
 }
 //______________________________________________________________________________________________
 AliTPCPreprocessor& AliTPCPreprocessor::operator = (const AliTPCPreprocessor& )
@@ -73,16 +124,113 @@ AliTPCPreprocessor& AliTPCPreprocessor::operator = (const AliTPCPreprocessor& )
 void AliTPCPreprocessor::Initialize(Int_t run, UInt_t startTime,
        UInt_t endTime)
 {
-  // Creates AliTestDataDCS object
 
   AliPreprocessor::Initialize(run, startTime, endTime);
 
        AliInfo(Form("\n\tRun %d \n\tStartTime %s \n\tEndTime %s", run,
-               TTimeStamp(startTime).AsString(),
-               TTimeStamp(endTime).AsString()));
+               TTimeStamp((time_t)startTime,0).AsString(),
+               TTimeStamp((time_t)endTime,0).AsString()));
+
+  // Preprocessor configuration
+
+       AliCDBEntry* entry = GetFromOCDB("Config", "Preprocessor");
+        if (entry) fConfEnv = (TEnv*) entry->GetObject();
+        if ( fConfEnv==0 ) {
+           Log("AliTPCPreprocsessor: Preprocessor Config OCDB entry missing.\n");
+          fConfigOK = kFALSE;
+           return;
+        }
 
-        fTemp = new AliTPCSensorTempArray(fStartTime, fEndTime, kFname);
-        fTemp->SetAmandaString(kAmandaStringTemp);
+  // Temperature sensors
+
+       TTree *confTree = 0;
+
+       TString tempConf = fConfEnv->GetValue("Temperature","ON");
+       tempConf.ToUpper();
+       if (tempConf != "OFF" ) {
+       entry = GetFromOCDB("Config", "Temperature");
+        if (entry) confTree = (TTree*) entry->GetObject();
+        if ( confTree==0 ) {
+           Log("AliTPCPreprocsessor: Temperature Config OCDB entry missing.\n");
+          fConfigOK = kFALSE;
+          return;
+        }
+        fTemp = new AliTPCSensorTempArray(startTime, endTime, confTree, kAmandaTemp);
+       fTemp->SetValCut(kValCutTemp);
+       fTemp->SetDiffCut(kDiffCutTemp);
+       }
+
+  // High voltage measurements
+
+      TString hvConf = fConfEnv->GetValue("HighVoltage","ON");
+      hvConf.ToUpper();
+      if (hvConf != "OFF" ) { 
+        confTree=0;
+        entry=0;
+        entry = GetFromOCDB("Config", "HighVoltage");
+        if (entry) confTree = (TTree*) entry->GetObject();
+        if ( confTree==0 ) {
+           Log("AliTPCPreprocsessor: High Voltage Config OCDB entry missing.\n");
+           fConfigOK = kFALSE;
+           return;
+        }
+        time_t timeStart = (time_t)(((TString)GetRunParameter("DAQ_time_start")).Atoi());
+       time_t timeEnd = (time_t)(((TString)GetRunParameter("DAQ_time_end")).Atoi());
+        fHighVoltage = new AliDCSSensorArray (UInt_t(timeStart), 
+                                           UInt_t(timeEnd), confTree);
+      }
+
+   // High voltage status values
+     
+      TString hvStatConf = fConfEnv->GetValue("HighVoltageStat","ON");
+      hvStatConf.ToUpper();
+      if (hvStatConf != "OFF" ) { 
+        confTree=0;
+        entry=0;
+        entry = GetFromOCDB("Config", "HighVoltageStat");
+        if (entry) confTree = (TTree*) entry->GetObject();
+        if ( confTree==0 ) {
+           Log("AliTPCPreprocsessor: High Voltage Status Config OCDB entry missing.\n");
+           fConfigOK = kFALSE;
+           return;
+        }
+        fHighVoltageStat = new AliDCSSensorArray(startTime, endTime, 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(startTime, endTime, confTree);
+      }
+
+   // Pressure values
+     
+       TString runType = GetRunType();
+
+       if( runType == kPhysicsRunType || 
+        runType == kLaserRunType ) {    
+       TString pressureConf = fConfEnv->GetValue("Pressure","ON");
+       pressureConf.ToUpper();
+       if (pressureConf != "OFF" ) { 
+         TClonesArray * array = new TClonesArray("AliDCSSensor",kNumPressureSensors); 
+         for(Int_t j = 0; j < kNumPressureSensors; j++) {
+           AliDCSSensor * sens = new ((*array)[j])AliDCSSensor;
+           sens->SetStringID(kPressureSensorNames[j]);
+         }
+         fPressure = new AliDCSSensorArray(startTime, endTime, array);
+       }
+     }
 }
 
 //______________________________________________________________________________________________
@@ -90,25 +238,260 @@ UInt_t AliTPCPreprocessor::Process(TMap* dcsAliasMap)
 {
   // Fills data into TPC calibrations objects
 
-  if (!dcsAliasMap) return 0;
-
   // Amanda servers provide information directly through dcsAliasMap
 
+  
+  if (!fConfigOK) return 9;
+  UInt_t result = 0;
+  TObjArray *resultArray = new TObjArray();
+  TString errorHandling = fConfEnv->GetValue("ErrorHandling","ON");
+  errorHandling.ToUpper();
+  TObject * status;
+
+  UInt_t dcsResult=0;
+  if (!dcsAliasMap) { 
+     dcsResult=1;
+  } else {
+     if (dcsAliasMap->GetEntries() == 0 ) dcsResult=1;
+  }  
+  status = new TParameter<int>("dcsResult",dcsResult);
+  resultArray->Add(status);
+
+
+  TString runType = GetRunType();
+
+  if ( dcsResult == 0 ) {
+
   // Temperature sensors are processed by AliTPCCalTemp
 
-  UInt_t tempResult = MapTemperature(dcsAliasMap);
-  UInt_t result=tempResult;
-  
+    TString tempConf = fConfEnv->GetValue("Temperature","ON");
+    tempConf.ToUpper();
+    if (tempConf != "OFF" ) {
+      UInt_t tempResult = MapTemperature(dcsAliasMap);
+      if ( tempConf != "TRY") result+=tempResult;
+      status = new TParameter<int>("tempResult",tempResult);
+      resultArray->Add(status);
+    }
+
+  // High Voltage recordings
+
+
+    TString hvConf = fConfEnv->GetValue("HighVoltage","ON");
+    hvConf.ToUpper();
+    if (hvConf != "OFF" ) { 
+     UInt_t hvResult = MapHighVoltage(dcsAliasMap);
+     if (hvConf != "TRY") result+=hvResult;
+     status = new TParameter<int>("hvResult",hvResult);
+     resultArray->Add(status);
+    }
+
+    // Goofie values
+
+
+    TString goofieConf = fConfEnv->GetValue("Goofie","ON");
+    goofieConf.ToUpper();
+    if (goofieConf != "OFF" ) { 
+     UInt_t goofieResult = MapGoofie(dcsAliasMap);
+     if (goofieConf != "TRY") result+=goofieResult;
+     status = new TParameter<int>("goofieResult",goofieResult);
+     resultArray->Add(status);
+    }
+
+    // Pressure values
+
+    if( runType == kPhysicsRunType || 
+      runType == kLaserRunType ) {    
+
+      TString pressureConf = fConfEnv->GetValue("Pressure","ON");
+      pressureConf.ToUpper();
+      if (pressureConf != "OFF" ) { 
+       UInt_t pressureResult = MapPressure(dcsAliasMap);
+       status = new TParameter<int>("pressureResult",pressureResult);
+       resultArray->Add(status);
+      }
+    }
+  }
   // Other calibration information will be retrieved through FXS files
-  //  examples: 
+  //  examples:
   //    TList* fileSourcesDAQ = GetFile(AliShuttleInterface::kDAQ, "pedestals");
   //    const char* fileNamePed = GetFile(AliShuttleInterface::kDAQ, "pedestals", "LDC1");
   //
   //    TList* fileSourcesHLT = GetFile(AliShuttleInterface::kHLT, "calib");
   //    const char* fileNameHLT = GetFile(AliShuttleInterface::kHLT, "calib", "LDC1");
 
+  // pedestal entries
 
+  if(runType == kPedestalRunType) {
+    Int_t numSources = 1;
+    Int_t pedestalSource[2] = {AliShuttleInterface::kDAQ,AliShuttleInterface::kHLT} ;
+    TString source = fConfEnv->GetValue("Pedestal","DAQ");
+    source.ToUpper();
+    if (source != "OFF" ) { 
+     if ( source == "HLT") pedestalSource[0] = AliShuttleInterface::kHLT;
+     if (!GetHLTStatus()) pedestalSource[0] = AliShuttleInterface::kDAQ;
+     if (source == "HLTDAQ" ) {
+         numSources=2;
+        pedestalSource[0] = AliShuttleInterface::kHLT;
+        pedestalSource[1] = AliShuttleInterface::kDAQ;
+     }
+     if (source == "DAQHLT" ) numSources=2;
+     UInt_t pedestalResult=0;
+     for (Int_t i=0; i<numSources; i++ ) {     
+       pedestalResult = ExtractPedestals(pedestalSource[i]);
+       if ( pedestalResult == 0 ) break;
+     }
+     result += pedestalResult;
+     status = new TParameter<int>("pedestalResult",pedestalResult);
+     resultArray->Add(status);
+    }
+  }
+
+  // pulser trigger processing
+
+  if(runType == kPulserRunType) {
+    Int_t numSources = 1;
+    Int_t pulserSource[2] = {AliShuttleInterface::kDAQ,AliShuttleInterface::kHLT} ;
+    TString source = fConfEnv->GetValue("Pulser","DAQ");
+    source.ToUpper();
+    if ( source != "OFF") { 
+     if ( source == "HLT") pulserSource[0] = AliShuttleInterface::kHLT;
+     if (!GetHLTStatus()) pulserSource[0] = AliShuttleInterface::kDAQ;
+     if (source == "HLTDAQ" ) {
+         numSources=2;
+        pulserSource[0] = AliShuttleInterface::kHLT;
+        pulserSource[1] = AliShuttleInterface::kDAQ;
+     }
+     if (source == "DAQHLT" ) numSources=2;
+     if (source == "TRY" ) numSources=2;
+     UInt_t pulserResult=0;
+     for (Int_t i=0; i<numSources; i++ ) {     
+       pulserResult = ExtractPulser(pulserSource[i]);
+       if ( pulserResult == 0 ) break;
+     }
+     if (source != "TRY") result += pulserResult;
+     status = new TParameter<int>("pulserResult",pulserResult);
+     resultArray->Add(status);
+    }
+  }
+
+
+// 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;
+     if (source == "TRY" ) numSources=2;
+     UInt_t rawResult=0;
+     for (Int_t i=0; i<numSources; i++ ) {     
+       rawResult = ExtractRaw(rawSource[i]);
+       if ( rawResult == 0 ) break;
+     }
+     if (source != "TRY" )result += rawResult;
+     status = new TParameter<int>("rawResult",rawResult);
+     resultArray->Add(status);
+    }
+  }
+
+
+  // Altro configuration
+
+
+  TString altroConf = fConfEnv->GetValue("AltroConf","ON");
+  altroConf.ToUpper();
+  if (altroConf != "OFF" ) { 
+   UInt_t altroResult = ExtractAltro(AliShuttleInterface::kDCS,dcsAliasMap);
+   if (altroConf != "TRY" ) result+=altroResult;
+   status = new TParameter<int>("altroResult",altroResult);
+   resultArray->Add(status);
+ }
+
+
+  // Central Electrode processing
+
+  if( runType == kPhysicsRunType || 
+      runType == kLaserRunType ) {    
+
+    Int_t numSources = 1;
+    Int_t ceSource[2] = {AliShuttleInterface::kDAQ,AliShuttleInterface::kHLT} ;
+    TString source = fConfEnv->GetValue("CE","DAQ");
+    source.ToUpper();
+    if ( source != "OFF" ) { 
+     if ( source == "HLT") ceSource[0] = AliShuttleInterface::kHLT;
+     if (!GetHLTStatus()) ceSource[0] = AliShuttleInterface::kDAQ;
+     if (source == "HLTDAQ" ) {
+        numSources=2;
+       ceSource[0] = AliShuttleInterface::kHLT;
+       ceSource[1] = AliShuttleInterface::kDAQ;
+     }
+     if (source == "DAQHLT" ) numSources=2;
+     if (source == "TRY" ) numSources=2;
+     UInt_t ceResult=0;
+     for (Int_t i=0; i<numSources; i++ ) {     
+       ceResult = ExtractCE(ceSource[i]);
+       if ( ceResult == 0 ) break;
+     }
+
+   // only flag error if CE result is missing from LASER runs
+   //    -- for PHYSICS run do CE processing if data available
+   
+     if ( runType == kLaserRunType && source != "TRY"  && ceResult<10 ) 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;
+     if (source == "TRY" ) 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);
+    }
+   }
+  }
+  
+// Store component status to OCDB
+
+  AliCDBMetaData metaData;
+  metaData.SetBeamPeriod(0);
+  metaData.SetResponsible("Haavard Helstrup");
+  metaData.SetAliRootVersion(ALIROOT_SVN_BRANCH);
+  metaData.SetComment("Preprocessor AliTPC status.");
+  Bool_t storeOK = Store("Calib", "PreprocStatus", resultArray, &metaData, 0,  kFALSE);
+  if (!storeOK) Log ("Unable to store preprocessor status entry");
+  resultArray->Delete();
+  delete resultArray;
+
+  if (errorHandling == "OFF" ) return 0;
   return result;
+  
 }
 //______________________________________________________________________________________________
 UInt_t AliTPCPreprocessor::MapTemperature(TMap* dcsAliasMap)
@@ -120,28 +503,1110 @@ UInt_t AliTPCPreprocessor::MapTemperature(TMap* dcsAliasMap)
   TMap *map = fTemp->ExtractDCS(dcsAliasMap);
   if (map) {
     fTemp->MakeSplineFit(map);
-    AliInfo(Form("Temperature values extracted, fits performed.\n"));
+    Double_t fitFraction = 1.0*fTemp->NumFits()/fTemp->NumSensors(); 
+    if (fitFraction > kFitFraction ) {
+      AliInfo(Form("Temperature values extracted, fits performed.\n"));
+    } else { 
+      Log ("Too few temperature maps fitted. \n");
+      result = 9;
+    }
   } else {
-    AliError(Form("No temperature map extracted.\n"));
-    Log("AliTPCPreprocsessor: no temperature map extracted. \n");
+    Log("No temperature map extracted. \n");
     result=9;
   }
   delete map;
   // Now store the final CDB file
-  
-  if ( result == 0 ) { 
+
+  if ( result == 0 ) {
         AliCDBMetaData metaData;
        metaData.SetBeamPeriod(0);
        metaData.SetResponsible("Haavard Helstrup");
+       metaData.SetAliRootVersion(ALIROOT_SVN_BRANCH);
        metaData.SetComment("Preprocessor AliTPC data base entries.");
 
-       result = Store("Calib", "Temperature", fTemp, &metaData, 0, 0);
-        if ( result == 1 ) {                  
-          result = 0;
-       } else {
-         result = 1;
-       }                      // revert to new return code conventions
+       Bool_t storeOK = Store("Calib", "Temperature", fTemp, &metaData, 0, kFALSE);
+        if ( !storeOK )  result=1;
+
+   }
+
+   return result;
+
+}
+//______________________________________________________________________________________________
+UInt_t AliTPCPreprocessor::MapPressure(TMap* dcsAliasMap)
+{
+
+   // extract DCS pressure maps. Perform fits to save space
+
+  UInt_t result=0;
+  TMap *map = fPressure->ExtractDCS(dcsAliasMap);
+  if (map) {
+    fPressure->MakeSplineFit(map);
+    Double_t fitFraction = 1.0*fPressure->NumFits()/fPressure->NumSensors(); 
+    if (fitFraction > kFitFraction ) {
+      AliInfo(Form("Pressure values extracted, fits performed.\n"));
+    } else { 
+      Log ("Too few pressure maps fitted. \n");
+      result = 9;
+    }
+  } else {
+    Log("No pressure map extracted. \n");
+    result=9;
+  }
+  delete map;
+  return result;
+}
+
+//______________________________________________________________________________________________
+UInt_t AliTPCPreprocessor::MapHighVoltage(TMap* dcsAliasMap)
+{
+
+   // extract DCS HV maps. Perform fits to save space
+
+  UInt_t result=0;
+  TMap *map = fHighVoltage->ExtractDCS(dcsAliasMap);
+  if (map) {
+    fHighVoltage->ClearFit();
+    fHighVoltage->RemoveGraphDuplicates(kHighVoltageDifference);
+               // don't keep new point if too similar to previous one
+    fHighVoltage->SetGraph(map);
+  } else {
+    Log("No high voltage recordings extracted. \n");
+    result=9;
+  }
+  delete map;
+
+  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 Goofie recordings extracted. \n");
+    result=9;
+  }
+  delete map;
+
+  // 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", "Goofie", fGoofie, &metaData, 0, kFALSE);
+        if ( !storeOK )  result=1;
+
+   }
+
+   return result;
+
+}
+
+
+//______________________________________________________________________________________________
+
+UInt_t AliTPCPreprocessor::ExtractPedestals(Int_t sourceFXS)
+{
+ //
+ //  Read pedestal file from file exchage server
+ //  Keep original entry from OCDB in case no new pedestals are available
+ //
+ AliTPCCalPad *calPadPedOCDB=0;
+ AliCDBEntry* entry = GetFromOCDB("Calib", "Pedestals");
+ if (entry) calPadPedOCDB = (AliTPCCalPad*)entry->GetObject();
+ if ( calPadPedOCDB==NULL ) {
+     Log("AliTPCPreprocsessor: No previous TPC pedestal entry available.\n");
+ }
+
+ AliTPCCalPad *calPadRMSOCDB=0;
+ entry = GetFromOCDB("Calib", "PadNoise");
+ if (entry) calPadRMSOCDB = (AliTPCCalPad*)entry->GetObject();
+ if ( calPadRMSOCDB==NULL ) {
+     Log("AliTPCPreprocsessor: No previous TPC noise entry available.\n");
+ }
+
+  AliTPCCalPad* calPadPed = new AliTPCCalPad("PedestalsMean","PedestalsMean");
+  AliTPCCalPad* calPadRMS = new AliTPCCalPad("PedestalsRMS","PedestalsRMS");
+
+
+ UInt_t result=0;
+
+ Int_t nSectors = fROC->GetNSectors();
+ TVectorD foundSectorsPed(nSectors);
+ foundSectorsPed=0;
+ TVectorD foundSectorsRMS(nSectors);
+ foundSectorsRMS=0;
+
+ TList* list = GetFileSources(sourceFXS,"pedestals");
+ if (list && list->GetEntries()>0) {
+
+//  loop through all files from LDCs
+
+    Bool_t changed=false;
+    UInt_t index = 0;
+    while (list->At(index)!=NULL) {
+     TObjString* fileNameEntry = (TObjString*) list->At(index);
+     if (fileNameEntry!=NULL) {
+        TString fileName = GetFile(sourceFXS, "pedestals",
+                                        fileNameEntry->GetString().Data());
+        TFile *f = TFile::Open(fileName);
+        if (!f) {
+         Log ("Error opening pedestal file.");
+         result =2;
+         break;
+       }
+        AliTPCCalibPedestal *calPed;
+       f->GetObject("tpcCalibPedestal",calPed);
+        if ( !calPed ) {
+         Log ("No pedestal calibration object in file.");
+         result = 2;
+         break;
+       }
+
+        //  replace entries for the sectors available in the present file
+
+        changed=true;
+        for (Int_t sector=0; sector<nSectors; sector++) {
+           AliTPCCalROC *rocPed=calPed->GetCalRocPedestal(sector, kFALSE);
+           if ( rocPed ) {
+              AliTPCCalROC* roc=calPadPed->GetCalROC(sector);
+              roc->Add(rocPed,1);
+              foundSectorsPed[sector]++;
+          }
+           AliTPCCalROC *rocRMS=calPed->GetCalRocRMS(sector, kFALSE);
+           if ( rocRMS )  {
+               AliTPCCalROC* roc=calPadRMS->GetCalROC(sector);
+              roc->Add(rocRMS,1);
+              foundSectorsRMS[sector]++;
+          } 
+        }
+        delete calPed; 
+        f->Close();
+      }
+     ++index;
+    }  // while(list)
+
+//
+//  Check if calibration is complete -- otherwise take from old OCDB entry
+
+// inner sectors
+    for (Int_t sector=0; sector<nSectors/2; sector++) {
+       if (foundSectorsPed[sector] < 1 ) {
+          if (calPadPedOCDB) {
+            AliTPCCalROC *rocOCDB=calPadPedOCDB->GetCalROC(sector);
+           calPadPed->SetCalROC(rocOCDB,sector);
+         } else {
+           const int mess_length=100;
+            char message[mess_length];
+           snprintf(message,mess_length,"Missing pedestals for sector %d - also not available from previous OCDB entry.\n",
+                    sector);
+           Log (message);
+           result = 2;
+         }
+       }
+       if (foundSectorsRMS[sector] < 1 ) {
+          if (calPadRMSOCDB) {
+            AliTPCCalROC *rocOCDB=calPadRMSOCDB->GetCalROC(sector);
+           calPadRMS->SetCalROC(rocOCDB,sector);
+         } else {
+           const int mess_length=100;
+            char message[mess_length];
+           snprintf(message,mess_length,"Missing pedestal RMS for sector %d - also not available from previous OCDB entry.\n",
+                    sector);
+           Log (message);
+           result = 2;
+         }       
+       }
+    }
+
+// outer sectors -- two updates needed
+
+    for (Int_t sector=nSectors/2; sector<nSectors; sector++) {
+       if (foundSectorsPed[sector] < 2 ) {
+          if (calPadPedOCDB) {
+            AliTPCCalROC *rocOCDB=calPadPedOCDB->GetCalROC(sector);
+           calPadPed->SetCalROC(rocOCDB,sector);
+         } else {
+           const int mess_length=100;
+            char message[mess_length];
+           snprintf(message,mess_length,"Missing pedestals for sector %d - also not available from previous OCDB entry.\n",
+                    sector);
+           Log (message);
+           result = 2;
+         }
+
+       }
+       if (foundSectorsRMS[sector] < 2 ) {
+          if (calPadRMSOCDB) {
+            AliTPCCalROC *rocOCDB=calPadRMSOCDB->GetCalROC(sector);
+           calPadRMS->SetCalROC(rocOCDB,sector);
+         } else {
+           const int mess_length=100;
+            char message[mess_length];
+           snprintf(message,mess_length,"Missing pedestal RMS for sector %d - also not available from previous OCDB entry.\n",
+                    sector);
+           Log (message);
+           result = 2;
+         }       
+
+       }       
+    }
+
+    
+//
+//  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", "Pedestals", calPadPed, &metaData, 0, kTRUE);
+     if ( !storeOK ) ++result;
+     storeOK = Store("Calib", "PadNoise", calPadRMS, &metaData, 0, kTRUE);
+     if ( !storeOK ) ++result;
+    }
+  } else {
+    Log ("Error: no entries in pedestal file list!");
+    result = 1;
+  }
+
+  delete calPadPed;
+  delete calPadRMS;
+  delete calPadPedOCDB;
+  delete calPadRMSOCDB;
+
+  return result;
+}
+
+//______________________________________________________________________________________________
+
+
+UInt_t AliTPCPreprocessor::ExtractPulser(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 *pulserObjects = new TObjArray;
+ TObjArray *pulserObjectsOCDB=0;   
+  
+ AliCDBEntry* entry = GetFromOCDB("Calib", "Pulser");
+ if (entry) pulserObjectsOCDB = (TObjArray*)entry->GetObject();
+ if ( pulserObjectsOCDB==NULL ) {
+     Log("AliTPCPreprocsessor: No previous TPC pulser entry available.\n");
+ }
+
+ AliTPCCalPad *pulserTmean = new AliTPCCalPad("PulserTmean","PulserTmean");
+ pulserObjects->Add(pulserTmean);
+ AliTPCCalPad *pulserTrms = new AliTPCCalPad("PulserTrms","PulserTrms");
+ pulserObjects->Add(pulserTrms);
+ AliTPCCalPad *pulserQmean = new AliTPCCalPad("PulserQmean","PulserQmean");
+ pulserObjects->Add(pulserQmean);
+
+
+ UInt_t result=0;
+
+ Int_t nSectors = fROC->GetNSectors();
+ TVectorD foundTmean(nSectors);
+ foundTmean=0;
+ TVectorD foundTrms(nSectors);
+ foundTrms=0;
+ TVectorD foundQmean(nSectors);
+ foundQmean=0;
+
+
+ TList* list = GetFileSources(sourceFXS,"pulser");
+ if (list && list->GetEntries()>0) {
+
+//  loop through all files from LDCs
+
+    Bool_t changed=false;
+    UInt_t index = 0;
+    while (list->At(index)!=NULL) {
+     TObjString* fileNameEntry = (TObjString*) list->At(index);
+     if (fileNameEntry!=NULL) {
+        TString fileName = GetFile(sourceFXS, "pulser",
+                                        fileNameEntry->GetString().Data());
+        TFile *f = TFile::Open(fileName);
+        if (!f) {
+         Log ("Error opening pulser file.");
+         result =2;
+         break;
+       }
+        AliTPCCalibPulser *calPulser;
+       f->GetObject("tpcCalibPulser",calPulser);
+        if ( !calPulser ) {
+         Log ("No pulser calibration object in file.");
+         result = 2;
+         break;
+       }
+
+        //  replace entries for the sectors available in the present file
+
+        changed=true;
+        for (Int_t sector=0; sector<nSectors; sector++) {
+           AliTPCCalROC *rocTmean=calPulser->GetCalRocT0(sector);
+           if ( rocTmean ) {
+               AliTPCCalROC* roc=pulserTmean->GetCalROC(sector);
+              roc->Add(rocTmean,1);
+              foundTmean[sector]++;
+           }
+           AliTPCCalROC *rocTrms=calPulser->GetCalRocRMS(sector);
+           if ( rocTrms ) {
+               AliTPCCalROC* roc=pulserTrms->GetCalROC(sector);
+              roc->Add(rocTrms,1);
+              foundTrms[sector]++;
+           }
+           AliTPCCalROC *rocQmean=calPulser->GetCalRocQ(sector);
+           if ( rocQmean ) {
+               AliTPCCalROC* roc=pulserQmean->GetCalROC(sector);
+              roc->Add(rocQmean,1);
+              foundQmean[sector]++;
+           }
+        }
+       delete calPulser;
+       f->Close();
+      }
+     ++index;
+    }  // while(list)
+
+
+
+
+if (pulserObjectsOCDB) {
+  AliTPCCalPad* pulserTmeanOCDB = (AliTPCCalPad*)pulserObjectsOCDB->FindObject("PulserTmean");
+  AliTPCCalPad* pulserTrmsOCDB  = (AliTPCCalPad*)pulserObjectsOCDB->FindObject("PulserTrms");
+  AliTPCCalPad* pulserQmeanOCDB = (AliTPCCalPad*)pulserObjectsOCDB->FindObject("PulserQmean");
+//
+//  Check if calibration is complete -- otherwise take from old OCDB entry
+
+// inner sectors
+    for (Int_t sector=0; sector<nSectors/2; sector++) {
+       if (foundTmean[sector] < 1 ) {
+         if (pulserTmeanOCDB) {
+          AliTPCCalROC* rocOCDB = pulserTmeanOCDB->GetCalROC(sector);
+          if ( rocOCDB ) pulserTmean->SetCalROC(rocOCDB,sector);
+         }
+       }
+       if (foundTrms[sector] < 1 ) {
+         if (pulserTrmsOCDB) {
+          AliTPCCalROC* rocOCDB = pulserTrmsOCDB->GetCalROC(sector);
+          if ( rocOCDB ) pulserTrms->SetCalROC(rocOCDB,sector);
+         }
+       }
+       if (foundQmean[sector] < 1 ) {
+         if (pulserQmeanOCDB) {
+          AliTPCCalROC* rocOCDB = pulserQmeanOCDB->GetCalROC(sector);
+          if ( rocOCDB ) pulserQmean->SetCalROC(rocOCDB,sector);
+         }
+       }
+    }
+  
+// outer sectors -- two updates needed
+
+    for (Int_t sector=0; sector<nSectors/2; sector++) {
+       if (foundTmean[sector] < 2 ) {
+         if (pulserTmeanOCDB) {
+          AliTPCCalROC* rocOCDB = pulserTmeanOCDB->GetCalROC(sector);
+          if ( rocOCDB ) pulserTmean->SetCalROC(rocOCDB,sector);
+         }
+       }
+       if (foundTrms[sector] < 2 ) {
+         if (pulserTrmsOCDB) {
+          AliTPCCalROC* rocOCDB = pulserTrmsOCDB->GetCalROC(sector);
+          if ( rocOCDB ) pulserTrms->SetCalROC(rocOCDB,sector);
+         }
+       }
+       if (foundQmean[sector] < 2 ) {
+         if (pulserQmeanOCDB) {
+          AliTPCCalROC* rocOCDB = pulserQmeanOCDB->GetCalROC(sector);
+          if ( rocOCDB ) pulserQmean->SetCalROC(rocOCDB,sector);
+         }
+       }
+
+    }
+}
+
+//
+//  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", "Pulser", pulserObjects, &metaData, 0, kTRUE);
+     if ( !storeOK ) ++result;
+    }  
+  } else {
+    Log ("Error: no entries in pulser file list!");
+    result = 1;
+  }
+  pulserObjects->Delete();
+  delete pulserObjects;
+  if (pulserObjectsOCDB) pulserObjectsOCDB->Delete();
+  delete pulserObjectsOCDB;
+
+  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);
+       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 raw file list!");
+    result = 1;
+  }
+  
+  rawArray->Delete();
+  delete rawArray;
+
+  return result;
+}
+//______________________________________________________________________________________________
+
+UInt_t AliTPCPreprocessor::ExtractCE(Int_t sourceFXS)
+{
+ //
+ //  Read Central Electrode file from file exchage server
+ //
+ //
+  AliTPCCalPad *ceTmean=0;
+  AliTPCCalPad *ceTrms=0;
+  AliTPCCalPad *ceQmean=0;
+  TObjArray    *rocTtime=0;
+  TObjArray    *rocQtime=0;
+  
+  TObjArray    *ceObjects= new TObjArray;
+  
+  
+  Int_t nSectors = fROC->GetNSectors();
+  
+  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);
+
+  //=== new part
+  TObjArray *arrFitGraphs=new TObjArray;
+  arrFitGraphs->SetName("ceFitsDrift");
+  ceObjects->Add(arrFitGraphs);
+  
+// Temperature maps 
+  
+  if (fTemp) {
+    AliTPCSensorTempArray *tempMap = new AliTPCSensorTempArray(*fTemp);
+    tempMap->SetNameTitle("TempMap","TempMap");
+    ceObjects->Add(tempMap);
+  }
+  
+// Pressure maps
+  
+  if (fPressure) {
+    AliDCSSensor *sensor=0, *sensorCopy=0;
+    for (Int_t isensor=0; isensor<kNumPressureSensors; ++isensor ) {
+      sensor = fPressure->GetSensor(kPressureSensorNames[isensor]);
+      if (sensor) {
+        sensorCopy = new AliDCSSensor(*sensor);
+        sensorCopy->SetNameTitle(kPressureSensorNames[isensor],kPressureSensorNames[isensor]);
+        ceObjects->Add(sensorCopy);
+      }
+    }
+  }
+  
+  UInt_t result=0;
+  
+  TList* list = GetFileSources(sourceFXS,"CE");
+  
+  if (list && list->GetEntries()>0) {
+    
+//  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, "CE",
+                                   fileNameEntry->GetString().Data());
+        AliTPCCalibCE *calCE=AliTPCCalibCE::ReadFromFile(fileName.Data());        
+        
+        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++) {
+          AliTPCCalROC *rocTmean=calCE->GetCalRocT0(sector);
+          if ( rocTmean )  ceTmean->SetCalROC(rocTmean,sector);
+          AliTPCCalROC *rocTrms=calCE->GetCalRocRMS(sector);
+          if ( rocTrms )  ceTrms->SetCalROC(rocTrms,sector);
+          AliTPCCalROC *rocQmean=calCE->GetCalRocQ(sector);
+          if ( rocQmean )  ceQmean->SetCalROC(rocQmean,sector);
+          TGraph *grT=calCE->MakeGraphTimeCE(sector,0,2); // T time graph
+          if ( grT ) rocTtime->AddAt(grT,sector);
+          TGraph *grQ=calCE->MakeGraphTimeCE(sector,0,3); // Q time graph
+          if ( grQ ) rocQtime->AddAt(grQ,sector);
+        }
+        
+        TGraph *grT=calCE->MakeGraphTimeCE(-1,0,2); // A side average
+        if ( grT ) {
+          rocTtime->AddAt(grT,nSectors);
+        } else {
+          result=10;
+        }
+        grT=calCE->MakeGraphTimeCE(-2,0,2); // C side average
+        if ( grT ) {
+          rocTtime->AddAt(grT,nSectors+1);
+        } else {
+          result=10;
+        }
+
+        delete calCE;
+      }
+      ++index;
+    }  // while(list)
+//
+//   Check number of calibrated sectors per side
+// 
+    Int_t aside=0, cside=0;
+    for (Int_t ind=0; ind<nSectors/4; ind++ ) {
+        TGraph *grT=(TGraph*)rocTtime->At(ind);
+       if (grT) aside++;
+       grT=(TGraph*)rocTtime->At(ind+nSectors/2);
+       if (grT) aside++;
+       grT=(TGraph*)rocTtime->At(ind+nSectors/4);
+       if (grT) cside++;
+       grT=(TGraph*)rocTtime->At(ind+3*nSectors/4);
+       if (grT) cside++;
+     }
+     if ( (aside<kMinCESectors) && (cside<kMinCESectors) ) {
+        Log (Form("ExtractCE: Too few fitted sectors: Aside =%d, Cside=%d\n",
+            aside, cside)) ;
+       result=10;
+     }
+
+    //
+    //=== New CE part
+    //    if it is validated this part needs to be modified again
+    //    currently its only processed if there is a valid standard CE object
+    //
+    list = GetFileSources(sourceFXS,"CEnew");
+    
+    if (result==0 && list && list->GetEntries()>0) {
+      
+//  loop through all files from LDCs
+      
+      UInt_t index2 = 0;
+      while (list->At(index2)!=NULL) {
+        TObjString* fileNameEntry = (TObjString*) list->At(index2);
+        if (fileNameEntry!=NULL) {
+          TString fileName = GetFile(sourceFXS, "CEnew",
+                                     fileNameEntry->GetString().Data());
+          AliTPCCalibCE *calCE=AliTPCCalibCE::ReadFromFile(fileName.Data());        
+          
+          if (!calCE) {
+            Log ("No valid new calibCE object.");
+//             result=2;
+            break;
+          }
+
+          TIter nextObj(calCE->GetArrFitGraphs());
+          TObject *obj=0x0;
+          while ( (obj=nextObj()) ){
+            arrFitGraphs->Add(obj->Clone());
+          }
+          delete calCE;
+        }
+        ++index2;
+      }
+    }
+    
+//
+//  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.");
+    
+    if ( result == 0 ) {
+      Bool_t storeOK = Store("Calib", "CE", ceObjects, &metaData, 0, kTRUE);
+      if ( !storeOK ) ++result;
+    } else {
+      Log ("Warning: Average time graphs not available - no OCDB entry written");
+    }
+  } else {
+    Log ("Error: no CE entries available from FXS!");
+    result = 1;
+  }
+  
+  ceObjects->Delete();
+  delete ceObjects;
+  
+  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 object 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, kFALSE);
+           if ( !storeOK ) ++result;
+
+           delete calQA;
+         }
+        }
+    } 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, TMap* dcsMap)
+{
+ //
+ //  Read Altro configuration 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;
+ AliTPCCalPad *k1=0, *k2=0, *k3=0;
+ AliTPCCalPad *l1=0, *l2=0, *l3=0;
+ TMap *mapRCUconfig=0;
+
+ AliCDBEntry* entry = GetFromOCDB("Calib", "AltroConfig");
+ 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);
+ }
+ k1 = (AliTPCCalPad*)altroObjects->FindObject("K1");
+ if ( !k1 )  { 
+    k1 = new AliTPCCalPad("K1","K1");
+    altroObjects->Add(k1);
+ }
+ k2 = (AliTPCCalPad*)altroObjects->FindObject("K2");
+ if ( !k2 )  { 
+    k2 = new AliTPCCalPad("K2","K2");
+    altroObjects->Add(k2);
+ }
+ k3 = (AliTPCCalPad*)altroObjects->FindObject("K3");
+ if ( !k3 )  { 
+    k3 = new AliTPCCalPad("K3","K3");
+    altroObjects->Add(k3);
+ }
+ l1 = (AliTPCCalPad*)altroObjects->FindObject("L1");
+ if ( !l1 )  { 
+    l1 = new AliTPCCalPad("L1","L1");
+    altroObjects->Add(l1);
+ }
+ l2 = (AliTPCCalPad*)altroObjects->FindObject("L2");
+ if ( !l2 )  { 
+    l2 = new AliTPCCalPad("L2","L2");
+    altroObjects->Add(l2);
+ }
+ l3 = (AliTPCCalPad*)altroObjects->FindObject("L3");
+ if ( !l3 )  { 
+    l3 = new AliTPCCalPad("L3","L3");
+    altroObjects->Add(l3);
+ }
+ mapRCUconfig = (TMap*)altroObjects->FindObject("RCUconfig");
+ if (!mapRCUconfig) {
+    mapRCUconfig = new TMap();
+    mapRCUconfig->SetName("RCUconfig");
+    altroObjects->Add(mapRCUconfig);
+ }
+
+
+ UInt_t result=0;
+ TString idFXS[2]={"AltroConfigA","AltroConfigC"};
+
+ Int_t nSectors = fROC->GetNSectors();
+ Bool_t changed=false;
+ if (altroObjects == 0 ) altroObjects = new TObjArray;
+
+// extract list of active DDLs
+
+ if (dcsMap) {
+  Bool_t found; 
+  TString arrDDL(kNumDDL);
+  arrDDL.Append('x',kNumDDL);
+  for ( Int_t iDDL = 0; iDDL<kNumDDL; iDDL++ ) {
+    TString stringID = Form (kAmandaDDL.Data(),iDDL+kFirstDDL);
+    TPair *pair = (TPair*)dcsMap->FindObject(stringID.Data());
+    found = false;
+    if ( pair ) {
+        TObjArray *valueSet=(TObjArray*)pair->Value();
+        if ( valueSet) { 
+         AliDCSValue *val = (AliDCSValue*)valueSet->At(0);
+         if (val) { 
+             found = val->GetBool();
+             if (found){
+               arrDDL[iDDL] = '1';
+              } else { 
+               arrDDL[iDDL] = '0';
+              }
+         }    
+       }
+    } 
+  }
+  TObjString *ddlArray = new TObjString;
+  ddlArray->SetString(arrDDL);
+  TMap *activeDDL = new TMap;
+  activeDDL->SetName("DDLArray");
+  TObjString *key = new TObjString("DDLArray");
+  activeDDL->Add(key,ddlArray);
+  altroObjects->Add(activeDDL);
+  changed=true;
+ } else {
+   Log ("ExtractAltro: No DCS map available. Active DDL list cannot be obtained.");
+   result = 3;
+ }        
+
+// extract Altro configuration files
+
+ for ( Int_t id=0; id<2; id++) {
+   TList* list = GetFileSources(sourceFXS,idFXS[id].Data());
+   if (list && list->GetEntries()>0) {
+
+//  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) {
+         const int mess_length=40;
+          char message[mess_length];
+         snprintf(message,mess_length,"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");
+        AliTPCCalPad *k1FXS=(AliTPCCalPad*)altroFXS->FindObject("K1");
+        AliTPCCalPad *k2FXS=(AliTPCCalPad*)altroFXS->FindObject("K2");
+        AliTPCCalPad *k3FXS=(AliTPCCalPad*)altroFXS->FindObject("K3");
+        AliTPCCalPad *l1FXS=(AliTPCCalPad*)altroFXS->FindObject("L1");
+        AliTPCCalPad *l2FXS=(AliTPCCalPad*)altroFXS->FindObject("L2");
+        AliTPCCalPad *l3FXS=(AliTPCCalPad*)altroFXS->FindObject("L3");
+        TMap *mapRCUconfigFXS = (TMap*)altroFXS->FindObject("RCUconfig");
+        TIterator *mapFXSiter = mapRCUconfigFXS->MakeIterator();
+       
+        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);
+          }
+          if (k1FXS) {
+              AliTPCCalROC *rocK1=k1FXS->GetCalROC(sector);
+              if ( rocK1 )  k1->SetCalROC(rocK1,sector);
+          }
+          if (k2FXS) {
+              AliTPCCalROC *rocK2=k2FXS->GetCalROC(sector);
+              if ( rocK2 )  k2->SetCalROC(rocK2,sector);
+          }
+          if (k3FXS) {
+              AliTPCCalROC *rocK3=k3FXS->GetCalROC(sector);
+              if ( rocK3 )  k3->SetCalROC(rocK3,sector);
+          }
+          if (l1FXS) {
+              AliTPCCalROC *rocL1=l1FXS->GetCalROC(sector);
+              if ( rocL1 )  l1->SetCalROC(rocL1,sector);
+          }
+          if (l2FXS) {
+              AliTPCCalROC *rocL2=l2FXS->GetCalROC(sector);
+              if ( rocL2 )  l2->SetCalROC(rocL2,sector);
+          }
+          if (l3FXS) {
+              AliTPCCalROC *rocL3=l3FXS->GetCalROC(sector);
+              if ( rocL3 )  l3->SetCalROC(rocL3,sector);
+          }
+        }
+        if (mapRCUconfigFXS) {
+          Int_t mapEntries = mapRCUconfigFXS->GetEntries();
+          TObjString* keyFXS;
+         TVectorF* vecFXS;
+         TVectorF* vec;              // nSectors = 72  (total number of inner/outer sectors)
+         for (Int_t i=0; i<mapEntries; ++i) {
+           keyFXS=(TObjString*)mapFXSiter->Next();
+            vecFXS=(TVectorF*)mapRCUconfigFXS->GetValue(keyFXS);
+            vec=(TVectorF*)mapRCUconfig->GetValue(keyFXS);
+           if (!vec) {
+             vec = new TVectorF(3*nSectors);
+             *vec = -1;
+             mapRCUconfig->Add(keyFXS,vec);
+           }
+           if (vec->GetNoElements() != 3*nSectors ) {
+             vec->ResizeTo(3*nSectors);
+            }
+           if (id==0) {                        // A side
+             vec->SetSub(0,vecFXS->GetSub(0,nSectors/2-1));
+             vec->SetSub(nSectors,vecFXS->GetSub(nSectors,2*nSectors-1));
+           } else {                             // C side
+             vec->SetSub(nSectors/2,vecFXS->GetSub(nSectors/2,nSectors-1));
+             vec->SetSub(2*nSectors,vecFXS->GetSub(2*nSectors,3*nSectors-1));
+           }
+         }
+        }
+       delete altroFXS;
+       f->Close();
+      }
+     ++index;
+     }  // while(list)
+    } else {
+      Log ("Error: no entries in AltroConfig 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, kFALSE);
+     if ( !storeOK ) ++result;
+    }  
+
+  altroObjects->Delete();
+  delete altroObjects;
+  
+  return result;
 }