Patch title: Release 93 bulk changes
Abstract:
File: /fullpliant/run.pli
Key:
    Removed line
    Added line
   
abstract
  [This is the script that will start the FullPLiant operati


if (constant this_computer:env:"hardware":"video":"x11"="vnc
  module "/pliant/protocol/vnc/client.pli"
  thread
    vnc_client "127.0.0.1" ""
abstract
  [This is the script that will start the FullPLiant operati


if (constant this_computer:env:"hardware":"video":"x11"="vnc
  module "/pliant/protocol/vnc/client.pli"
  thread
    vnc_client "127.0.0.1" ""
if (constant this_computer:env:"pliant":"system":"medium"="cdrom")
  thread
    sleep 15
    recover_menu
if (constant this_computer:env:"pliant":"language":"load"<>"")
  function run_load
    safe
      plugin load
        var Str all := this_computer:env:"pliant":"language":"load"
        while all<>""
          if not (all parse any:(var Str first) "[lf]" any:(var Str remain))
            first := all ; remain := ""
          if first<>""
            pliant_compiler_semaphore request
            console "  loading " first eol
            pliant_load_module first the_module:"/pliant/language/basic/safe.pli" 0 (null map Module)
            pliant_compiler_semaphore release
          all := remain
    failure err
      (var Stream log) open "file:/tmp/load.log" out+safe
      log writeline err
  thread
    sleep 120
    run_load

if (constant this_computer:env:"pliant":"system":"distributi
  if (constant (file_query "file:/boot/boot.flag" standard)=
    file_delete "file:/boot/boot.flag"
    if (constant this_computer:env:"pliant":"system":"embedd
      module "embedded/command.pli"
      thread
        sleep 2
        embedded_command "xsetroot -solid #407060" ""
        embedded_command "mozilla" "user [dq]me[dq] detached

if (constant this_computer:env:"pliant":"system":"distributi
  if (constant (file_query "file:/boot/boot.flag" standard)=
    file_delete "file:/boot/boot.flag"
    if (constant this_computer:env:"pliant":"system":"embedd
      module "embedded/command.pli"
      thread
        sleep 2
        embedded_command "xsetroot -solid #407060" ""
        embedded_command "mozilla" "user [dq]me[dq] detached
        # embedded_command "/usr/lib/mozilla/mozilla-bin" "user [dq]me[dq] detached"
eif os_api="win32"
  function os_ShellExecute hwnd op file params dir bshow
    arg Int hwnd ; arg CStr op file params dir ; arg Int bsh
    external "shell32.dll" "ShellExecuteA"
  gvar Str login := ""
  if (exists user_database:data:user:"pliant") and user_secr
    login := "pliant:"+user_secret_database:data:password+"@
  gvar Str url := "http://"+login+"localhost"+(shunt this_co
  thread
    sleep 2
    os_ShellExecute 0 "open" url "" "c:\" 1
eif os_api="win32"
  function os_ShellExecute hwnd op file params dir bshow
    arg Int hwnd ; arg CStr op file params dir ; arg Int bsh
    external "shell32.dll" "ShellExecuteA"
  gvar Str login := ""
  if (exists user_database:data:user:"pliant") and user_secr
    login := "pliant:"+user_secret_database:data:password+"@
  gvar Str url := "http://"+login+"localhost"+(shunt this_co
  thread
    sleep 2
    os_ShellExecute 0 "open" url "" "c:\" 1
if true
if (constant this_computer:env:"pliant":"http":"autoload"<>"no")
  thread
    sleep 5
    pliant_compiler_semaphore request
    http_precompile "/pliant/protocol/http/default.page"
    http_precompile "/pliant/browse/virtual_tree.page"
    pliant_compiler_semaphore release
  thread
    sleep 5
    pliant_compiler_semaphore request
    http_precompile "/pliant/protocol/http/default.page"
    http_precompile "/pliant/browse/virtual_tree.page"
    pliant_compiler_semaphore release
if (constant this_computer:env:"pliant":"system":"medium"="c
  thread
    sleep 15
    recover_menu


function run
  pliant_compiler_semaphore release
  if not (this_computer:env:"pliant":"http":"port" parse (va
    port := 80
  if (constant this_computer:env:"pliant":"system":"distribu
    http_server port port secured log this_computer:env:"pli
  eif os_api="win32"
    http_server port port secured log this_computer:env:"pli
  else
    http_server port port secured log this_computer:env:"pli
run


function run
  pliant_compiler_semaphore release
  if not (this_computer:env:"pliant":"http":"port" parse (va
    port := 80
  if (constant this_computer:env:"pliant":"system":"distribu
    http_server port port secured log this_computer:env:"pli
  eif os_api="win32"
    http_server port port secured log this_computer:env:"pli
  else
    http_server port port secured log this_computer:env:"pli
run