Patch title: Release 89 bulk changes
Abstract:
File: /fullpliant/embedded/command.pli
Key:
    Removed line
    Added line
module "/pliant/admin/execute.pli"

constant nobody (cast 65534 Int)

function embedded_command cmd user uid gid options -> err
  arg Str cmd user ; arg Int uid gid ; arg Str options ; arg Int err
  var Str env := "PATH=/sbin:/bin:/usr/sbin:/usr/bin:/usr/local/sbin:/usr/local/bin:/usr/X11R6/bin[0]"
  env += "DISPLAY=:0[0]"
  env += "USER="+user+"[0]"
  env += "HOME="+(shunt user<>"root" "/home" "")+"/"+user+"[0]"
  # if this_computer:env:"pliant":"identity":"language"<>""
  #   env += "LANG="+this_computer:env:"pliant":"identity":"language"+"[0]"
  if (options option "detached")
    if (options option "quiet")
      err := execute cmd root "embedded:/" path "embedded:/" user uid group gid environment env output "device:/null" error "device:/null" detached
    else
      err := execute cmd root "embedded:/" path "embedded:/" user uid group gid environment env detached
  else
    err := execute cmd root "embedded:/" path "embedded:/" user uid group gid environment env

function embedded_command cmd options -> err
  arg Str cmd options ; arg Int err
  var Str user := options option "user" Str "root"
  err := embedded_command cmd user (shunt user="root" undefined user="daemon" 1 user="lp" 7 user="me" 4096 nobody) (shunt user="root" undefined user="daemon" 1 user="lp" 7 user="me" 100 nobody) options

export embedded_command