]> git.uio.no Git - u/mrichter/AliRoot.git/blobdiff - STEER/AliCDBManager.cxx
- Implementing functions for the GRP preprocessor to retrieve DA output files from...
[u/mrichter/AliRoot.git] / STEER / AliCDBManager.cxx
index 8309231424c7510bb4f6b66827724db417059f86..d60fe47444191dbf457629abc93d8f5be2e1acab 100644 (file)
 #include "AliCDBLocal.h"
 #include "AliCDBGrid.h"
 #include "AliCDBEntry.h"
-#include "AliCDBMetaData.h"
+#include "AliCDBHandler.h"
 
 #include <TObjString.h>
-#include <TSystem.h>
+#include <TSAXParser.h>
+#include <TFile.h>
+#include <TUUID.h>
+#include <TGrid.h>
 
 ClassImp(AliCDBParam)
 
@@ -37,16 +40,23 @@ ClassImp(AliCDBManager)
 //TODO OCDB and Reference folder should not be fully hardcoded but built from run number (or year/LHC period)
 TString AliCDBManager::fgkCondUri("alien://folder=/alice/cern.ch/user/a/aliprod/testCDB/CDB?user=aliprod");
 TString AliCDBManager::fgkRefUri("alien://folder=/alice/cern.ch/user/a/aliprod/testCDB/Reference?user=aliprod");
+TString AliCDBManager::fgkMCIdealStorage("alien://folder=/alice/simulation/2008/v4-15-Release/Ideal");
+TString AliCDBManager::fgkMCFullStorage("alien://folder=/alice/simulation/2008/v4-15-Release/Full");
+TString AliCDBManager::fgkMCResidualStorage("alien://folder=/alice/simulation/2008/v4-15-Release/Residual");
+TString AliCDBManager::fgkOCDBFolderXMLfile("alien:///alice/data/OCDBFoldervsRunRange.xml");
 AliCDBManager* AliCDBManager::fgInstance = 0x0;
 
 //_____________________________________________________________________________
