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

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;

}
Commit	Line	Data
43664a84	1	void monrec() {
	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(),"Reconstruction pp","aliendb3.cern.ch");
	13
	14
	15	gROOT->LoadMacro("rec.C");
	16	rec();
	17	gMonitoringWriter->SendProcessingProgress(1,1,kTRUE);
	18
	19	// Send the size of the AliESDs.root file
	20
	21	FileStat_t buf;
	22	gSystem->GetPathInfo("./AliESDs.root",buf);
	23
	24	TList *valuelist = new TList();
	25	valuelist->SetOwner(kTRUE);
	26
	27	TMonaLisaValue* valdouble = new TMonaLisaValue("AliESDs.root size",buf.fSize);
	28	valuelist->Add(valdouble);
	29
	30	gMonitoringWriter->SendParameters(valuelist);
	31	delete valuelist;
	32
	33	}