Very Computer

Hello,

Date: 15.07.96

You wrote in /comp/unix/questions on "shell script filters for lpr to append
cr":

Quote:>The scenario is:
>1. printing of text file from unix to remote printer on a pc
>running lpd
>2. printer does not do CR on LF
>3. result is that text printout become indented on every line
>4. lpd does not pay attention to print filters for remote printer
>Solution:
>1. define the remote printer as before
>2. define a "local" printer whose ifilter is simply a shell script
>to insert CRs before LF and then do the lpr to the remote printer
>Could someone tell me what should the shell script look like.

       This is line one.
                        This is line two.
                                         This is line three.

  ad nauseum.  Printing a PostScript file to this spool would get a
  beautiful listing of the PostScript commands, printed out with this
  "staircase effect", but no useful output.
  [...]
  If we write a small shell script called filter that adds carriage
  returns before newlines, the staircasing can be eliminated.  So we
  have to add in an if line to our printcap entry above:

       lp|dj|deskjet:\
               :sd=/var/spool/lpd/dj:\
               :mx#0:\
               :lp=/dev/lp0:\
               :if=/var/spool/lpd/dj/filter:\
               :sh:

  A simple filter script might be:

       #!perl
       while(<STDIN>){chop $_; print "$_\r\n";};

  If we were to do the above, we'd have a spool to which we could print
  regular Unix text files and get meaningful results.  (Yes, there are
  four million better ways to write this filter, but [...]

---------------------------End----<<---------------------------------

The author of the HOWTO points to some magicfilters, developed for Linux.
But since they are Shell scripts they should/must run on other Unices as well.

\bye
Peter

The scenario is:
1. printing of text file from unix to remote printer on a pc
running lpd
2. printer does not do CR on LF
3. result is that text printout become indented on every line
4. lpd does not pay attention to print filters for remote printer
Solution:
1. define the remote printer as before
2. define a "local" printer whose ifilter is simply a shell script
to insert CRs before LF and then do the lpr to the remote printer
Could someone tell me what should the shell script look like.
--
        __

  /      ( -------------  }  System Support Programmer
 (  =l=ll===============__}  Computing & Telecomm. Services Centre
  \   _  (                   Hong Kong Baptist University
   \_/ \__)                  224 Warerloo Road, Hong Kong (Tel:23397425)

Brian.
--

There are too many automated email-address-mailing-list-makers
on the 'net these days. It should be obvious what my email address
is if you'd like to send me email. I am sorry my Reply-To and From
addresses are misleading. You probably understand.

: >Solution:
: >1. define the remote printer as before
: >2. define a "local" printer whose ifilter is simply a shell script
: >to insert CRs before LF and then do the lpr to the remote printer
: >Could someone tell me what should the shell script look like.

:  
:        lp|dj|deskjet:\
:                :sd=/var/spool/lpd/dj:\
:                :mx#0:\
:                :lp=/dev/lp0:\
:                :if=/var/spool/lpd/dj/filter:\
:                :sh:
:  
:   A simple filter script might be:
:  
:        #!perl
:        while(<STDIN>){chop $_; print "$_\r\n";};
Seems only good for local printer. For remote printer, i tried the
following but don't know if it is right (gave me errors when actual tryout)
a. name the perl script above addcr.pl
b. create a shell script (the filter itself) called crfilter with 1 line
   /where/my/perlscript/addcr.pl | lpr -P remote
c. printcap entry as:
   lp22|22:\
   :sd=/var/spool/lpd/lp22:\
   :lp=:\
   :if=/where/i/put/myscript/crfilter

What have i done wrong ?
--
        __

  /      ( -------------  }  System Support Programmer
 (  =l=ll===============__}  Computing & Telecomm. Services Centre
  \   _  (                   Hong Kong Baptist University
   \_/ \__)                  224 Warerloo Road, Hong Kong (Tel:23397425)

--
Susan Cassidy