Patch title: Release 87 bulk changes
Abstract:
File: /pliant/fullpliant/computer.page
Key:
    Removed line
    Added line
   
module "/pliant/language/context.pli"
module "rules.pli"
module "install.pli"
module "embedded/install.pli"
module "embedded/compile.pli"
module "computer.pli"
module "debian.pli"


          button "Display settings" noeol
            title "Computer '"+keyof:c+"' settings"
            each category c:env
              header keyof:category
                each instance category
                  para
                    bold (text keyof:instance) ; eol
                  each id instance
                    italic (text keyof:id+":") ; fixed (text
          button "Smart display kernel settings" noeol
            display_kernel_settings c
          button "Display raw settings database"
            var Str temp := file_temporary
            var (Link Database:Computer) target_database :> 
            target_database load temp
            data_copy c target_database:data
            target_database store
            data_store
            reset_http_answer
module "/pliant/language/context.pli"
module "rules.pli"
module "install.pli"
module "embedded/install.pli"
module "embedded/compile.pli"
module "computer.pli"
module "debian.pli"


          button "Display settings" noeol
            title "Computer '"+keyof:c+"' settings"
            each category c:env
              header keyof:category
                each instance category
                  para
                    bold (text keyof:instance) ; eol
                  each id instance
                    italic (text keyof:id+":") ; fixed (text
          button "Smart display kernel settings" noeol
            display_kernel_settings c
          button "Display raw settings database"
            var Str temp := file_temporary
            var (Link Database:Computer) target_database :> 
            target_database load temp
            data_copy c target_database:data
            target_database store
            data_store
            reset_http_answer
            http_request send_static_file temp "filter_ascii
            http_request send_static_file temp "mime [dq]text/plain[dq]"       
            file_delete temp
  
        var Str name := keyof c ; name := name 0 (name searc


            file_delete temp
  
        var Str name := keyof c ; name := name 0 (name searc


          if c:env:"pliant":"system":"medium"="usb"

            page button "Build the bootable USB key"
              if allowed:"administrator"
                title "Build a bootable USB key"
                table columns 1 border 0
                  cell color (color hsl 0 50 75)
                    [This will eraze all your datas on /dev/sda disk, so you should absolutely not do that if you have any SCSI disk in your system.]
                table columns 4 border 0
                  cell
                    highlight "warning:"
                  cell
                    [Selecting yes will eraze your] ; eol
                  cell
                    fixed [embedded:/usr/src/linux/] ; eol
                    fixed [embedded:/usr/src/pcmcia-cs/] ; eol
                    fixed (text "embedded:/export/diskless/"+name+"/") ; eol
                  cell
                    [directories.]
                [Do you really want to build the USB key]
                page button "yes" noeol
                  execute "insmod scsi_mod"
                  execute "insmod sd_mod"
                  execute "insmod uscore"
                  execute "insmod usb-uhci"
                  execute "insmod usb-ohci"
                  execute "insmod usb-storage"
                  sleep 1
                  partition_format "device:/sda" "ext2" ""
                  var ExtendedStatus status := filesystem_mount "device:/sda" "file:/mnt/target/" ""
                  if status=success
                    status := install_tree c "file:/mnt/target/" ""
                    if status=success
                      update_rights c "file:/mnt/target/"
                      status := lilo_install c "file:/mnt/target/" "device:/sda" "device:/sda" "" ""
                    filesystem_dismount "file:/mnt/target/"
                  if status=success
                    goto_backward
                  else
                    [Failed to record USB key] ; eol
                    [Error message is: ] ; eol
                    fixed (text status:message)
                button "no"
                  goto_backward
              else
                [Only the administrator can do that !]

          if c:env:"pliant":"system":"medium"="nfs"


if allowed:"administrator"
  input "Computer name: " (var Str sid) noeol
  var Str cid := ""
  button "Create the new computer" noeol
    if not (exists computer:sid)
      computer create sid
      if cid<>""
        data_copy computer:cid computer:sid
    reload_page
  button "Delete the computer"
    computer delete sid
    reload_page
  input "... as a copy of: " cid
          if c:env:"pliant":"system":"medium"="nfs"


if allowed:"administrator"
  input "Computer name: " (var Str sid) noeol
  var Str cid := ""
  button "Create the new computer" noeol
    if not (exists computer:sid)
      computer create sid
      if cid<>""
        data_copy computer:cid computer:sid
    reload_page
  button "Delete the computer"
    computer delete sid
    reload_page
  input "... as a copy of: " cid