Patch title: Release 90 bulk changes
Abstract:
File: /admin/file2.pli
Key:
    Removed line
    Added line
   
abstract
  [This is a subpart of ] ; link "file.pli" "file.pli"


function file_extract file in -> status
  arg Str file in ; arg Status status
  var FileInfo fileinfo := file_query file extended
  if (fileinfo:options option "os_name" Str)="" or fileinfo=
    return failure
  var FileInfo ininfo := file_query in extended
  if ininfo=undefined
    file_tree_create in
    ininfo := file_query in extended
  if ininfo=undefined or (ininfo:options option "os_name" St
    return failure
  if (file endswith ".tar.gz") or (file endswith ".tgz")
    status := shunt (execute "tar -zx -f "+(fileinfo:options
abstract
  [This is a subpart of ] ; link "file.pli" "file.pli"


function file_extract file in -> status
  arg Str file in ; arg Status status
  var FileInfo fileinfo := file_query file extended
  if (fileinfo:options option "os_name" Str)="" or fileinfo=
    return failure
  var FileInfo ininfo := file_query in extended
  if ininfo=undefined
    file_tree_create in
    ininfo := file_query in extended
  if ininfo=undefined or (ininfo:options option "os_name" St
    return failure
  if (file endswith ".tar.gz") or (file endswith ".tgz")
    status := shunt (execute "tar -zx -f "+(fileinfo:options
  eif (file endswith ".tar.bz2")
    status := shunt (execute "tar -jx -f "+(fileinfo:options option "os_name" Str) path in)=0 success failure
  eif (file endswith ".tar")
    status := shunt (execute "tar -x -f "+(fileinfo:options 
  else
    status := failure

alias file_extract file_extract in "/pliant/admin/file.pli"
  eif (file endswith ".tar")
    status := shunt (execute "tar -x -f "+(fileinfo:options 
  else
    status := failure

alias file_extract file_extract in "/pliant/admin/file.pli"