Patch title: Release 96 bulk changes
Abstract:
File: /pliant/fullpliant/menu.page
Key:
    Removed line
    Added line
   
module "/pliant/language/context.pli"
module "/pliant/language/stream.pli"
module "/pliant/admin/file.pli"
if os_api="linux"
  module "/pliant/linux/storage/filesystem.pli"
module "/pliant/protocol/http/proxy.pli"
module "/pliant/util/crypto/proxy.pli"
module "/pliant/fullpliant/this_computer.pli"
module "/pliant/fullpliant/shutdown.pli"
if os_api="linux"
  module "/pliant/fullpliant/embedded/command.pli"
  module "/pliant/linux/storage/filesystem.pli"
  module "/pliant/linux/kernel/module.pli"


execute_dynamic_page "pliant:/pliant/protocol/http/login.htm
button "Power off" noeol
  title "Power off"
  para
    [Do you really want to power off this computer ? ]
    button "yes" noeol
      shutdown 30 "poweroff"
    button "no"
      goto_backward
  if os_api="linux"
    para
      [Just ]
      button "suspend" noeol
        constant vesa_backup (file_query "file:/bin/vbetool"
        module "/pliant/language/os.pli"
        module "/pliant/linux/kernel/device.pli"
module "/pliant/language/context.pli"
module "/pliant/language/stream.pli"
module "/pliant/admin/file.pli"
if os_api="linux"
  module "/pliant/linux/storage/filesystem.pli"
module "/pliant/protocol/http/proxy.pli"
module "/pliant/util/crypto/proxy.pli"
module "/pliant/fullpliant/this_computer.pli"
module "/pliant/fullpliant/shutdown.pli"
if os_api="linux"
  module "/pliant/fullpliant/embedded/command.pli"
  module "/pliant/linux/storage/filesystem.pli"
  module "/pliant/linux/kernel/module.pli"


execute_dynamic_page "pliant:/pliant/protocol/http/login.htm
button "Power off" noeol
  title "Power off"
  para
    [Do you really want to power off this computer ? ]
    button "yes" noeol
      shutdown 30 "poweroff"
    button "no"
      goto_backward
  if os_api="linux"
    para
      [Just ]
      button "suspend" noeol
        constant vesa_backup (file_query "file:/bin/vbetool"
        module "/pliant/language/os.pli"
        module "/pliant/linux/kernel/device.pli"
        module "/pliant/linux/kernel/module.pli"
        module "/pliant/admin/execute.pli"
        module "/pliant/admin/execute.pli"
        kernel_unload_module "usbmouse"
        if vesa_backup
          constant os_VT_ACTIVATE 5606h
          os_ioctl 0 os_VT_ACTIVATE (cast 1 Address)
          sleep 5
          kernel_make_device "device:/mem"
          execute "vbetool vbestate save" output "file:/tmp/
        os_sync
        if false
          embedded_command "/usr/bin/apm -s" ""
        else
          # don't do that because math processor will not be
          # (var Stream s) open "file:/sys/power/state" out+
          # s writeline "mem"
          # s close
          execute "pliant reset command 'console [dq]mem[dq]
        if vesa_backup
          execute "vbetool post"
          execute "vbetool vbestate restore" input "file:/tm
          file_delete "file:/tmp/vesa"
          os_ioctl 0 os_VT_ACTIVATE (cast 2 Address)
        if vesa_backup
          constant os_VT_ACTIVATE 5606h
          os_ioctl 0 os_VT_ACTIVATE (cast 1 Address)
          sleep 5
          kernel_make_device "device:/mem"
          execute "vbetool vbestate save" output "file:/tmp/
        os_sync
        if false
          embedded_command "/usr/bin/apm -s" ""
        else
          # don't do that because math processor will not be
          # (var Stream s) open "file:/sys/power/state" out+
          # s writeline "mem"
          # s close
          execute "pliant reset command 'console [dq]mem[dq]
        if vesa_backup
          execute "vbetool post"
          execute "vbetool vbestate restore" input "file:/tm
          file_delete "file:/tmp/vesa"
          os_ioctl 0 os_VT_ACTIVATE (cast 2 Address)
        kernel_load_module "usbmouse"
        goto_backward
      [ the laptop.]

if os_api="linux"
  (var Stream sys) open "file:/sys/devices/system/cpu/cpu0/c
  var Str freqs := sys readline
  if freqs<>""
    (var Stream sys) open "file:/sys/devices/system/cpu/cpu0
    var Str freq := sys readline
    sys close
    fixed [   ]
    select "Processor frequency: " (var Str freq) noeol
      while (freqs parse (var Int khz) any:(var Str remain))
        option (string khz/1000000)+" Ghz" string:khz
        freqs := remain
    button "set frequency"
      (var Stream sys2) open "file:/sys/devices/system/cpu/c
      sys2 writeline freq
      sys2 close
      thread
        sleep 2
        embedded_command "sync" ""
        embedded_command "hdparm -y "+(file_os_name this_com
      reload_page
        goto_backward
      [ the laptop.]

if os_api="linux"
  (var Stream sys) open "file:/sys/devices/system/cpu/cpu0/c
  var Str freqs := sys readline
  if freqs<>""
    (var Stream sys) open "file:/sys/devices/system/cpu/cpu0
    var Str freq := sys readline
    sys close
    fixed [   ]
    select "Processor frequency: " (var Str freq) noeol
      while (freqs parse (var Int khz) any:(var Str remain))
        option (string khz/1000000)+" Ghz" string:khz
        freqs := remain
    button "set frequency"
      (var Stream sys2) open "file:/sys/devices/system/cpu/c
      sys2 writeline freq
      sys2 close
      thread
        sleep 2
        embedded_command "sync" ""
        embedded_command "hdparm -y "+(file_os_name this_com
      reload_page