Patch title: Release 91 bulk changes
Abstract:
File: /appli/backup/display.pli
Key:
    Removed line
    Added line
   
module "/pliant/language/unsafe.pli"
module "engine.pli"
module "/pliant/protocol/http/server.pli"
module "/pliant/protocol/http/style/default.style"
module "/pliant/util/encoding/http.pli"
module "/pliant/fullpliant/this_computer.pli"


method page cdrom_configure engraver
  arg_rw HtmlPage page ; arg Str engraver
  implicit page
module "/pliant/language/unsafe.pli"
module "engine.pli"
module "/pliant/protocol/http/server.pli"
module "/pliant/protocol/http/style/default.style"
module "/pliant/util/encoding/http.pli"
module "/pliant/fullpliant/this_computer.pli"


method page cdrom_configure engraver
  arg_rw HtmlPage page ; arg Str engraver
  implicit page
    title "CD engraver settings"
    table columns 3 border 0
    table columns 3 border 0
      cell header [Main fields]
      cell void
      cell void
      cell [Server:]
      cell
        var Str remote := this_computer "hardware" engraver 
        input "" remote length 20
      cell
        [Name of the computer handling the CD engraver.] ; e
        [Leave blank is the CD engraver is connected to this
      cell [Server:]
      cell
        var Str remote := this_computer "hardware" engraver 
        input "" remote length 20
      cell
        [Name of the computer handling the CD engraver.] ; e
        [Leave blank is the CD engraver is connected to this
      cell [CDROM Linux device:]
      cell
        var Str device := this_computer "hardware" engraver 
        input "" device length 20
      cell
        [A Pliant Linux device looks like] ; fixed [ device:
      cell [Interface:]
      cell
        var Str interface := this_computer "hardware" engrav
        select "" interface
      cell [Interface:]
      cell
        var Str interface := this_computer "hardware" engrav
        select "" interface
          option "" ""
          option "IDE" "ide"
          option "IDE" "ide"
          option "USB" "usb"
          option "SCSI" "scsi"
      cell
        [If you have a cheap engraver on a low end computer,
          option "SCSI" "scsi"
      cell
        [If you have a cheap engraver on a low end computer,
      cell [Medium:]
      cell
        var Str medium := this_computer "hardware" engraver "medium"
        select "" medium
          option "" ""
          option "CD" "cd"
          option "DVD" "dvd"
      cell
        [What kind of disks do you use in the engraver.]
      cell header [Optional fields]
      cell void
      cell void
      cell [CDROM Linux device:]
      cell
        var Str device := this_computer "hardware" engraver "device"
        input "" device length 20
      cell
        [A Pliant Linux device looks like] ; fixed [ device:/hdc]
      cell [SCSI ID:]
      cell
        var Str scsi_id := this_computer "hardware" engraver
        input "" scsi_id
      cell
        []
      cell [SCSI ID:]
      cell
        var Str scsi_id := this_computer "hardware" engraver
        input "" scsi_id
      cell
        []
      cell [Options:]
      cell
        var Str options := this_computer "hardware" engraver
        input "" options
      cell
        [Leave it blank if you don't know.] ; eol
        [Some engravers don't work reliably in DMA mode.]
      cell [Speed:]
      cell
        var Str speed := this_computer "hardware" engraver "
        input "" speed length 3
      cell
        [Leave it blank if you don't know.] ; eol
        [Most modern engravers should work well with speed s
      cell [Cache size:]
      cell
        var Str cache := this_computer "hardware" engraver "
        input "" cache length 3
      cell
        [How many MB of memory do you want (need) to spend o
        [Leave it blank if you don't know.]
      cell [Speed:]
      cell
        var Str speed := this_computer "hardware" engraver "
        input "" speed length 3
      cell
        [Leave it blank if you don't know.] ; eol
        [Most modern engravers should work well with speed s
      cell [Cache size:]
      cell
        var Str cache := this_computer "hardware" engraver "
        input "" cache length 3
      cell
        [How many MB of memory do you want (need) to spend o
        [Leave it blank if you don't know.]
      cell [Options:]
      cell
        var Str options := this_computer "hardware" engraver "options"
        input "" options
      cell
        [Leave it blank if you don't know.] ; eol
        [Some engravers don't work reliably in DMA mode.]
      cell [Export to:]
      cell
        var Str export := this_computer "hardware" engraver 
        input "" export length 30
      cell
        [Name of the computers that are allowed to remotely 
        [Use spaces between computer names.]
    button "Update"
      this_computer "hardware" engraver "remote" := remote
      cell [Export to:]
      cell
        var Str export := this_computer "hardware" engraver 
        input "" export length 30
      cell
        [Name of the computers that are allowed to remotely 
        [Use spaces between computer names.]
    button "Update"
      this_computer "hardware" engraver "remote" := remote
      this_computer "hardware" engraver "device" := device
      this_computer "hardware" engraver "interface" := inter
      this_computer "hardware" engraver "interface" := inter
      this_computer "hardware" engraver "medium" := medium
      this_computer "hardware" engraver "device" := device
      this_computer "hardware" engraver "scsi_id" := scsi_id
      this_computer "hardware" engraver "options" := options
      this_computer "hardware" engraver "speed" := speed
      this_computer "hardware" engraver "cache" := cache
      this_computer "hardware" engraver "export" := export
      goto_backward

      this_computer "hardware" engraver "scsi_id" := scsi_id
      this_computer "hardware" engraver "options" := options
      this_computer "hardware" engraver "speed" := speed
      this_computer "hardware" engraver "cache" := cache
      this_computer "hardware" engraver "export" := export
      goto_backward

method page cdrom_configure
  arg_rw HtmlPage page
  implicit page
    title "Engraver settings"
    header "Default engraver"
      cdrom_configure "engraver"
    header "Extra engravers"
      table columns 2
        cell header [Engraver ID]
        cell void
        each eng this_computer:env:"hardware" filter (keyof:eng eparse "engraver" any:(var Str eng_id)) and eng_id<>""
          cell
            text eng_id
          cell
            button "edit"
              title "'"+eng_id+"' engraver settings"
              cdrom_configure "engraver"+eng_id
      input "Engraver ID: " (var Str eid) noeol
      button "create new engraver" noeol
        this_computer:env:"hardware" create "engraver"+eid
        reload_page
      button "remove engraver"
        if eid<>""        
          this_computer:env:"hardware" delete "engraver"+eid
        reload_page



method page backup_display_file a f
  arg_rw HtmlPage page ; arg_rw Data:BackupArea a ; arg_rw D
  implicit page
    title "Backup file '"+keyof:f+"'"
    bold fixed:(text keyof:f)
    header "Disk status"
      read_only
        table columns 3
          cell header [Disk status] ; cell void ; cell void
          cell [Date:]
          cell
            input "" f:datetime
          cell void
          cell [Size:]
          cell
            input "" f:size
          cell void
          cell [MD5:]
          cell
            input "" f:sign
          cell void
          cell [When:]
          cell
            input "" f:when
          cell [When the current status was last checked]
          cell [Who:]
          cell
            input "" f:user
          cell [Who did the last change]
          cell [Special status:]
          cell
            if f:status=backup_temporary
              small [temporary]
            eif f:status=backup_removed
              small [removed]
            eif f:status>=backup_lost
              highlight (shunt f:status=backup_lost "lost" f
          cell void
      if f:status=backup_lost and not is_read_only
        button "Change lost to removed"
          f status := backup_removed
          a compute
          reload_page
    header "Extra informations"
      table columns 2
        cell [Comments:]
        cell (text_input "" f:comment rows 5 columns 60)
        cell [Options:]
        cell (input "" f:options length 60)
    each l f:line
      header "Status for '"+keyof:l+"' backup line"
        read_only
          table columns 3
            cell [Date:]
            cell
              input "" l:datetime
            cell void
            cell [Size:]
            cell
              input "" l:size
            cell void
            cell [MD5:]
            cell
              input "" l:sign
            cell void
            cell [When:]
            cell
              input "" l:when
            cell [When the file was last backuped]
            cell [Medium:]
            cell
              input "" l:medium
            cell [ID of the medium the file was backedup on.
            cell [Failures:]
            cell
              input "" l:failure
            cell [How many times did we fail to backup the f
          text "On what mediums can we find older versions: 



method page backup_display_file a f
  arg_rw HtmlPage page ; arg_rw Data:BackupArea a ; arg_rw D
  implicit page
    title "Backup file '"+keyof:f+"'"
    bold fixed:(text keyof:f)
    header "Disk status"
      read_only
        table columns 3
          cell header [Disk status] ; cell void ; cell void
          cell [Date:]
          cell
            input "" f:datetime
          cell void
          cell [Size:]
          cell
            input "" f:size
          cell void
          cell [MD5:]
          cell
            input "" f:sign
          cell void
          cell [When:]
          cell
            input "" f:when
          cell [When the current status was last checked]
          cell [Who:]
          cell
            input "" f:user
          cell [Who did the last change]
          cell [Special status:]
          cell
            if f:status=backup_temporary
              small [temporary]
            eif f:status=backup_removed
              small [removed]
            eif f:status>=backup_lost
              highlight (shunt f:status=backup_lost "lost" f
          cell void
      if f:status=backup_lost and not is_read_only
        button "Change lost to removed"
          f status := backup_removed
          a compute
          reload_page
    header "Extra informations"
      table columns 2
        cell [Comments:]
        cell (text_input "" f:comment rows 5 columns 60)
        cell [Options:]
        cell (input "" f:options length 60)
    each l f:line
      header "Status for '"+keyof:l+"' backup line"
        read_only
          table columns 3
            cell [Date:]
            cell
              input "" l:datetime
            cell void
            cell [Size:]
            cell
              input "" l:size
            cell void
            cell [MD5:]
            cell
              input "" l:sign
            cell void
            cell [When:]
            cell
              input "" l:when
            cell [When the file was last backuped]
            cell [Medium:]
            cell
              input "" l:medium
            cell [ID of the medium the file was backedup on.
            cell [Failures:]
            cell
              input "" l:failure
            cell [How many times did we fail to backup the f
          text "On what mediums can we find older versions: