%
% set the current Mojo.SiteGuid and Mojo.UserGuid as
% the defining attributes for this machine
%
@@
empty !Device
*machdevi
%
% a single device has been forced for testing
%
_Device any)?
{
 _Mojo.UdevUrl
 "rowid=" right$ "&" left$
"rowid" log)(
 any?
 {
  dup !UdevGuid
  rootnode
  \!UdevGuid
  _Mojo.SiteGuid
  dup !SiteGuid
  \!SiteGuid
  _Mojo.UserGuid
  dup !UserGuid
  \!UserGuid

  empty
  "Device" sval
  "SiteGuid" sval
  "UserGuid" sval
  "UdevGuid" sval

  _Device ^"M" &"_data" text!fact
  nod@
 } if
%
% establish these credentials in the Factory work area
%
} if
*mojorept