Patch title: Release 91 bulk changes
Abstract:
File: /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"

module "/pliant/admin/file.pli"
module "/pliant/admin/execute.pli"
module "/pliant/protocol/dns/name.pli"
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"

module "/pliant/admin/file.pli"
module "/pliant/admin/execute.pli"
module "/pliant/protocol/dns/name.pli"
module "/pliant/linux/kernel/module.pli"
module "/pliant/linux/storage/cdrom.pli"
module "/pliant/linux/storage/partition.pli"
module "/pliant/linux/storage/filesystem.pli"
module "/pliant/linux/storage/raid.pli"


module "/pliant/linux/storage/cdrom.pli"
module "/pliant/linux/storage/partition.pli"
module "/pliant/linux/storage/filesystem.pli"
module "/pliant/linux/storage/raid.pli"


        text_input "Comments: " c:comment columns 80 rows 5

        header "'"+keyof:c+"' definition"
       
          table columns 4
            cell header
              [Line ID]
            cell header
              [Component]
            cell header
              [Instance]
            cell header
              [Extra parameters]
            each cc c:content
              cell
                fixed (text keyof:cc)
              cell
                input "" cc:component length 25
              cell
                input "" cc:instance length 8
              cell
                if not (exists computer_database:data:compon
                  highlight "not defined"
                display_variables c cc:component cc:instance
      
          if allowed:"administrator"
            input "Line ID: " (var Str ccid) noeol
            button "Add a line" noeol
              c:content create ccid
              reload_page
            button "Remove the line"
              c:content delete ccid
              reload_page


            page button "Build the bootable USB key" noeol
              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/
                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/] ; e
                    fixed [embedded:/usr/src/alsa-driver-xxx
                    fixed (text "embedded:/export/diskless/"
                  cell
                    [directories.]
                if (file_query "file:/fullpliant/archive/"+k
                  var Str key := shunt (file_query "file:/fu
                  select "What about the site key ? " (var S
                    option "do nothing" ""
                    if key="keep_site_key"
                      option "keep existing one" "keep_site_
                    option "generate a new one" "generate_si
                var Str format := "yes"
                select "Do you want to format USB key: " (va
                  option "yes" "yes"
                  option "no" "no"
                [Do you really want to build the USB key]
                page button "yes" noeol
        header "'"+keyof:c+"' definition"
       
          table columns 4
            cell header
              [Line ID]
            cell header
              [Component]
            cell header
              [Instance]
            cell header
              [Extra parameters]
            each cc c:content
              cell
                fixed (text keyof:cc)
              cell
                input "" cc:component length 25
              cell
                input "" cc:instance length 8
              cell
                if not (exists computer_database:data:compon
                  highlight "not defined"
                display_variables c cc:component cc:instance
      
          if allowed:"administrator"
            input "Line ID: " (var Str ccid) noeol
            button "Add a line" noeol
              c:content create ccid
              reload_page
            button "Remove the line"
              c:content delete ccid
              reload_page


            page button "Build the bootable USB key" noeol
              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/
                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/] ; e
                    fixed [embedded:/usr/src/alsa-driver-xxx
                    fixed (text "embedded:/export/diskless/"
                  cell
                    [directories.]
                if (file_query "file:/fullpliant/archive/"+k
                  var Str key := shunt (file_query "file:/fu
                  select "What about the site key ? " (var S
                    option "do nothing" ""
                    if key="keep_site_key"
                      option "keep existing one" "keep_site_
                    option "generate a new one" "generate_si
                var Str format := "yes"
                select "Do you want to format USB key: " (va
                  option "yes" "yes"
                  option "no" "no"
                [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"
                  kernel_load_module "scsi_mod"
                  kernel_load_module "sd_mod"
                  kernel_load_module "uscore"
                  kernel_load_module "usb-uhci" # 2.4
                  kernel_load_module "usb-ohci" # 2.4
                  kernel_load_module "ehci-hcd" # 2.4
                  kernel_load_module "uhci_hcd" # 2.6
                  kernel_load_module "ohci_hcd" # 2.6
                  kernel_load_module "ehci_hcd" # 2.6
                  kernel_load_module "usb-storage" # 2.4
                  kernel_load_module "usb_storage" # 2.6
                  sleep 1
                  if format="yes"
                    partition_format "device:/sda" "ext2" ""
                  var ExtendedStatus status := filesystem_mo
                  if status=success
                    status := install_tree c "file:/mnt/targ
                    if status=success
                      update_rights c "file:/mnt/target/"
                      status := lilo_install c "file:/mnt/ta
                    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 !]
            button "and the boot floppy"
              if allowed:"administrator"
                title "Build the boot floppy for '"+keyof:c+
                para
                  [Please insert a floppy in this computer d
                para
                  highlight "warning: " ; [The floppy conten
                button "Build the floppy"
                  var ExtendedStatus status := install_flopp
                  if status=success
                    goto_backward
                  else
                    [Failed to build the boot floppy for ] ;
                    para
                      fixed (text status:message)
              else
                [Only the administrator can do that !]


          button "Make the new system bootable"
            if allowed:"administrator"
              var Str root := c:env:"partition":"root":"devi
              title "Make "+root+" partition bootable"
              para
                var Str gbd := "hd0"
                input "GRUB boot drive: " gbd
                var Str gbp := "hd0,0"
                input "GRUB boot partition: " gbp
              para
                var Str lbd := "device:/hda"
                if (root parse "device:/sd" any)
                  lbd := "device:/sda"
                input "Lilo boot drive: " lbd
                var Str geometry := "lba32"
                select "Lilo drive access mode: " geometry
                  option "auto select" ""
                  option "32 bits linear" "lba32"
                  option "24 bits linear" "linear"
                  option "old bios mode" "chs"
              var Str options := c:env:"kernel":"constant":"
              input "Extra Linux kernel options: " options
              table columns 2 border 0
                cell (highlight "warning:")
                cell [If you had a working operating system 
              para
                [You are going to set the disk boot sector s
              [Now install: ]
              button "GRUB" noeol
                var Str grub_options := ""
                if this_computer:env:"pliant":"system":"medi
                  grub_install "file:/mnt/target/" gbd gbp
                  sleep 1
                  if format="yes"
                    partition_format "device:/sda" "ext2" ""
                  var ExtendedStatus status := filesystem_mo
                  if status=success
                    status := install_tree c "file:/mnt/targ
                    if status=success
                      update_rights c "file:/mnt/target/"
                      status := lilo_install c "file:/mnt/ta
                    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 !]
            button "and the boot floppy"
              if allowed:"administrator"
                title "Build the boot floppy for '"+keyof:c+
                para
                  [Please insert a floppy in this computer d
                para
                  highlight "warning: " ; [The floppy conten
                button "Build the floppy"
                  var ExtendedStatus status := install_flopp
                  if status=success
                    goto_backward
                  else
                    [Failed to build the boot floppy for ] ;
                    para
                      fixed (text status:message)
              else
                [Only the administrator can do that !]


          button "Make the new system bootable"
            if allowed:"administrator"
              var Str root := c:env:"partition":"root":"devi
              title "Make "+root+" partition bootable"
              para
                var Str gbd := "hd0"
                input "GRUB boot drive: " gbd
                var Str gbp := "hd0,0"
                input "GRUB boot partition: " gbp
              para
                var Str lbd := "device:/hda"
                if (root parse "device:/sd" any)
                  lbd := "device:/sda"
                input "Lilo boot drive: " lbd
                var Str geometry := "lba32"
                select "Lilo drive access mode: " geometry
                  option "auto select" ""
                  option "32 bits linear" "lba32"
                  option "24 bits linear" "linear"
                  option "old bios mode" "chs"
              var Str options := c:env:"kernel":"constant":"
              input "Extra Linux kernel options: " options
              table columns 2 border 0
                cell (highlight "warning:")
                cell [If you had a working operating system 
              para
                [You are going to set the disk boot sector s
              [Now install: ]
              button "GRUB" noeol
                var Str grub_options := ""
                if this_computer:env:"pliant":"system":"medi
                  grub_install "file:/mnt/target/" gbd gbp
                  filesystem_mount root "file:/mnt/target/" 
                  filesystem_mount root "file:/mnt/target/" "nocheck"
                  update_rights c "file:/mnt/target/"
                  grub_configure c "file:/mnt/target/" gbd g
                  filesystem_dismount "file:/mnt/target/"
                else
                  grub_install "file:/" gbd gbp
                  update_rights c "file:/"
                  grub_configure c "file:/" gbd gbp root opt
                goto_backward
              button "LILO" noeol
                var Str lilo_options := ""
                if geometry<>""
                  lilo_options += " geometry "+string:geomet
                if true # this_computer:env:"pliant":"system
                  update_rights c "file:/mnt/target/"
                  grub_configure c "file:/mnt/target/" gbd g
                  filesystem_dismount "file:/mnt/target/"
                else
                  grub_install "file:/" gbd gbp
                  update_rights c "file:/"
                  grub_configure c "file:/" gbd gbp root opt
                goto_backward
              button "LILO" noeol
                var Str lilo_options := ""
                if geometry<>""
                  lilo_options += " geometry "+string:geomet
                if true # this_computer:env:"pliant":"system
                  filesystem_mount root "file:/mnt/target/" 
                  filesystem_mount root "file:/mnt/target/" "nocheck"
                  update_rights c "file:/mnt/target/"
                  var Status status := lilo_install c "file:
                  filesystem_dismount "file:/mnt/target/"
                else
                  update_rights c "file:/"
                  var Status status := lilo_install c "file:
                if status=success
                  goto_backward
                else
                  [Failed to make the system bootable throug
              button "none"
                goto_backward
            else
              [Only the administrator can do that !]


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
                  update_rights c "file:/mnt/target/"
                  var Status status := lilo_install c "file:
                  filesystem_dismount "file:/mnt/target/"
                else
                  update_rights c "file:/"
                  var Status status := lilo_install c "file:
                if status=success
                  goto_backward
                else
                  [Failed to make the system bootable throug
              button "none"
                goto_backward
            else
              [Only the administrator can do that !]


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