Patch title: Release 91 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/fullpliant/embedded/command.pli"
  module "/pliant/linux/storage/filesystem.pli"

requires "local"


title "FullPliant on "+computer_fullname

header "Applications"

para
  if user_name<>""
    link "Mail" "/pliant/browse/mail/" ; fixed [  ]
  link "Standard Pliant site" "/" ; fixed [  ]
para
  if allowed:"administrator"
    link "Extended secured proxy" "/pliant/protocol/http/proxy.html"
    if http_proxy_user<>""
      highlight "on"
    eif http_proxy_running
      small text:"on"
    else
      small text:"off"
    fixed [  ]
    note "Secured proxy"
      title "Pliant secured proxy"
      select "Site you want to connect to: " (var Str site1) noeol
        option "" ""
        plugin secured
      input " " (var Str site2)
      input "Your password: " (var Str password) password
      button "Connect"
        var ExtendedStatus status := proxy http_request:user_name password (shunt site1<>"" site1 site2)
        if status=success
          goto_backward
        else
          text status:message
    if proxy_current_site<>""
      [ -> ]
      link proxy_current_site "http://localhost:"+string:secured_proxy_tcp_port+"/"
      fixed [  ]
      note "disconnect"
        proxy "" "" ""
        reload_page
  fixed [  ]
  link "Tree synchronize" "/pliant/util/crypto/synchronize"

plugin application


header "Administration"

para
  link "Server status" "/pliant/fullpliant/status" ; fixed [  ]
  if this_computer:env:"printer":size>0
    link "Print spooler" "/pliant/protocol/lpr/spooler" ; fixed [  ]
  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/" ; fixed [  ]
    link "Interpreter" "/pliant/appli/interpreter" ; fixed [  ]
    if os_api="linux"
      note "Root shell"
        embedded_command "xterm +sb -fg black -bg rgb:D8/D8/D8 -title ROOT" "detached"
        reload_page

plugin administration

if os_api="linux"
  button "mount floppy" noeol
    embedded_command "modprobe floppy" ""
    embedded_command "modprobe msdos" ""
    filesystem_mount "device:/fd0" "embedded:/mnt/floppy/" "filesystem [dq]msdos[dq]"
    reload_page
  button "unmount floppy" noeol
    filesystem_dismount "embedded:/mnt/floppy/"
    reload_page
  button "mount CDROM" noeol
    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+safe
    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/" "filesystem [dq]iso9660[dq] readonly"
    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" ""
    reload_page
  button "mount USB storage" noeol
    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-uhci" "" # 2.4
    embedded_command "modprobe ehci-hcd" "" # 2.4
    embedded_command "modprobe uhci_hcd" "" # 2.6
    embedded_command "modprobe ehci_hcd" "" # 2.6
    embedded_command "modprobe usb-storage" ""
    embedded_command "modprobe fat" ""
    embedded_command "modprobe msdos" ""
    sleep 1
    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.html"
if os_api="linux"
  if (this_computer:env:"kernel":"make":"CONFIG_APM"="y")
    button "Suspend" noeol
      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