delete_user = {

  label = "Delete User"
  shortcut = "du"
  parameters = {
    uname = {
      shortcut = "u"
      required = true
    }
  }
  expression = `

echo("uname=" . uname);

# Create a new subnode of users, named after the username
node users = 'users';

node user_to_delete = "internal";
foreach user users (
  echo("user=" . user);
  if (@user{"username"} eq uname) then
    user_to_delete = user;
);

echo("User to delete: " . user_to_delete);

# If the user doesn't exist, fail.
if (user_to_delete eq "internal") then (
  action_fail("No such user '" . uname . "'");
);

else (

  # Delete the user
  delete_node(user_to_delete);
  
  # Save the users.cfg file
  save_node(users);
  
  echo("Deleted user " . uname);
  
  # Generate the XML result, for use in network action
  node result = new_action_result(command_line.action);
  @result{"Result"} = "Success";
  @result{"User"} = uname;
  string xml_result = action_result_to_xml(result);
  echo("xml_result: " . xml_result);
  xml_result;

) # if user exists

` # expression
  
} # delete_user