Patch title: Release 89 bulk changes
Abstract:
File: /protocol/http/cache.pli
Key:
    Removed line
    Added line
   
module "/pliant/language/unsafe.pli"
module "/pliant/language/context.pli"
module "/pliant/admin/file.pli"
module "/pliant/graphic/image/prototype.pli"
module "/pliant/graphic/filter/io.pli"
module "/pliant/protocol/http/server.pli"
module "/pliant/language/data/id.pli"
module "/pliant/util/crypto/random.pli"
module "/pliant/util/encoding/base64.pli"
module "/pliant/language/data/cache.pli"
module "/pliant/language/compiler/type/inherit.pli"


function image_cache_record image id0 format options -> url
  oarg_rw ImagePrototype image ; arg Str id0 format options 
  var Str id := id0
  if id=""
    id := generate_id+"_"+(replace (base64_alt_encode random
  var Link:ImageCache ca
  if (cache_open "/pliant/image/"+id ImageCache ((addressof 
    ca format := format ; ca options := options
    var CBool lazy := not (options option "no_lazy")
    if lazy
      ca image :> image
      if force_to_disk
        var Link:ImageForceToDisk f
        if (cache_open "/pliant/image2/"+id ImageForceToDisk
          f id := id
          cache_setup ((addressof Link:ImageForceToDisk f) m
          cache_ready ((addressof Link:ImageForceToDisk f) m
    else
      disk_shrink
      ca file := file_temporary ; ca temp := true
      image save ca:file "filter [dq]."+format+"[dq] "+optio
      var Intn fsize := (file_query ca:file standard) size
      disk_sem request ; disk_current_count += 1 ; disk_curr
    cache_ready ((addressof Link:ImageCache ca) map Link:Cac
module "/pliant/language/unsafe.pli"
module "/pliant/language/context.pli"
module "/pliant/admin/file.pli"
module "/pliant/graphic/image/prototype.pli"
module "/pliant/graphic/filter/io.pli"
module "/pliant/protocol/http/server.pli"
module "/pliant/language/data/id.pli"
module "/pliant/util/crypto/random.pli"
module "/pliant/util/encoding/base64.pli"
module "/pliant/language/data/cache.pli"
module "/pliant/language/compiler/type/inherit.pli"


function image_cache_record image id0 format options -> url
  oarg_rw ImagePrototype image ; arg Str id0 format options 
  var Str id := id0
  if id=""
    id := generate_id+"_"+(replace (base64_alt_encode random
  var Link:ImageCache ca
  if (cache_open "/pliant/image/"+id ImageCache ((addressof 
    ca format := format ; ca options := options
    var CBool lazy := not (options option "no_lazy")
    if lazy
      ca image :> image
      if force_to_disk
        var Link:ImageForceToDisk f
        if (cache_open "/pliant/image2/"+id ImageForceToDisk
          f id := id
          cache_setup ((addressof Link:ImageForceToDisk f) m
          cache_ready ((addressof Link:ImageForceToDisk f) m
    else
      disk_shrink
      ca file := file_temporary ; ca temp := true
      image save ca:file "filter [dq]."+format+"[dq] "+optio
      var Intn fsize := (file_query ca:file standard) size
      disk_sem request ; disk_current_count += 1 ; disk_curr
    cache_ready ((addressof Link:ImageCache ca) map Link:Cac
  url := "/common/image/"+id+"."+format
  url := "/common/"+string:pliant_release_number+"/image/"+id+"."+format

function image_cache_record file id0 format options -> url
  arg Str file id0 format options url
  var Str id := id0
  if id=""
    id := generate_id+"_"+(replace (base64_alt_encode random
  var Link:ImageCache ca
  if (cache_open "/pliant/image/"+id ImageCache ((addressof 
    ca format := format ; ca options := options
    ca file := file ; ca temp := false
    cache_ready ((addressof Link:ImageCache ca) map Link:Cac

function image_cache_record file id0 format options -> url
  arg Str file id0 format options url
  var Str id := id0
  if id=""
    id := generate_id+"_"+(replace (base64_alt_encode random
  var Link:ImageCache ca
  if (cache_open "/pliant/image/"+id ImageCache ((addressof 
    ca format := format ; ca options := options
    ca file := file ; ca temp := false
    cache_ready ((addressof Link:ImageCache ca) map Link:Cac
  url := "/common/image/"+id+"."+format
  url := "/common/"+string:pliant_release_number+"/image/"+id+"."+format