TPC/AliTPCPreprocessor.cxx

   1 /**************************************************************************
   2  * Copyright(c) 2007, ALICE Experiment at CERN, All rights reserved.      *
   3  *                                                                        *
   4  * Author: The ALICE Off-line Project.                                    *
   5  * Contributors are mentioned in the code where appropriate.              *
   6  *                                                                        *
   7  * Permission to use, copy, modify and distribute this software and its   *
   8  * documentation strictly for non-commercial purposes is hereby granted   *
   9  * without fee, provided that the above copyright notice appears in all   *
  10  * copies and that both the copyright notice and this permission notice   *
  11  * appear in the supporting documentation. The authors make no claims     *
  12  * about the suitability of this software for any purpose. It is          *
  13  * provided "as is" without express or implied warranty.                  *
  14  **************************************************************************/
  15
  16
  17 #include "AliTPCPreprocessor.h"
  18 #include "AliShuttleInterface.h"
  19
  20 #include "AliCDBMetaData.h"
  21 #include "AliDCSValue.h"
  22 #include "AliLog.h"
  23 #include "AliTPCSensorTempArray.h"
  24 #include "AliTPCROC.h"
  25 #include "AliTPCCalROC.h"
  26 #include "AliTPCCalPad.h"
  27 #include "AliTPCCalibPedestal.h"
  28 #include "AliTPCCalibPulser.h"
  29 #include "AliTPCCalibCE.h"
  30 #include "AliTPCCalibRaw.h"
  31 #include "AliTPCdataQA.h"
  32 #include "ARVersion.h"
  33 #include "TFile.h"
  34 #include "TTree.h"
  35 #include "TGraph.h"
  36 #include "TEnv.h"
  37 #include "TParameter.h"
  38
  39 #include <TTimeStamp.h>
  40
  41 const Int_t kValCutTemp = 100;               // discard temperatures > 100 degrees
  42 const Int_t kDiffCutTemp = 5;                // discard temperature differences > 5 degrees
  43 const Double_t kHighVoltageDifference = 1e-4; // don't record High Voltage points
  44                                              // differing by less than 1e-4 from
  45                                              // previous point.
  46 const TString kPedestalRunType = "PEDESTAL";  // pedestal run identifier
  47 const TString kPulserRunType = "PULSER";     // pulser run identifier
  48 const TString kPhysicsRunType = "PHYSICS";   // physics run identifier
  49 const TString kCosmicRunType = "COSMIC";     // cosmic run identifier
  50 const TString kLaserRunType = "LASER";       // laser run identifier
  51 const TString kDaqRunType = "DAQ"; // DAQ run identifier
  52 const TString kAmandaTemp = "TPC_PT_%d_TEMPERATURE"; // Amanda string for temperature entries
  53 const TString kAmandaDDL = "DDL%d";   // Amanda string for list of active DDLs
  54 const Int_t  kNumDDL = 216;           // number of TPC DDLs
  55 const Int_t  kFirstDDL = 768;         // identifier of first DDL
  56 //const Double_t kFitFraction = 0.7;                 // Fraction of DCS sensor fits required
  57 const Double_t kFitFraction = -1.0;          // Don't require minimum number of fits in commissioning run
  58 const Int_t   kNumPressureSensors = 3;    // number of pressure sensors
  59 const char* kPressureSensorNames[kNumPressureSensors] = {
  60                    "CavernAtmosPressure",
  61                    "CavernAtmosPressure2",
  62                    "SurfaceAtmosPressure" };
  63 const Int_t  kMinCESectors = 32;      // minimum number of sectors (per side)
  64                                       // to accept CE calibration
  65
  66
  67 //
  68 // This class is the SHUTTLE preprocessor for the TPC detector.
  69 //
  70
  71 ClassImp(AliTPCPreprocessor)
  72
  73 //______________________________________________________________________________________________
  74 AliTPCPreprocessor::AliTPCPreprocessor(AliShuttleInterface* shuttle) :
  75   AliPreprocessor("TPC",shuttle),
  76   fConfEnv(0), fTemp(0), fHighVoltage(0), fHighVoltageStat(0), fGoofie(0),
  77   fPressure(0), fConfigOK(kTRUE), fROC(0)
  78 {
  79   // constructor
  80   fROC = AliTPCROC::Instance();
  81
  82   // define run types to be processed
  83
  84   AddRunType(kPedestalRunType);
  85   AddRunType(kPulserRunType);
  86   AddRunType(kPhysicsRunType);
  87   AddRunType(kCosmicRunType);
  88   AddRunType(kLaserRunType);
  89   AddRunType(kDaqRunType);
  90
  91 }
  92 //______________________________________________________________________________________________
  93  AliTPCPreprocessor::AliTPCPreprocessor(const AliTPCPreprocessor&  ) :
  94    AliPreprocessor("TPC",0),
  95    fConfEnv(0), fTemp(0), fHighVoltage(0), fHighVoltageStat(0), fGoofie(0),
  96    fPressure(0), fConfigOK(kTRUE), fROC(0)
  97  {
  98
  99    Fatal("AliTPCPreprocessor", "copy constructor not implemented");
 100 //
 101 // //  fTemp = new AliTPCSensorTempArray(*(org.fTemp));
 102  }
 103
 104 //______________________________________________________________________________________________
 105 AliTPCPreprocessor::~AliTPCPreprocessor()
 106 {
 107   // destructor
 108
 109   delete fTemp;
 110   delete fHighVoltage;
 111   delete fHighVoltageStat;
 112   delete fGoofie;
 113   delete fPressure;
 114 }
 115 //______________________________________________________________________________________________
 116 AliTPCPreprocessor& AliTPCPreprocessor::operator = (const AliTPCPreprocessor& )
 117 {
 118   Fatal("operator =", "assignment operator not implemented");
 119   return *this;
 120 }
 121
 122
 123 //______________________________________________________________________________________________
 124 void AliTPCPreprocessor::Initialize(Int_t run, UInt_t startTime,
 125         UInt_t endTime)
 126 {
 127
 128   AliPreprocessor::Initialize(run, startTime, endTime);
 129
 130         AliInfo(Form("\n\tRun %d \n\tStartTime %s \n\tEndTime %s", run,
 131                 TTimeStamp((time_t)startTime,0).AsString(),
 132                 TTimeStamp((time_t)endTime,0).AsString()));
 133
 134   // Preprocessor configuration
 135
 136         AliCDBEntry* entry = GetFromOCDB("Config", "Preprocessor");
 137         if (entry) fConfEnv = (TEnv*) entry->GetObject();
 138         if ( fConfEnv==0 ) {
 139            Log("AliTPCPreprocsessor: Preprocessor Config OCDB entry missing.\n");
 140            fConfigOK = kFALSE;
 141            return;
 142         }
 143
 144   // Temperature sensors
 145
 146        TTree *confTree = 0;
 147
 148        TString tempConf = fConfEnv->GetValue("Temperature","ON");
 149        tempConf.ToUpper();
 150        if (tempConf != "OFF" ) {
 151         entry = GetFromOCDB("Config", "Temperature");
 152         if (entry) confTree = (TTree*) entry->GetObject();
 153         if ( confTree==0 ) {
 154            Log("AliTPCPreprocsessor: Temperature Config OCDB entry missing.\n");
 155            fConfigOK = kFALSE;
 156            return;
 157         }
 158         fTemp = new AliTPCSensorTempArray(startTime, endTime, confTree, kAmandaTemp);
 159         fTemp->SetValCut(kValCutTemp);
 160         fTemp->SetDiffCut(kDiffCutTemp);
 161        }
 162
 163   // High voltage measurements
 164
 165       TString hvConf = fConfEnv->GetValue("HighVoltage","ON");
 166       hvConf.ToUpper();
 167       if (hvConf != "OFF" ) {
 168         confTree=0;
 169         entry=0;
 170         entry = GetFromOCDB("Config", "HighVoltage");
 171         if (entry) confTree = (TTree*) entry->GetObject();
 172         if ( confTree==0 ) {
 173            Log("AliTPCPreprocsessor: High Voltage Config OCDB entry missing.\n");
 174            fConfigOK = kFALSE;
 175            return;
 176         }
 177         time_t timeStart = (time_t)(((TString)GetRunParameter("DAQ_time_start")).Atoi());
 178         time_t timeEnd = (time_t)(((TString)GetRunParameter("DAQ_time_end")).Atoi());
 179         fHighVoltage = new AliDCSSensorArray (UInt_t(timeStart),
 180                                             UInt_t(timeEnd), confTree);
 181       }
 182
 183    // High voltage status values
 184
 185       TString hvStatConf = fConfEnv->GetValue("HighVoltageStat","ON");
 186       hvStatConf.ToUpper();
 187       if (hvStatConf != "OFF" ) {
 188         confTree=0;
 189         entry=0;
 190         entry = GetFromOCDB("Config", "HighVoltageStat");
 191         if (entry) confTree = (TTree*) entry->GetObject();
 192         if ( confTree==0 ) {
 193            Log("AliTPCPreprocsessor: High Voltage Status Config OCDB entry missing.\n");
 194            fConfigOK = kFALSE;
 195            return;
 196         }
 197         fHighVoltageStat = new AliDCSSensorArray(startTime, endTime, confTree);
 198       }
 199
 200    // Goofie values
 201
 202       TString goofieConf = fConfEnv->GetValue("Goofie","ON");
 203       goofieConf.ToUpper();
 204       if (goofieConf != "OFF" ) {
 205         confTree=0;
 206         entry=0;
 207         entry = GetFromOCDB("Config", "Goofie");
 208         if (entry) confTree = (TTree*) entry->GetObject();
 209         if ( confTree==0 ) {
 210            Log("AliTPCPreprocsessor: Goofie Config OCDB entry missing.\n");
 211            fConfigOK = kFALSE;
 212            return;
 213         }
 214         fGoofie = new AliDCSSensorArray(startTime, endTime, confTree);
 215       }
 216
 217    // Pressure values
 218
 219        TString runType = GetRunType();
 220
 221        if( runType == kPhysicsRunType ||
 222         runType == kLaserRunType ) {
 223        TString pressureConf = fConfEnv->GetValue("Pressure","ON");
 224        pressureConf.ToUpper();
 225        if (pressureConf != "OFF" ) {
 226          TClonesArray * array = new TClonesArray("AliDCSSensor",kNumPressureSensors);
 227          for(Int_t j = 0; j < kNumPressureSensors; j++) {
 228            AliDCSSensor * sens = new ((*array)[j])AliDCSSensor;
 229            sens->SetStringID(kPressureSensorNames[j]);
 230          }
 231          fPressure = new AliDCSSensorArray(startTime, endTime, array);
 232        }
 233      }
 234 }
 235
 236 //______________________________________________________________________________________________
 237 UInt_t AliTPCPreprocessor::Process(TMap* dcsAliasMap)
 238 {
 239   // Fills data into TPC calibrations objects
 240
 241   // Amanda servers provide information directly through dcsAliasMap
 242
 243
 244   if (!fConfigOK) return 9;
 245   UInt_t result = 0;
 246   TObjArray *resultArray = new TObjArray();
 247   TString errorHandling = fConfEnv->GetValue("ErrorHandling","ON");
 248   errorHandling.ToUpper();
 249   TObject * status;
 250
 251   UInt_t dcsResult=0;
 252   if (!dcsAliasMap) {
 253      dcsResult=1;
 254   } else {
 255      if (dcsAliasMap->GetEntries() == 0 ) dcsResult=1;
 256   }
 257   status = new TParameter<int>("dcsResult",dcsResult);
 258   resultArray->Add(status);
 259
 260
 261   TString runType = GetRunType();
 262
 263   if ( dcsResult == 0 ) {
 264
 265   // Temperature sensors are processed by AliTPCCalTemp
 266
 267     TString tempConf = fConfEnv->GetValue("Temperature","ON");
 268     tempConf.ToUpper();
 269     if (tempConf != "OFF" ) {
 270       UInt_t tempResult = MapTemperature(dcsAliasMap);
 271       if ( tempConf != "TRY") result+=tempResult;
 272       status = new TParameter<int>("tempResult",tempResult);
 273       resultArray->Add(status);
 274     }
 275
 276   // High Voltage recordings
 277
 278
 279     TString hvConf = fConfEnv->GetValue("HighVoltage","ON");
 280     hvConf.ToUpper();
 281     if (hvConf != "OFF" ) {
 282      UInt_t hvResult = MapHighVoltage(dcsAliasMap);
 283      if (hvConf != "TRY") result+=hvResult;
 284      status = new TParameter<int>("hvResult",hvResult);
 285      resultArray->Add(status);
 286     }
 287
 288     // Goofie values
 289
 290
 291     TString goofieConf = fConfEnv->GetValue("Goofie","ON");
 292     goofieConf.ToUpper();
 293     if (goofieConf != "OFF" ) {
 294      UInt_t goofieResult = MapGoofie(dcsAliasMap);
 295      if (goofieConf != "TRY") result+=goofieResult;
 296      status = new TParameter<int>("goofieResult",goofieResult);
 297      resultArray->Add(status);
 298     }
 299
 300     // Pressure values
 301
 302     if( runType == kPhysicsRunType ||
 303       runType == kLaserRunType ) {
 304
 305       TString pressureConf = fConfEnv->GetValue("Pressure","ON");
 306       pressureConf.ToUpper();
 307       if (pressureConf != "OFF" ) {
 308        UInt_t pressureResult = MapPressure(dcsAliasMap);
 309        status = new TParameter<int>("pressureResult",pressureResult);
 310        resultArray->Add(status);
 311       }
 312     }
 313   }
 314   // Other calibration information will be retrieved through FXS files
 315   //  examples:
 316   //    TList* fileSourcesDAQ = GetFile(AliShuttleInterface::kDAQ, "pedestals");
 317   //    const char* fileNamePed = GetFile(AliShuttleInterface::kDAQ, "pedestals", "LDC1");
 318   //
 319   //    TList* fileSourcesHLT = GetFile(AliShuttleInterface::kHLT, "calib");
 320   //    const char* fileNameHLT = GetFile(AliShuttleInterface::kHLT, "calib", "LDC1");
 321
 322   // pedestal entries
 323
 324   if(runType == kPedestalRunType) {
 325     Int_t numSources = 1;
 326     Int_t pedestalSource[2] = {AliShuttleInterface::kDAQ,AliShuttleInterface::kHLT} ;
 327     TString source = fConfEnv->GetValue("Pedestal","DAQ");
 328     source.ToUpper();
 329     if (source != "OFF" ) {
 330      if ( source == "HLT") pedestalSource[0] = AliShuttleInterface::kHLT;
 331      if (!GetHLTStatus()) pedestalSource[0] = AliShuttleInterface::kDAQ;
 332      if (source == "HLTDAQ" ) {
 333          numSources=2;
 334          pedestalSource[0] = AliShuttleInterface::kHLT;
 335          pedestalSource[1] = AliShuttleInterface::kDAQ;
 336      }
 337      if (source == "DAQHLT" ) numSources=2;
 338      UInt_t pedestalResult=0;
 339      for (Int_t i=0; i<numSources; i++ ) {
 340        pedestalResult = ExtractPedestals(pedestalSource[i]);
 341        if ( pedestalResult == 0 ) break;
 342      }
 343      result += pedestalResult;
 344      status = new TParameter<int>("pedestalResult",pedestalResult);
 345      resultArray->Add(status);
 346     }
 347   }
 348
 349   // pulser trigger processing
 350
 351   if(runType == kPulserRunType) {
 352     Int_t numSources = 1;
 353     Int_t pulserSource[2] = {AliShuttleInterface::kDAQ,AliShuttleInterface::kHLT} ;
 354     TString source = fConfEnv->GetValue("Pulser","DAQ");
 355     source.ToUpper();
 356     if ( source != "OFF") {
 357      if ( source == "HLT") pulserSource[0] = AliShuttleInterface::kHLT;
 358      if (!GetHLTStatus()) pulserSource[0] = AliShuttleInterface::kDAQ;
 359      if (source == "HLTDAQ" ) {
 360          numSources=2;
 361          pulserSource[0] = AliShuttleInterface::kHLT;
 362          pulserSource[1] = AliShuttleInterface::kDAQ;
 363      }
 364      if (source == "DAQHLT" ) numSources=2;
 365      if (source == "TRY" ) numSources=2;
 366      UInt_t pulserResult=0;
 367      for (Int_t i=0; i<numSources; i++ ) {
 368        pulserResult = ExtractPulser(pulserSource[i]);
 369        if ( pulserResult == 0 ) break;
 370      }
 371      if (source != "TRY") result += pulserResult;
 372      status = new TParameter<int>("pulserResult",pulserResult);
 373      resultArray->Add(status);
 374     }
 375   }
 376
 377
 378 // raw calibration processing
 379
 380   if(runType == kPhysicsRunType) {
 381     Int_t numSources = 1;
 382     Int_t rawSource[2] = {AliShuttleInterface::kDAQ,AliShuttleInterface::kHLT} ;
 383     TString source = fConfEnv->GetValue("Raw","DAQ");
 384     source.ToUpper();
 385     if ( source != "OFF") {
 386      if ( source == "HLT") rawSource[0] = AliShuttleInterface::kHLT;
 387      if (!GetHLTStatus()) rawSource[0] = AliShuttleInterface::kDAQ;
 388      if (source == "HLTDAQ" ) {
 389          numSources=2;
 390          rawSource[0] = AliShuttleInterface::kHLT;
 391          rawSource[1] = AliShuttleInterface::kDAQ;
 392      }
 393      if (source == "DAQHLT" ) numSources=2;
 394      if (source == "TRY" ) numSources=2;
 395      UInt_t rawResult=0;
 396      for (Int_t i=0; i<numSources; i++ ) {
 397        rawResult = ExtractRaw(rawSource[i]);
 398        if ( rawResult == 0 ) break;
 399      }
 400      if (source != "TRY" )result += rawResult;
 401      status = new TParameter<int>("rawResult",rawResult);
 402      resultArray->Add(status);
 403     }
 404   }
 405
 406
 407   // Altro configuration
 408
 409
 410   TString altroConf = fConfEnv->GetValue("AltroConf","ON");
 411   altroConf.ToUpper();
 412   if (altroConf != "OFF" ) {
 413    UInt_t altroResult = ExtractAltro(AliShuttleInterface::kDCS,dcsAliasMap);
 414    if (altroConf != "TRY" ) result+=altroResult;
 415    status = new TParameter<int>("altroResult",altroResult);
 416    resultArray->Add(status);
 417  }
 418
 419
 420   // Central Electrode processing
 421
 422   if( runType == kPhysicsRunType ||
 423       runType == kLaserRunType ) {
 424
 425     Int_t numSources = 1;
 426     Int_t ceSource[2] = {AliShuttleInterface::kDAQ,AliShuttleInterface::kHLT} ;
 427     TString source = fConfEnv->GetValue("CE","DAQ");
 428     source.ToUpper();
 429     if ( source != "OFF" ) {
 430      if ( source == "HLT") ceSource[0] = AliShuttleInterface::kHLT;
 431      if (!GetHLTStatus()) ceSource[0] = AliShuttleInterface::kDAQ;
 432      if (source == "HLTDAQ" ) {
 433         numSources=2;
 434         ceSource[0] = AliShuttleInterface::kHLT;
 435         ceSource[1] = AliShuttleInterface::kDAQ;
 436      }
 437      if (source == "DAQHLT" ) numSources=2;
 438      if (source == "TRY" ) numSources=2;
 439      UInt_t ceResult=0;
 440      for (Int_t i=0; i<numSources; i++ ) {
 441        ceResult = ExtractCE(ceSource[i]);
 442        if ( ceResult == 0 ) break;
 443      }
 444
 445    // only flag error if CE result is missing from LASER runs
 446    //    -- for PHYSICS run do CE processing if data available
 447
 448      if ( runType == kLaserRunType && source != "TRY"  && ceResult<10 ) result += ceResult;
 449      status = new TParameter<int>("ceResult",ceResult);
 450      resultArray->Add(status);
 451
 452     numSources = 1;
 453     Int_t qaSource[2] = {AliShuttleInterface::kDAQ,AliShuttleInterface::kHLT} ;
 454     source = fConfEnv->GetValue("QA","DAQ");
 455     source.ToUpper();
 456     if ( source != "OFF" ) {
 457      if ( source == "HLT") qaSource[0] = AliShuttleInterface::kHLT;
 458      if (!GetHLTStatus()) qaSource[0] = AliShuttleInterface::kDAQ;
 459      if (source == "HLTDAQ" ) {
 460         numSources=2;
 461         qaSource[0] = AliShuttleInterface::kHLT;
 462         qaSource[1] = AliShuttleInterface::kDAQ;
 463      }
 464      if (source == "DAQHLT" ) numSources=2;
 465      if (source == "TRY" ) numSources=2;
 466      UInt_t qaResult=0;
 467      for (Int_t i=0; i<numSources; i++ ) {
 468        qaResult = ExtractQA(qaSource[i]);
 469        if ( qaResult == 0 ) break;
 470      }
 471 //     result += qaResult;
 472      if ( qaResult !=0 ) Log ("ExtractQA failed, no QA entry available.");
 473      status = new TParameter<int>("qaResult",qaResult);
 474      resultArray->Add(status);
 475     }
 476    }
 477   }
 478
 479 // Store component status to OCDB
 480
 481   AliCDBMetaData metaData;
 482   metaData.SetBeamPeriod(0);
 483   metaData.SetResponsible("Haavard Helstrup");
 484   metaData.SetAliRootVersion(ALIROOT_SVN_BRANCH);
 485   metaData.SetComment("Preprocessor AliTPC status.");
 486   Bool_t storeOK = Store("Calib", "PreprocStatus", resultArray, &metaData, 0,  kFALSE);
 487   if (!storeOK) Log ("Unable to store preprocessor status entry");
 488
 489   resultArray->Delete();
 490   delete resultArray;
 491
 492   if (errorHandling == "OFF" ) return 0;
 493   return result;
 494
 495 }
 496 //______________________________________________________________________________________________
 497 UInt_t AliTPCPreprocessor::MapTemperature(TMap* dcsAliasMap)
 498 {
 499
 500    // extract DCS temperature maps. Perform fits to save space
 501
 502   UInt_t result=0;
 503   TMap *map = fTemp->ExtractDCS(dcsAliasMap);
 504   if (map) {
 505     fTemp->MakeSplineFit(map);
 506     Double_t fitFraction = 1.0*fTemp->NumFits()/fTemp->NumSensors();
 507     if (fitFraction > kFitFraction ) {
 508       AliInfo(Form("Temperature values extracted, fits performed.\n"));
 509     } else {
 510       Log ("Too few temperature maps fitted. \n");
 511       result = 9;
 512     }
 513   } else {
 514     Log("No temperature map extracted. \n");
 515     result=9;
 516   }
 517   delete map;
 518   // Now store the final CDB file
 519
 520   if ( result == 0 ) {
 521         AliCDBMetaData metaData;
 522         metaData.SetBeamPeriod(0);
 523         metaData.SetResponsible("Haavard Helstrup");
 524         metaData.SetAliRootVersion(ALIROOT_SVN_BRANCH);
 525         metaData.SetComment("Preprocessor AliTPC data base entries.");
 526
 527         Bool_t storeOK = Store("Calib", "Temperature", fTemp, &metaData, 0, kFALSE);
 528         if ( !storeOK )  result=1;
 529
 530    }
 531
 532    return result;
 533
 534 }
 535 //______________________________________________________________________________________________
 536 UInt_t AliTPCPreprocessor::MapPressure(TMap* dcsAliasMap)
 537 {
 538
 539    // extract DCS pressure maps. Perform fits to save space
 540
 541   UInt_t result=0;
 542   TMap *map = fPressure->ExtractDCS(dcsAliasMap);
 543   if (map) {
 544     fPressure->MakeSplineFit(map);
 545     Double_t fitFraction = 1.0*fPressure->NumFits()/fPressure->NumSensors();
 546     if (fitFraction > kFitFraction ) {
 547       AliInfo(Form("Pressure values extracted, fits performed.\n"));
 548     } else {
 549       Log ("Too few pressure maps fitted. \n");
 550       result = 9;
 551     }
 552   } else {
 553     Log("No pressure map extracted. \n");
 554     result=9;
 555   }
 556   delete map;
 557   return result;
 558 }
 559
 560 //______________________________________________________________________________________________
 561 UInt_t AliTPCPreprocessor::MapHighVoltage(TMap* dcsAliasMap)
 562 {
 563
 564    // extract DCS HV maps. Perform fits to save space
 565
 566   UInt_t result=0;
 567   TMap *map = fHighVoltage->ExtractDCS(dcsAliasMap);
 568   if (map) {
 569     fHighVoltage->ClearFit();
 570     fHighVoltage->RemoveGraphDuplicates(kHighVoltageDifference);
 571                // don't keep new point if too similar to previous one
 572     fHighVoltage->SetGraph(map);
 573   } else {
 574     Log("No high voltage recordings extracted. \n");
 575     result=9;
 576   }
 577   delete map;
 578
 579   TString hvStatConf = fConfEnv->GetValue("HighVoltageStat","ON");
 580   hvStatConf.ToUpper();
 581   if (hvStatConf != "OFF" ) {
 582     TMap *map2 = fHighVoltageStat->ExtractDCS(dcsAliasMap);
 583     if (map2) {
 584       fHighVoltageStat->ClearFit();
 585       fHighVoltageStat->SetGraph(map2);
 586     } else {
 587        Log("No high voltage status recordings extracted. \n");
 588       result=9;
 589     }
 590     delete map2;
 591
 592     // add status maps to high voltage sensor array
 593
 594     fHighVoltage->AddSensors(fHighVoltageStat);
 595    }
 596   // Now store the final CDB file
 597
 598   if ( result == 0 ) {
 599         AliCDBMetaData metaData;
 600         metaData.SetBeamPeriod(0);
 601         metaData.SetResponsible("Haavard Helstrup");
 602         metaData.SetAliRootVersion(ALIROOT_SVN_BRANCH);
 603         metaData.SetComment("Preprocessor AliTPC data base entries.");
 604
 605         Bool_t storeOK = Store("Calib", "HighVoltage", fHighVoltage, &metaData, 0, kFALSE);
 606         if ( !storeOK )  result=1;
 607
 608    }
 609
 610    return result;
 611
 612 }
 613
 614 //______________________________________________________________________________________________
 615 UInt_t AliTPCPreprocessor::MapGoofie(TMap* dcsAliasMap)
 616 {
 617
 618    // extract DCS Goofie maps. Do not perform fits (low update rate)
 619
 620   UInt_t result=0;
 621
 622   TMap *map = fGoofie->ExtractDCS(dcsAliasMap);
 623   if (map) {
 624     fGoofie->ClearFit();
 625     fGoofie->SetGraph(map);
 626   } else {
 627     Log("No Goofie recordings extracted. \n");
 628     result=9;
 629   }
 630   delete map;
 631
 632   // Now store the final CDB file
 633
 634   if ( result == 0 ) {
 635         AliCDBMetaData metaData;
 636         metaData.SetBeamPeriod(0);
 637         metaData.SetResponsible("Haavard Helstrup");
 638         metaData.SetAliRootVersion(ALIROOT_SVN_BRANCH);
 639         metaData.SetComment("Preprocessor AliTPC data base entries.");
 640
 641         Bool_t storeOK = Store("Calib", "Goofie", fGoofie, &metaData, 0, kFALSE);
 642         if ( !storeOK )  result=1;
 643
 644    }
 645
 646    return result;
 647
 648 }
 649
 650
 651 //______________________________________________________________________________________________
 652
 653 UInt_t AliTPCPreprocessor::ExtractPedestals(Int_t sourceFXS)
 654 {
 655  //
 656  //  Read pedestal file from file exchage server
 657  //  Keep original entry from OCDB in case no new pedestals are available
 658  //
 659  AliTPCCalPad *calPadPed=0;
 660  AliCDBEntry* entry = GetFromOCDB("Calib", "Pedestals");
 661  if (entry) calPadPed = (AliTPCCalPad*)entry->GetObject();
 662  if ( calPadPed==NULL ) {
 663      Log("AliTPCPreprocsessor: No previous TPC pedestal entry available.\n");
 664      calPadPed = new AliTPCCalPad("PedestalsMean","PedestalsMean");
 665  }
 666
 667  AliTPCCalPad *calPadRMS=0;
 668  entry = GetFromOCDB("Calib", "PadNoise");
 669  if (entry) calPadRMS = (AliTPCCalPad*)entry->GetObject();
 670  if ( calPadRMS==NULL ) {
 671      Log("AliTPCPreprocsessor: No previous TPC noise entry available.\n");
 672      calPadRMS = new AliTPCCalPad("PedestalsRMS","PedestalsRMS");
 673  }
 674
 675
 676  UInt_t result=0;
 677
 678  Int_t nSectors = fROC->GetNSectors();
 679  TList* list = GetFileSources(sourceFXS,"pedestals");
 680
 681  if (list && list->GetEntries()>0) {
 682
 683 //  loop through all files from LDCs
 684
 685     Bool_t changed=false;
 686     UInt_t index = 0;
 687     while (list->At(index)!=NULL) {
 688      TObjString* fileNameEntry = (TObjString*) list->At(index);
 689      if (fileNameEntry!=NULL) {
 690         TString fileName = GetFile(sourceFXS, "pedestals",
 691                                          fileNameEntry->GetString().Data());
 692         TFile *f = TFile::Open(fileName);
 693         if (!f) {
 694           Log ("Error opening pedestal file.");
 695           result =2;
 696           break;
 697         }
 698         AliTPCCalibPedestal *calPed;
 699         f->GetObject("tpcCalibPedestal",calPed);
 700         if ( !calPed ) {
 701           Log ("No pedestal calibration object in file.");
 702           result = 2;
 703           break;
 704         }
 705
 706         //  replace entries for the sectors available in the present file
 707
 708         changed=true;
 709         for (Int_t sector=0; sector<nSectors; sector++) {
 710            AliTPCCalROC *rocPed=calPed->GetCalRocPedestal(sector, kFALSE);
 711            if ( rocPed )  calPadPed->SetCalROC(rocPed,sector);
 712            AliTPCCalROC *rocRMS=calPed->GetCalRocRMS(sector, kFALSE);
 713            if ( rocRMS )  calPadRMS->SetCalROC(rocRMS,sector);
 714         }
 715         delete calPed;
 716         f->Close();
 717       }
 718      ++index;
 719     }  // while(list)
 720 //
 721 //  Store updated pedestal entry to OCDB
 722 //
 723     if (changed) {
 724      AliCDBMetaData metaData;
 725      metaData.SetBeamPeriod(0);
 726      metaData.SetResponsible("Haavard Helstrup");
 727      metaData.SetAliRootVersion(ALIROOT_SVN_BRANCH);
 728      metaData.SetComment("Preprocessor AliTPC data base entries.");
 729
 730      Bool_t storeOK = Store("Calib", "Pedestals", calPadPed, &metaData, 0, kTRUE);
 731      if ( !storeOK ) ++result;
 732      storeOK = Store("Calib", "PadNoise", calPadRMS, &metaData, 0, kTRUE);
 733      if ( !storeOK ) ++result;
 734     }
 735   } else {
 736     Log ("Error: no entries in pedestal file list!");
 737     result = 1;
 738   }
 739
 740   delete calPadPed;
 741   delete calPadRMS;
 742
 743   return result;
 744 }
 745
 746 //______________________________________________________________________________________________
 747
 748
 749 UInt_t AliTPCPreprocessor::ExtractPulser(Int_t sourceFXS)
 750 {
 751  //
 752  //  Read pulser calibration file from file exchage server
 753  //  Keep original entry from OCDB in case no new pulser calibration is available
 754  //
 755  TObjArray    *pulserObjects=0;
 756  AliTPCCalPad *pulserTmean=0;
 757  AliTPCCalPad *pulserTrms=0;
 758  AliTPCCalPad *pulserQmean=0;
 759  AliCDBEntry* entry = GetFromOCDB("Calib", "Pulser");
 760  if (entry) pulserObjects = (TObjArray*)entry->GetObject();
 761  if ( pulserObjects==NULL ) {
 762      Log("AliTPCPreprocsessor: No previous TPC pulser entry available.\n");
 763      pulserObjects = new TObjArray;
 764  }
 765
 766  pulserTmean = (AliTPCCalPad*)pulserObjects->FindObject("PulserTmean");
 767  if ( !pulserTmean ) {
 768     pulserTmean = new AliTPCCalPad("PulserTmean","PulserTmean");
 769     pulserObjects->Add(pulserTmean);
 770  }
 771  pulserTrms = (AliTPCCalPad*)pulserObjects->FindObject("PulserTrms");
 772  if ( !pulserTrms )  {
 773     pulserTrms = new AliTPCCalPad("PulserTrms","PulserTrms");
 774     pulserObjects->Add(pulserTrms);
 775  }
 776  pulserQmean = (AliTPCCalPad*)pulserObjects->FindObject("PulserQmean");
 777  if ( !pulserQmean )  {
 778     pulserQmean = new AliTPCCalPad("PulserQmean","PulserQmean");
 779     pulserObjects->Add(pulserQmean);
 780  }
 781
 782
 783  UInt_t result=0;
 784
 785  Int_t nSectors = fROC->GetNSectors();
 786  TList* list = GetFileSources(sourceFXS,"pulser");
 787
 788  if (list && list->GetEntries()>0) {
 789
 790 //  loop through all files from LDCs
 791
 792     Bool_t changed=false;
 793     UInt_t index = 0;
 794     while (list->At(index)!=NULL) {
 795      TObjString* fileNameEntry = (TObjString*) list->At(index);
 796      if (fileNameEntry!=NULL) {
 797         TString fileName = GetFile(sourceFXS, "pulser",
 798                                          fileNameEntry->GetString().Data());
 799         TFile *f = TFile::Open(fileName);
 800         if (!f) {
 801           Log ("Error opening pulser file.");
 802           result =2;
 803           break;
 804         }
 805         AliTPCCalibPulser *calPulser;
 806         f->GetObject("tpcCalibPulser",calPulser);
 807         if ( !calPulser ) {
 808           Log ("No pulser calibration object in file.");
 809           result = 2;
 810           break;
 811         }
 812
 813         //  replace entries for the sectors available in the present file
 814
 815         changed=true;
 816         for (Int_t sector=0; sector<nSectors; sector++) {
 817            AliTPCCalROC *rocTmean=calPulser->GetCalRocT0(sector);
 818            if ( rocTmean )  pulserTmean->SetCalROC(rocTmean,sector);
 819            AliTPCCalROC *rocTrms=calPulser->GetCalRocRMS(sector);
 820            if ( rocTrms )  pulserTrms->SetCalROC(rocTrms,sector);
 821            AliTPCCalROC *rocQmean=calPulser->GetCalRocQ(sector);
 822            if ( rocQmean )  pulserQmean->SetCalROC(rocQmean,sector);
 823         }
 824        delete calPulser;
 825        f->Close();
 826       }
 827      ++index;
 828     }  // while(list)
 829 //
 830 //  Store updated pedestal entry to OCDB
 831 //
 832     if (changed) {
 833      AliCDBMetaData metaData;
 834      metaData.SetBeamPeriod(0);
 835      metaData.SetResponsible("Haavard Helstrup");
 836      metaData.SetAliRootVersion(ALIROOT_SVN_BRANCH);
 837      metaData.SetComment("Preprocessor AliTPC data base entries.");
 838
 839      Bool_t storeOK = Store("Calib", "Pulser", pulserObjects, &metaData, 0, kTRUE);
 840      if ( !storeOK ) ++result;
 841     }
 842   } else {
 843     Log ("Error: no entries in pulser file list!");
 844     result = 1;
 845   }
 846   pulserObjects->Delete();
 847   delete pulserObjects;
 848
 849   return result;
 850 }
 851
 852 //______________________________________________________________________________________________
 853
 854
 855 UInt_t AliTPCPreprocessor::ExtractRaw(Int_t sourceFXS)
 856 {
 857  //
 858  //  Read Raw calibration file from file exchage server
 859  //
 860
 861  UInt_t result=0;
 862  TObjArray* rawArray = new TObjArray;
 863
 864  TList* list = GetFileSources(sourceFXS,"tpcCalibRaw");
 865
 866  if (list && list->GetEntries()>0) {
 867
 868 //  loop through all files
 869
 870     UInt_t index = 0;
 871     while (list->At(index)!=NULL) {
 872      TObjString* fileNameEntry = (TObjString*) list->At(index);
 873      if (fileNameEntry!=NULL) {
 874         TString fileName = GetFile(sourceFXS, "tpcCalibRaw",
 875                                          fileNameEntry->GetString().Data());
 876         TFile *f = TFile::Open(fileName);
 877         if (!f) {
 878           Log ("Error opening raw file.");
 879           result =2;
 880           break;
 881         }
 882         AliTPCCalibRaw *calRaw;
 883         f->GetObject("tpcCalibRaw",calRaw);
 884         if ( !calRaw ) {
 885           Log ("No raw calibration object in file.");
 886           result = 2;
 887           break;
 888         }
 889        rawArray->Add(calRaw);
 890        f->Close();
 891       }
 892      ++index;
 893     }  // while(list)
 894 //
 895 //  Store updated pedestal entry to OCDB
 896 //
 897      AliCDBMetaData metaData;
 898      metaData.SetBeamPeriod(0);
 899      metaData.SetResponsible("Haavard Helstrup");
 900      metaData.SetAliRootVersion(ALIROOT_SVN_BRANCH);
 901      metaData.SetComment("Preprocessor AliTPC data base entries.");
 902
 903      Bool_t storeOK = Store("Calib", "Raw", rawArray, &metaData, 0, kTRUE);
 904      if ( !storeOK ) ++result;
 905   } else {
 906     Log ("Error: no entries in raw file list!");
 907     result = 1;
 908   }
 909
 910   rawArray->Delete();
 911   delete rawArray;
 912
 913   return result;
 914 }
 915 //______________________________________________________________________________________________
 916
 917 UInt_t AliTPCPreprocessor::ExtractCE(Int_t sourceFXS)
 918 {
 919  //
 920  //  Read Central Electrode file from file exchage server
 921  //
 922  //
 923   AliTPCCalPad *ceTmean=0;
 924   AliTPCCalPad *ceTrms=0;
 925   AliTPCCalPad *ceQmean=0;
 926   TObjArray    *rocTtime=0;
 927   TObjArray    *rocQtime=0;
 928
 929   TObjArray    *ceObjects= new TObjArray;
 930
 931
 932   Int_t nSectors = fROC->GetNSectors();
 933
 934   ceTmean = new AliTPCCalPad("CETmean","CETmean");
 935   ceObjects->Add(ceTmean);
 936
 937   ceTrms = new AliTPCCalPad("CETrms","CETrms");
 938   ceObjects->Add(ceTrms);
 939
 940   ceQmean = new AliTPCCalPad("CEQmean","CEQmean");
 941   ceObjects->Add(ceQmean);
 942
 943   rocTtime = new TObjArray(nSectors+2);   // also make room for A and C side average
 944   rocTtime->SetName("rocTtime");
 945   ceObjects->Add(rocTtime);
 946
 947   rocQtime = new TObjArray(nSectors);
 948   rocQtime->SetName("rocQtime");
 949   ceObjects->Add(rocQtime);
 950
 951   //=== new part
 952   TObjArray *arrFitGraphs=new TObjArray;
 953   arrFitGraphs->SetName("ceFitsDrift");
 954   ceObjects->Add(arrFitGraphs);
 955
 956 // Temperature maps
 957
 958   if (fTemp) {
 959     AliTPCSensorTempArray *tempMap = new AliTPCSensorTempArray(*fTemp);
 960     tempMap->SetNameTitle("TempMap","TempMap");
 961     ceObjects->Add(tempMap);
 962   }
 963
 964 // Pressure maps
 965
 966   if (fPressure) {
 967     AliDCSSensor *sensor=0, *sensorCopy=0;
 968     for (Int_t isensor=0; isensor<kNumPressureSensors; ++isensor ) {
 969       sensor = fPressure->GetSensor(kPressureSensorNames[isensor]);
 970       if (sensor) {
 971         sensorCopy = new AliDCSSensor(*sensor);
 972         sensorCopy->SetNameTitle(kPressureSensorNames[isensor],kPressureSensorNames[isensor]);
 973         ceObjects->Add(sensorCopy);
 974       }
 975     }
 976   }
 977
 978   UInt_t result=0;
 979
 980   TList* list = GetFileSources(sourceFXS,"CE");
 981
 982   if (list && list->GetEntries()>0) {
 983
 984 //  loop through all files from LDCs
 985
 986     UInt_t index = 0;
 987     while (list->At(index)!=NULL) {
 988       TObjString* fileNameEntry = (TObjString*) list->At(index);
 989       if (fileNameEntry!=NULL) {
 990         TString fileName = GetFile(sourceFXS, "CE",
 991                                    fileNameEntry->GetString().Data());
 992         AliTPCCalibCE *calCE=AliTPCCalibCE::ReadFromFile(fileName.Data());
 993
 994         if (!calCE) {
 995           Log ("No valid calibCE object.");
 996           result=2;
 997           break;
 998         }
 999         //  replace entries for the sectors available in the present file
1000
1001         for (Int_t sector=0; sector<nSectors; sector++) {
1002           AliTPCCalROC *rocTmean=calCE->GetCalRocT0(sector);
1003           if ( rocTmean )  ceTmean->SetCalROC(rocTmean,sector);
1004           AliTPCCalROC *rocTrms=calCE->GetCalRocRMS(sector);
1005           if ( rocTrms )  ceTrms->SetCalROC(rocTrms,sector);
1006           AliTPCCalROC *rocQmean=calCE->GetCalRocQ(sector);
1007           if ( rocQmean )  ceQmean->SetCalROC(rocQmean,sector);
1008           TGraph *grT=calCE->MakeGraphTimeCE(sector,0,2); // T time graph
1009           if ( grT ) rocTtime->AddAt(grT,sector);
1010           TGraph *grQ=calCE->MakeGraphTimeCE(sector,0,3); // Q time graph
1011           if ( grQ ) rocQtime->AddAt(grQ,sector);
1012         }
1013
1014         TGraph *grT=calCE->MakeGraphTimeCE(-1,0,2); // A side average
1015         if ( grT ) {
1016           rocTtime->AddAt(grT,nSectors);
1017         } else {
1018           result=10;
1019         }
1020         grT=calCE->MakeGraphTimeCE(-2,0,2); // C side average
1021         if ( grT ) {
1022           rocTtime->AddAt(grT,nSectors+1);
1023         } else {
1024           result=10;
1025         }
1026
1027         delete calCE;
1028       }
1029       ++index;
1030     }  // while(list)
1031 //
1032 //   Check number of calibrated sectors per side
1033 //
1034     Int_t aside=0, cside=0;
1035     for (Int_t ind=0; ind<nSectors/4; ind++ ) {
1036         TGraph *grT=(TGraph*)rocTtime->At(ind);
1037         if (grT) aside++;
1038         grT=(TGraph*)rocTtime->At(ind+nSectors/2);
1039         if (grT) aside++;
1040         grT=(TGraph*)rocTtime->At(ind+nSectors/4);
1041         if (grT) cside++;
1042         grT=(TGraph*)rocTtime->At(ind+3*nSectors/4);
1043         if (grT) cside++;
1044      }
1045      if ( (aside<kMinCESectors) && (cside<kMinCESectors) ) {
1046         Log (Form("ExtractCE: Too few fitted sectors: Aside =%d, Cside=%d\n",
1047              aside, cside)) ;
1048         result=10;
1049      }
1050
1051     //
1052     //=== New CE part
1053     //    if it is validated this part needs to be modified again
1054     //    currently its only processed if there is a valid standard CE object
1055     //
1056     list = GetFileSources(sourceFXS,"CEnew");
1057
1058     if (result==0 && list && list->GetEntries()>0) {
1059
1060 //  loop through all files from LDCs
1061
1062       UInt_t index2 = 0;
1063       while (list->At(index2)!=NULL) {
1064         TObjString* fileNameEntry = (TObjString*) list->At(index2);
1065         if (fileNameEntry!=NULL) {
1066           TString fileName = GetFile(sourceFXS, "CEnew",
1067                                      fileNameEntry->GetString().Data());
1068           AliTPCCalibCE *calCE=AliTPCCalibCE::ReadFromFile(fileName.Data());
1069
1070           if (!calCE) {
1071             Log ("No valid new calibCE object.");
1072 //             result=2;
1073             break;
1074           }
1075
1076           TIter nextObj(calCE->GetArrFitGraphs());
1077           TObject *obj=0x0;
1078           while ( (obj=nextObj()) ){
1079             arrFitGraphs->Add(obj->Clone());
1080           }
1081           delete calCE;
1082         }
1083         ++index2;
1084       }
1085     }
1086
1087 //
1088 //  Store updated pedestal entry to OCDB
1089 //
1090     AliCDBMetaData metaData;
1091     metaData.SetBeamPeriod(0);
1092     metaData.SetResponsible("Haavard Helstrup");
1093     metaData.SetAliRootVersion(ALIROOT_SVN_BRANCH);
1094     metaData.SetComment("Preprocessor AliTPC data base entries.");
1095
1096     if ( result == 0 ) {
1097       Bool_t storeOK = Store("Calib", "CE", ceObjects, &metaData, 0, kTRUE);
1098       if ( !storeOK ) ++result;
1099     } else {
1100       Log ("Warning: Average time graphs not available - no OCDB entry written");
1101     }
1102   } else {
1103     Log ("Error: no CE entries available from FXS!");
1104     result = 1;
1105   }
1106
1107   ceObjects->Delete();
1108   delete ceObjects;
1109
1110   return result;
1111 }
1112 //______________________________________________________________________________________________
1113
1114 UInt_t AliTPCPreprocessor::ExtractQA(Int_t sourceFXS)
1115 {
1116  //
1117  //  Read Quality Assurance file from file exchage server
1118  //
1119
1120  UInt_t result=0;
1121
1122  TList* list = GetFileSources(sourceFXS,"QA");
1123
1124  if (list && list->GetEntries()>0) {
1125
1126 //  only one QA objetc should be available!
1127
1128     AliTPCdataQA *calQA;
1129
1130     UInt_t nentries = list->GetEntries();
1131     UInt_t index=0;
1132     if ( nentries > 1) Log ( "More than one QA entry. First one processed");
1133     TObjString* fileNameEntry = (TObjString*) list->At(index);
1134     if (fileNameEntry!=NULL) {
1135         TString fileName = GetFile(sourceFXS, "QA",
1136                                          fileNameEntry->GetString().Data());
1137         TFile *f = TFile::Open(fileName);
1138         if (!f) {
1139           Log ("Error opening QA file.");
1140           result =2;
1141         } else {
1142           f->GetObject("tpcCalibQA",calQA);
1143           if ( calQA ) {
1144 //
1145 //  Store updated pedestal entry to OCDB
1146 //
1147            AliCDBMetaData metaData;
1148            metaData.SetBeamPeriod(0);
1149            metaData.SetResponsible("Haavard Helstrup");
1150            metaData.SetAliRootVersion(ALIROOT_SVN_BRANCH);
1151            metaData.SetComment("Preprocessor AliTPC data base entries.");
1152
1153            Bool_t storeOK = Store("Calib", "QA", calQA, &metaData, 0, kFALSE);
1154            if ( !storeOK ) ++result;
1155
1156            delete calQA;
1157           }
1158         }
1159     } else {
1160     Log ("Error: no QA files on FXS!");
1161     result = 2;
1162     }
1163   } else {
1164     Log ("Error: no QA entries in FXS list!");
1165     result = 1;
1166   }
1167   return result;
1168 }
1169
1170 //______________________________________________________________________________________________
1171
1172
1173 UInt_t AliTPCPreprocessor::ExtractAltro(Int_t sourceFXS, TMap* dcsMap)
1174 {
1175  //
1176  //  Read Altro configuration file from file exchage server
1177  //  Keep original entry from OCDB in case no new pulser calibration is available
1178  //
1179  TObjArray    *altroObjects=0;
1180  AliTPCCalPad *acqStart=0;
1181  AliTPCCalPad *zsThr=0;
1182  AliTPCCalPad *acqStop=0;
1183  AliTPCCalPad *FPED=0;
1184  AliTPCCalPad *masked=0;
1185  AliTPCCalPad *k1=0, *k2=0, *k3=0;
1186  AliTPCCalPad *l1=0, *l2=0, *l3=0;
1187  TMap *mapRCUconfig=0;
1188
1189  AliCDBEntry* entry = GetFromOCDB("Calib", "AltroConfig");
1190  if (entry) altroObjects = (TObjArray*)entry->GetObject();
1191  if ( altroObjects==NULL ) {
1192      Log("AliTPCPreprocsessor: No previous TPC altro calibration entry available.\n");
1193      altroObjects = new TObjArray;
1194  }
1195
1196  acqStart = (AliTPCCalPad*)altroObjects->FindObject("AcqStart");
1197  if ( !acqStart ) {
1198     acqStart = new AliTPCCalPad("AcqStart","AcqStart");
1199     altroObjects->Add(acqStart);
1200  }
1201  zsThr = (AliTPCCalPad*)altroObjects->FindObject("ZsThr");
1202  if ( !zsThr )  {
1203     zsThr = new AliTPCCalPad("ZsThr","ZsThr");
1204     altroObjects->Add(zsThr);
1205  }
1206  FPED = (AliTPCCalPad*)altroObjects->FindObject("FPED");
1207  if ( !FPED )  {
1208     FPED = new AliTPCCalPad("FPED","FPED");
1209     altroObjects->Add(FPED);
1210  }
1211  acqStop = (AliTPCCalPad*)altroObjects->FindObject("AcqStop");
1212  if ( !acqStop ) {
1213     acqStop = new AliTPCCalPad("AcqStop","AcqStop");
1214     altroObjects->Add(acqStop);
1215  }
1216  masked = (AliTPCCalPad*)altroObjects->FindObject("Masked");
1217  if ( !masked )  {
1218     masked = new AliTPCCalPad("Masked","Masked");
1219     altroObjects->Add(masked);
1220  }
1221  k1 = (AliTPCCalPad*)altroObjects->FindObject("K1");
1222  if ( !k1 )  {
1223     k1 = new AliTPCCalPad("K1","K1");
1224     altroObjects->Add(k1);
1225  }
1226  k2 = (AliTPCCalPad*)altroObjects->FindObject("K2");
1227  if ( !k2 )  {
1228     k2 = new AliTPCCalPad("K2","K2");
1229     altroObjects->Add(k2);
1230  }
1231  k3 = (AliTPCCalPad*)altroObjects->FindObject("K3");
1232  if ( !k3 )  {
1233     k3 = new AliTPCCalPad("K3","K3");
1234     altroObjects->Add(k3);
1235  }
1236  l1 = (AliTPCCalPad*)altroObjects->FindObject("L1");
1237  if ( !l1 )  {
1238     l1 = new AliTPCCalPad("L1","L1");
1239     altroObjects->Add(l1);
1240  }
1241  l2 = (AliTPCCalPad*)altroObjects->FindObject("L2");
1242  if ( !l2 )  {
1243     l2 = new AliTPCCalPad("L2","L2");
1244     altroObjects->Add(l2);
1245  }
1246  l3 = (AliTPCCalPad*)altroObjects->FindObject("L3");
1247  if ( !l3 )  {
1248     l3 = new AliTPCCalPad("L3","L3");
1249     altroObjects->Add(l3);
1250  }
1251  mapRCUconfig = (TMap*)altroObjects->FindObject("RCUconfig");
1252  if (!mapRCUconfig) {
1253     mapRCUconfig = new TMap();
1254     mapRCUconfig->SetName("RCUconfig");
1255     altroObjects->Add(mapRCUconfig);
1256  }
1257
1258
1259  UInt_t result=0;
1260  TString idFXS[2]={"AltroConfigA","AltroConfigC"};
1261
1262  Int_t nSectors = fROC->GetNSectors();
1263  Bool_t changed=false;
1264  if (altroObjects == 0 ) altroObjects = new TObjArray;
1265
1266 // extract list of active DDLs
1267
1268   Bool_t found;
1269   TString arrDDL(kNumDDL);
1270   arrDDL.Append('x',kNumDDL);
1271   for ( Int_t iDDL = 0; iDDL<kNumDDL; iDDL++ ) {
1272     TString stringID = Form (kAmandaDDL.Data(),iDDL+kFirstDDL);
1273     TPair *pair = (TPair*)dcsMap->FindObject(stringID.Data());
1274     found = false;
1275     if ( pair ) {
1276         TObjArray *valueSet=(TObjArray*)pair->Value();
1277         if ( valueSet) {
1278           AliDCSValue *val = (AliDCSValue*)valueSet->At(0);
1279           if (val) {
1280               found = val->GetBool();
1281               if (found){
1282                arrDDL[iDDL] = '1';
1283               } else {
1284                arrDDL[iDDL] = '0';
1285               }
1286           }
1287         }
1288     }
1289   }
1290   TObjString *ddlArray = new TObjString;
1291   ddlArray->SetString(arrDDL);
1292   TMap *activeDDL = new TMap;
1293   activeDDL->SetName("DDLArray");
1294   TObjString *key = new TObjString("DDLArray");
1295   activeDDL->Add(key,ddlArray);
1296   altroObjects->Add(activeDDL);
1297   changed=true;
1298
1299
1300 // extract Altro configuration files
1301
1302  for ( Int_t id=0; id<2; id++) {
1303    TList* list = GetFileSources(sourceFXS,idFXS[id].Data());
1304
1305    if (list && list->GetEntries()>0) {
1306
1307 //  loop through all files from LDCs
1308
1309     UInt_t index = 0;
1310     while (list->At(index)!=NULL) {
1311      TObjString* fileNameEntry = (TObjString*) list->At(index);
1312      if (fileNameEntry!=NULL) {
1313         TString fileName = GetFile(sourceFXS, idFXS[id].Data(),
1314                                          fileNameEntry->GetString().Data());
1315         TFile *f = TFile::Open(fileName);
1316         if (!f) {
1317           const int mess_length=40;
1318           char message[mess_length];
1319           snprintf(message,mess_length,"Error opening Altro configuration file, id = %d",id);
1320           Log (message);
1321           result =2;
1322           break;
1323         }
1324         TObjArray *altroFXS;
1325         f->GetObject("AltroConfig",altroFXS);
1326         if ( !altroFXS ) {
1327           Log ("No Altro configuration object in file.");
1328           result = 2;
1329           break;
1330         }
1331
1332         //  replace entries for the sectors available in the present file
1333         AliTPCCalPad *acqStartFXS=(AliTPCCalPad*)altroFXS->FindObject("AcqStart");
1334         AliTPCCalPad *zsThrFXS=(AliTPCCalPad*)altroFXS->FindObject("ZsThr");
1335         AliTPCCalPad *acqStopFXS=(AliTPCCalPad*)altroFXS->FindObject("AcqStop");
1336         AliTPCCalPad *FPEDFXS=(AliTPCCalPad*)altroFXS->FindObject("FPED");
1337         AliTPCCalPad *maskedFXS=(AliTPCCalPad*)altroFXS->FindObject("Masked");
1338         AliTPCCalPad *k1FXS=(AliTPCCalPad*)altroFXS->FindObject("K1");
1339         AliTPCCalPad *k2FXS=(AliTPCCalPad*)altroFXS->FindObject("K2");
1340         AliTPCCalPad *k3FXS=(AliTPCCalPad*)altroFXS->FindObject("K3");
1341         AliTPCCalPad *l1FXS=(AliTPCCalPad*)altroFXS->FindObject("L1");
1342         AliTPCCalPad *l2FXS=(AliTPCCalPad*)altroFXS->FindObject("L2");
1343         AliTPCCalPad *l3FXS=(AliTPCCalPad*)altroFXS->FindObject("L3");
1344         TMap *mapRCUconfigFXS = (TMap*)altroFXS->FindObject("RCUconfig");
1345         TIterator *mapFXSiter = mapRCUconfigFXS->MakeIterator();
1346
1347         changed=true;
1348         for (Int_t sector=0; sector<nSectors; sector++) {
1349
1350            if (acqStartFXS) {
1351               AliTPCCalROC *rocAcqStart=acqStartFXS->GetCalROC(sector);
1352               if ( rocAcqStart )  acqStart->SetCalROC(rocAcqStart,sector);
1353            }
1354            if (zsThrFXS ) {
1355               AliTPCCalROC *rocZsThr=zsThrFXS->GetCalROC(sector);
1356               if ( rocZsThr )  zsThr->SetCalROC(rocZsThr,sector);
1357            }
1358            if (acqStopFXS) {
1359               AliTPCCalROC *rocAcqStop=acqStopFXS->GetCalROC(sector);
1360               if ( rocAcqStop )  acqStop->SetCalROC(rocAcqStop,sector);
1361            }
1362            if (FPEDFXS ) {
1363               AliTPCCalROC *rocFPED=FPEDFXS->GetCalROC(sector);
1364               if ( rocFPED )  FPED->SetCalROC(rocFPED,sector);
1365            }
1366            if (maskedFXS) {
1367               AliTPCCalROC *rocMasked=maskedFXS->GetCalROC(sector);
1368               if ( rocMasked )  masked->SetCalROC(rocMasked,sector);
1369            }
1370            if (k1FXS) {
1371               AliTPCCalROC *rocK1=k1FXS->GetCalROC(sector);
1372               if ( rocK1 )  k1->SetCalROC(rocK1,sector);
1373            }
1374            if (k2FXS) {
1375               AliTPCCalROC *rocK2=k2FXS->GetCalROC(sector);
1376               if ( rocK2 )  k2->SetCalROC(rocK2,sector);
1377            }
1378            if (k3FXS) {
1379               AliTPCCalROC *rocK3=k3FXS->GetCalROC(sector);
1380               if ( rocK3 )  k3->SetCalROC(rocK3,sector);
1381            }
1382            if (l1FXS) {
1383               AliTPCCalROC *rocL1=l1FXS->GetCalROC(sector);
1384               if ( rocL1 )  l1->SetCalROC(rocL1,sector);
1385            }
1386            if (l2FXS) {
1387               AliTPCCalROC *rocL2=l2FXS->GetCalROC(sector);
1388               if ( rocL2 )  l2->SetCalROC(rocL2,sector);
1389            }
1390            if (l3FXS) {
1391               AliTPCCalROC *rocL3=l3FXS->GetCalROC(sector);
1392               if ( rocL3 )  l3->SetCalROC(rocL3,sector);
1393            }
1394          }
1395          if (mapRCUconfigFXS) {
1396           Int_t mapEntries = mapRCUconfigFXS->GetEntries();
1397           TObjString* keyFXS;
1398           TVectorF* vecFXS;
1399           TVectorF* vec;              // nSectors = 72  (total number of inner/outer sectors)
1400           for (Int_t i=0; i<mapEntries; ++i) {
1401             keyFXS=(TObjString*)mapFXSiter->Next();
1402             vecFXS=(TVectorF*)mapRCUconfigFXS->GetValue(keyFXS);
1403             vec=(TVectorF*)mapRCUconfig->GetValue(keyFXS);
1404             if (!vec) {
1405               vec = new TVectorF(3*nSectors);
1406               *vec = -1;
1407               mapRCUconfig->Add(keyFXS,vec);
1408             }
1409             if (vec->GetNoElements() != 3*nSectors ) {
1410               vec->ResizeTo(3*nSectors);
1411             }
1412             if (id==0) {                        // A side
1413               vec->SetSub(0,vecFXS->GetSub(0,nSectors/2-1));
1414               vec->SetSub(nSectors,vecFXS->GetSub(nSectors,2*nSectors-1));
1415             } else {                             // C side
1416               vec->SetSub(nSectors/2,vecFXS->GetSub(nSectors/2,nSectors-1));
1417               vec->SetSub(2*nSectors,vecFXS->GetSub(2*nSectors,3*nSectors-1));
1418             }
1419           }
1420         }
1421        delete altroFXS;
1422        f->Close();
1423       }
1424      ++index;
1425      }  // while(list)
1426     } else {
1427       Log ("Error: no entries in AltroConfig file list!");
1428       result = 1;
1429     }
1430
1431    }   // for - id
1432 //
1433 //  Store updated pedestal entry to OCDB
1434 //
1435     if (changed) {
1436      AliCDBMetaData metaData;
1437      metaData.SetBeamPeriod(0);
1438      metaData.SetResponsible("Haavard Helstrup");
1439      metaData.SetAliRootVersion(ALIROOT_SVN_BRANCH);
1440      metaData.SetComment("Preprocessor AliTPC data base entries.");
1441
1442      Bool_t storeOK = Store("Calib", "AltroConfig", altroObjects, &metaData, 0, kFALSE);
1443      if ( !storeOK ) ++result;
1444     }
1445
1446   altroObjects->Delete();
1447   delete altroObjects;
1448
1449   return result;
1450 }