Patch title: Release 91 bulk changes
Abstract:
File: /protocol/lpr/spool.pli
Key:
    Removed line
    Added line
   
module "/pliant/language/context.pli"
module "/pliant/language/stream.pli"
module "/pliant/language/unsafe.pli"
module "/pliant/language/schedule/daemon.pli"
module "/pliant/language/schedule/resourcesem.pli"
module "/pliant/language/context.pli"
module "/pliant/fullpliant/this_computer.pli"
module "/pliant/admin/file.pli"
submodule "database.pli"


function lpr_init
  each job lpr_database:data:job
    if job:s_status<>"T"
      lpr_error job "Server was restarted while the job was 
module "/pliant/language/context.pli"
module "/pliant/language/stream.pli"
module "/pliant/language/unsafe.pli"
module "/pliant/language/schedule/daemon.pli"
module "/pliant/language/schedule/resourcesem.pli"
module "/pliant/language/context.pli"
module "/pliant/fullpliant/this_computer.pli"
module "/pliant/admin/file.pli"
submodule "database.pli"


function lpr_init
  each job lpr_database:data:job
    if job:s_status<>"T"
      lpr_error job "Server was restarted while the job was 
    if job:r_status="R"
      job s_status := "T"
      job r_status := "T"
      job p_status := "T"
    if job:r_status="R" # we don't try to set it back to waiting in order to avoid potencial infinite loop crash
      lpr_error job "Server was restarted while the job was 
      lpr_error job "Server was restarted while the job was 
    if job:p_status="W"
      job r_status := "T"
    if job:p_status="R"
      lpr_error job "Server was restarted while the job was 
      lpr_error job "Server was restarted while the job was 
      job p_status := "T"
  each printer this_computer:env:"printer"
    var Str queue := keyof printer
    var Array:FileInfo files := file_list "data:/pliant/spoo
    for (var Int i) 0 files:size-1
      var Str id := files:i stripped_name
      if not (exists lpr_database:data:job:id) or lpr_databa
        file_delete files:i:name



export lpr_filename lpr_open lpr_close lpr_error lpr_cancel 
export lpr_init lpr_spool lpr_stop lpr_restart lpr_rip_slot
  each printer this_computer:env:"printer"
    var Str queue := keyof printer
    var Array:FileInfo files := file_list "data:/pliant/spoo
    for (var Int i) 0 files:size-1
      var Str id := files:i stripped_name
      if not (exists lpr_database:data:job:id) or lpr_databa
        file_delete files:i:name



export lpr_filename lpr_open lpr_close lpr_error lpr_cancel 
export lpr_init lpr_spool lpr_stop lpr_restart lpr_rip_slot