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"

if false
  html "<META NAME=[dq]author[dq] CONTENT=[dq]Hubert Tonneau[dq]>[lf]"
  html "<META NAME=[dq]description[dq] CONTENT=[dq]Pliant programming language and operating system[dq]>[lf]"
  html "<META NAME=[dq]keywords[dq] CONTENT=[dq]Pliant,programming,language,free,efficient,reflexive,Hubert,Tonneau,Tibet[dq]>[lf]"
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 "/pliant/welcome/image/pliant.png" "/pliant/welcome/philosophy.html#logo"
title "Pliant - release "+string:pliant_release_number logo "/pliant/welcome/image/pliant.png" link "/pliant/welcome/philosophy.html#logo"

para
  center
    [The Pliant ]
    link "home web site" "http://fullpliant.org/"
    [ is graciously hosted by ]
    link "Heliogroup" "http://www.heliogroup.fr/"
    [ company.]


header "News about Pliant"

  para
    [Release 84 is mostly code polishing, with the introduction of the new clustering feature.] ; eol
    [Relase 85 is planed to mostly bring much more impressive style sheets to the Pliant HTTP server.]
  para
    [See ] ; link "changes log" "/pliant/welcome/changelog/" ; [ for extra details.]


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 running "+model+" release "+string:release+" web browser." ; eol
      color lsh 75 100 0
      font color (color hsl 0 100 75)
        text upper:(model 0 1)+(model 1 model:len)+" "+string:release+" will not work properly on this web site." ; eol
      [In order to get extra details or select a better browser, please have a look at our ] ; link "browsers test report" "pliant/welcome/browser"

  table columns 1 border 0
    cell header
    cell
      link "Pliant Documentation Initiative" "http://pliant.cx/pliantdocs/babel/universal/" ; eol
      [The new, much improved, Pliant documentation is slowly moving here.]
    cell header
    cell
      link "Presentation and installation" "/pliant/welcome/" ; eol
      [Pliant design, license, status, how to download it, first steps guide and tutorial. ]
    cell header
    cell
      link "The Pliant language specifications" "/pliant/language/" ; eol
      [This is the documentation about the language itself, the low level libraries, and the compiler internals.]
    cell header
    cell
      link "Pliant core applications" "/pliant/appli/" ; eol
      [This is the documentation about higher level features (applications such as the HTTP server or the database engine).]
    cell header
    cell
      link "FullPliant operating system" "/pliant/fullpliant/" ; eol
      [Use Pliant as an whole operating system on top of Linux kernel.]
    cell header
    cell
      var Str host := shunt http_request:site_name="pliant.cx" "" "http://pliant.cx"
      link "Pliant forums" host+"/pliant/browse/forum/"
      fixed [:   ]
      link "announce forum" host+"/pliant/browse/forum/pliant.announce/"
      fixed [  ] ; link "newbie questions forum" host+"/pliant/browse/forum/pliant.question/"
      fixed [  ] ; link "talk forum" host+"/pliant/browse/forum/pliant.talk/"
      fixed [  ] ; link "patch forum" host+"/pliant/browse/forum/pliant.patch/"
      eol
      [Here you can exchange questions and ideas with other Pliant users.]


header "Some Pliant services"

  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/browse/mail/"
          var Int count := mail_count
          if count>0
            fixed [  ] ; highlight "you have "+string:count+" mail"+(shunt count>1 "s" "")
          eol
          text "Will allow you to send mails, read your received mails, and search your mail archives."
    if false # user_name<>""
      cell header
      cell
        link "PIM" "/pliant/appli/pim/" ; highlight " new" ; eol
        [Record and search in your personal informations database and agenda.]
    if allowed:"administrator"
      cell header
      cell
        link "The Pliant interpreter" "/pliant/appli/interpreter" ; eol
        [Will allow you to write and test your first tiny Pliant programs using your web browser.]
    if (allowed:"browse_path" or allowed:"browse_file" or allowed:"browse_data")
      cell header
      cell
        [Browse Pliant ] ; link "files" "/pliant/browse/file/"
        [ or ] ; link "datas" "/pliant/browse/data" no_extension
        [ or ] ; link "types" "/pliant/browse/type" no_extension
        [ or even ] ; link "system files" "/pliant/browse/system_file/" no_extension ; eol
        [This will allow you to travel through Pliant site files tree or database and view individual files or datas.]
    if http_request:server:configure or allowed:"browse_configuration"
      cell header
      cell
        link "Configuring the server" "/pliant/fullpliant/configure"
        if http_request:server:configure
          highlight " - you should start here -"
        eol
        [This will allow you to setup the Pliant HTTP, SMTP, ... servers, using a user friendly interface with inline documentation.]

para
  execute_dynamic_page "pliant:/pliant/protocol/http/login.html"

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