Panos Christakoglou: Added FlowOnMC macros
[u/mrichter/AliRoot.git] / SHUTTLE / schema_prod / RetrieveDPs.C
1 void RetrieveDPs(const char* detector, int tsFrom, int tsTo)
2 {
3         //
4         // Query amanda for DPs for detector from timestamp tsFrom to tsTo
5         //
6         // date --> unix date
7         // date --date='2008-02-28' '+%s'
8         
9         gSystem->Load("libRLDAP.so");
10         gSystem->Load("libMonaLisa");
11         gSystem->Load("libSHUTTLE");
12
13         AliDCSClient client("alidcsamanda.cern.ch",1337,1000,500,100);
14         //AliLog::SetClassDebugLevel("AliDCSClient",5);
15
16         AliShuttleConfig config("pcalishuttle01.cern.ch", 389, "", "", "o=shuttle_prod,dc=cern,dc=ch");
17         
18         TObjArray* list = config.GetDCSAliases(detector, 0);
19         TMap* map = client.GetAliasValues(list, tsFrom, tsTo);
20         
21         TFile* file = TFile::Open("DCSMap.root", "RECREATE");
22         map->Write("DCSMap", TObject::kSingleKey);
23         file->Close();
24         
25 }