a printcap entry for DRAFT output 
Author Message
 a printcap entry for DRAFT output

I based on Spencer Thomas's psdraft and rewrote it into a filter that
is suitable for printcap use.  I also modified Ken Yap's changes so
that \ ( and ) are handled correctly.  I designed this to be used by
the output filter of lpd directly, hence I took out the -s option.
You can put back the -s option so that the string "DRAFT" is variable.

This filter can be used on command line as well as indirectly via lpr.
IF you don't have root access, you still can use it on the command line.
At the end of this, another filter "cover" is used to produce a cover
page.  If your environment don't need such cover page simply remove
the invocation at the last line of the script "draft".

I've created a printcap entry called psd as follow:

psd|psdraft|postscript printer for drafts:\
        :sh:\
        :lp=/dev/pp0:\
        :sd=/usr/spool/pp0d:\
        :if=/etc/postscript/draft:\
        :lf=/usr/adm/pp0-errs:

The :lp: :sd: :lf: values are site-dependent, set it up to suit yourself.
The :if=: field specifies the use of this filter, change the path
name to fit your local setup.  The last line of the script "draft"
also refer to /etc/postscript directory, change it also for your
local setup.

Usage:
    any PS program | draft | lpr -Pps

If the printcap is set up, you can output via this filter by:
        lpr -Ppsd file.ps ....

Note: two filter script files follows:
=== cut ==== /etc/postscript/draft ==== cut ===
#! /bin/sh
#
# Put the word "DRAFT" (or a specified word) on each page of a postscript
# document.
#
# Usage:
#       cat file ... | draft | lpr -Pps
#
# Author: Spencer W. Thomas
#         Computer Science Dept.
#         University of Utah

# modified by cplai for printcap use, added cover page

#
# Insert header after first line that does not begin %% or %!
#

trap "rm -f /tmp/psd$$.*" 0 1 2 15

# edit string for different printer names
printerstr=psd

filterstr=`basename $0`
draftstring=DRAFT
loginstr=UNKNOWN
hoststr=UNKNOWN
# process input parameter from lpr's "if" filter
while [ "x$1" != "x" ] ;
do
        # need many \ to escape several layers of shells, sed and postscript
        if [ "x$1" = "x-n" ] ; then
                loginstr=`echo $2 | sed \
                -e 's/\\\\/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/g' \
                -e 's/[()]/\\\\\\\\\\\\\\\\&/g' \
                -e 's:/:\\\\/:g'`
                shift
        elif [ "x$1" = "x-h" ] ; then
                hoststr=`echo $2 | sed \
                -e 's/\\\\/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/g' \
                -e 's/[()]/\\\\\\\\\\\\\\\\&/g' \
                -e 's:/:\\\\/:g'`
                shift
        fi
        shift
done

# Create sed script file
sed -e "s/(DRAFT)/($draftstring)/" <<'EOF' >/tmp/psd$$.sed
1,/^[^%]/{
s/^%/%/
s/^$//
t skip
i\
% Prelude to show a draft string on every page.\
(DRAFT)\
/DRAFTDICT 10 dict def\
DRAFTDICT begin\
/DRAFTSTRING exch def\
/bd /Helvetica-Bold findfont def\
/od bd maxlength 1 add dict def\
bd {exch dup /FID ne {exch od 3 1 roll put} {pop pop} ifelse} forall\
od /FontName /Outline0 put od /PaintType 2 put od /StrokeWidth 0 put\
/Outline0 od definefont pop\
/DRAFT { gsave\
         initmatrix\
        /Outline0 findfont setfont\
        DRAFTSTRING dup stringwidth pop 8.875 exch div dup 72 mul dup scale\
        52.3 rotate 2.5 exch div -.35 translate\
        0 0 moveto show\
        grestore } def\
/oldshow /showpage load def\
/oldcopy /copypage load def\
end\
/showpage { DRAFTDICT begin DRAFT oldshow end } def\
/copypage { DRAFTDICT begin DRAFT oldcopy end } def\
% End of draft prelude
: skip

Quote:
}

EOF

sed -f /tmp/psd$$.sed | /etc/postscript/cover -n $loginstr -h $hoststr -p $printerstr -f $filterstr

=== cut ==== /etc/postscript/cover ==== cut ===
#! /bin/sh
#
# Add cover page to the job
#
# Author: C.P.Lai

#
# Insert header after first line that does not begin %% or %!
#

trap "rm -f /tmp/ps$$.*" 0 1 2 15

# edit string for different printer names
printerstr=ps

