Patch title: Release 87 bulk changes
Abstract:
File: /pliant/fullpliant/status.page
Key:
    Removed line
    Added line
   
module "/pliant/language/context.pli"
module "/pliant/language/stream.pli"
module "/pliant/language/os.pli"
module "/pliant/language/schedule/threads_engine.pli"
module "/pliant/language/schedule/resourcesem.pli"
module "/pliant/language/data/cache.pli"
module "/pliant/admin/file.pli"
module "/pliant/fullpliant/this_computer.pli"
module "/pliant/fullpliant/user.pli"
module "/pliant/fullpliant/shutdown.pli"
module "/pliant/language/os/process.pli"
module "/pliant/protocol/http/site.pli"
module "/pliant/protocol/common/tcp_server.pli"
module "/pliant/language/os/socket.pli"
module "/pliant/util/network/ping.pli"
module "/pliant/util/network/bench.pli"
module "/pliant/appli/database.pli"
module "/pliant/language/context.pli"
module "/pliant/language/stream.pli"
module "/pliant/language/os.pli"
module "/pliant/language/schedule/threads_engine.pli"
module "/pliant/language/schedule/resourcesem.pli"
module "/pliant/language/data/cache.pli"
module "/pliant/admin/file.pli"
module "/pliant/fullpliant/this_computer.pli"
module "/pliant/fullpliant/user.pli"
module "/pliant/fullpliant/shutdown.pli"
module "/pliant/language/os/process.pli"
module "/pliant/protocol/http/site.pli"
module "/pliant/protocol/common/tcp_server.pli"
module "/pliant/language/os/socket.pli"
module "/pliant/util/network/ping.pli"
module "/pliant/util/network/bench.pli"
module "/pliant/appli/database.pli"
module "/pliant/language/debug/compile_log.pli"
if os_api="linux"
  module "/pliant/linux/storage/filesystem.pli"
  module "/pliant/linux/kernel/statistics.pli"
  module "/pliant/protocol/time/client.pli"
  module "/pliant/linux/schedule/rtc.pli"
  module "/pliant/linux/storage/filesystem.pli"
  module "/pliant/linux/network/boot.pli"


if os_api="linux"
  module "/pliant/linux/storage/filesystem.pli"
  module "/pliant/linux/kernel/statistics.pli"
  module "/pliant/protocol/time/client.pli"
  module "/pliant/linux/schedule/rtc.pli"
  module "/pliant/linux/storage/filesystem.pli"
  module "/pliant/linux/network/boot.pli"



section "load"
header "Server load report"

section "load"
header "Server load report"

  if os_api="linux"

    (var Stream uptime) open "file:/proc/uptime" in+safe
    if (uptime:readline parse (var Float seconds) any)
      var DateTime boot := datetime ; boot seconds -= second
      para
  para
    if os_api="linux"
      (var Stream uptime) open "file:/proc/uptime" in+safe
      if (uptime:readline parse (var Float seconds) any)
        var DateTime boot := datetime ; boot seconds -= seconds
        text "The server was booted on "+string:boot+" (that
        text (string now:date:days-boot:date:days)
        text " days ago)" ; eol
        text "The server was booted on "+string:boot+" (that
        text (string now:date:days-boot:date:days)
        text " days ago)" ; eol
    if allowed:"administrator"
      note "display compiler log"
        title "Pliant compiler log"
        fixed
          var Pointer:Arrow c :> compile_log_report first
          while c<>null
            text (c map Str) ; eol  
            c :> compile_log_report next c


  if os_api="linux"
    method page cat filename
      arg_rw HtmlPage page ; arg Str filename
      (var Stream cf) open filename in+safe
      if cf=success
        header filename
        fixed
          while (os_socket_wait cf:stream_handle 1 0.5)=succ
            cf read_available (var Address adr) (var Int siz
            (var Str t) set adr size false
            text t


    method page cat filename
      arg_rw HtmlPage page ; arg Str filename
      (var Stream cf) open filename in+safe
      if cf=success
        header filename
        fixed
          while (os_socket_wait cf:stream_handle 1 0.5)=succ
            cf read_available (var Address adr) (var Int siz
            (var Str t) set adr size false
            text t