;var p, new; if(!(| valid($xmcp_ui) |)) { new = $user_interfaces.spawn(); new.set_objname('xmcp_ui);}
;as $xmcp_ui<$root>;manager = $user_andrew;
;as $xmcp_ui<$root>;flags = ['variables, 'methods, 'code, 'command_cache];
;as $xmcp_ui<$root>;created_on = 849571038;
;as $xmcp_ui<$root>;owners = [$user_andrew];
;as $xmcp_ui<$root>;inited = 1;
;as $xmcp_ui<$command_cache>;shortcut_cache = [];
;as $xmcp_ui<$command_cache>;local_cache = #[["@xmcp_authentication_key", ["@xmcp_authentication_key"]], ["@xmcp_challenge", ["@xmcp_challenge"]]];
;as $xmcp_ui<$has_commands>;shortcuts = #[];
;as $xmcp_ui<$has_commands>;remote = #[];
;as $xmcp_ui<$has_commands>;local = #[["@xmcp_authentication_key", [["@xmcp_authentication_key", "*", "@xmcp_authentication_key <any>", 'set_authentication_key, #[[1, ['any, []]]]]]], ["@xmcp_challenge", [["@xmcp_challenge", "", "@xmcp_challenge", 'xmcp_challenge, #[]]]]];
@program $xmcp_ui.set_authentication_key() +access=public
  arg cmdstr, one, key;
  var psn, newvalue;
  
  // protection
  if (sender() != user())
      return;
  
  // a user interface verb, in lieu of MOO Feature Objects...
  driver.set_authentication_key(key);
  .tell("XMCP/1.1 Authentication set.");
  
  // $#Edited: 27 Nov 96 19:39 $user_andrew
  // $#Edited: 27 Nov 96 19:46 $user_andrew
  // $#Edited: 30 Nov 96 22:01 $user_andrew
  // $#Edited: 30 Nov 96 22:15 $user_andrew
  // $#Copied 02 Dec 96 23:57 from $user_andrew.set_authentication_key() by $user_andrew
.
@program $xmcp_ui.xmcp_challenge() +access=public
  arg cmdstr, one;
  
  if (sender() != user())
      return;
  driver.challenge();
  
  // $#Edited: 27 Nov 96 19:48 $user_andrew
  // $#Edited: 30 Nov 96 22:20 $user_andrew
  // $#Copied 02 Dec 96 23:57 from $user_andrew.xmcp_challenge() by $user_andrew
.

@add-parent $xmcp_ui to me
@rehash-all