filterstr=`basename $0`
loginstr=UNKNOWN
hoststr=UNKNOWN
# process input parameter from lpr's "if" filter
while [ "x$1" != "x" ] ;
do
        # need many \ to escape several layers of shells, sed and postscript
        if [ "x$1" = "x-n" ] ; then
                loginstr=`echo $2 | sed \
                -e 's/\\\\/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/g' \
                -e 's/[()]/\\\\\\\\\\\\\\\\&/g' \
                -e 's:/:\\\\/:g'`
                shift
        elif [ "x$1" = "x-h" ] ; then
                hoststr=`echo $2 | sed \
                -e 's/\\\\/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/g' \
                -e 's/[()]/\\\\\\\\\\\\\\\\&/g' \
                -e 's:/:\\\\/:g'`
                shift
        # process input parameter from other filter
        elif [ "x$1" = "x-p" ] ; then
                printerstr=$2
                shift
        elif [ "x$1" = "x-f" ] ; then
                filterstr=$2
                shift
        fi
        shift
done
datestr=`date`

# Create sed script file
sed     -e "s/(JOBLOGIN)/(user: $loginstr)/" \
        -e "s/(JOBHOST)/(host: $hoststr)/" \
        -e "s/(JOBPRINTER)/(printer name: $printerstr)/" \
        -e "s/(JOBFILTER)/(output filter: $filterstr)/" \
        -e "s/(JOBDATE)/(date: $datestr)/" <<'EOF' >/tmp/ps$$.sed
1,/^[^%]/{
s/^%/%/
s/^$//
t skip
i\
% Prelude to print a cover page \
% Written by C.P. Lai\
% CAUTION CAUTION CAUTION\
% This does not conform to Postscript standard, executable code in Prolog\
% Eject a blank color paper as separator\
% Draw a cover page\
(JOBLOGIN) (JOBHOST) (JOBDATE) (JOBPRINTER) (JOBFILTER)\
/COVERDICT 10 dict def\
COVERDICT begin\
/FILTERSTR exch def\
/PRINTERSTR exch def\
/DATESTR exch def\
/HOSTSTR exch def\
/LOGINSTR exch def\
% draw a daisy logo, substitute your company logo here\
gsave\
/wedge {newpath 0 0 moveto 0 1 translate\
        halfangle neg rotate halfangle sin 0 translate\
        0 0 halfangle sin 180 0 arcn closepath } bind def\
/angle 360 7 div def /halfangle angle 2 div def\
306 468 translate 0 0 moveto 144 dup scale 0.02 setlinewidth\
1 1 7 { pop gsave wedge 0 setgray stroke grestore angle rotate} for\
newpath 0 0 .35 0 360 arc 1 setgray gsave fill grestore 0 setgray stroke\
grestore\
% end logo\
/Helvetica-Bold findfont setfont\
gsave\
72 72 moveto 24 24 scale PRINTERSTR show\
grestore \
gsave\
306 72 moveto 24 24 scale FILTERSTR show\
grestore \
gsave\
72 99 moveto 24 24 scale DATESTR show\
grestore \
gsave\
.8 setgray 72 144 moveto \
HOSTSTR  dup stringwidth pop 6.5 exch div 72 mul dup scale show\
grestore \
gsave \
.9 setgray 72 360 moveto \
LOGINSTR dup stringwidth pop 6.5 exch div 72 mul dup scale show\
grestore\
showpage\
end %COVERDICT\
% End of cover page prelude
: skip

Quote:
}

EOF

sed -f /tmp/ps$$.sed
--
.signature under construction ...

{cbosgd,fortune,hplabs,seismo!ihnp4,ucbvax!hpda}!nsc!daisy!cplai    C.P. Lai
Daisy Systems Corp, 700B Middlefield Road, Mtn View CA 94039.  (415)960-6961



Wed, 19 May 1993 06:51:00 GMT  
 
 [ 1 post ] 

 Relevant Pages 

1. printcap entry for apple laserwriter to Sun4

2. SunOS /etc/printcap entry for LJ4??

3. Need printcap entry for HP LaserjetII

4. putting DRAFT on PS output

5. adding DRAFT to output

6. 8 bits in /etc/printcap for transcript package?

7. Apple LaserWriter printcap?

8. sun printcap for LW

9. ... looking for printcap for apple laserwriter (I)

10. wrapper to print "Draft" on pages

11. 'draft' background for documents

12. character outlines or printing DRAFT in outline

 

 
Powered by phpBB® Forum Software