Patch title: Release 89 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:"pliant":"remote":"service"="
  constant (compile_message "Compiling remote execution serv
  precompile += "/pliant/util/remote/server.pli[lf]"
  module "/pliant/util/remote/server.pli"
  compile_message ""
abstract
  [This is the script that will start the FullPLiant operati


if (constant this_computer:env:"pliant":"remote":"service"="
  constant (compile_message "Compiling remote execution serv
  precompile += "/pliant/util/remote/server.pli[lf]"
  module "/pliant/util/remote/server.pli"
  compile_message ""
  remote_server detached

if (constant this_computer:env:"pliant":"cluster":"service"=
  constant (compile_message "Compiling clustering server. Pl
  precompile += "/pliant/appli/cluster/server.pli[lf]"
  module "/pliant/appli/cluster/server.pli"
  compile_message ""

if (constant this_computer:env:"pliant":"cluster":"service"=
  constant (compile_message "Compiling clustering server. Pl
  precompile += "/pliant/appli/cluster/server.pli[lf]"
  module "/pliant/appli/cluster/server.pli"
  compile_message ""
  cluster_server detached
if (constant this_computer:env:"pliant":"cluster":"daemon"="
  constant (compile_message "Compiling clustering daemon. Pl
  precompile += "/pliant/appli/cluster/daemon.pli[lf]"
  module "/pliant/appli/cluster/daemon.pli"
  compile_message ""
if (constant this_computer:env:"pliant":"cluster":"daemon"="
  constant (compile_message "Compiling clustering daemon. Pl
  precompile += "/pliant/appli/cluster/daemon.pli[lf]"
  module "/pliant/appli/cluster/daemon.pli"
  compile_message ""
  cluster_daemon


compile_message "Compiling HTTP server. Please wait ..."
precompile += "/pliant/protocol/http/server.pli[lf]"


compile_message "Compiling HTTP server. Please wait ..."
precompile += "/pliant/protocol/http/server.pli[lf]"
precompile += "/pliant/protocol/http/style/default.style[lf]"
module "/pliant/protocol/http/server.pli"
module "/pliant/protocol/http/server.pli"
# force default style and page to compile right now
module "/pliant/protocol/http/style/default.style"
http_precompile "/pliant/protocol/http/default.page"
compile_message ""


compile_message ""


function run_dynamic_servers
  if (constant this_computer:env:"pliant":"remote":"service"
    remote_server detached
  if (constant this_computer:env:"pliant":"cluster":"service
    cluster_server detached
  if (constant this_computer:env:"pliant":"cluster":"daemon"
    cluster_daemon
  if not (this_computer:env:"pliant":"http":"port" parse (gv
    port := 80
  if (constant this_computer:env:"pliant":"system":"medium"=
    thread
      sleep 15
      recover_menu
  if (constant this_computer:env:"pliant":"system":"distribu
    http_server port port secured log this_computer:env:"pli
  eif os_api="win32"
    function os_ShellExecute hwnd op file params dir bshow
      arg Int hwnd ; arg CStr op file params dir ; arg Int b
      external "shell32.dll" "ShellExecuteA"
    var Str login := ""
    if (exists user_database:data:user:"pliant") and user_se
      login := "pliant:"+user_secret_database:data:password+
    var Str url := "http://"+login+"localhost"+(shunt this_c
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":"distribution"="fullpliant")
  if (constant (file_query "file:/boot/boot.flag" standard)=success)
    file_delete "file:/boot/boot.flag"
    if (constant this_computer:env:"pliant":"system":"embedded"<>"" and this_computer:env:"hardware":"video":"x11"<>"none")
      module "embedded/command.pli"
      thread
        sleep 2
        embedded_command "mozilla" "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 bshow
    external "shell32.dll" "ShellExecuteA"
  gvar Str login := ""
  if (exists user_database:data:user:"pliant") and user_secret_database:data:password<>""
    login := "pliant:"+user_secret_database:data:password+"@"
  gvar Str url := "http://"+login+"localhost"+(shunt this_computer:env:"pliant":"http":"port"="80" "" ":"+this_computer:env:"pliant":"http":"port")+"/"
  thread
    sleep 2
    os_ShellExecute 0 "open" url "" "c:\" 1
    os_ShellExecute 0 "open" url "" "c:\" 1
    http_server port port secured log this_computer:env:"pli
  else
    http_server port port secured log this_computer:env:"pli
  sleep 15
if true
  thread
    sleep 5
    http_precompile "/pliant/protocol/http/default.page"
    http_precompile "/pliant/browse/virtual_tree.page"
if (constant this_computer:env:"pliant":"system":"medium"="cdrom")
  thread
    sleep 15
    recover_menu

this_computer "pliant" "language" "recommended" := precompil
this_computer "pliant" "language" "recommended" := precompil
run_dynamic_servers


if not (this_computer:env:"pliant":"http":"port" parse (gvar Int port))
  port := 80
if (constant this_computer:env:"pliant":"system":"distribution"="fullpliant")
  http_server port port secured log this_computer:env:"pliant":"http":"log"
eif os_api="win32"
  http_server port port secured log this_computer:env:"pliant":"http":"log" welcome_message "HTTP server is running.[lf][lf]Pliant URL is "+url
else
  http_server port port secured log this_computer:env:"pliant":"http":"log" welcome_message "HTTP server is running.[lf][lf]Using your favorite browser, connect to the server via the URL[lf]http://localhost"+(shunt this_computer:env:"pliant":"http":"port"="80" "" ":"+this_computer:env:"pliant":"http":"port")+"/"