013b88093e00c0444f728e69a822e895ea1cc7f3
[u/mrichter/AliRoot.git] / EMCAL / AliEMCALPreprocessor.cxx
1 /**************************************************************************
2  * Copyright(c) 1998-1999, 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 /* $Id$ */
17
18 ///////////////////////////////////////////////////////////////////////////////
19 // EMCAL Preprocessor class. It runs by Shuttle at the end of the run,
20 // calculates stuff to be posted in OCDB
21 //
22 // Author: Boris Polichtchouk, 4 October 2006
23 // Adapted for EMCAL by Gustavo Conesa Balbastre, October 2006
24 // Updated by David Silvermyr May 2008, based on TPC code
25 ///////////////////////////////////////////////////////////////////////////////
26
27 //Root
28 #include "TFile.h"
29 #include "TTree.h"
30 #include "TEnv.h"
31 #include "TParameter.h"
32
33 #include <TTimeStamp.h>
34
35 //AliRoot
36 #include "AliShuttleInterface.h"
37 #include "AliEMCALPreprocessor.h"
38 #include "AliLog.h"
39 #include "AliDCSValue.h"
40 #include "AliCDBMetaData.h"
41 #include "AliEMCALTriggerTRUDCSConfig.h"
42 #include "AliEMCALTriggerDCSConfig.h"
43 #include "AliCaloCalibPedestal.h"
44 #include "AliCaloCalibSignal.h"
45 #include "AliEMCALSensorTempArray.h"
46
47 const Int_t kValCutTemp = 100;               // discard temperatures > 100 degrees
48 const Int_t kDiffCutTemp = 5;                // discard temperature differences > 5 degrees
49 const TString kPedestalRunType = "PEDESTAL";  // pedestal run identifier
50 const TString kPhysicsRunType = "PHYSICS";   // physics run identifier
51 const TString kStandAloneRunType = "STANDALONE_BC"; // standalone run identifier
52 const TString kAmandaTemp = "PT_%02d.Temperature"; // Amanda string for temperature entries
53 //const Double_t kFitFraction = 0.7;                 // Fraction of DCS sensor fits required 
54 const Double_t kFitFraction = -1.0;          // Don't require minimum number of fits during commissioning 
55
56 const TString kMetaResponsible = "David Silvermyr";
57 //legacy comments and return codes from TPC
58 const TString kMetaComment = "Preprocessor AliEMCAL data base entries.";
59 const int kReturnCodeNoInfo = 9;
60 const int kReturnCodeNoObject = 2;
61 const int kReturnCodeNoEntries = 1;
62
63 const int kNTRU = 30; // From 2011; 10 SuperModules (SM) * 3 TRU per SM
64
65 ClassImp(AliEMCALPreprocessor)
66   
67 //_______________________________________________________________________________________
68 AliEMCALPreprocessor::AliEMCALPreprocessor() :
69   AliPreprocessor("EMC",0),
70   fConfEnv(0), 
71   fTemp(0), 
72   fConfigOK(kTRUE)
73 {
74   //default constructor
75 }
76
77 //_______________________________________________________________________________________
78 AliEMCALPreprocessor::AliEMCALPreprocessor(AliShuttleInterface* shuttle):
79   AliPreprocessor("EMC",shuttle),
80   fConfEnv(0), 
81   fTemp(0), 
82   fConfigOK(kTRUE)
83 {
84   // Constructor AddRunType(kPedestalRunType);
85   
86   // define run types to be processed
87   AddRunType(kPedestalRunType);
88   AddRunType(kPhysicsRunType);
89 }
90
91 //______________________________________________________________________________________________
92 AliEMCALPreprocessor::AliEMCALPreprocessor(const AliEMCALPreprocessor&  ) :
93   AliPreprocessor("EMCAL",0),
94   fConfEnv(0), fTemp(0), fConfigOK(kTRUE)
95 {
96   Fatal("AliEMCALPreprocessor", "copy constructor not implemented");
97 }
98
99 // assignment operator; use copy ctor to make life easy.
100 //______________________________________________________________________________________________
101 AliEMCALPreprocessor& AliEMCALPreprocessor::operator = (const AliEMCALPreprocessor &source ) 
102 {
103   // assignment operator; use copy ctor
104   if (&source == this) return *this;
105   
106   new (this) AliEMCALPreprocessor(source);
107   return *this;
108 }
109
110 //____________________________________________________________________________
111 AliEMCALPreprocessor::~AliEMCALPreprocessor()
112 {
113   // destructor
114   if (fTemp) delete fTemp;
115 }
116
117 //______________________________________________________________________________________________
118 void AliEMCALPreprocessor::Initialize(Int_t run, UInt_t startTime,
119                                       UInt_t endTime)
120 {
121   // Creates AliTestDataDCS object -- start maps half an hour beforre actual run start
122   UInt_t startTimeLocal = startTime-1800;
123   AliPreprocessor::Initialize(run, startTimeLocal, endTime);
124   
125   AliInfo(Form("\n\tRun %d \n\tStartTime %s \n\tEndTime %s", run,
126                TTimeStamp((time_t)startTime,0).AsString(),
127                TTimeStamp((time_t)endTime,0).AsString()));
128   
129   // Preprocessor configuration
130   AliCDBEntry* entry = GetFromOCDB("Config", "Preprocessor");
131   if (entry) fConfEnv = (TEnv*) entry->GetObject();
132   if ( fConfEnv==0 ) {
133     Log("AliEMCALPreprocessor: Preprocessor Config OCDB entry missing.\n");
134     fConfigOK = kFALSE;
135     return;
136   }
137   
138   // Temperature sensors
139   TTree *confTree = 0;
140   
141   TString tempConf = fConfEnv->GetValue("Temperature","ON");
142   tempConf.ToUpper();
143   if (tempConf != "OFF" ) {
144     entry = GetFromOCDB("Config", "Temperature");
145     if (entry) confTree = (TTree*) entry->GetObject();
146     if ( confTree==0 ) {
147       Log("AliEMCALPreprocessor: Temperature Config OCDB entry missing.\n");
148       fConfigOK = kFALSE;
149       return;
150     }
151     fTemp = new AliEMCALSensorTempArray(startTimeLocal, fEndTime, confTree, kAmandaTemp);
152     fTemp->SetValCut(kValCutTemp);
153     fTemp->SetDiffCut(kDiffCutTemp);
154   }
155   
156   return;
157 }
158
159 //______________________________________________________________________________________________
160 UInt_t AliEMCALPreprocessor::Process(TMap* dcsAliasMap)
161 {
162   // Fills data into EMCAL calibrations objects
163   // Amanda servers provide information directly through dcsAliasMap
164   
165   if (!fConfigOK) return kReturnCodeNoInfo;
166   UInt_t result = 0;
167   TObjArray *resultArray = new TObjArray();
168   TString errorHandling = fConfEnv->GetValue("ErrorHandling","ON");
169   errorHandling.ToUpper();
170   TObject * status;
171   
172   UInt_t dcsResult=0;
173   if (errorHandling == "OFF" ) {
174     if (!dcsAliasMap) dcsResult = kReturnCodeNoEntries;
175     else if (dcsAliasMap->GetEntries() == 0 ) dcsResult = kReturnCodeNoEntries;  
176     status = new TParameter<int>("dcsResult",dcsResult);
177     resultArray->Add(status);
178   } 
179   else {
180     if (!dcsAliasMap) return kReturnCodeNoInfo;
181     else if (dcsAliasMap->GetEntries() == 0 ) return kReturnCodeNoInfo;
182   }
183   
184     
185   TString runType = GetRunType();
186   
187   // Temperature sensors are processed by AliEMCALCalTemp
188   TString tempConf = fConfEnv->GetValue("Temperature","ON");
189   tempConf.ToUpper();
190   if (tempConf != "OFF" && dcsAliasMap ) {
191     UInt_t tempResult = MapTemperature(dcsAliasMap);
192     result=tempResult;
193     status = new TParameter<int>("tempResult",tempResult);
194     resultArray->Add(status);
195   }
196   // Trigger configuration processing: only for Physics runs
197   TString triggerConf = fConfEnv->GetValue("Trigger","ON");
198   triggerConf.ToUpper();
199   if( runType == kPhysicsRunType ) {
200     if (triggerConf != "OFF" && dcsAliasMap ) {
201       UInt_t triggerResult = MapTriggerConfig(dcsAliasMap);
202       result+=triggerResult;
203       status = new TParameter<int>("triggerResult",triggerResult);
204       resultArray->Add(status);
205     }
206   }
207   
208   // Other calibration information will be retrieved through FXS files
209   //  examples:
210   //    TList* fileSourcesDAQ = GetFile(AliShuttleInterface::kDAQ, "pedestals");
211   //    const char* fileNamePed = GetFile(AliShuttleInterface::kDAQ, "pedestals", "LDC1");
212   //
213   //    TList* fileSourcesHLT = GetFile(AliShuttleInterface::kHLT, "calib");
214   //    const char* fileNameHLT = GetFile(AliShuttleInterface::kHLT, "calib", "LDC1");
215   
216   // PEDESTAL ENTRIES:
217   
218   if ( runType == kPedestalRunType ) {
219     Int_t numSources = 1;
220     Int_t pedestalSource[2] = {AliShuttleInterface::kDAQ, AliShuttleInterface::kHLT} ;
221     TString source = fConfEnv->GetValue("Pedestal","DAQ");
222     source.ToUpper();
223     if (source != "OFF" ) { 
224       if ( source == "HLT") pedestalSource[0] = AliShuttleInterface::kHLT;
225       if (!GetHLTStatus()) pedestalSource[0] = AliShuttleInterface::kDAQ;
226       if (source == "HLTDAQ" ) {
227         numSources=2;
228         pedestalSource[0] = AliShuttleInterface::kHLT;
229         pedestalSource[1] = AliShuttleInterface::kDAQ;
230       }
231       if (source == "DAQHLT" ) numSources=2;
232       UInt_t pedestalResult=0;
233       for (Int_t i=0; i<numSources; i++ ) {     
234         pedestalResult = ExtractPedestals(pedestalSource[i]);
235         if ( pedestalResult == 0 ) break;
236       }
237       result += pedestalResult;
238       status = new TParameter<int>("pedestalResult",pedestalResult);
239       resultArray->Add(status);
240     }
241   }
242   
243   // SIGNAL/LED ENTRIES:
244   if( runType == kPhysicsRunType ) {
245     Int_t numSources = 1;
246     Int_t signalSource[2] = {AliShuttleInterface::kDAQ,AliShuttleInterface::kHLT} ;
247     TString source = fConfEnv->GetValue("Signal","DAQ");
248     source.ToUpper();
249     if ( source != "OFF") { 
250       if ( source == "HLT") signalSource[0] = AliShuttleInterface::kHLT;
251       if (!GetHLTStatus()) signalSource[0] = AliShuttleInterface::kDAQ;
252       if (source == "HLTDAQ" ) {
253         numSources=2;
254         signalSource[0] = AliShuttleInterface::kHLT;
255         signalSource[1] = AliShuttleInterface::kDAQ;
256       }
257       if (source == "DAQHLT" ) numSources=2;
258       UInt_t signalResult=0;
259       for (Int_t i=0; i<numSources; i++ ) {     
260         signalResult = ExtractSignal(signalSource[i]);
261         if ( signalResult == 0 ) break;
262       }
263       result += signalResult;
264       status = new TParameter<int>("signalResult",signalResult);
265       resultArray->Add(status);
266     }
267   }
268   
269   
270   // overall status at the end
271   if (errorHandling == "OFF" ) {
272     AliCDBMetaData metaData;
273     metaData.SetBeamPeriod(0);
274     metaData.SetResponsible(kMetaResponsible);
275     metaData.SetComment("Preprocessor AliEMCAL status.");
276     Bool_t storeOK = Store("Calib", "PreprocStatus", resultArray, &metaData, 0, kFALSE);
277     resultArray->Delete();
278     result = 0;
279     if ( !storeOK )  result=1;
280     return result;
281   } 
282   else { 
283     return result;
284   }
285   
286 }
287 //______________________________________________________________________________________________
288 UInt_t AliEMCALPreprocessor::MapTemperature(TMap* dcsAliasMap)
289 { // extract DCS temperature maps. Perform fits to save space
290   UInt_t result=0;
291
292   TMap *map = fTemp->ExtractDCS(dcsAliasMap);
293   if (map) {
294     fTemp->MakeSplineFit(map);
295     Double_t fitFraction = 1.0*fTemp->NumFits()/fTemp->NumSensors(); 
296     if (fitFraction > kFitFraction ) {
297       AliInfo(Form("Temperature values extracted, fits performed.\n"));
298     } 
299     else { 
300       Log ("Too few temperature maps fitted. \n");
301       result = kReturnCodeNoInfo;
302     }
303   } 
304   else {
305     Log("No temperature map extracted. \n");
306     result = kReturnCodeNoInfo;
307   }
308   delete map;
309   // Now store the final CDB file
310   
311   if ( result == 0 ) { // some info was found
312     AliCDBMetaData metaData;
313     metaData.SetBeamPeriod(0);
314     metaData.SetResponsible(kMetaResponsible);
315     metaData.SetComment(kMetaComment);
316     
317     Bool_t storeOK = Store("Calib", "Temperature", fTemp, &metaData, 0, kFALSE);
318     if ( !storeOK )  result=1;
319     AliInfo(Form("Temperature info stored. result %d\n", result));
320   }
321   
322   return result;
323 }
324
325 //______________________________________________________________________________________________
326 UInt_t AliEMCALPreprocessor::MapTriggerConfig(TMap* dcsAliasMap)
327 { // extract DCS trigger info
328   AliInfo(Form("Get TRU info from DCS DPs.\n"));
329   Int_t i, iTRU;
330   const Int_t bufsize = 1000;
331   char buf[bufsize];
332
333   AliDCSValue *dcsVal;
334   TObjArray *arrL0ALGSEL, *arrPEAKFINDER, *arrGLOBALTHRESH, *arrCOSMTHRESH;
335   TObjArray *arrMASK[6];
336
337   // overall object to hold STU and DCS config info
338   // DS comment: for now only holds TRU info, i.e. only partially filled
339   // (STU info only in raw data header; unfortunately not also picked up via DCS DPs)
340   AliEMCALTriggerDCSConfig *trigConfig = new AliEMCALTriggerDCSConfig();
341   // allocate space for TRU objects
342   TClonesArray *truArr = new TClonesArray("AliEMCALTriggerTRUDCSConfig", kNTRU);
343   for( iTRU = 0; iTRU < kNTRU; iTRU++){
344     new((*truArr)[iTRU]) AliEMCALTriggerTRUDCSConfig();
345   }
346   trigConfig->SetTRUArr(truArr);
347
348   // loop through all TRUs
349   bool debug = true; // debug flag for AliInfo printouts for each TRU
350   for( iTRU = 0; iTRU < kNTRU; iTRU++){
351     if (debug) AliInfo( Form("iTRU %d \n", iTRU) );
352     // get the shuttled values
353     snprintf( buf, bufsize, "EMC_TRU%02d_L0ALGSEL", iTRU );
354     arrL0ALGSEL = (TObjArray*) dcsAliasMap->GetValue( buf );
355     snprintf( buf, bufsize, "EMC_TRU%02d_PEAKFINDER", iTRU );
356     arrPEAKFINDER = (TObjArray*) dcsAliasMap->GetValue( buf );
357     snprintf( buf, bufsize, "EMC_TRU%02d_GLOBALTHRESH", iTRU );
358     arrGLOBALTHRESH = (TObjArray*) dcsAliasMap->GetValue( buf );
359     snprintf( buf, bufsize, "EMC_TRU%02d_COSMTHRESH", iTRU );
360     arrCOSMTHRESH = (TObjArray*) dcsAliasMap->GetValue( buf );
361     
362     for( i = 0; i < 6; i++ ){
363       snprintf( buf, bufsize, "EMC_TRU%02d_MASK%d", iTRU, i );
364       arrMASK[i] = (TObjArray*) dcsAliasMap->GetValue( buf );
365     }
366     
367     // fill the objects
368     AliEMCALTriggerTRUDCSConfig* truConfig = trigConfig->GetTRUDCSConfig(iTRU);
369     if( ! truConfig ){
370       AliWarning( Form("EMC TRU%02d config not retrieved!\n", iTRU ));
371       continue;
372     }
373
374     // get last entries. fill the TRU object
375     if( ! arrL0ALGSEL ){
376       AliWarning( Form("EMC_TRU%02d_L0ALGSEL alias not found!\n", iTRU ));
377     }
378     else{
379       if (debug) AliInfo( Form("arrL0ALGSEL has %d entries \n", arrL0ALGSEL->GetEntries()) );
380       if ( arrL0ALGSEL->GetEntries() > 0 ) {
381         dcsVal = (AliDCSValue *) arrL0ALGSEL->At( arrL0ALGSEL->GetEntries() - 1 );
382         if (dcsVal) {
383                 truConfig->SetL0SEL( dcsVal->GetUInt() );
384     if (debug) AliInfo( Form("saving value: %u\n", dcsVal->GetUInt()) );
385         }
386       }
387       else
388       AliWarning( Form("EMC_TRU%02d_L0ALGSEL has no entries!\n", iTRU ));
389     }
390
391     if( ! arrPEAKFINDER ){
392       AliWarning( Form("EMC_TRU%02d_PEAKFINDER alias not found!\n", iTRU ));
393     }
394     else{
395       if (debug) AliInfo( Form("arrPEAKFINDER has %d entries \n", arrPEAKFINDER->GetEntries()) );
396       if ( arrPEAKFINDER->GetEntries() > 0 ) {
397         dcsVal = (AliDCSValue *) arrPEAKFINDER->At( arrPEAKFINDER->GetEntries() - 1 );
398         if (dcsVal){
399                 truConfig->SetSELPF( dcsVal->GetUInt() );
400     if (debug) AliInfo( Form("saving value: %u\n", dcsVal->GetUInt()) );
401         }
402       }
403       else
404       AliWarning( Form("EMC_TRU%02d_PEAKFINDER has no entries!\n", iTRU ));
405     }
406
407     if( ! arrGLOBALTHRESH ){
408       AliWarning( Form("EMC_TRU%02d_GLOBALTHRESH alias not found!\n", iTRU ));
409     }
410     else{
411       if (debug) AliInfo( Form("arrGLOBALTHRESH has %d entries \n", arrGLOBALTHRESH->GetEntries()) );
412       if ( arrGLOBALTHRESH->GetEntries() > 0 ) {
413         dcsVal = (AliDCSValue *) arrGLOBALTHRESH->At( arrGLOBALTHRESH->GetEntries() - 1 );
414         if (dcsVal){
415                 truConfig->SetGTHRL0( dcsVal->GetUInt() );
416     if (debug) AliInfo( Form("saving value: %u\n", dcsVal->GetUInt()) );
417         }
418       }
419       else
420       AliWarning( Form("EMC_TRU%02d_GLOBALTHRESH has no entries!\n", iTRU ));
421     }
422
423     if( ! arrCOSMTHRESH ){
424       AliWarning( Form("EMC_TRU%02d_COSMTHRESH alias not found!\n", iTRU ));
425     }
426     else{
427       if (debug) AliInfo( Form("arrCOSMTHRESH has %d entries \n", arrCOSMTHRESH->GetEntries()) );
428       if ( arrCOSMTHRESH->GetEntries() > 0 ) {
429         dcsVal = (AliDCSValue *) arrCOSMTHRESH->At( arrCOSMTHRESH->GetEntries() - 1 );
430         if (dcsVal){
431                 truConfig->SetL0COSM( dcsVal->GetUInt() );
432     if (debug) AliInfo( Form("saving value: %u\n", dcsVal->GetUInt()) );
433         }
434       }
435       else
436       AliWarning( Form("EMC_TRU%02d_COSMTHRESH has no entries!\n", iTRU ));
437     }
438     
439     for( i = 0; i < 6; i++ ){
440       if( ! arrMASK[i] ){
441         AliWarning( Form("EMC_TRU%02d_MASK%d alias not found!\n", iTRU, i ));
442       }
443       else{
444         if (debug) AliInfo( Form("arrMASK[%d] has %d entries \n", i, arrMASK[i]->GetEntries()) );
445         if ( arrMASK[i]->GetEntries() > 0 ) {
446           dcsVal = (AliDCSValue *) arrMASK[i]->At( arrMASK[i]->GetEntries() - 1 );
447           if (dcsVal){
448                         truConfig->SetMaskReg( dcsVal->GetUInt(), i );
449     if (debug) AliInfo( Form("saving value: %u\n", dcsVal->GetUInt()) );
450         }
451         }
452       else
453       AliWarning( Form("EMC_TRU%02d_MASK%d has no entries!\n", iTRU, i ));
454       }
455     }
456     
457   } // TRUs
458   AliInfo(Form("TRU info retrieved.\n"));
459   // save the objects
460   AliCDBMetaData metaData;
461   metaData.SetBeamPeriod(0);
462   metaData.SetResponsible(kMetaResponsible);
463   metaData.SetComment(kMetaComment); 
464       
465   UInt_t result=0;
466   Bool_t storeOK = Store("Calib", "Trigger", trigConfig, &metaData, 0, kFALSE);
467   if ( !storeOK )  result=1;
468   AliInfo(Form("TRU info stored. result %d\n", result));
469
470   return result;
471 }
472
473 //______________________________________________________________________________________________
474 UInt_t AliEMCALPreprocessor::ExtractPedestals(Int_t sourceFXS)
475 {
476   //  Read pedestal file from file exchange server
477   //  Only store if new pedestal info is available
478   //
479   UInt_t result=0;
480
481   AliCaloCalibPedestal *calibPed = new AliCaloCalibPedestal(AliCaloCalibPedestal::kEmCal);
482   calibPed->Init();
483
484   TList* list = GetFileSources(sourceFXS,"pedestals");
485   if (list && list->GetEntries()>0) {
486     
487     //  loop through all files from LDCs
488
489     int changes = 0;
490     UInt_t index = 0;
491     while (list->At(index)!=NULL) {
492       TObjString* fileNameEntry = (TObjString*) list->At(index);
493       if (fileNameEntry!=NULL) {
494         TString fileName = GetFile(sourceFXS, "pedestals",
495                                    fileNameEntry->GetString().Data());
496         TFile *f = TFile::Open(fileName);
497         if (!f) {
498           Log ("Error opening pedestal file.");
499           result = kReturnCodeNoObject;
500           break;
501         }
502         AliCaloCalibPedestal *calPed;
503         f->GetObject("emcCalibPedestal",calPed);
504         if ( !calPed ) {
505           Log ("No pedestal calibration object in file.");
506           result = kReturnCodeNoObject;
507           break;
508         }
509         if ( calPed->GetNEvents()>0 && calPed->GetNChanFills()>0 ) {
510           // add info for the modules available in the present file
511           Bool_t status = calibPed->AddInfo(calPed);
512           if (status) { changes++; }
513         }
514         
515         delete calPed; 
516         f->Close();
517       }
518       index++;
519     }  // while(list)
520     
521     //
522     //  Store updated pedestal entry to OCDB
523     //
524     if (changes>0) {
525       AliCDBMetaData metaData;
526       metaData.SetBeamPeriod(0);
527       metaData.SetResponsible(kMetaResponsible);
528       metaData.SetComment(kMetaComment); 
529       
530       Bool_t storeOK = StoreReferenceData("Calib", "Pedestals", calibPed, &metaData);
531       if ( !storeOK ) result++;
532     }
533   } 
534   else {
535     Log ("Error: no entries in input file list!");
536     result = kReturnCodeNoEntries;
537   }
538   
539   return result;
540 }
541
542 //______________________________________________________________________________________________
543 UInt_t AliEMCALPreprocessor::ExtractSignal(Int_t sourceFXS)
544 { //  Read signal file from file exchange server
545   //  Only store if new signal info is available
546   //
547   UInt_t result=0;
548   AliCaloCalibSignal *calibSig = new AliCaloCalibSignal(AliCaloCalibSignal::kEmCal); 
549   
550   TList* list = GetFileSources(sourceFXS,"signal");
551   if (list && list->GetEntries()>0) {
552
553     //  loop through all files from LDCs
554     
555     int changes = 0;
556     UInt_t index = 0;
557     while (list->At(index)!=NULL) {
558       TObjString* fileNameEntry = (TObjString*) list->At(index);
559       if (fileNameEntry!=NULL) {
560         TString fileName = GetFile(sourceFXS, "signal",
561                                    fileNameEntry->GetString().Data());
562         TFile *f = TFile::Open(fileName);
563         if (!f) {
564           Log ("Error opening signal file.");
565           result = kReturnCodeNoObject;
566           break;
567         }
568         AliCaloCalibSignal *calSig;
569         f->GetObject("emcCalibSignal",calSig);
570         if ( !calSig ) {
571           Log ("No signal calibration object in file.");
572           result = kReturnCodeNoObject;
573           break;
574         }
575         if ( calSig->GetNEvents()>0 ) {
576           // add info for the modules available in the present file
577           Bool_t status = calibSig->AddInfo(calSig);
578           if (status) { changes++; }
579         }
580         
581         delete calSig; 
582         f->Close();
583       }
584       index++;
585     }  // while(list)
586     
587     //
588     //  Store updated signal entry to OCDB
589     //
590     if (changes>0) {
591       AliCDBMetaData metaData;
592       metaData.SetBeamPeriod(0);
593       metaData.SetResponsible(kMetaResponsible);
594       metaData.SetComment(kMetaComment); 
595       
596       Bool_t storeOK = Store("Calib", "LED", calibSig, &metaData, 0, kFALSE);
597       if ( !storeOK ) result++;
598     }
599   } 
600   else {
601     Log ("Error: no entries in input file list!");
602     result = kReturnCodeNoEntries;
603   }
604
605   return result;
606 }
607
608