Coverity fixes
[u/mrichter/AliRoot.git] / 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           TFile *f = TFile::Open(fileName);
1069           if (!f) {
1070             Log ("Error opening new central electrode file.");
1071 //             result =2;
1072             break;
1073           }
1074           AliTPCCalibCE *calCE;
1075           f->GetObject("tpcCalibCE",calCE);
1076           
1077           if (!calCE) {
1078             Log ("No valid new calibCE object.");
1079 //             result=2;
1080             break;
1081           }
1082
1083           TIter nextObj(calCE->GetArrFitGraphs());
1084           TObject *obj=0x0;
1085           while ( (obj=nextObj()) ){
1086             arrFitGraphs->Add(obj->Clone());
1087           }
1088           delete calCE;
1089           f->Close();          
1090         }
1091         ++index2;
1092       }
1093     }
1094     
1095 //
1096 //  Store updated pedestal entry to OCDB
1097 //
1098     AliCDBMetaData metaData;
1099     metaData.SetBeamPeriod(0);
1100     metaData.SetResponsible("Haavard Helstrup");
1101     metaData.SetAliRootVersion(ALIROOT_SVN_BRANCH);
1102     metaData.SetComment("Preprocessor AliTPC data base entries.");
1103     
1104     if ( result == 0 ) {
1105       Bool_t storeOK = Store("Calib", "CE", ceObjects, &metaData, 0, kTRUE);
1106       if ( !storeOK ) ++result;
1107     } else {
1108       Log ("Warning: Average time graphs not available - no OCDB entry written");
1109     }
1110   } else {
1111     Log ("Error: no CE entries available from FXS!");
1112     result = 1;
1113   }
1114   
1115   ceObjects->Delete();
1116   delete ceObjects;
1117   
1118   return result;
1119 }
1120 //______________________________________________________________________________________________
1121
1122 UInt_t AliTPCPreprocessor::ExtractQA(Int_t sourceFXS)
1123 {
1124  //
1125  //  Read Quality Assurance file from file exchage server
1126  //
1127  
1128  UInt_t result=0;
1129
1130  TList* list = GetFileSources(sourceFXS,"QA");
1131  
1132  if (list && list->GetEntries()>0) {
1133
1134 //  only one QA objetc should be available!
1135
1136     AliTPCdataQA *calQA;
1137
1138     UInt_t nentries = list->GetEntries();  
1139     UInt_t index=0;
1140     if ( nentries > 1) Log ( "More than one QA entry. First one processed");      
1141     TObjString* fileNameEntry = (TObjString*) list->At(index);
1142     if (fileNameEntry!=NULL) {
1143         TString fileName = GetFile(sourceFXS, "QA",
1144                                          fileNameEntry->GetString().Data());
1145         TFile *f = TFile::Open(fileName);
1146         if (!f) {
1147           Log ("Error opening QA file.");
1148           result =2;          
1149         } else {
1150           f->GetObject("tpcCalibQA",calQA);
1151           if ( calQA ) {      
1152 //
1153 //  Store updated pedestal entry to OCDB
1154 //
1155            AliCDBMetaData metaData;
1156            metaData.SetBeamPeriod(0);
1157            metaData.SetResponsible("Haavard Helstrup");
1158            metaData.SetAliRootVersion(ALIROOT_SVN_BRANCH);
1159            metaData.SetComment("Preprocessor AliTPC data base entries.");
1160
1161            Bool_t storeOK = Store("Calib", "QA", calQA, &metaData, 0, kFALSE);
1162            if ( !storeOK ) ++result;
1163
1164            delete calQA;
1165           }
1166         }
1167     } else {
1168     Log ("Error: no QA files on FXS!");
1169     result = 2;
1170     }
1171   } else {
1172     Log ("Error: no QA entries in FXS list!");
1173     result = 1;
1174   }
1175   return result;
1176 }
1177
1178 //______________________________________________________________________________________________
1179
1180
1181 UInt_t AliTPCPreprocessor::ExtractAltro(Int_t sourceFXS, TMap* dcsMap)
1182 {
1183  //
1184  //  Read Altro configuration file from file exchage server
1185  //  Keep original entry from OCDB in case no new pulser calibration is available
1186  //
1187  TObjArray    *altroObjects=0;
1188  AliTPCCalPad *acqStart=0;
1189  AliTPCCalPad *zsThr=0;
1190  AliTPCCalPad *acqStop=0;
1191  AliTPCCalPad *FPED=0;
1192  AliTPCCalPad *masked=0;
1193  AliTPCCalPad *k1=0, *k2=0, *k3=0;
1194  AliTPCCalPad *l1=0, *l2=0, *l3=0;
1195  TMap *mapRCUconfig=0;
1196
1197  AliCDBEntry* entry = GetFromOCDB("Calib", "AltroConfig");
1198  if (entry) altroObjects = (TObjArray*)entry->GetObject();
1199  if ( altroObjects==NULL ) {
1200      Log("AliTPCPreprocsessor: No previous TPC altro calibration entry available.\n");
1201      altroObjects = new TObjArray;    
1202  }
1203
1204  acqStart = (AliTPCCalPad*)altroObjects->FindObject("AcqStart");
1205  if ( !acqStart ) {
1206     acqStart = new AliTPCCalPad("AcqStart","AcqStart");
1207     altroObjects->Add(acqStart);
1208  }
1209  zsThr = (AliTPCCalPad*)altroObjects->FindObject("ZsThr");
1210  if ( !zsThr )  { 
1211     zsThr = new AliTPCCalPad("ZsThr","ZsThr");
1212     altroObjects->Add(zsThr);
1213  }
1214  FPED = (AliTPCCalPad*)altroObjects->FindObject("FPED");
1215  if ( !FPED )  { 
1216     FPED = new AliTPCCalPad("FPED","FPED");
1217     altroObjects->Add(FPED);
1218  }
1219  acqStop = (AliTPCCalPad*)altroObjects->FindObject("AcqStop");
1220  if ( !acqStop ) {
1221     acqStop = new AliTPCCalPad("AcqStop","AcqStop");
1222     altroObjects->Add(acqStop);
1223  }
1224  masked = (AliTPCCalPad*)altroObjects->FindObject("Masked");
1225  if ( !masked )  { 
1226     masked = new AliTPCCalPad("Masked","Masked");
1227     altroObjects->Add(masked);
1228  }
1229  k1 = (AliTPCCalPad*)altroObjects->FindObject("K1");
1230  if ( !k1 )  { 
1231     k1 = new AliTPCCalPad("K1","K1");
1232     altroObjects->Add(k1);
1233  }
1234  k2 = (AliTPCCalPad*)altroObjects->FindObject("K2");
1235  if ( !k2 )  { 
1236     k2 = new AliTPCCalPad("K2","K2");
1237     altroObjects->Add(k2);
1238  }
1239  k3 = (AliTPCCalPad*)altroObjects->FindObject("K3");
1240  if ( !k3 )  { 
1241     k3 = new AliTPCCalPad("K3","K3");
1242     altroObjects->Add(k3);
1243  }
1244  l1 = (AliTPCCalPad*)altroObjects->FindObject("L1");
1245  if ( !l1 )  { 
1246     l1 = new AliTPCCalPad("L1","L1");
1247     altroObjects->Add(l1);
1248  }
1249  l2 = (AliTPCCalPad*)altroObjects->FindObject("L2");
1250  if ( !l2 )  { 
1251     l2 = new AliTPCCalPad("L2","L2");
1252     altroObjects->Add(l2);
1253  }
1254  l3 = (AliTPCCalPad*)altroObjects->FindObject("L3");
1255  if ( !l3 )  { 
1256     l3 = new AliTPCCalPad("L3","L3");
1257     altroObjects->Add(l3);
1258  }
1259  mapRCUconfig = (TMap*)altroObjects->FindObject("RCUconfig");
1260  if (!mapRCUconfig) {
1261     mapRCUconfig = new TMap();
1262     mapRCUconfig->SetName("RCUconfig");
1263     altroObjects->Add(mapRCUconfig);
1264  }
1265
1266
1267  UInt_t result=0;
1268  TString idFXS[2]={"AltroConfigA","AltroConfigC"};
1269
1270  Int_t nSectors = fROC->GetNSectors();
1271  Bool_t changed=false;
1272  if (altroObjects == 0 ) altroObjects = new TObjArray;
1273
1274 // extract list of active DDLs
1275
1276   Bool_t found; 
1277   TString arrDDL(kNumDDL);
1278   arrDDL.Append('x',kNumDDL);
1279   for ( Int_t iDDL = 0; iDDL<kNumDDL; iDDL++ ) {
1280     TString stringID = Form (kAmandaDDL.Data(),iDDL+kFirstDDL);
1281     TPair *pair = (TPair*)dcsMap->FindObject(stringID.Data());
1282     found = false;
1283     if ( pair ) {
1284         TObjArray *valueSet=(TObjArray*)pair->Value();
1285         if ( valueSet) { 
1286           AliDCSValue *val = (AliDCSValue*)valueSet->At(0);
1287           if (val) { 
1288               found = val->GetBool();
1289               if (found){
1290                arrDDL[iDDL] = '1';
1291               } else { 
1292                arrDDL[iDDL] = '0';
1293               }
1294           }    
1295         }
1296     } 
1297   }
1298   TObjString *ddlArray = new TObjString;
1299   ddlArray->SetString(arrDDL);
1300   TMap *activeDDL = new TMap;
1301   activeDDL->SetName("DDLArray");
1302   TObjString *key = new TObjString("DDLArray");
1303   activeDDL->Add(key,ddlArray);
1304   altroObjects->Add(activeDDL);
1305   changed=true;
1306   
1307
1308 // extract Altro configuration files
1309
1310  for ( Int_t id=0; id<2; id++) {
1311    TList* list = GetFileSources(sourceFXS,idFXS[id].Data());
1312  
1313    if (list && list->GetEntries()>0) {
1314
1315 //  loop through all files from LDCs
1316
1317     UInt_t index = 0;
1318     while (list->At(index)!=NULL) {
1319      TObjString* fileNameEntry = (TObjString*) list->At(index);
1320      if (fileNameEntry!=NULL) {
1321         TString fileName = GetFile(sourceFXS, idFXS[id].Data(),
1322                                          fileNameEntry->GetString().Data());
1323         TFile *f = TFile::Open(fileName);
1324         if (!f) {
1325           const int mess_length=40;
1326           char message[mess_length];
1327           snprintf(message,mess_length,"Error opening Altro configuration file, id = %d",id);
1328           Log (message);
1329           result =2;
1330           break;
1331         }
1332         TObjArray *altroFXS;
1333         f->GetObject("AltroConfig",altroFXS);
1334         if ( !altroFXS ) {
1335           Log ("No Altro configuration object in file.");
1336           result = 2;
1337           break;
1338         }
1339
1340         //  replace entries for the sectors available in the present file
1341         AliTPCCalPad *acqStartFXS=(AliTPCCalPad*)altroFXS->FindObject("AcqStart");
1342         AliTPCCalPad *zsThrFXS=(AliTPCCalPad*)altroFXS->FindObject("ZsThr");
1343         AliTPCCalPad *acqStopFXS=(AliTPCCalPad*)altroFXS->FindObject("AcqStop");
1344         AliTPCCalPad *FPEDFXS=(AliTPCCalPad*)altroFXS->FindObject("FPED");
1345         AliTPCCalPad *maskedFXS=(AliTPCCalPad*)altroFXS->FindObject("Masked");
1346         AliTPCCalPad *k1FXS=(AliTPCCalPad*)altroFXS->FindObject("K1");
1347         AliTPCCalPad *k2FXS=(AliTPCCalPad*)altroFXS->FindObject("K2");
1348         AliTPCCalPad *k3FXS=(AliTPCCalPad*)altroFXS->FindObject("K3");
1349         AliTPCCalPad *l1FXS=(AliTPCCalPad*)altroFXS->FindObject("L1");
1350         AliTPCCalPad *l2FXS=(AliTPCCalPad*)altroFXS->FindObject("L2");
1351         AliTPCCalPad *l3FXS=(AliTPCCalPad*)altroFXS->FindObject("L3");
1352         TMap *mapRCUconfigFXS = (TMap*)altroFXS->FindObject("RCUconfig");
1353         TIterator *mapFXSiter = mapRCUconfigFXS->MakeIterator();
1354         
1355         changed=true;
1356         for (Int_t sector=0; sector<nSectors; sector++) {
1357             
1358            if (acqStartFXS) {
1359               AliTPCCalROC *rocAcqStart=acqStartFXS->GetCalROC(sector);
1360               if ( rocAcqStart )  acqStart->SetCalROC(rocAcqStart,sector);
1361            }
1362            if (zsThrFXS ) {
1363               AliTPCCalROC *rocZsThr=zsThrFXS->GetCalROC(sector);
1364               if ( rocZsThr )  zsThr->SetCalROC(rocZsThr,sector);
1365            }
1366            if (acqStopFXS) {
1367               AliTPCCalROC *rocAcqStop=acqStopFXS->GetCalROC(sector);
1368               if ( rocAcqStop )  acqStop->SetCalROC(rocAcqStop,sector);
1369            }
1370            if (FPEDFXS ) {
1371               AliTPCCalROC *rocFPED=FPEDFXS->GetCalROC(sector);
1372               if ( rocFPED )  FPED->SetCalROC(rocFPED,sector);
1373            }
1374            if (maskedFXS) {
1375               AliTPCCalROC *rocMasked=maskedFXS->GetCalROC(sector);
1376               if ( rocMasked )  masked->SetCalROC(rocMasked,sector);
1377            }
1378            if (k1FXS) {
1379               AliTPCCalROC *rocK1=k1FXS->GetCalROC(sector);
1380               if ( rocK1 )  k1->SetCalROC(rocK1,sector);
1381            }
1382            if (k2FXS) {
1383               AliTPCCalROC *rocK2=k2FXS->GetCalROC(sector);
1384               if ( rocK2 )  k2->SetCalROC(rocK2,sector);
1385            }
1386            if (k3FXS) {
1387               AliTPCCalROC *rocK3=k3FXS->GetCalROC(sector);
1388               if ( rocK3 )  k3->SetCalROC(rocK3,sector);
1389            }
1390            if (l1FXS) {
1391               AliTPCCalROC *rocL1=l1FXS->GetCalROC(sector);
1392               if ( rocL1 )  l1->SetCalROC(rocL1,sector);
1393            }
1394            if (l2FXS) {
1395               AliTPCCalROC *rocL2=l2FXS->GetCalROC(sector);
1396               if ( rocL2 )  l2->SetCalROC(rocL2,sector);
1397            }
1398            if (l3FXS) {
1399               AliTPCCalROC *rocL3=l3FXS->GetCalROC(sector);
1400               if ( rocL3 )  l3->SetCalROC(rocL3,sector);
1401            }
1402          }
1403          if (mapRCUconfigFXS) {
1404           Int_t mapEntries = mapRCUconfigFXS->GetEntries();
1405           TObjString* keyFXS;
1406           TVectorF* vecFXS;
1407           TVectorF* vec;              // nSectors = 72  (total number of inner/outer sectors)
1408           for (Int_t i=0; i<mapEntries; ++i) {
1409             keyFXS=(TObjString*)mapFXSiter->Next();
1410             vecFXS=(TVectorF*)mapRCUconfigFXS->GetValue(keyFXS);
1411             vec=(TVectorF*)mapRCUconfig->GetValue(keyFXS);
1412             if (!vec) {
1413               vec = new TVectorF(3*nSectors);
1414               *vec = -1;
1415               mapRCUconfig->Add(keyFXS,vec);
1416             }
1417             if (vec->GetNoElements() != 3*nSectors ) {
1418               vec->ResizeTo(3*nSectors);
1419             }
1420             if (id==0) {                        // A side
1421               vec->SetSub(0,vecFXS->GetSub(0,nSectors/2-1));
1422               vec->SetSub(nSectors,vecFXS->GetSub(nSectors,2*nSectors-1));
1423             } else {                             // C side
1424               vec->SetSub(nSectors/2,vecFXS->GetSub(nSectors/2,nSectors-1));
1425               vec->SetSub(2*nSectors,vecFXS->GetSub(2*nSectors,3*nSectors-1));
1426             }
1427           }
1428         }
1429        delete altroFXS;
1430        f->Close();
1431       }
1432      ++index;
1433      }  // while(list)
1434     } else {
1435       Log ("Error: no entries in AltroConfig file list!");
1436       result = 1;
1437     }
1438
1439    }   // for - id
1440 //
1441 //  Store updated pedestal entry to OCDB
1442 //
1443     if (changed) {
1444      AliCDBMetaData metaData;
1445      metaData.SetBeamPeriod(0);
1446      metaData.SetResponsible("Haavard Helstrup");
1447      metaData.SetAliRootVersion(ALIROOT_SVN_BRANCH);
1448      metaData.SetComment("Preprocessor AliTPC data base entries.");
1449
1450      Bool_t storeOK = Store("Calib", "AltroConfig", altroObjects, &metaData, 0, kFALSE);
1451      if ( !storeOK ) ++result;
1452     }  
1453
1454   altroObjects->Delete();
1455   delete altroObjects;
1456   
1457   return result;
1458 }