Patch title: Release 89 bulk changes
Abstract:
File: /fullpliant/configure.page
Key:
    Removed line
    Added line
   
module "/pliant/admin/file.pli"
module "/pliant/language/context.pli"
module "this_computer.pli"
module "wizard.pli"


header "Configuring the name of the computer"
  
  para
    if computer_fullname=""
      [This computer this HTTP server is running on currentl
    eif (computer_fullname search "." -1)=(-1)
      [The name of the computer currently running this HTTP 
      [ which is not a valid name because it has no domain.]
    else
      [The name of the computer currently running this HTTP 
    eol
  para
    var Str fullname := computer_fullname
    input "Computer name: " fullname length 30 noeol
    page button "Set the computer name"
      if allowed:"administrator"
        if (fullname parse any:(var Str name) "." any:(var S
          computer_fullname := fullname
          this_computer "pliant" "identity" "name" := name ;
          this_computer "pliant" "identity" "domain" := doma
          this_computer_database store
          reload_page
        else
          ['] ; bold text:fullname ; [' is not a valid name.
      else
        [You cannot do that unless you are the site administ
    [The name of the computer must contain a domain name, ev
    [An example of a valid name is] ; fixed [ mycomputer.myc
module "/pliant/admin/file.pli"
module "/pliant/language/context.pli"
module "this_computer.pli"
module "wizard.pli"


header "Configuring the name of the computer"
  
  para
    if computer_fullname=""
      [This computer this HTTP server is running on currentl
    eif (computer_fullname search "." -1)=(-1)
      [The name of the computer currently running this HTTP 
      [ which is not a valid name because it has no domain.]
    else
      [The name of the computer currently running this HTTP 
    eol
  para
    var Str fullname := computer_fullname
    input "Computer name: " fullname length 30 noeol
    page button "Set the computer name"
      if allowed:"administrator"
        if (fullname parse any:(var Str name) "." any:(var S
          computer_fullname := fullname
          this_computer "pliant" "identity" "name" := name ;
          this_computer "pliant" "identity" "domain" := doma
          this_computer_database store
          reload_page
        else
          ['] ; bold text:fullname ; [' is not a valid name.
      else
        [You cannot do that unless you are the site administ
    [The name of the computer must contain a domain name, ev
    [An example of a valid name is] ; fixed [ mycomputer.myc
    
  para
    page note "extra settings"
      if allowed:"administrator"
        title "Edit settings for "+computer_fullname
        para
          input "Parameter" (var Str s1) length 16 noeol
          input "" (var Str s2) length 16 noeol
          input "" (var Str s3) length 16 noeol
          input "value" (var Str v) length 20 noeol
          button "record new setting"
            this_computer s1 s2 s3 := v
            reload_page
        table columns 5
          each e1 this_computer:env
            var Str k1 := keyof e1
            each e2 e1
              var Str k2 := keyof e2
              each e3 e2
                var Str k3 := keyof e3
                cell text:k1
                cell text:k2
                cell text:k3
                cell text:e3
                cell
                  button "edit"
                    title "Change "+k1+" "+k2+" "+k3
                    var Str v := this_computer:env:k1:k2:k3
                    input "New value: " v length 80 noeol
                    button "record"
                      this_computer k1 k2 k3 := v
                      goto_backward
        button "update"
          goto_backward
      else
        [Only the administrator is allowed to view or edit these.]



header "Configuring the services"
  
  table columns 2 border 0
    cell
      note "Pliant language compiler"
        title "Pliant language compiler"
        para
          if not (this_computer:env:"hardware":"memory":"cap
            hw := undefined
          input "Overall memory available in the computer: "
          text " (current value is "+(string memory_physical
          if not (this_computer:env:"pliant":"memory":"assig
            mem := undefined
          input "Try to keep used memory under: " mem length
          text " (current value is "+(string memory_assigned
          if not (this_computer:env:"pliant":"memory":"overf
            mem2 := undefined
          input "Kill the process is memory reaches: " mem2 
          if memory_overflow=defined
            text " (current value is "+(string memory_overfl
        if os_api="linux"
          para
            var Str level := string pliant_debugging_level
            (file_query "file:/bin/pliant" extended):link pa
            var Str old_level := level
            select "Debugging level: " level
              option "0" "0"
              option "1" "1"
              option "2" "2"
            var Str optimizer := this_computer:env:"pliant":
            select "Code optimizer: " optimizer
              option "Built in" ""
              option "GCC" "gcc"
        para
          var Str precompile := this_computer:env:"pliant":"
          text_input "Precompile modules: " precompile colum
          button "Auto select modules to precompile"
            if allowed:"administrator"
              this_computer "pliant" "language" "precompile"
              reload_page
            else
              [You cannot do that unless you are the site ad
        button "Record new settings"
          if mem2=defined and mem2<64
            text "Limiting memory to "+string:mem2+" MB is n
          eif allowed:"administrator"
            if hw=defined
              this_computer "hardware" "memory" "capacity" :
            if mem=defined
              this_computer "pliant" "memory" "assigned" := 
              memory_assigned := mem*2n^20
            if mem2=defined
              this_computer "pliant" "memory" "overflow" := 
              memory_overflow := mem2*2^20
            if os_api="linux"
              if level<>old_level
                file_delete "file:/bin/pliant"
                file_link "file:/pliant/binary/pliant-debug"
                file_delete "file:/pliant/binary/default-deb
                file_delete "file:/pliant/binary/default-deb
              this_computer "pliant" "language" "optimizer" 
            this_computer "pliant" "language" "precompile" :
            goto_backward
          else
            [You cannot do that unless you are the site admi
        para
          [Changing the code optimizer to use to GCC will ma
          if os_api="linux"
            [: use with care.]
          else
            [. Also it's currently available only under Linu
        para
          [Precompiling module '/pliant/protocol/http/style/
        para
          link "Pliant profiler" "/pliant/language/debug/pro
    cell
      [Change Pliant language compiler settings (most users 
    cell
      link "Sites" "/pliant/protocol/http/site"
    cell
      [Configure various web or FTP sites in your organizati
      [The Pliant HTTP server is abble to run many web sites
    cell
      link "Users" "user"
    cell
      [Define users in your organization and the rights they
    cell
      link "Mail boxes" "/pliant/protocol/smtp/mail"
    cell
      [Define the various mail boxes and mail related settin
    cell
      link "Names" "/pliant/protocol/dns/name"
    cell
      [Assign IP addresses to computers (also called DNS ser
    cell
      link "Forums" "/pliant/appli/forum/forum"
    cell
      [Define various forums that will be the frame of team 
    cell
      if os_api="linux"
        link "Computers" "computer"
      else
        note "Computers"
          [FullPliant computers generation is only available
    cell
      [Define various computers configurations and generate 
    cell
      if this_computer:env:"pliant":"system":"distribution"=
        link "Logical computers" "logical"
      else
        note "Logical computers"
          [Defining logical computers is meaningfull only wh
    cell
      [Define and manage logical computers hosted on this ph
    cell
      link "Passwords" "password"
    cell
      [Clear passwords database (currently used for mails re
    cell
      if this_computer:env:"pliant":"system":"distribution"=
        link "Files sharing" "export"
      else
        note "Files sharing"
          [Files sharing is only available on FullPliant ope
    cell
      [Export files to other Unix, Windows or Macintosh boxe
    cell
      link "Clustering" "/pliant/appli/cluster/configure"
    cell
      [Define and manage clustering (replicating database an
    cell
      link "Remote execution" "/pliant/util/remote/remote"
    cell
      [Allow other computer to execute functions remotely on
    cell
      link "Logs" "/pliant/language/debug/log"
    cell
      [Log various services usage (HTTP, SMTP, etc) to files
    cell
      if os_api="linux"
        link "Backups" "/pliant/appli/backup/"
      else
        note "Backups"
          [Backups are only available on FullPliant or Linux
    cell
      [Define and manage your backups.]
    cell
      link "Printers" "/pliant/protocol/lpr/spooler"
    cell
      [Define attached printers and export these to the netw


  configuration_wizard ""
header "Configuring the services"
  
  table columns 2 border 0
    cell
      note "Pliant language compiler"
        title "Pliant language compiler"
        para
          if not (this_computer:env:"hardware":"memory":"cap
            hw := undefined
          input "Overall memory available in the computer: "
          text " (current value is "+(string memory_physical
          if not (this_computer:env:"pliant":"memory":"assig
            mem := undefined
          input "Try to keep used memory under: " mem length
          text " (current value is "+(string memory_assigned
          if not (this_computer:env:"pliant":"memory":"overf
            mem2 := undefined
          input "Kill the process is memory reaches: " mem2 
          if memory_overflow=defined
            text " (current value is "+(string memory_overfl
        if os_api="linux"
          para
            var Str level := string pliant_debugging_level
            (file_query "file:/bin/pliant" extended):link pa
            var Str old_level := level
            select "Debugging level: " level
              option "0" "0"
              option "1" "1"
              option "2" "2"
            var Str optimizer := this_computer:env:"pliant":
            select "Code optimizer: " optimizer
              option "Built in" ""
              option "GCC" "gcc"
        para
          var Str precompile := this_computer:env:"pliant":"
          text_input "Precompile modules: " precompile colum
          button "Auto select modules to precompile"
            if allowed:"administrator"
              this_computer "pliant" "language" "precompile"
              reload_page
            else
              [You cannot do that unless you are the site ad
        button "Record new settings"
          if mem2=defined and mem2<64
            text "Limiting memory to "+string:mem2+" MB is n
          eif allowed:"administrator"
            if hw=defined
              this_computer "hardware" "memory" "capacity" :
            if mem=defined
              this_computer "pliant" "memory" "assigned" := 
              memory_assigned := mem*2n^20
            if mem2=defined
              this_computer "pliant" "memory" "overflow" := 
              memory_overflow := mem2*2^20
            if os_api="linux"
              if level<>old_level
                file_delete "file:/bin/pliant"
                file_link "file:/pliant/binary/pliant-debug"
                file_delete "file:/pliant/binary/default-deb
                file_delete "file:/pliant/binary/default-deb
              this_computer "pliant" "language" "optimizer" 
            this_computer "pliant" "language" "precompile" :
            goto_backward
          else
            [You cannot do that unless you are the site admi
        para
          [Changing the code optimizer to use to GCC will ma
          if os_api="linux"
            [: use with care.]
          else
            [. Also it's currently available only under Linu
        para
          [Precompiling module '/pliant/protocol/http/style/
        para
          link "Pliant profiler" "/pliant/language/debug/pro
    cell
      [Change Pliant language compiler settings (most users 
    cell
      link "Sites" "/pliant/protocol/http/site"
    cell
      [Configure various web or FTP sites in your organizati
      [The Pliant HTTP server is abble to run many web sites
    cell
      link "Users" "user"
    cell
      [Define users in your organization and the rights they
    cell
      link "Mail boxes" "/pliant/protocol/smtp/mail"
    cell
      [Define the various mail boxes and mail related settin
    cell
      link "Names" "/pliant/protocol/dns/name"
    cell
      [Assign IP addresses to computers (also called DNS ser
    cell
      link "Forums" "/pliant/appli/forum/forum"
    cell
      [Define various forums that will be the frame of team 
    cell
      if os_api="linux"
        link "Computers" "computer"
      else
        note "Computers"
          [FullPliant computers generation is only available
    cell
      [Define various computers configurations and generate 
    cell
      if this_computer:env:"pliant":"system":"distribution"=
        link "Logical computers" "logical"
      else
        note "Logical computers"
          [Defining logical computers is meaningfull only wh
    cell
      [Define and manage logical computers hosted on this ph
    cell
      link "Passwords" "password"
    cell
      [Clear passwords database (currently used for mails re
    cell
      if this_computer:env:"pliant":"system":"distribution"=
        link "Files sharing" "export"
      else
        note "Files sharing"
          [Files sharing is only available on FullPliant ope
    cell
      [Export files to other Unix, Windows or Macintosh boxe
    cell
      link "Clustering" "/pliant/appli/cluster/configure"
    cell
      [Define and manage clustering (replicating database an
    cell
      link "Remote execution" "/pliant/util/remote/remote"
    cell
      [Allow other computer to execute functions remotely on
    cell
      link "Logs" "/pliant/language/debug/log"
    cell
      [Log various services usage (HTTP, SMTP, etc) to files
    cell
      if os_api="linux"
        link "Backups" "/pliant/appli/backup/"
      else
        note "Backups"
          [Backups are only available on FullPliant or Linux
    cell
      [Define and manage your backups.]
    cell
      link "Printers" "/pliant/protocol/lpr/spooler"
    cell
      [Define attached printers and export these to the netw


  configuration_wizard ""