!7

sclass Info {
  S computerID;
  S load;
}

module GatherSystemLoads > DynObjectTable<Info> {
  start {
    doEvery(1.0, 10.0, r gather);
  }
  
  void gather enter {
    time "Gather System Loads" {
      new L<Info> l;
      for (S computerID : dm_onlineComputers()) pcall-short {
        l.add(nu(Info, +computerID, load := str(dm_evalOnOtherMachine(computerID, "systemLoad()"))));
      }
      setData(l);
    }
  }
}