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


abstract
  [This is the script that will start the FullPLiant operati


pliant_compiler_semaphore request

function log
  (var Stream log) open "file:/log/pliant.log" append+safe
  log writeline "run "+string:datetime
  (var Stream err) open "file:/tmp/console" in+safe
  while not err:atend
    log writeline "  "+err:readline
  err close ; log close
  file_delete"file:/tmp/console" 
log


function log
  (var Stream log) open "file:/log/pliant.log" append+safe
  log writeline "run "+string:datetime
  (var Stream err) open "file:/tmp/console" in+safe
  while not err:atend
    log writeline "  "+err:readline
  err close ; log close
  file_delete"file:/tmp/console" 
log


if (constant (file_query "security:/dhcp.conf" standard)=defined)
  module "/pliant/linux/network/dhcp.pli"
  dhcp_server

if (constant this_computer:env:"pliant":"mail":"smtp_service
  constant (compile_message "Compiling SMTP server. Please w
  precompile += "/pliant/protocol/smtp/server.pli[lf]"
  module "/pliant/protocol/smtp/server.pli"
  compile_message ""
  smtp_server detached


if (constant this_computer:env:"pliant":"mail":"smtp_service
  constant (compile_message "Compiling SMTP server. Please w
  precompile += "/pliant/protocol/smtp/server.pli[lf]"
  module "/pliant/protocol/smtp/server.pli"
  compile_message ""
  smtp_server detached


if not (this_computer:env:"pliant":"http":"port" parse (gvar
  port := 80
if (constant this_computer:env:"pliant":"system":"distributi
  http_server port port secured log this_computer:env:"plian
eif os_api="win32"
  http_server port port secured log this_computer:env:"plian
else
  http_server port port secured log this_computer:env:"plian

function run
  pliant_compiler_semaphore release
  if not (this_computer:env:"pliant":"http":"port" parse (var Int port))
    port := 80
  if (constant this_computer:env:"pliant":"system":"distribution"="fullpliant")
    pliant_compiler_semaphore release
    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")+"/"
run