test/PbPbbench/monsim.C

   1 void monsim(Int_t nev=1){
   2   // MonaLisa monitoring
   3   gSystem->Load("libNet.so");
   4   gSystem->Load("libMonaLisa.so");
   5
   6   SysInfo_t info;
   7   gSystem->GetSysInfo(&info);
   8
   9   TString platform(info.fOS);
  10   platform += ".";
  11   platform += info.fCpuType;
  12   new TMonaLisaWriter(platform.Data(),"Simulation PbPb","aliendb3.cern.ch");
  13
  14   gROOT->LoadMacro("sim.C");
  15   sim(nev);
  16   gMonitoringWriter->SendProcessingProgress(1,1,kTRUE);
  17
  18   // Send the size of the raw.root file
  19
  20   FileStat_t buf;
  21   gSystem->GetPathInfo("./raw.root",buf);
  22
  23   TList *valuelist = new TList();
  24   valuelist->SetOwner(kTRUE);
  25
  26   TMonaLisaValue* valdouble = new TMonaLisaValue("raw.root size",buf.fSize);
  27   valuelist->Add(valdouble);
  28
  29   gMonitoringWriter->SendParameters(valuelist);
  30   delete valuelist;
  31
  32 }