Patch title: Release 85 bulk changes
Abstract:
File: /pliant/index.page
Key:
    Removed line
    Added line
   
module "/pliant/language/context.pli"
module "/pliant/admin/file.pli"
module "/pliant/fullpliant/user.pli"
module "/pliant/fullpliant/this_computer.pli"
module "/pliant/appli/mail/count.pli"

module "/pliant/language/context.pli"
module "/pliant/admin/file.pli"
module "/pliant/fullpliant/user.pli"
module "/pliant/fullpliant/this_computer.pli"
module "/pliant/appli/mail/count.pli"

if false
  html "<META NAME=[dq]author[dq] CONTENT=[dq]Hubert Tonneau
  html "<META NAME=[dq]description[dq] CONTENT=[dq]Pliant pr
  html "<META NAME=[dq]keywords[dq] CONTENT=[dq]Pliant,progr
style
  var Str t := ""
  t += "<META NAME=[dq]author[dq] CONTENT=[dq]Hubert Tonneau[dq]>[lf]"
  t += "<META NAME=[dq]description[dq] CONTENT=[dq]Pliant programming language and operating system[dq]>[lf]"
  t += "<META NAME=[dq]keywords[dq] CONTENT=[dq]Pliant,programming,language,free,efficient,reflexive,Hubert,Tonneau,Tibet[dq]>[lf]"
  # style_tag "stylesheet" t


title "Pliant - release "+string:pliant_release_number "/pli
title "Pliant - release "+string:pliant_release_number logo "/pliant/welcome/image/pliant.png" link "/pliant/welcome/philosophy.html#logo"


header "Pliant documentation"
 
  var Str model := http_request browser_model
  var Float release := http_request browser_release
  if (model="ie" and release<6) or model="opera"


