Hello all,
I'm using the recipe bellow and it does the job as expected excepted if the
received fax is longer than a A4 page. In this case, the fax pages are
compressed to fit a single A4 page.
I mean, if 3 A4 pages were sent, those 3 pages will be printed in a single
A4 page.
:0 c
* ^From[ :].*fax-serv.domain.com.br
* ^mime-version:
* ^content-type:.*multipart/mixed
* B ?? ^Content-Type:.*application/postscript
* B ?? ^%!
| ( T=faxunpack$$; mkdir -p /tmp/$T; chmod 777 /tmp/$T; \
cd /tmp/$T; PSFN=`munpack -t | grep -i postscript `; \
lpr < ${PSFN%(*}; rm *; cd .. rmdir $T; )
How can I make the fax not to be compressed and each page sent to be printed
in a single A4, to keep the document as the original?
Another thing is wham a small paper is faxed, it is expanded to the size of
a A4 page.
Reading the e-mail-PS-fax file, I cannot find any indication of page break,
just line numbers (I guess).
Content-Transfer-Encoding: quoted-printable
%!PS-Adobe-3.0
%%Creator: fax2ps
%%CreationDate: Wed Jan 31 10:40:06 2001
%%Origin: 0 0
%%BoundingBox: 0 0 792 612
%%Pages: (atend)
%%EndComments
%%BeginProlog
/newfont 10 dict def newfont begin /FontType 3 def /FontMatrix [1
0 0 1 0 0] def /FontBBox [0 0 512 1] def /Encoding 256 array def
0 1 31{Encoding exch /255 put}for 120 1 255{Encoding exch /255
put}for Encoding 37 /255 put Encoding 40 /255 put Encoding 41 /255
put Encoding 92 /255 put /count 0 def /ls{Encoding exch count 3
string cvs cvn put /count count 1 add def}def 32 1 36{ls}for
38 1 39{ls}for 42 1 91{ls}for 93 1 99{ls}for /count 100
def 100 1 119{ls}for /CharDict 5 dict def CharDict begin /white
{dup 255 eq{pop}{1 dict begin 100 sub neg 512 exch bitshift
/cw exch def cw 0 0 0 cw 1 setcachedevice end}ifelse}def /black
{dup 255 eq{pop}{1 dict begin 110 sub neg 512 exch bitshift
/cw exch def cw 0 0 0 cw 1 setcachedevice 0 0 moveto cw 0 rlineto
0 1 rlineto cw neg 0 rlineto closepath fill end}ifelse}def /numbuild
{dup 255 eq{pop}{6 0 0 0 6 1 setcachedevice 0 1 5{0 moveto
dup 32 and 32 eq{1 0 rlineto 0 1 rlineto -1 0 rlineto closepath
fill newpath}if 1 bitshift}for pop}ifelse}def /.notdef {}
def /255 {}def end /BuildChar{exch begin dup 110 ge{Encoding
exch get 3 string cvs cvi CharDict /black get}{dup 100 ge {Encoding
exch get 3 string cvs cvi CharDict /white get}{Encoding exch get
3 string cvs cvi CharDict /numbuild get}ifelse}ifelse exec end
}def end /Bitfont newfont definefont 1 scalefont setfont
/d{bind def}def
/m{0 exch moveto}d
/s{show}d
/p{showpage}d =
%%EndProlog
%%Page: "1" 1
gsave
0 791 translate
0.354167 -0.0729013 scale
0 setgray
6 m(gh2S tSg#`jcjSj2c S/ ceijS/i#tjcjS/h cj Sj` tS `j/j#efhij2cj/ij#` cjS=
/i cj2S cj#hj Sj/ij S#tgi thj#)s
7 m(gh// Sgj/# S/#j Sj/# S/ei# Si/j# S/#h S/j`jSj S Sj2j#Sefhij#j2hS# S/#=
i S/# S/#j`hj2j#Sj`j#Sj/gi S/h `)s
8 m(gh/# Sgj/j# S/j#j `/# Sei2#i Sj/#jVhiS#/ Sj S Sj Sj/efhij#j Sij#jS/#S=
Sij/##S/2j/hj#j Sj`j/SjSgi S/hjS)s
9 m(gh/# tgjV`# S/j#cjV/# Sei/Vi tjS/jShj#jSS#cj S#cj#j Sefhij#j#hS# S/Vi=
j#jV/#/S Shj/j#ij//j#gijthj#)s
[... deleted ...]
1070 m(8j/&&3!&7<k$i8T*j!85jk$48i$k&!j3hi#!k&Si!i3jk$fgj&ij3j$4hj$3i$ehij=
!fj43ij7!j3!/7#4!!k$hjk$h!3Kik$$3$&j&7jk&!&j&k$+$4'S4787XGj&&k$&868&338&#=
$788878a7!88784)s
1071 m(X!478$!88Yj77$833+j483j74!hik'ijk&j8?!7i!i7$j!fhijk$ij3h7j!ij3i!ef=
gj5jk$hi$j$ik$hj$hj$3ij!jk$$j3$j7!4!&j!3$$$3!k$!&$3477j773!&&&48438&&k&8j=
$87"!!7 )s
p
grestore
%%Trailer
%%Pages: 1
%%EOF
The portion of the file pasted above is from a 10 A4 pages sent fax.
Any help will be appreciated.
Sorry for my English. I tried to be as clear as possible.
Thank you all,
Carlos
_______________________________________________
procmail mailing list
procmail(_at_)lists(_dot_)RWTH-Aachen(_dot_)DE
http://MailMan.RWTH-Aachen.DE/mailman/listinfo/procmail