Patch title: Release 89 bulk changes
Abstract:
File: /protocol/http/default.page
Key:
    Removed line
    Added line
   
module "/pliant/language/context.pli"
module "/pliant/language/unsafe.pli"
module "/pliant/language/stream.pli"
module "/pliant/admin/file.pli"
module "/pliant/graphic/image/prototype.pli"
module "/pliant/graphic/image/pixmap.pli"
module "/pliant/graphic/image/resampling.pli"
module "/pliant/graphic/image/sharpening.pli"
module "/pliant/graphic/image/antialiasing.pli"
module "/pliant/graphic/color/gamut.pli"
module "/pliant/graphic/filter/io.pli"
module "/pliant/math/transform.pli"
module "/pliant/graphic/vector/outline.pli"
module "/pliant/graphic/vector/font.pli"
module "/pliant/graphic/misc/float.pli"
module "/pliant/util/encoding/http.pli"
module "/pliant/util/encoding/date.pli"
module "/pliant/protocol/http/style/common.pli"
module "cache.pli"


constant page_datetime (file_query "/pliant/protocol/http/de
constant pixel_limit 2^20
module "/pliant/language/context.pli"
module "/pliant/language/unsafe.pli"
module "/pliant/language/stream.pli"
module "/pliant/admin/file.pli"
module "/pliant/graphic/image/prototype.pli"
module "/pliant/graphic/image/pixmap.pli"
module "/pliant/graphic/image/resampling.pli"
module "/pliant/graphic/image/sharpening.pli"
module "/pliant/graphic/image/antialiasing.pli"
module "/pliant/graphic/color/gamut.pli"
module "/pliant/graphic/filter/io.pli"
module "/pliant/math/transform.pli"
module "/pliant/graphic/vector/outline.pli"
module "/pliant/graphic/vector/font.pli"
module "/pliant/graphic/misc/float.pli"
module "/pliant/util/encoding/http.pli"
module "/pliant/util/encoding/date.pli"
module "/pliant/protocol/http/style/common.pli"
module "cache.pli"


constant page_datetime (file_query "/pliant/protocol/http/de
constant pixel_limit 2^20
constant common_path "/common/"+string:pliant_release_number+"/"


function javascript browser s
  arg Str browser ; arg_rw Stream s
  s writeline "function refresh(focus) {"
  # s writeline "  if(document.pliant._pliant_reload.value==
  # s writeline "    window.status='Pliant reload'"
  # s writeline "    window.location.reload(true)"
  # s writeline "    return"
  # s writeline "  }"
  s writeline "  if(focus) window.focus()"
  s writeline "  if(window.name.substring(0,6)=='_back_' && 
  s writeline "    var count = window.name.charCodeAt(6)-64"
  s writeline "    window.name = window.name.substring(8,win


function javascript browser s
  arg Str browser ; arg_rw Stream s
  s writeline "function refresh(focus) {"
  # s writeline "  if(document.pliant._pliant_reload.value==
  # s writeline "    window.status='Pliant reload'"
  # s writeline "    window.location.reload(true)"
  # s writeline "    return"
  # s writeline "  }"
  s writeline "  if(focus) window.focus()"
  s writeline "  if(window.name.substring(0,6)=='_back_' && 
  s writeline "    var count = window.name.charCodeAt(6)-64"
  s writeline "    window.name = window.name.substring(8,win
  s writeline "    history.go(-count)"
  s writeline "    window.history.go(-count)"
  s writeline "    return"
  s writeline "  }"
  s writeline "  if(window.name.substring(0,8)=='_reload_') 
  s writeline "    window.name = window.name.substring(8,win
  s writeline "    window.location = window.location.href"
  s writeline "    return"
  s writeline "  }"
  s writeline "  while(window.name.substring(0,4)=='_xy_' &&
  s writeline "    var spos = window.name.substring(4,12)"
  s writeline "    var xpos = (spos.charCodeAt(0)-65)*17576+
  s writeline "    var ypos = (spos.charCodeAt(4)-65)*17576+
  s writeline "    window.scrollTo(xpos,ypos)"
  s writeline "    window.name = window.name.substring(13,wi
  s writeline "  }"
  s writeline "}"


var Str ext := virtual_path
ext := ext (ext search_last "/" -1)+1 ext:len
ext := ext (ext search_last "." ext:len) ext:len
  s writeline "    return"
  s writeline "  }"
  s writeline "  if(window.name.substring(0,8)=='_reload_') 
  s writeline "    window.name = window.name.substring(8,win
  s writeline "    window.location = window.location.href"
  s writeline "    return"
  s writeline "  }"
  s writeline "  while(window.name.substring(0,4)=='_xy_' &&
  s writeline "    var spos = window.name.substring(4,12)"
  s writeline "    var xpos = (spos.charCodeAt(0)-65)*17576+
  s writeline "    var ypos = (spos.charCodeAt(4)-65)*17576+
  s writeline "    window.scrollTo(xpos,ypos)"
  s writeline "    window.name = window.name.substring(13,wi
  s writeline "  }"
  s writeline "}"


var Str ext := virtual_path
ext := ext (ext search_last "/" -1)+1 ext:len
ext := ext (ext search_last "." ext:len) ext:len
if (virtual_path eparse "/common/icon/" any:(var Str icon))
if (virtual_path eparse pattern:common_path "icon/" any:(var Str icon))
  reset_http_answer
  http_request send_static_file "/pliant/protocol/http/icon/
  reset_http_answer
  http_request send_static_file "/pliant/protocol/http/icon/
eif virtual_path="/common/pliant.js"
eif virtual_path=common_path+"pliant.js"
  reset_http_answer
  http_request send_header "mime [dq]application/x-javascrip
  javascript page:http_request:browser_model http_request:an
  http_request send_footer
  reset_http_answer
  http_request send_header "mime [dq]application/x-javascrip
  javascript page:http_request:browser_model http_request:an
  http_request send_footer
eif (virtual_path parse "/common/corner " (var Int corner) a
eif (virtual_path parse pattern:common_path "corner " (var Int corner) any:(var Str opt))
  if bitmap_cache_redraw:virtual_path
    bitmap_cache_record virtual_path (draw_corner corner opt
  if bitmap_cache_redraw:virtual_path
    bitmap_cache_record virtual_path (draw_corner corner opt
eif (virtual_path parse "/common/border " (var Int corner) a
eif (virtual_path parse pattern:common_path "border " (var Int corner) any:(var Str opt))
  if bitmap_cache_redraw:virtual_path
    bitmap_cache_record virtual_path (draw_border corner opt
  if bitmap_cache_redraw:virtual_path
    bitmap_cache_record virtual_path (draw_border corner opt
eif (virtual_path parse "/common/text" (var Str label) any:(
eif (virtual_path parse pattern:common_path "text" (var Str label) any:(var Str opt))
  if bitmap_cache_redraw:virtual_path
    bitmap_cache_record virtual_path (draw_text label opt ht
  if bitmap_cache_redraw:virtual_path
    bitmap_cache_record virtual_path (draw_text label opt ht
eif (virtual_path parse "/common/button" (var Str label) any
eif (virtual_path parse pattern:common_path "button" (var Str label) any:(var Str opt))
  if bitmap_cache_redraw:virtual_path
    bitmap_cache_record virtual_path (draw_button label opt 
  if bitmap_cache_redraw:virtual_path
    bitmap_cache_record virtual_path (draw_button label opt 
eif (virtual_path parse "/common/icon" (var Str icon) any:(v
eif (virtual_path parse pattern:common_path "icon" (var Str icon) any:(var Str opt))
  if bitmap_cache_redraw:virtual_path
    bitmap_cache_record virtual_path (draw_icon icon opt htt
  if bitmap_cache_redraw:virtual_path
    bitmap_cache_record virtual_path (draw_icon icon opt htt
eif (virtual_path parse "/common/image/" any:(var Str id) ".
eif (virtual_path parse pattern:common_path "image/" any:(var Str id) "." any:(var Str format))
  var ExtendedStatus status := image_cache_send id
  if status=failure
    console "failed to send image: " status:message eol
  var ExtendedStatus status := image_cache_send id
  if status=failure
    console "failed to send image: " status:message eol
eif virtual_path="/common/misc/signature.html"
eif virtual_path=common_path+"misc/signature.html"
  [The form you submitted seems to be corrupted.]
  [The form you submitted seems to be corrupted.]
eif virtual_path="/common/misc/obsolete.html"
eif virtual_path=common_path+"misc/obsolete.html"
  [The button you selected vanished on the server, probably 
  [The button you selected vanished on the server, probably 
eif virtual_path="/common/misc/not_allowed.html"
eif virtual_path=common_path+"misc/not_allowed.html"
  [You currently don't have read right on the requested URL.
eif (ext=".pli" or ext=".remote" or ext=".page" or ext=".sty
  reset_http_answer
  http_request send_header "mime [dq]text/html[dq] static"
  source_listing virtual_path http_request:server http_reque
  http_request send_footer
else
  reset_http_answer

  [You currently don't have read right on the requested URL.
eif (ext=".pli" or ext=".remote" or ext=".page" or ext=".sty
  reset_http_answer
  http_request send_header "mime [dq]text/html[dq] static"
  source_listing virtual_path http_request:server http_reque
  http_request send_footer
else
  reset_http_answer