From 43664a84a6d0b3310314c920079918452881e128 Mon Sep 17 00:00:00 2001
From: hristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Date: Tue, 24 Apr 2007 16:07:20 +0000
Subject: [PATCH 1/1] MonaLisa monitoring in BITS

---
 test/PbPbbench/monrec.C | 33 +++++++++++++++++++++++++++++++++
 test/PbPbbench/monsim.C | 32 ++++++++++++++++++++++++++++++++
 test/ppbench/monrec.C   | 33 +++++++++++++++++++++++++++++++++
 test/ppbench/monsim.C   | 32 ++++++++++++++++++++++++++++++++
 4 files changed, 130 insertions(+)
 create mode 100644 test/PbPbbench/monrec.C
 create mode 100644 test/PbPbbench/monsim.C
 create mode 100644 test/ppbench/monrec.C
 create mode 100644 test/ppbench/monsim.C

diff --git a/test/PbPbbench/monrec.C b/test/PbPbbench/monrec.C
new file mode 100644
index 00000000000..e8e1de3fdb6
--- /dev/null
+++ b/test/PbPbbench/monrec.C
@@ -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
index 00000000000..82e3365a0b3
--- /dev/null
+++ b/test/PbPbbench/monsim.C
@@ -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
index 00000000000..a8d9a62c365
--- /dev/null
+++ b/test/ppbench/monrec.C
@@ -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
index 00000000000..b29bfab43b5
--- /dev/null
+++ b/test/ppbench/monsim.C
@@ -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;
+
+} 
-- 
2.39.3