Patch title: Release 94 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/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/util/crypto/legal.pli"
# module "/pliant/fullpliant/computer.pli"


[List of currently defined names:]
# module "/pliant/fullpliant/computer.pli"


[List of currently defined names:]
table columns 4
table columns 3
  cell header
    [Name]
  cell header
    [IP]
  cell header
    [Name]
  cell header
    [IP]
  cell header
    [Kind of location]
  cell void
  each n name_database:data:name
    cell
      fixed (text keyof:n)
    cell
      text n:ip ; eol
      if n:ip<>(name_ip n:ip)
        font color (color hsl 0 0 50)
          fixed text:(name_ip n:ip)
    cell
  cell void
  each n name_database:data:name
    cell
      fixed (text keyof:n)
    cell
      text n:ip ; eol
      if n:ip<>(name_ip n:ip)
        font color (color hsl 0 0 50)
          fixed text:(name_ip n:ip)
    cell
      text (shunt n:location="F" "fixed" n:location="M" "mob
    cell
      if allowed:"administrator"
        button "edit"
          title "'"+keyof:n+"' name"
          table columns 2
            cell
      if allowed:"administrator"
        button "edit"
          title "'"+keyof:n+"' name"
          table columns 2
            cell
              [IP]
              [IP:]
            cell
              input "" n:ip
            cell
            cell
              input "" n:ip
            cell
              [Connection mode]
              [Options:]
            cell
            cell
              select "" n:location
                option "Fixed" "F"
                option "Mobile" "M"
              input "" n:options length 60
            cell
            cell
              [Comment]
              [Comment:]
            cell
              text_input "" n:comment columns 60 rows 10
          button "Update"
            goto_backward   


[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
            cell
              text_input "" n:comment columns 60 rows 10
          button "Update"
            goto_backward   


[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 := min max_legal_key_bits 1024
                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
                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
            [Physical server name:]
          cell
            input "" h:physical length 30 noeol
            input "" h:physical length 30
          cell
            [IP address:]
          cell
            input " " h:ip length 16
          cell
          cell
            [IP address:]
          cell
            input " " h:ip length 16
          cell
            [HTTP port:]
            [TCP ports:]
          cell
          cell
            input "" h:http_port length 5
            input "Pliant multiservice: " h:port length 5 noeol
            input "HTTP: " h:http_port length 5 noeol
            input " Remote execution: " h:remote_port length 5
          cell
          cell
            [Remote execution port:]
            [Options:]
          cell
          cell
            input "" h:remote_port length 5
          cell
            [Options]
          cell
            input "" h:options length 60
          if allowed:"administrator"
            cell
            input "" h:options length 60
          if allowed:"administrator"
            cell
              [Comment]
              [Comment:]
            cell
              text_input "" h:comment columns 60 rows 10
        if allowed:"administrator"
          button "Update"
            goto_backward   


            cell
              text_input "" h:comment columns 60 rows 10
        if allowed:"administrator"
          button "Update"
            goto_backward   


header "Sites"
header "Buildings"


[List of currently defined buildings:]
table columns 2
  cell header
    [ID]
  cell void
  each b name_database:data:building
    cell
      fixed (text keyof:b)
    cell
      if allowed:"administrator"
        page button "edit"
          title "'"+keyof:b+"' building"
          table columns 2
            cell
              [Proxys:]
            cell
              table columns 2 border 0
                each proxy b:proxy
                  cell
                    text keyof:proxy
                  cell
                    text proxy
            cell
              [Options:]
            cell
              input "" b:options length 60
            cell
              [Comment:]
            cell
              text_input "" b:comment columns 60 rows 10
          input "Proxy line ID: " (var Str pid) length 2 noeol
          input " and name: " (var Str pname) length 30 noeol
          button "Record proxy" noeol
            b:proxy create pid
            b:proxy pid := pname
            reload_page
          button "Remove proxy"
            b:proxy delete pid
            reload_page
          button "Update"
            goto_backward   

if allowed:"administrator"
  input "Name: " (var Str bid) length 30 noeol
  button "Create the new building" noeol
    name_database:data:building create bid
    reload_page
  button "Delete the building"
    name_database:data:building delete bid
    reload_page


header "Web sites"

  [Theses are the ]
  [Theses are the ]
  link "web site definitions" "/pliant/protocol/http/site.ht
  link "web sites definitions" "/pliant/protocol/http/site.html"
  [ providing name resolution possibility:]
  eol
  table columns 2
    cell header [Site]
    cell header [IP]
    each s site
      if s:ip<>"" or s:computer<>""
        cell
          fixed (text keyof:s)
        cell
          if s:ip<>""
            fixed (text s:ip)
          eif s:computer<>""
            font color (color hsl 0 0 50)
              fixed text:(name_ip s:computer)



  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
  [ providing name resolution possibility:]
  eol
  table columns 2
    cell header [Site]
    cell header [IP]
    each s site
      if s:ip<>"" or s:computer<>""
        cell
          fixed (text keyof:s)
        cell
          if s:ip<>""
            fixed (text s:ip)
          eif s:computer<>""
            font color (color hsl 0 0 50)
              fixed text:(name_ip s:computer)



  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