!7

concept Entry {
  S computerID, shortName, comment;
}

module ComputerNames > DynCRUD<Entry> {
  bool automaticallyAddOnlineComputers = true;
  
  *() { super(Entry); }
  
  start {
    indexConceptField(Entry, 'computerID);
    if (!hasConcept(Entry, computerID := computerID()))
      cnew(Entry, computerID := computerID(), comment := "This computer");
    ownResource(vmBus_onMessage('onlineComputerIDs, voidfunc(Collection<S> ids) {
      for (S id : ids) uniq_lock(Entry, computerID := id);
    }));
  }
}