Patch title: Release 96 bulk changes
Abstract:
File: /pliant/protocol/dns/name.page
Key:
    Removed line
    Added line
   
module "/pliant/language/unsafe.pli"
module "name.pli"
module "/pliant/protocol/dns/client.pli"
module "/pliant/protocol/http/site.pli"
module "/pliant/fullpliant/this_computer.pli"
module "/pliant/util/crypto/rsa.pli"
# module "/pliant/fullpliant/computer.pli"


[List of currently defined hosts:]
table columns 3
  cell header [Host]
  cell header [IP]
  cell void
  each h name_database:data:host
    var Str id := keyof h
    cell
      fixed text:id
    cell
      if h:ip<>""
        fixed (text h:ip)
      eif h:physical<>""
        font color (color hsl 0 0 50)
          fixed text:(name_ip h:physical)
    cell
      button "edit"
        read_only not allowed:"administrator"
        title "'"+keyof:h+"' host"
        table columns 2
          cell
            [Public key:]
          cell
            if allowed:"administrator"
              input "" h:public_key length 30 noeol
              page button "Generate"
                title "Generate a public/private key pair fo
                var Int bits := 1024
                input "Number of bits: " bits length 4 noeol
                button "Generate now"
                  var DateTime start := datetime
                  rsa_generate "host:"+id bits ""
                  console "generated a " bits " bits key in 
                  goto_backward
            var Int bits := rsa_nbbits h:public_key
            if bits=defined
              if name_secret_database:data:host:id:private_k
                bold
                  text string:bits+" bits"
                if (name_secret_database:data:host:id:privat
                  fixed [  ] ; highlight "key is corrupted !
              else
                font color (color hsl 0 0 50)
                  text string:bits+" bits"
          cell
            [Building:]
          cell
            input " " h:building length 30
          cell
            [Physical server name:]
          cell
            input "" h:physical length 30
          cell
            [IP address:]
          cell
            input " " h:ip length 16
          cell
            [TCP ports:]
          cell
module "/pliant/language/unsafe.pli"
module "name.pli"
module "/pliant/protocol/dns/client.pli"
module "/pliant/protocol/http/site.pli"
module "/pliant/fullpliant/this_computer.pli"
module "/pliant/util/crypto/rsa.pli"
# module "/pliant/fullpliant/computer.pli"


[List of currently defined hosts:]
table columns 3
  cell header [Host]
  cell header [IP]
  cell void
  each h name_database:data:host
    var Str id := keyof h
    cell
      fixed text:id
    cell
      if h:ip<>""
        fixed (text h:ip)
      eif h:physical<>""
        font color (color hsl 0 0 50)
          fixed text:(name_ip h:physical)
    cell
      button "edit"
        read_only not allowed:"administrator"
        title "'"+keyof:h+"' host"
        table columns 2
          cell
            [Public key:]
          cell
            if allowed:"administrator"
              input "" h:public_key length 30 noeol
              page button "Generate"
                title "Generate a public/private key pair fo
                var Int bits := 1024
                input "Number of bits: " bits length 4 noeol
                button "Generate now"
                  var DateTime start := datetime
                  rsa_generate "host:"+id bits ""
                  console "generated a " bits " bits key in 
                  goto_backward
            var Int bits := rsa_nbbits h:public_key
            if bits=defined
              if name_secret_database:data:host:id:private_k
                bold
                  text string:bits+" bits"
                if (name_secret_database:data:host:id:privat
                  fixed [  ] ; highlight "key is corrupted !
              else
                font color (color hsl 0 0 50)
                  text string:bits+" bits"
          cell
            [Building:]
          cell
            input " " h:building length 30
          cell
            [Physical server name:]
          cell
            input "" h:physical length 30
          cell
            [IP address:]
          cell
            input " " h:ip length 16
          cell
            [TCP ports:]
          cell
            input "Pliant multiservice: " h:port length 5 no
            input "Multiplexer: " h:port length 5 noeol
            input "HTTP: " h:http_port length 5 noeol
            input " Remote execution: " h:remote_port length
          cell
            [Options:]
          cell
            input "" h:options length 60
          if allowed:"administrator"
            cell
              [Comment:]
            cell
              text_input "" h:comment columns 60 rows 10
        if allowed:"administrator"
          button "Update"
            goto_backward   


  var CBool migrate := false
  each n name_database:data:name
    if (name_ip site_database:data:site:(keyof n):computer)=
      migrate := true
    eif site_database:data:site:(keyof n):ip=(name_ip n:ip)
      migrate := true
  if migrate
    para
      page button "Drop no use sites IPs"
        each n name_database:data:name
          if (name_ip site_database:data:site:(keyof n):comp
            name_database:data:name delete keyof:n
          eif site_database:data:site:(keyof n):ip=(name_ip 
            name_database:data:name delete keyof:n
        reload_page
            input "HTTP: " h:http_port length 5 noeol
            input " Remote execution: " h:remote_port length
          cell
            [Options:]
          cell
            input "" h:options length 60
          if allowed:"administrator"
            cell
              [Comment:]
            cell
              text_input "" h:comment columns 60 rows 10
        if allowed:"administrator"
          button "Update"
            goto_backward   


  var CBool migrate := false
  each n name_database:data:name
    if (name_ip site_database:data:site:(keyof n):computer)=
      migrate := true
    eif site_database:data:site:(keyof n):ip=(name_ip n:ip)
      migrate := true
  if migrate
    para
      page button "Drop no use sites IPs"
        each n name_database:data:name
          if (name_ip site_database:data:site:(keyof n):comp
            name_database:data:name delete keyof:n
          eif site_database:data:site:(keyof n):ip=(name_ip 
            name_database:data:name delete keyof:n
        reload_page