#!/usr/local/rexx/rxx
/*
 * RLP
 *
 * The RLP program gives you the ability to print on a remote machine
 * without having to know how the spoolers on the two systems communicate
 * with each other.
 *
 * Execute the RLP program by typing
 *
 *      rlp <filename> <machine> <trace option>
 *
 * where <filename> is the name of the file to be printed, <machine>
 * is the machine that has the desired printer and <trace option> is
 * one of the uni-REXX TRACE options (all, error, etc.).  
 * The <trace option> may be omitted.
 *
 * !  !  !  !  !  !  !  !  !  !  !  !  !  !  !  !  !  !  !  !  !  !
 * Note that <machine> defaults to the name "devo" which is a
 * Workstation Group printer.  You will want to modify the default
 * name of the machine in the program below.
 * !  !  !  !  !  !  !  !  !  !  !  !  !  !  !  !  !  !  !  !  !  !
 *
 * Depending on platform, you may also need to change 'rsh' to 'remsh',
 * for the remote-shell command.
 */
parse arg fn machine traceopt
trace value traceopt
if machine="" then machine="devo"
address unix "cat" fn "| rsh" machine "lpr"