Patch title: Release 92 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"


            page button "Engrave a recovery CD" 
              if c:env:"partition":"root":"device"=""
                [You cannot engrave the CD without a root pa
              eif allowed:"administrator"
                title "Engrave a recovery CD"
                table columns 4 border 0
                  cell
                    highlight "warning:"
                  cell
                    [Selecting yes will eraze your] ; eol
                  cell
                    fixed [file:/usr/src/linux/] ; eol
                    fixed [file:/usr/src/pcmcia-cs/] ; eol
                    fixed [file:/usr/src/alsa-driver-xxx/] ;
                    fixed [file:/mnt/target/] ; eol
                  cell
                    [directories.]
                input "Name of the computers you want to rec
                select "Kind of CD: " (var Str rw)
                  option "Write only" ""
                  option "Read write" " rw"
                  option "store image to embedded:/tmp/recov
                [Do you really want to engrave the CD ? ]
                page button "yes" noeol
                  part engrave_cd
                    var Str all := target_names
                    while all<>""
                      if not (all parse any:(var Str first) 
                        first := all ; remain := ""
                      if (file_query "file:/fullpliant/archi
                        if not (exists computer:first)
                          text "There is no '"+first+"' in t
                        else
                          text "The target system archive fo
                        leave engrave_cd
                      all := remain
                    var ExtendedStatus status := install_tre
                    if status=success
                      var Str all := target_names
                      while all<>""
                        if not (all parse any:(var Str first
                          first := all ; remain := ""
                        file_copy "file:/fullpliant/archive/
                        var Str embedded := computer:first:e
                        if embedded<>""
                          file_copy "file:/fullpliant/archiv
                        all := remain
                      console "Building CD the embedded boot
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"


            page button "Engrave a recovery CD" 
              if c:env:"partition":"root":"device"=""
                [You cannot engrave the CD without a root pa
              eif allowed:"administrator"
                title "Engrave a recovery CD"
                table columns 4 border 0
                  cell
                    highlight "warning:"
                  cell
                    [Selecting yes will eraze your] ; eol
                  cell
                    fixed [file:/usr/src/linux/] ; eol
                    fixed [file:/usr/src/pcmcia-cs/] ; eol
                    fixed [file:/usr/src/alsa-driver-xxx/] ;
                    fixed [file:/mnt/target/] ; eol
                  cell
                    [directories.]
                input "Name of the computers you want to rec
                select "Kind of CD: " (var Str rw)
                  option "Write only" ""
                  option "Read write" " rw"
                  option "store image to embedded:/tmp/recov
                [Do you really want to engrave the CD ? ]
                page button "yes" noeol
                  part engrave_cd
                    var Str all := target_names
                    while all<>""
                      if not (all parse any:(var Str first) 
                        first := all ; remain := ""
                      if (file_query "file:/fullpliant/archi
                        if not (exists computer:first)
                          text "There is no '"+first+"' in t
                        else
                          text "The target system archive fo
                        leave engrave_cd
                      all := remain
                    var ExtendedStatus status := install_tre
                    if status=success
                      var Str all := target_names
                      while all<>""
                        if not (all parse any:(var Str first
                          first := all ; remain := ""
                        file_copy "file:/fullpliant/archive/
                        var Str embedded := computer:first:e
                        if embedded<>""
                          file_copy "file:/fullpliant/archiv
                        all := remain
                      console "Building CD the embedded boot
                      install_floppy c "file:/mnt/target/boo
                      if rw="store"
                        console "storing CD image" eol
                        status := cdrom_image (var List:File
                      else
                        console "Engraving the CD" eol
                        status := cdrom_engrave "file:/mnt/t
                      status := install_floppy c "file:/mnt/target/boot/floppy" c:env:"partition":"root":"device" ""
                      if status=success
                        if rw="store"
                          console "storing CD image" eol
                          status := cdrom_image (var List:FileInfo empty_list) "path [dq]file:/mnt/target/[dq] boot [dq]boot/floppy[dq]" "embedded:/tmp/recover.cd"
                        else
                          console "Engraving the CD" eol
                          status := cdrom_engrave "file:/mnt/target/" "boot [dq]boot/floppy[dq]"+rw+" indirect"
                      file_tree_delete "file:/mnt/target/"
                      console "done." eol
                      if status=success
                        goto_backward
                      else
                        text "failed: "+status:message
                    else
                      console "failed." eol
                      [Failed to engrave the bootable CD for
                      [Error message is: ] ; eol
                      fixed (text status:message)
                button "no"
                  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
                      file_tree_delete "file:/mnt/target/"
                      console "done." eol
                      if status=success
                        goto_backward
                      else
                        text "failed: "+status:message
                    else
                      console "failed." eol
                      [Failed to engrave the bootable CD for
                      [Error message is: ] ; eol
                      fixed (text status:message)
                button "no"
                  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