Patch title: Release 85 bulk changes
Abstract:
File: /pliant/protocol/http/style/filter.style
Key:
    Removed line
    Added line
   
module "/pliant/protocol/http/server.pli"
module "/pliant/protocol/http/pli_filter.pli"
module "/pliant/protocol/http/style/default.style"
module "/pliant/language/unsafe.pli"
module "/pliant/language/compiler.pli"
module "/pliant/language/stream.pli"
module "/pliant/admin/file.pli"

public
  
method page send_listing
  arg_rw HtmlPage page
  var Str filename := page file_name
  var Str pagename := (filename 0 (filename search_last "." filename:len))+".html"
  var FileInfo info := file_query filename standard
  if info=undefined or info:is_directory
    return
  var Link:DynamicPage dp :> page:http_request:server find_dynamic_page pagename
  if not exists:dp
    var Link:Module m:> null map Module
  else
    m :> (dp:function:properties first "module") map Module
  (var Stream ins) open filename in+safe
  if ins=failure
    return
  var Str tempname := file_temporary
  var Stream temp ; temp open tempname out+safe
  if temp=failure
    return
  common_filter ins temp filename m
  ins close; temp close
  info size := (file_query tempname standard) size
  ins open tempname in+safe
  if ins=failure
    file_delete tempname
    return
  page reset_http_answer
  page:http_request answer_mime_type := "text/html"
  page:http_request answer_size := info size
  page:http_request answer_datetime := info datetime
  page:http_request answer_is_dynamic := false
  page:http_request answer_encoding := ""
  page:http_request send_header
  part send "send content"
    var Int remain := info size
    while remain>0 and { var Int step := raw_copy ins page:http_request:stream 1 remain ; step>0 }
      remain -= step
    page:http_request:stream flush anytime
  ins close
  file_delete tempname
  if remain<>0
    page:http_request keep_alive_applyed := false
  page:http_request send_footer