Patch title: Release 81 bulk changes
Abstract:
File: /pliant/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


gvar Str precompile := ""

if (constant this_computer:env:"pliant":"dns":"service"="tru
if (constant this_computer:env:"pliant":"dns":"service"="tru
  precompile += "/pliant/protocol/dns/server.pli[lf]"
  module "/pliant/protocol/dns/server.pli"
  dns_server cache this_computer:env:"pliant":"dns":"cache" 

if (constant this_computer:env:"pliant":"mail":"smtp_service
  module "/pliant/protocol/dns/server.pli"
  dns_server cache this_computer:env:"pliant":"dns":"cache" 

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

if (constant this_computer:env:"pliant":"mail":"pop3_service
  module "/pliant/protocol/smtp/server.pli"
  smtp_server detached

if (constant this_computer:env:"pliant":"mail":"pop3_service
  precompile += "/pliant/protocol/pop3/server.pli[lf]"
  module "/pliant/protocol/pop3/server.pli"
  pop3_server detached

if (constant this_computer:env:"pliant":"mail":"redirect_ser
  module "/pliant/protocol/pop3/server.pli"
  pop3_server detached

if (constant this_computer:env:"pliant":"mail":"redirect_ser
  precompile += "/pliant/protocol/smtp/redirect.pli[lf]"
  module "/pliant/protocol/smtp/redirect.pli"
  redirect_mails
  console "Mailboxes redirection daemon is running." eol

if (constant this_computer:env:"pliant":"ftp":"service"="tru
  module "/pliant/protocol/smtp/redirect.pli"
  redirect_mails
  console "Mailboxes redirection daemon is running." eol

if (constant this_computer:env:"pliant":"ftp":"service"="tru
  precompile += "/pliant/protocol/ftp/server.pli[lf]"
  module "/pliant/protocol/ftp/server.pli"
  ftp_server detached

if (constant this_computer:env:"pliant":"remote":"service"="
  module "/pliant/protocol/ftp/server.pli"
  ftp_server detached

if (constant this_computer:env:"pliant":"remote":"service"="
  precompile += "/pliant/util/remote/server.pli[lf]"
  module "/pliant/util/remote/server.pli"

if (constant this_computer:env:"pliant":"lpr":"service"="tru
  module "/pliant/util/remote/server.pli"

if (constant this_computer:env:"pliant":"lpr":"service"="tru
  precompile += "/pliant/protocol/lpr/server.pli[lf]"
  module "/pliant/protocol/lpr/server.pli"
  lpr_server detached
eif (constant this_computer:env:"printer":size>0)
  module "/pliant/protocol/lpr/server.pli"
  lpr_server detached
eif (constant this_computer:env:"printer":size>0)
  precompile += "/pliant/protocol/lpr/spool.pli[lf]"
  module "/pliant/protocol/lpr/spool.pli"
  lpr_spool
  console "Print spooler is now running." eol

if (constant os_api="linux" and (exists this_computer:env:"l
  module "/pliant/protocol/lpr/spool.pli"
  lpr_spool
  console "Print spooler is now running." eol

if (constant os_api="linux" and (exists this_computer:env:"l
  precompile += "/pliant/fullpliant/logical.pli[lf]"
  module "/pliant/fullpliant/logical.pli"


  module "/pliant/fullpliant/logical.pli"


precompile += "/pliant/protocol/http/server.pli[lf]"
module "/pliant/protocol/http/server.pli"


module "/pliant/protocol/http/server.pli"


precompile += "/pliant/language/debug/log_database.pli[lf]"
module "/pliant/language/debug/log_database.pli"
if (constant log_database:data:file:size>0)
module "/pliant/language/debug/log_database.pli"
if (constant log_database:data:file:size>0)
  precompile +=  "/pliant/language/debug/trace.pli[lf]"
  precompile +=  "/pliant/language/debug/log.pli[lf]"
  module "/pliant/language/debug/trace.pli"
  module "/pliant/language/debug/log.pli"
  function run_log
    each f log_database:data:file
      trace_log keyof:f f:file f:mini_mb*2n^20 f:maxi_mb*2n^
    trace_memory := log_database:data:memory
  run_log

function run_dynamic_servers
  if (constant this_computer:env:"pliant":"remote":"service"
    remote_server detached
  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
  http_server port port secured log this_computer:env:"plian
  sleep 15
  module "/pliant/language/debug/trace.pli"
  module "/pliant/language/debug/log.pli"
  function run_log
    each f log_database:data:file
      trace_log keyof:f f:file f:mini_mb*2n^20 f:maxi_mb*2n^
    trace_memory := log_database:data:memory
  run_log

function run_dynamic_servers
  if (constant this_computer:env:"pliant":"remote":"service"
    remote_server detached
  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
  http_server port port secured log this_computer:env:"plian
  sleep 15
this_computer "pliant" "language" "recommended" := precompile
run_dynamic_servers

run_dynamic_servers