Patch title: Release 89 bulk changes
Abstract:
File: /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/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/boot.pli"
  module "/pliant/fullpliant/embedded/command.pli"
  module "/pliant/linux/storage/filesystem.pli"


para
  link "Server status" "/pliant/fullpliant/status" ; fixed [
  if this_computer:env:"printer":size>0
    link "Print spooler" "/pliant/protocol/lpr/spooler" ; fi
  link "trace" "/pliant/protocol/http/trace" ; fixed [  ]
  if allowed:"aministrator"
    link "Configure" "/pliant/fullpliant/configure" ; fixed 
    link "Export" "/pliant/fullpliant/export" ; fixed [  ]
    link "System files" "/pliant/browse/system_file/" ; fixe
    link "Interpreter" "/pliant/appli/interpreter" ; fixed [
    if os_api="linux"
      note "Root shell"
  module "/pliant/linux/storage/filesystem.pli"


para
  link "Server status" "/pliant/fullpliant/status" ; fixed [
  if this_computer:env:"printer":size>0
    link "Print spooler" "/pliant/protocol/lpr/spooler" ; fi
  link "trace" "/pliant/protocol/http/trace" ; fixed [  ]
  if allowed:"aministrator"
    link "Configure" "/pliant/fullpliant/configure" ; fixed 
    link "Export" "/pliant/fullpliant/export" ; fixed [  ]
    link "System files" "/pliant/browse/system_file/" ; fixe
    link "Interpreter" "/pliant/appli/interpreter" ; fixed [
    if os_api="linux"
      note "Root shell"
        embedded_command "xterm +sb -fg black -bg rgb:D8/D8/
        embedded_command "xterm +sb -fg black -bg rgb:D8/D8/D8 -title ROOT" "detached"
        reload_page


if os_api="linux"
  button "mount floppy" noeol
        reload_page


if os_api="linux"
  button "mount floppy" noeol
    embedded_command "modprobe floppy" "root" false
    embedded_command "modprobe msdos" "root" false
    embedded_command "modprobe floppy" ""
    embedded_command "modprobe msdos" ""
    filesystem_mount "device:/fd0" "embedded:/mnt/floppy/" "
    reload_page
  button "unmount floppy" noeol
    filesystem_dismount "embedded:/mnt/floppy/"
    reload_page
  button "mount CDROM" noeol
    filesystem_mount "device:/fd0" "embedded:/mnt/floppy/" "
    reload_page
  button "unmount floppy" noeol
    filesystem_dismount "embedded:/mnt/floppy/"
    reload_page
  button "mount CDROM" noeol
    embedded_command "modprobe cdrom" "root" false
    embedded_command "modprobe ide-cd" "root" false
    embedded_command "modprobe isofs" "root" false
    embedded_command "modprobe cdrom" ""
    embedded_command "modprobe ide-cd" ""
    embedded_command "modprobe isofs" ""
    var Str device
    (var Stream proc) open "file:/proc/ide/hdc/media" in+saf
    if proc:readline="cdrom"
      device := "device:/hdc"
    else
      proc open "file:/proc/ide/hdb/media" in+safe
      if proc:readline="cdrom"
        device := "device:/hdb"
      else
        proc open "file:/proc/ide/hdd/media" in+safe
        if proc:readline="cdrom"
          device := "device:/hdd"
        else
          device := ""
    if device<>""
      filesystem_mount device "embedded:/mnt/cdrom/" "filesy
    else
      text "Could not find an IDE CDROM in the computer !"
    reload_page
  button "unmount CDROM" noeol
    filesystem_dismount "embedded:/mnt/cdrom/"
    var Str device
    (var Stream proc) open "file:/proc/ide/hdc/media" in+saf
    if proc:readline="cdrom"
      device := "device:/hdc"
    else
      proc open "file:/proc/ide/hdb/media" in+safe
      if proc:readline="cdrom"
        device := "device:/hdb"
      else
        proc open "file:/proc/ide/hdd/media" in+safe
        if proc:readline="cdrom"
          device := "device:/hdd"
        else
          device := ""
    if device<>""
      filesystem_mount device "embedded:/mnt/cdrom/" "filesy
    else
      text "Could not find an IDE CDROM in the computer !"
    reload_page
  button "unmount CDROM" noeol
    filesystem_dismount "embedded:/mnt/cdrom/"
    embedded_command "rmmod isofs" "root" false
    embedded_command "rmmod isofs" ""
    reload_page
  button "mount USB storage" noeol
    reload_page
  button "mount USB storage" noeol
    embedded_command "modprobe scsi_mod" "root" false
    embedded_command "modprobe sd_mod" "root" false
    embedded_command "modprobe uscore" "root" false
    embedded_command "modprobe usb-uhci" "root" false
    embedded_command "modprobe usb-ohci" "root" false
    embedded_command "modprobe usb-storage" "root" false
    embedded_command "modprobe fat" "root" false
    embedded_command "modprobe msdos" "root" false
    embedded_command "modprobe sg" ""
    embedded_command "modprobe sd_mod" ""
    embedded_command "modprobe usbcore" ""
    embedded_command "modprobe usb-uhci" ""
    embedded_command "modprobe ehci-hcd" ""
    embedded_command "modprobe usb-storage" ""
    embedded_command "modprobe fat" ""
    embedded_command "modprobe msdos" ""
    sleep 1
    sleep 1
    filesystem_mount "device:/sda1" "embedded:/mnt/usb/" "fi
    if (filesystem_mount "device:/sda1" "embedded:/mnt/usb/" "filesystem [dq]ext2[dq]")=failure
      filesystem_mount "device:/sda1" "embedded:/mnt/usb/" "filesystem [dq]msdos[dq]"
    reload_page
  button "unmount USB" noeol
    filesystem_dismount "embedded:/mnt/usb/"
    reload_page
  eol

execute_dynamic_page "pliant:/pliant/protocol/http/login.htm
if os_api="linux"
  if (this_computer:env:"kernel":"make":"CONFIG_APM"="y")
    button "Suspend" noeol
    reload_page
  button "unmount USB" noeol
    filesystem_dismount "embedded:/mnt/usb/"
    reload_page
  eol

execute_dynamic_page "pliant:/pliant/protocol/http/login.htm
if os_api="linux"
  if (this_computer:env:"kernel":"make":"CONFIG_APM"="y")
    button "Suspend" noeol
      embedded_command "/usr/bin/apm -s" "root" false
      embedded_command "/usr/bin/apm -s" ""
      reload_page
button "Power off"
  title "Power off"
  [Do you really want to power off this computer ? ]
  button "yes" noeol
    shutdown 30 "poweroff"
  button "no"
    goto_backward
      reload_page
button "Power off"
  title "Power off"
  [Do you really want to power off this computer ? ]
  button "yes" noeol
    shutdown 30 "poweroff"
  button "no"
    goto_backward