Patch title: Release 94 bulk changes
Abstract:
File: /pliant/util/network/rexec.pli
Key:
    Removed line
    Added line
   
module "/pliant/language/unsafe.pli"
module "/pliant/language/stream.pli"

function net_rexec host user password cmd log -> err
  arg Str host user password cmd log ; arg Int err
  (var Stream s) open "tcp://"+host+"/client/512" in+out+safe
  if s=failure
    return -1
  s writechars "[0]"
  s writechars user+"[0]"
  s writechars password+"[0]"
  s writechars cmd+"[0]"
  if log<>""
    s raw_read addressof:(var uInt8 retcode) 1
    if s=failure or retcode<>0
      return -2
    (var Stream l) open log out+safe
    while (raw_copy s l 1 2^24)<>0
      void
  err := 0


export net_rexec