tlp.model - plan9port - [fork] Plan 9 from user space
  HTML git clone git://src.adamsgaard.dk/plan9port
   DIR Log
   DIR Files
   DIR Refs
   DIR README
   DIR LICENSE
       ---
       tlp.model (1636B)
       ---
            1 
            2 #       qmsps800        mac 10/22/86
            3 #
            4 LPDEST=`basename $0`
            5 QMS_FILE="$1"
            6 DATE="`date +%D`"
            7 TIME="`date +%T`"
            8 owner="$2"
            9 site=`uname`
           10 port="`/usr/bin/lpstat -v$LPDEST | sed -e 's/.*: //'`"
           11 filter_cmd="/usr/lbin/postscript/postio"
           12 filter="$filter_cmd -l $port"
           13 landscape="" formsperpage=""
           14 path=/usr/lbin/postscript
           15 printer=postprint
           16 bannerflag=ON
           17 prev="| $path/postreverse"
           18 
           19 for i in $5
           20 do
           21         case "$i" in
           22                 L2)
           23                         formsperpage="-n2"
           24                         ;;
           25                 land)
           26                         landscape="-pland"
           27                         ;;
           28                 dpost|postprint|posttek|postbgi|postdmd|postio)
           29                         printer="$i"
           30                         ;;
           31 
           32                 postreverse)
           33                         prev=""
           34                         ;;
           35                 nobanner)
           36                         bannerflag=OFF
           37                         ;;
           38                 F*)
           39                         QMS_FILE="`expr $i : 'F\(.*\)'`"
           40                         ;;
           41         esac
           42 done
           43 
           44 if [ -n "$filter_cmd" -a ! -x "$filter_cmd" ]
           45 then
           46         disable -r"can't execute filter: $filter_cmd" $LPDEST
           47         exit 1
           48 fi
           49 
           50 shift; shift; shift; shift; shift
           51 files="$*"
           52 cp /usr/spool/lp/model/banner.ps /tmp/ban.$$
           53 echo "($QMS_FILE) ($LPDEST) ($TIME) ($DATE) ($owner) banner" >> /tmp/ban.$$
           54 if [ "$printer" = "postio" ]
           55         then
           56         eval $filter $files 2> /dev/null
           57 else
           58         eval $path/$printer $landscape $formsperpage $files $prev | $filter 2> /dev/null
           59         fi
           60 if [ "$bannerflag" = "ON" ]
           61         then
           62         eval $filter /tmp/ban.$$ 2> /dev/null
           63         fi
           64 rm -f /tmp/ban.$$
           65 exit 0
           66