header "Pliant documentation"
 
  var Str model := http_request browser_model
  var Float release := http_request browser_release
  if (model="ie" and release<6) or model="opera"
    note right 0.25
    para
      text "The Pliant web server is assuming that you are r
      text "The Pliant web server is assuming that you are r
      color lsh 75 100 0
      font color (color hsl 0 100 75)
        text upper:(model 0 1)+(model 1 model:len)+" "+strin
      [In order to get extra details or select a better brow

  table columns 1 border 0
        text upper:(model 0 1)+(model 1 model:len)+" "+strin
      [In order to get extra details or select a better brow

  table columns 1 border 0
    cell header
    cell
      link "Pliant Documentation Initiative" "http://pliant.
      [The new, much improved, Pliant documentation is slowl
      link "Pliant Documentation Initiative" "http://pliant.
      [The new, much improved, Pliant documentation is slowl
    cell header
    cell
      link "Presentation and installation" "/pliant/welcome/
      [Pliant design, license, status, how to download it, f
      link "Presentation and installation" "/pliant/welcome/
      [Pliant design, license, status, how to download it, f
    cell header
    cell
      link "The Pliant language specifications" "/pliant/lan
      [This is the documentation about the language itself, 
      link "The Pliant language specifications" "/pliant/lan
      [This is the documentation about the language itself, 
    cell header
    cell
      link "Pliant core applications" "/pliant/appli/" ; eol
      [This is the documentation about higher level features
      link "Pliant core applications" "/pliant/appli/" ; eol
      [This is the documentation about higher level features
    cell header
    cell
      link "FullPliant operating system" "/pliant/fullpliant
      [Use Pliant as an whole operating system on top of Lin
      link "FullPliant operating system" "/pliant/fullpliant
      [Use Pliant as an whole operating system on top of Lin
    cell header
    cell
      var Str host := shunt http_request:site_name="pliant.c
      link "Pliant forums" host+"/pliant/browse/forum/"
      fixed [:   ]
      link "announce forum" host+"/pliant/browse/forum/plian
      fixed [  ] ; link "newbie questions forum" host+"/plia
      fixed [  ] ; link "talk forum" host+"/pliant/browse/fo
      fixed [  ] ; link "patch forum" host+"/pliant/browse/f
      eol
      [Here you can exchange questions and ideas with other 



  table columns 1 border 0
    if user_name<>""
      var Int count := 0
      each b user:user_name:mailbox
        count += 1
      if count>0
      var Str host := shunt http_request:site_name="pliant.c
      link "Pliant forums" host+"/pliant/browse/forum/"
      fixed [:   ]
      link "announce forum" host+"/pliant/browse/forum/plian
      fixed [  ] ; link "newbie questions forum" host+"/plia
      fixed [  ] ; link "talk forum" host+"/pliant/browse/fo
      fixed [  ] ; link "patch forum" host+"/pliant/browse/f
      eol
      [Here you can exchange questions and ideas with other 



  table columns 1 border 0
    if user_name<>""
      var Int count := 0
      each b user:user_name:mailbox
        count += 1
      if count>0
        cell header
        cell
          link "Mailbox"+(shunt count>1 "es" "") "/pliant/br
          var Int count := mail_count
          if count>0
            fixed [  ] ; highlight "you have "+string:count+
          eol
          text "Will allow you to send mails, read your rece
    if false # user_name<>""
          link "Mailbox"+(shunt count>1 "es" "") "/pliant/br
          var Int count := mail_count
          if count>0
            fixed [  ] ; highlight "you have "+string:count+
          eol
          text "Will allow you to send mails, read your rece
    if false # user_name<>""
      cell header
      cell
        link "PIM" "/pliant/appli/pim/" ; highlight " new" ;
        [Record and search in your personal informations dat
    if allowed:"administrator"
        link "PIM" "/pliant/appli/pim/" ; highlight " new" ;
        [Record and search in your personal informations dat
    if allowed:"administrator"
      cell header
      cell
        link "The Pliant interpreter" "/pliant/appli/interpr
        [Will allow you to write and test your first tiny Pl
    if (allowed:"browse_path" or allowed:"browse_file" or al
        link "The Pliant interpreter" "/pliant/appli/interpr
        [Will allow you to write and test your first tiny Pl
    if (allowed:"browse_path" or allowed:"browse_file" or al
      cell header
      cell
        [Browse Pliant ] ; link "files" "/pliant/browse/file
        [ or ] ; link "datas" "/pliant/browse/data" no_exten
        [ or ] ; link "types" "/pliant/browse/type" no_exten
        [ or even ] ; link "system files" "/pliant/browse/sy
        [This will allow you to travel through Pliant site f
    if http_request:server:configure or allowed:"browse_conf
        [Browse Pliant ] ; link "files" "/pliant/browse/file
        [ or ] ; link "datas" "/pliant/browse/data" no_exten
        [ or ] ; link "types" "/pliant/browse/type" no_exten
        [ or even ] ; link "system files" "/pliant/browse/sy
        [This will allow you to travel through Pliant site f
    if http_request:server:configure or allowed:"browse_conf
      cell header
      cell
        link "Configuring the server" "/pliant/fullpliant/co
        if http_request:server:configure
          highlight " - you should start here -"
        eol
        [This will allow you to setup the Pliant HTTP, SMTP,


para
  small
    [This website is powered by ]
    if (constant this_computer:env:"pliant":"system":"distri
      [FullPliant operating system]
    else
      [Pliant HTTP server]
    [ / View server ] ; link "status" "/pliant/fullpliant/st
    if allowed:"administrator"
      [ or ] ; link "trace" "/pliant/protocol/http/trace"
        link "Configuring the server" "/pliant/fullpliant/co
        if http_request:server:configure
          highlight " - you should start here -"
        eol
        [This will allow you to setup the Pliant HTTP, SMTP,


para
  small
    [This website is powered by ]
    if (constant this_computer:env:"pliant":"system":"distri
      [FullPliant operating system]
    else
      [Pliant HTTP server]
    [ / View server ] ; link "status" "/pliant/fullpliant/st
    if allowed:"administrator"
      [ or ] ; link "trace" "/pliant/protocol/http/trace"