Patch title: Release 87 bulk changes
Abstract:
File: /pliant/protocol/http/common/virtual_tree.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"


if not (http_request modified_since page_datetime)
  reset_http_answer
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"


if not (http_request modified_since page_datetime)
  reset_http_answer
  http_request answer_status := "304 Not modified"
  http_request answer_is_dynamic := false
  http_request send_header
  http_request send_header "status [dq]304 Not modified[dq] static size 0"
  http_request send_footer
  return

var Str vp := http_decode virtual_path
if vp="/pliant.js"
  reset_http_answer
  http_request send_footer
  return

var Str vp := http_decode virtual_path
if vp="/pliant.js"
  reset_http_answer
  http_request answer_mime_type := "application/x-javascript
  http_request answer_datetime := page_datetime
  http_request answer_is_dynamic := false
  http_request send_header
  javascript page:http_request:browser_model http_stream
  http_request send_header "mime [dq]application/x-javascript[dq] datetime "+string:page_datetime+" static compressed"
  javascript page:http_request:browser_model http_request:answer_stream
  http_request send_footer
eif (vp parse "/corner " (var Int corner) any:(var Str opt))
  if bitmap_cache_redraw:virtual_path
    bitmap_cache_record virtual_path (draw_corner corner opt
eif (vp parse "/border " (var Int corner) any:(var Str opt))
  if bitmap_cache_redraw:virtual_path
    bitmap_cache_record virtual_path (draw_border corner opt
eif (http_decode:virtual_path parse "/text" (var Str label) 
  if bitmap_cache_redraw:virtual_path
    bitmap_cache_record virtual_path (draw_text label opt ht
eif (http_decode:virtual_path parse "/button" (var Str label
  if bitmap_cache_redraw:virtual_path
    bitmap_cache_record virtual_path (draw_button label opt 
eif (http_decode:virtual_path parse "/icon" (var Str icon) a
  if bitmap_cache_redraw:virtual_path
    bitmap_cache_record virtual_path (draw_icon icon opt htt
eif (virtual_path parse "/image/" any:(var Str id) "." any:(
  var ExtendedStatus status := image_cache_send id
  if status=failure
    console "failed to send image: " status:message eol
else
  console "area root is " http_request:area_root eol
  console "area path is " http_request:area_path eol
  console "virtual path is " virtual_path eol
  console "decoded is " http_decode:virtual_path eol

  http_request send_footer
eif (vp parse "/corner " (var Int corner) any:(var Str opt))
  if bitmap_cache_redraw:virtual_path
    bitmap_cache_record virtual_path (draw_corner corner opt
eif (vp parse "/border " (var Int corner) any:(var Str opt))
  if bitmap_cache_redraw:virtual_path
    bitmap_cache_record virtual_path (draw_border corner opt
eif (http_decode:virtual_path parse "/text" (var Str label) 
  if bitmap_cache_redraw:virtual_path
    bitmap_cache_record virtual_path (draw_text label opt ht
eif (http_decode:virtual_path parse "/button" (var Str label
  if bitmap_cache_redraw:virtual_path
    bitmap_cache_record virtual_path (draw_button label opt 
eif (http_decode:virtual_path parse "/icon" (var Str icon) a
  if bitmap_cache_redraw:virtual_path
    bitmap_cache_record virtual_path (draw_icon icon opt htt
eif (virtual_path parse "/image/" any:(var Str id) "." any:(
  var ExtendedStatus status := image_cache_send id
  if status=failure
    console "failed to send image: " status:message eol
else
  console "area root is " http_request:area_root eol
  console "area path is " http_request:area_path eol
  console "virtual path is " virtual_path eol
  console "decoded is " http_decode:virtual_path eol