-AliCDBManager* AliCDBManager::Instance()
+AliCDBManager* AliCDBManager::Instance(TMap *entryCache, Int_t run)
 {
 // returns AliCDBManager instance (singleton)
 
        if (!fgInstance) {
                fgInstance = new AliCDBManager();
-               fgInstance->Init();
+               if (!entryCache)
+                 fgInstance->Init();
+               else
+                 fgInstance->InitFromCache(entryCache,run);
        }
 
        return fgInstance;
@@ -68,6 +78,25 @@ void AliCDBManager::Init() {
 
        InitShortLived();
 }
+
+//_____________________________________________________________________________
+void AliCDBManager::InitFromCache(TMap *entryCache, Int_t run) {
+// initialize manager from existing cache
+// used on the slaves in case of parallel reconstruction
+  SetRun(run);
+
+  TIter iter(entryCache->GetTable());
+  TPair* pair = 0;
+
+  while((pair = dynamic_cast<TPair*> (iter.Next()))){
+    fEntryCache.Add(pair->Key(),pair->Value());
+  }
+  // fEntry is the new owner of the cache
+  fEntryCache.SetOwnerKeyValue(kTRUE,kTRUE);
+  entryCache->SetOwnerKeyValue(kFALSE,kFALSE);
+  AliInfo(Form("%d cache entries have been loaded",fEntryCache.GetEntries()));
+}
+
 //_____________________________________________________________________________
 void AliCDBManager::Destroy() {
 // delete ALCDBManager instance and active storages
@@ -82,24 +111,37 @@ void AliCDBManager::Destroy() {
 //_____________________________________________________________________________
 AliCDBManager::AliCDBManager():
   TObject(),
-  fCondParam(0),
-  fRefParam(0),
   fFactories(),
   fActiveStorages(),
   fSpecificStorages(),
+  fEntryCache(),
+  fIds(0),
+  fStorageMap(0),
+  fShortLived(0),
   fDefaultStorage(NULL),
-  fRemoteStorage(NULL),
   fDrainStorage(NULL),
-  fEntryCache(),
-  fCache(kTRUE),
+  fCondParam(0),
+  fRefParam(0),
   fRun(-1),
-  fShortLived(0)
+  fCache(kTRUE),
+  fLock(kFALSE),
+  fRaw(kFALSE),
+  fStartRunLHCPeriod(-1),
+  fEndRunLHCPeriod(-1),
+  fLHCPeriod(""),
+  fKey(0)
 {
 // default constuctor
        fFactories.SetOwner(1);
        fActiveStorages.SetOwner(1);
        fSpecificStorages.SetOwner(1);
-       fEntryCache.SetOwner(1);
+       fEntryCache.SetName("CDBEntryCache");
+       fEntryCache.SetOwnerKeyValue(kTRUE,kTRUE);
+
+       fStorageMap = new TMap();
+       fStorageMap->SetOwner(1);
+       fIds = new TList();
+       fIds->SetOwner(1);
 }
 
 //_____________________________________________________________________________
@@ -110,7 +152,8 @@ AliCDBManager::~AliCDBManager() {
        fFactories.Delete();
        fDrainStorage = 0x0;
        fDefaultStorage = 0x0;
-       fRemoteStorage = 0x0;
+       delete fStorageMap; fStorageMap = 0;
+       delete fIds; fIds = 0;
        delete fCondParam;
        delete fRefParam;
        delete fShortLived; fShortLived = 0x0;
@@ -135,7 +178,7 @@ void AliCDBManager::RegisterFactory(AliCDBStorageFactory* factory) {
 
 //_____________________________________________________________________________
 Bool_t AliCDBManager::HasStorage(const char* dbString) const {
-// check if dbString is a URI valid for one of the registered factories 
+// check if dbString is a URI valid for one of the registered factories
 
        TIter iter(&fFactories);
 
@@ -168,7 +211,7 @@ AliCDBParam* AliCDBManager::CreateParameter(const char* dbString) const {
 //_____________________________________________________________________________
 AliCDBStorage* AliCDBManager::GetStorage(const char* dbString) {
 // get storage object from URI string
-       
+               
        AliCDBParam* param = CreateParameter(dbString);
        if (!param) {
                AliError(Form("Failed to activate requested storage! Check URI: %s", dbString));
@@ -184,7 +227,7 @@ AliCDBStorage* AliCDBManager::GetStorage(const char* dbString) {
 //_____________________________________________________________________________
 AliCDBStorage* AliCDBManager::GetStorage(const AliCDBParam* param) {
 // get storage object from AliCDBParam object
-
+       
        // if the list of active storages already contains
        // the requested storage, return it
        AliCDBStorage* aStorage = GetActiveStorage(param);
@@ -192,6 +235,14 @@ AliCDBStorage* AliCDBManager::GetStorage(const AliCDBParam* param) {
                return aStorage;
        }
 
+       // if lock is ON, cannot activate more storages!
+       if(fLock) {
+               if (fDefaultStorage) {
+                       AliFatal("Lock is ON, and default storage is already set: "
+                               "cannot reset it or activate more storages!");
+               }
+       }       
+       
        TIter iter(&fFactories);
 
         AliCDBStorageFactory* factory=0;
@@ -273,50 +324,189 @@ Bool_t AliCDBManager::Drain(AliCDBEntry *entry) {
        return fDrainStorage->Put(entry);
 }
 
-//_____________________________________________________________________________
+//____________________________________________________________________________
 void AliCDBManager::SetDefaultStorage(const char* dbString) {
 // sets default storage from URI string
+       
+       // checking whether we are in the raw case
+       TString dbStringTemp(dbString);
+       if (dbStringTemp == "raw://")
+       {
+               fRaw = kTRUE;
+               AliInfo("Setting the run-number will set the corresponding OCDB for raw data reconstruction.");
+               AliInfo("Connecting to the grid...");
+               if(!gGrid) {
+                       TGrid::Connect("alien://","");
+                       if(!gGrid) {
+                               AliError("Connection to alien failed!");
+                               return;
+                       }
+               }
+               return;
+       }
 
-       AliInfo(Form("Setting Default storage to: %s",dbString));
+       AliCDBStorage* bckStorage = fDefaultStorage;
+       
        fDefaultStorage = GetStorage(dbString);
+       
+       if(!fDefaultStorage) return;
+       
+       if(bckStorage && (fDefaultStorage != bckStorage)){
+               AliWarning("Existing default storage replaced: clearing cache!");
+               ClearCache();
+       }
+       
+       if (fStorageMap->Contains("default")) {
+               delete fStorageMap->Remove(fStorageMap->GetValue("default"));
+       }
+       fStorageMap->Add(new TObjString("default"), new TObjString(fDefaultStorage->GetURI()));
 }
-
 //_____________________________________________________________________________
 void AliCDBManager::SetDefaultStorage(const AliCDBParam* param) {
 // set default storage from AliCDBParam object
+       
+       AliCDBStorage* bckStorage = fDefaultStorage;
 
        fDefaultStorage = GetStorage(param);
+
+       if(!fDefaultStorage) return;
+
+       if(bckStorage && (fDefaultStorage != bckStorage)){
+               AliWarning("Existing default storage replaced: clearing cache!");
+               ClearCache();
+       }
+
+       if (fStorageMap->Contains("default")) {
+               delete fStorageMap->Remove(fStorageMap->GetValue("default"));
+       }
+       fStorageMap->Add(new TObjString("default"), new TObjString(fDefaultStorage->GetURI()));
 }
 
 //_____________________________________________________________________________
 void AliCDBManager::SetDefaultStorage(AliCDBStorage* storage) {
 // set default storage from another active storage
+       
+       // if lock is ON, cannot activate more storages!
+       if(fLock) {
+               if (fDefaultStorage) {
+                       AliFatal("Lock is ON, and default storage is already set: "
+                               "cannot reset it or activate more storages!");
+               }
+       }       
+       
+       if (!storage) {
+               UnsetDefaultStorage();
+               return;
+       }
+       
+       AliCDBStorage* bckStorage = fDefaultStorage;
 
        fDefaultStorage = storage;
+
+       if(bckStorage && (fDefaultStorage != bckStorage)){
+               AliWarning("Existing default storage replaced: clearing cache!");
+               ClearCache();
+       }
+
+       if (fStorageMap->Contains("default")) {
+               delete fStorageMap->Remove(fStorageMap->GetValue("default"));
+       }
+       fStorageMap->Add(new TObjString("default"), new TObjString(fDefaultStorage->GetURI()));
 }
+
 //_____________________________________________________________________________
-void AliCDBManager::SetRemoteStorage(const char* dbString) {
-// sets remote storage from URI string
-// Remote storage is queried if it is activated and if object was not found in default storage
+void AliCDBManager::SetDefaultStorage(const char* mcString, const char* simType) {
+// sets default storage for MC data
+// mcString MUST be "MC", 
+// simType can be "Ideal","Residual","Full"
+       
+       TString strmcString(mcString);
+       TString strsimType(simType);
+       TString dbString; 
+        if (strmcString != "MC"){
+               AliFatal("Method requires first string to be MC!");
+       }
+        else {
+               if (strsimType == "Ideal"){
+                       dbString = fgkMCIdealStorage;
+               }
+               else if (strsimType == "Full"){
+                       dbString = fgkMCFullStorage;
+               }
+               else if (strsimType == "Residual"){
+                       dbString = fgkMCResidualStorage;
+               }
+               else {
+                       AliFatal("Error in setting the storage for MC data, second argument MUST be either \"Ideal\" or \"Full\" or \"Residual\".");
+               }
 
-       AliInfo(Form("Setting Default storage to: %s",dbString));
-       fRemoteStorage = GetStorage(dbString);
+               SetDefaultStorage(dbString.Data());
+               if(!fDefaultStorage) AliFatal(Form("%s storage not there! Please check!",fLHCPeriod.Data()));
+       }
 }
-
 //_____________________________________________________________________________
-void AliCDBManager::SetRemoteStorage(const AliCDBParam* param) {
-// set remote storage from AliCDBParam object
-// Remote storage is queried if it is activated and if object was not found in default storage
+void AliCDBManager::SetDefaultStorageFromRun(Int_t run) {
+// set default storage from the run number - to be used only with raw data     
+
+       // if lock is ON, cannot activate more storages!
+       if(fLock) {
+               if (fDefaultStorage) {
+                       AliFatal("Lock is ON, and default storage is already set: "
+                               "cannot activate default storage from run number");
+               }
+       }       
+
+       // retrieve XML file from alien
+       if(!gGrid) {
+           TGrid::Connect("alien://","");
+           if(!gGrid) {
+               AliError("Connection to alien failed!");
+               return;
+           }
+       }
+       TUUID uuid;
+       TString rndname = "/tmp/";
+       rndname += "OCDBFolderXML.";
+       rndname += uuid.AsString();
+       rndname += ".xml";
+       AliDebug(2, Form("file to be copied = %s", fgkOCDBFolderXMLfile.Data()));
+       if (!TFile::Cp(fgkOCDBFolderXMLfile.Data(), rndname.Data())) {
+               AliFatal(Form("Cannot make a local copy of OCDBFolder xml file in %s",rndname.Data()));
+       }
+       AliCDBHandler* saxcdb = new AliCDBHandler();
+       saxcdb->SetRun(run);
+       TSAXParser *saxParser = new TSAXParser();
+       saxParser->ConnectToHandler("AliCDBHandler", saxcdb);  
+       saxParser->ParseFile(rndname.Data()); 
+       AliInfo(Form(" LHC folder = %s", saxcdb->GetOCDBFolder().Data()));
+       AliInfo(Form(" LHC period start run = %d", saxcdb->GetStartRunRange()));
+       AliInfo(Form(" LHC period end run = %d", saxcdb->GetEndRunRange()));
+       fLHCPeriod = saxcdb->GetOCDBFolder();
+       fStartRunLHCPeriod = saxcdb->GetStartRunRange();
+       fEndRunLHCPeriod = saxcdb->GetEndRunRange();
+
+       SetDefaultStorage(fLHCPeriod.Data());
+       if(!fDefaultStorage) AliFatal(Form("%s storage not there! Please check!",fLHCPeriod.Data()));
 
-       fRemoteStorage = GetStorage(param);
 }
 
 //_____________________________________________________________________________
-void AliCDBManager::SetRemoteStorage(AliCDBStorage* storage) {
-// set remote storage from another active storage
-// Remote storage is queried if it is activated and if object was not found in default storage
-
-       fRemoteStorage = storage;
+void AliCDBManager::UnsetDefaultStorage() {
+// Unset default storage
+       
+       // if lock is ON, action is forbidden!
+       if(fLock) {
+               if (fDefaultStorage) {
+                       AliFatal("Lock is ON: cannot unset default storage!");
+               }
+       }
+       
+       if (fDefaultStorage) {
+               AliWarning("Clearing cache!");
+               ClearCache();
+       }
+       
+       fDefaultStorage = 0x0;
 }
 
 //_____________________________________________________________________________
@@ -338,11 +528,13 @@ void AliCDBManager::SetSpecificStorage(const char* calibType, AliCDBParam* param
 // AliCDBManager::instance()->SetSpecificStorage("*/Align/*","local://DB_TPCAlign");
 // calibType must be a valid CDB path! (3 level folder structure)
 
-       if(!fDefaultStorage) {
+
+       if(!fDefaultStorage && !fRaw) {
                AliError("Please activate a default storage first!");
                return;
        }
 
+
        AliCDBPath aPath(calibType);
        if(!aPath.IsValid()){
                AliError(Form("Not a valid path: %s", calibType));
@@ -357,9 +549,16 @@ void AliCDBManager::SetSpecificStorage(const char* calibType, AliCDBParam* param
                if(checkPar) delete checkPar;
                delete fSpecificStorages.Remove(objCalibType);
        }
-       GetStorage(param);
+       AliCDBStorage *aStorage = GetStorage(param);
+       if(!aStorage) return;
 
        fSpecificStorages.Add(objCalibType, param->CloneParam());
+
+       if(fStorageMap->Contains(objCalibType)){
+               delete fStorageMap->Remove(objCalibType);
+       }
+       fStorageMap->Add(objCalibType->Clone(), new TObjString(param->GetURI()));
+
 }
 
 //_____________________________________________________________________________
@@ -431,11 +630,6 @@ AliCDBEntry* AliCDBManager::Get(const AliCDBPath& path,
 AliCDBEntry* AliCDBManager::Get(const AliCDBId& query) {
 // get an AliCDBEntry object from the database
        
-       if(!fDefaultStorage) {
-               AliError("No storage set!");
-               return NULL;
-       }
-
        // check if query's path and runRange are valid
        // query is invalid also if version is not specified and subversion is!
        if (!query.IsValid()) {
@@ -450,10 +644,12 @@ AliCDBEntry* AliCDBManager::Get(const AliCDBId& query) {
                 return NULL;
        }
 
-       if(fCache && query.GetFirstRun() != fRun)
+       if(fLock && query.GetFirstRun() != fRun)
+               AliFatal("Lock is ON: cannot use different run number than the internal one!");
+       
+       if(fCache && query.GetFirstRun() != fRun)
                AliWarning("Run number explicitly set in query: CDB cache temporarily disabled!");
 
-
        AliCDBEntry *entry=0;
 
        // first look into map of cached objects
@@ -465,16 +661,20 @@ AliCDBEntry* AliCDBManager::Get(const AliCDBId& query) {
                return entry;
        }
 
+       if(!fDefaultStorage) {
+               AliError("No storage set!");
+               return NULL;
+       }
        // Entry is not in cache -> retrieve it from CDB and cache it!!
        AliCDBStorage *aStorage=0;
        AliCDBParam *aPar=SelectSpecificStorage(query.GetPath());
-       Bool_t usedDefStorage=kTRUE;
+//     Bool_t usedDefStorage=kTRUE;
 
        if(aPar) {
                aStorage=GetStorage(aPar);
                TString str = aPar->GetURI();
                AliDebug(2,Form("Looking into storage: %s",str.Data()));
-               usedDefStorage=kFALSE;
+//             usedDefStorage=kFALSE;
 
        } else {
                aStorage=GetDefaultStorage();
@@ -483,19 +683,37 @@ AliCDBEntry* AliCDBManager::Get(const AliCDBId& query) {
 
        entry = aStorage->Get(query);
 
-       if (!entry && usedDefStorage && IsRemoteStorageSet()) {
-               AliWarning(Form("Object not found in default storage: Looking into remote storage!"));
-               entry = fRemoteStorage->Get(query);
-       }
-
        if(entry && fCache && (query.GetFirstRun() == fRun)){
                CacheEntry(query.GetPath(), entry);
        }
 
+       if(entry && !fIds->Contains(&entry->GetId())){
+               fIds->Add(entry->GetId().Clone());
+       }
+
+
        return entry;
 
 }
 
+//_____________________________________________________________________________
+const char* AliCDBManager::GetURI(const char* path) {
+// return the URI of the storage where to look for path
+
+       if(!IsDefaultStorageSet()) return 0;
+       
+       AliCDBParam *aPar=SelectSpecificStorage(path);
+
+       if(aPar) {
+               return aPar->GetURI().Data();
+
+       } else {
+               return GetDefaultStorage()->GetURI().Data();
+       }
+       
+       return 0;
+}
+
 //_____________________________________________________________________________
 AliCDBId* AliCDBManager::GetId(const AliCDBPath& path, Int_t runNumber,
        Int_t version, Int_t subVersion) {
@@ -636,6 +854,9 @@ TList* AliCDBManager::GetAll(const AliCDBId& query) {
                return NULL;
        }
 
+       if(fLock && query.GetFirstRun() != fRun)
+               AliFatal("Lock is ON: cannot use different run number than the internal one!");
+       
        AliCDBParam *aPar=SelectSpecificStorage(query.GetPath());
 
        AliCDBStorage *aStorage;
@@ -690,22 +911,31 @@ TList* AliCDBManager::GetAll(const AliCDBId& query) {
        }
 
        // caching entries
-       if(fCache && (query.GetFirstRun() == fRun)){
+       TIter iter(result);
+       AliCDBEntry* entry=0;
+       while((entry = dynamic_cast<AliCDBEntry*> (iter.Next()))){
 
-               TIter iter(result);
-               AliCDBEntry* entry=0;
-               while((entry = dynamic_cast<AliCDBEntry*> (iter.Next()))){
+               if(!fIds->Contains(&entry->GetId())){
+                       fIds->Add(entry->GetId().Clone());
+               }
+               if(fCache && (query.GetFirstRun() == fRun)){
                        CacheEntry(entry->GetId().GetPath(), entry);
                }
        }
 
+
        return result;
 }
 
 //_____________________________________________________________________________
-Bool_t AliCDBManager::Put(TObject* object, AliCDBId& id,  AliCDBMetaData* metaData, DataType type){
+Bool_t AliCDBManager::Put(TObject* object, AliCDBId& id, AliCDBMetaData* metaData, const DataType type){
 // store an AliCDBEntry object into the database
 
+       if (object==0x0) {
+               AliError("Null Entry! No storage will be done!");
+               return kFALSE;
+       } 
+
        AliCDBEntry anEntry(object, id, metaData);
        return Put(&anEntry, type);
 
@@ -721,6 +951,11 @@ Bool_t AliCDBManager::Put(AliCDBEntry* entry, DataType type){
                return kFALSE;
        }
 
+       if (entry->GetObject()==0x0){
+               AliError("No valid object in CDB entry!");
+               return kFALSE;
+       }
+
        if (!entry){
                AliError("No entry!");
                return kFALSE;
@@ -824,11 +1059,25 @@ void AliCDBManager::SetRun(Int_t run)
 {
 // Sets current run number.
 // When the run number changes the caching is cleared.
-  
-       if (fRun == run)
+       
+       if(fRun == run)
                return;
   
+       if(fLock && fRun >= 0) {
+               AliFatal("Lock is ON, cannot reset run number!");
+       }       
+               
        fRun = run;
+       if(fRaw){
+               // here the LHCPeriod xml file is parsed; the string containing the correct period is returned; the default storage is set
+               if (fStartRunLHCPeriod <= run && fEndRunLHCPeriod >= run){
+                       AliInfo("LHCPeriod alien folder for current run already in memory");
+               }else{
+                       SetDefaultStorageFromRun(run);
+                       if(fEntryCache.GetEntries()!=0) ClearCache();
+                       return;
+               }
+       }
        ClearCache();
        QueryCDB();
 }
@@ -837,30 +1086,46 @@ void AliCDBManager::SetRun(Int_t run)
 void AliCDBManager::ClearCache(){
 // clear AliCDBEntry cache
 
-       AliDebug(2,Form("Clearing cache!"));
+       AliDebug(2, Form("Cache entries to be deleted: %d",fEntryCache.GetEntries()));
+       
+       /*
+       // To clean entries one by one
+       TIter iter(fEntryCache.GetTable());
+       TPair* pair=0;
+       while((pair= dynamic_cast<TPair*> (iter.Next()))){
+       
+               TObjString* key = dynamic_cast<TObjString*> (pair->Key());
+               AliCDBEntry* entry = dynamic_cast<AliCDBEntry*> (pair->Value());
+               AliDebug(2, Form("Deleting entry: %s", key->GetName()));
+               if (entry) delete entry;
+               delete fEntryCache.Remove(key);
+       }
+       */
        fEntryCache.DeleteAll();
-       AliDebug(2,Form("Cache entries: %d",fEntryCache.GetEntries()));
-
+       AliDebug(2, Form("After deleting - Cache entries: %d",fEntryCache.GetEntries()));
 }
 
 //_____________________________________________________________________________
 void AliCDBManager::UnloadFromCache(const char* path){
 // unload cached object
 
+       if(!fActiveStorages.GetEntries()) {
+               AliDebug(2, Form("No active storages. Object \"%s\" is not unloaded from cache", path));
+               return;
+       }
+
        AliCDBPath queryPath(path);
        if(!queryPath.IsValid()) return;
 
        if(!queryPath.IsWildcard()) { // path is not wildcard, get it directly from the cache and unload it!
                if(fEntryCache.Contains(path)){
-                       AliInfo(Form("Unloading object \"%s\" from cache", path));
+                       AliDebug(2, Form("Unloading object \"%s\" from cache", path));
                        TObjString pathStr(path);
-                       AliCDBEntry *entry = dynamic_cast<AliCDBEntry*> (fEntryCache.GetValue(&pathStr));
-                       if(entry) delete entry;
                        delete fEntryCache.Remove(&pathStr);
                } else {
                        AliError(Form("Cache does not contain object \"%s\"!", path))
                }
-               AliDebug(2,Form("Cache entries: %d",fEntryCache.GetEntries()));
+               AliDebug(2, Form("Cache entries: %d",fEntryCache.GetEntries()));
                return;
        }
 
@@ -871,10 +1136,8 @@ void AliCDBManager::UnloadFromCache(const char* path){
        while((pair = dynamic_cast<TPair*> (iter.Next()))){
                AliCDBPath entryPath = pair->Key()->GetName();
                if(queryPath.Comprises(entryPath)) {
-                       AliInfo(Form("Unloading object \"%s\" from cache", entryPath.GetPath().Data()));
+                       AliDebug(2, Form("Unloading object \"%s\" from cache", entryPath.GetPath().Data()));
                        TObjString pathStr(entryPath.GetPath().Data());
-                       AliCDBEntry *entry = dynamic_cast<AliCDBEntry*> (fEntryCache.GetValue(&pathStr));
-                       if(entry) delete entry;
                        delete fEntryCache.Remove(&pathStr);
                }
        }
@@ -1010,6 +1273,35 @@ Bool_t AliCDBManager::IsShortLived(const char* path)
 
 }
 
+//______________________________________________________________________________________________
+ULong_t AliCDBManager::SetLock(Bool_t lock, ULong_t key){
+  // To lock/unlock user must provide the key. A new key is provided after
+  // each successful lock. User should always backup the returned key and
+  // use it on next access.
+  if (fLock == lock) return 0;  // nothing to be done
+  if (lock) {
+    // User wants to lock - check his identity
+    if (fKey) {
+      // Lock has a user - check his key
+      if (fKey != key) {
+        AliFatal("Wrong key provided to lock CDB. Please remove CDB lock access from your code !");
+        return 0;
+      }  
+    }  
+    // Provide new key 
+    fKey = gSystem->Now();
+    fLock = kTRUE;
+    return fKey;
+  }
+  // User wants to unlock - check the provided key
+  if (key != fKey) {
+    AliFatal("Lock is ON: wrong key provided");
+    return 0;
+  }  
+  fLock = kFALSE;
+  return key;  
+}
+
 ///////////////////////////////////////////////////////////
 // AliCDBManager Parameter class                         //
 // interface to specific AliCDBParameter class           //