[u/mrichter/AliRoot.git] / test / ppbench / monsim.C

void monsim(Int_t nev=20){ 
  // MonaLisa monitoring
  gSystem->Load("libNet.so");
  gSystem->Load("libMonaLisa.so");

  new TMonaLisaWriter("aliendb3.cern.ch", "Simulation pp", gSystem->Getenv("TEST_PLATFORMID"), gSystem->Getenv("TEST_PLATFORMID"), "global");

  gROOT->LoadMacro("sim.C");
  sim(nev);
  if (gMonitoringWriter) 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);

  if (gMonitoringWriter) gMonitoringWriter->SendParameters(valuelist);
  delete valuelist;

  printf("#Test finished successfully#\n");
}
Commit	Line	Data
	1	void monsim(Int_t nev=20){
	2	// MonaLisa monitoring
	3	gSystem->Load("libNet.so");
	4	gSystem->Load("libMonaLisa.so");
	5
	6	new TMonaLisaWriter("aliendb3.cern.ch", "Simulation pp", gSystem->Getenv("TEST_PLATFORMID"), gSystem->Getenv("TEST_PLATFORMID"), "global");
	7
	8	gROOT->LoadMacro("sim.C");
	9	sim(nev);
	10	if (gMonitoringWriter) gMonitoringWriter->SendProcessingProgress(1,1,kTRUE);
	11
	12	// Send the size of the raw.root file
	13
	14	FileStat_t buf;
	15	gSystem->GetPathInfo("./raw.root",buf);
	16
	17	TList *valuelist = new TList();
	18	valuelist->SetOwner(kTRUE);
	19
	20	TMonaLisaValue* valdouble = new TMonaLisaValue("raw.root size",buf.fSize);
	21	valuelist->Add(valdouble);
	22
	23	if (gMonitoringWriter) gMonitoringWriter->SendParameters(valuelist);
	24	delete valuelist;
	25
	26	printf("#Test finished successfully#\n");
	27	}