MonaLisa monitoring in BITS
authorhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Tue, 24 Apr 2007 16:07:20 +0000 (16:07 +0000)
committerhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Tue, 24 Apr 2007 16:07:20 +0000 (16:07 +0000)
test/PbPbbench/monrec.C [new file with mode: 0644]
test/PbPbbench/monsim.C [new file with mode: 0644]
test/ppbench/monrec.C [new file with mode: 0644]
test/ppbench/monsim.C [new file with mode: 0644]

diff --git a/test/PbPbbench/monrec.C b/test/PbPbbench/monrec.C
new file mode 100644 (file)
index 0000000..e8e1de3
--- /dev/null
@@ -0,0 +1,33 @@
+void monrec() {
+  // MonaLisa monitoring
+  gSystem->Load("libNet.so");
+  gSystem->Load("libMonaLisa.so");
+
+  SysInfo_t info;
+  gSystem->GetSysInfo(&info);
+
+  TString platform(info.fOS);
+  platform += ".";
+  platform += info.fCpuType;
+  new TMonaLisaWriter(platform.Data(),"Reconstruction PbPb","aliendb3.cern.ch");
+
+
+  gROOT->LoadMacro("rec.C");
+  rec();
+  gMonitoringWriter->SendProcessingProgress(1,1,kTRUE);  
+
+  // Send the size of the AliESDs.root file
+
+  FileStat_t buf;
+  gSystem->GetPathInfo("./AliESDs.root",buf);
+
+  TList *valuelist = new TList();
+  valuelist->SetOwner(kTRUE);
+
+  TMonaLisaValue* valdouble = new TMonaLisaValue("AliESDs.root size",buf.fSize);
+  valuelist->Add(valdouble);
+
+  gMonitoringWriter->SendParameters(valuelist);
+  delete valuelist;
+
+}
diff --git a/test/PbPbbench/monsim.C b/test/PbPbbench/monsim.C
new file mode 100644 (file)
index 0000000..82e3365
--- /dev/null
@@ -0,0 +1,32 @@
+void monsim(Int_t nev=1){ 
+  // MonaLisa monitoring
+  gSystem->Load("libNet.so");
+  gSystem->Load("libMonaLisa.so");
+
+  SysInfo_t info;
+  gSystem->GetSysInfo(&info);
+
+  TString platform(info.fOS);
+  platform += ".";
+  platform += info.fCpuType;
+  new TMonaLisaWriter(platform.Data(),"Simulation PbPb","aliendb3.cern.ch");
+
+  gROOT->LoadMacro("sim.C");
+  sim(nev);
+  gMonitoringWriter->SendProcessingProgress(1,1,kTRUE);  
+
+  // Send the size of the raw.root file
+
+  FileStat_t buf;
+  gSystem->GetPathInfo("./raw.root",buf);
+
+  TList *valuelist = new TList();
+  valuelist->SetOwner(kTRUE);
+
+  TMonaLisaValue* valdouble = new TMonaLisaValue("raw.root size",buf.fSize);
+  valuelist->Add(valdouble);
+
+  gMonitoringWriter->SendParameters(valuelist);
+  delete valuelist;
+
+} 
diff --git a/test/ppbench/monrec.C b/test/ppbench/monrec.C
new file mode 100644 (file)
index 0000000..a8d9a62
--- /dev/null
@@ -0,0 +1,33 @@
+void monrec() {
+  // MonaLisa monitoring
+  gSystem->Load("libNet.so");
+  gSystem->Load("libMonaLisa.so");
+
+  SysInfo_t info;
+  gSystem->GetSysInfo(&info);
+
+  TString platform(info.fOS);
+  platform += ".";
+  platform += info.fCpuType;
+  new TMonaLisaWriter(platform.Data(),"Reconstruction pp","aliendb3.cern.ch");
+
+
+  gROOT->LoadMacro("rec.C");
+  rec();
+  gMonitoringWriter->SendProcessingProgress(1,1,kTRUE);  
+
+  // Send the size of the AliESDs.root file
+
+  FileStat_t buf;
+  gSystem->GetPathInfo("./AliESDs.root",buf);
+
+  TList *valuelist = new TList();
+  valuelist->SetOwner(kTRUE);
+
+  TMonaLisaValue* valdouble = new TMonaLisaValue("AliESDs.root size",buf.fSize);
+  valuelist->Add(valdouble);
+
+  gMonitoringWriter->SendParameters(valuelist);
+  delete valuelist;
+
+}
diff --git a/test/ppbench/monsim.C b/test/ppbench/monsim.C
new file mode 100644 (file)
index 0000000..b29bfab
--- /dev/null
@@ -0,0 +1,32 @@
+void monsim(Int_t nev=20){ 
+  // MonaLisa monitoring
+  gSystem->Load("libNet.so");
+  gSystem->Load("libMonaLisa.so");
+
+  SysInfo_t info;
+  gSystem->GetSysInfo(&info);
+
+  TString platform(info.fOS);
+  platform += ".";
+  platform += info.fCpuType;
+  new TMonaLisaWriter(platform.Data(),"Simulation pp","aliendb3.cern.ch");
+
+  gROOT->LoadMacro("sim.C");
+  sim(nev);
+  gMonitoringWriter->SendProcessingProgress(1,1,kTRUE);  
+
+  // Send the size of the raw.root file
+
+  FileStat_t buf;
+  gSystem->GetPathInfo("./raw.root",buf);
+
+  TList *valuelist = new TList();
+  valuelist->SetOwner(kTRUE);
+
+  TMonaLisaValue* valdouble = new TMonaLisaValue("raw.root size",buf.fSize);
+  valuelist->Add(valdouble);
+
+  gMonitoringWriter->SendParameters(valuelist);
+  delete valuelist;
+
+}