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