flexfax: RE: WHFC and cover page

["Abrahamsen, Ken" <KAbrahamsen@wrightgroup.com>]

Hi Joachim!
Thanks for your response.

Since the standard Hylafax faxcover.ps works but the WHFC 1.0.6 faxcover.ps
does not, have you ever tried using the *standard* WHFC 1.0.6 faxcover.ps?
I'm not a postscript guru, so I'm wondering if the standard WHFC 1.0.6
faxcover.ps needs ghostscript 5.50 rather than only 5.10, which is part of
RH6.1. When I run ps2fax on it with GS 5.10 I get the following error
message:

Error: /typecheck in --search--
I've checked the achives and the *very old* recommendation for this error
was to upgrade to GS 4 or 5, but I'm already at GS 5.10. So maybe GS 5.50 is
really needed for the default WHFC 1.0.6 cover page.

Any assistance / recommendations are appreciated.
-----------------------------------------------------------
The WHFC 1.0.6 cover page is:

[root@twgrh1 fax]# cat ./z/doc113.cover
%!PS-Adobe-2.0 EPSF-2.0
%%Creator: WHFC
%%Title: WHFC Cover Sheet for HylaFAX
%%Creation Date: Thu Mar 23 16:27:47 2000
%%Origin: 0 0
%%BoundingBox: 0 0 609 791
%%Pages: 1 ,1
%%EndComments
%%Begin Prolog
100 dict begin
/to () def
/to-company () def
/to-location () def
/to-voice-number () def
/to-fax-number (7868) def
/pageWidth 0 def
/pageWidth 0 def
/from (Kenneth Abrahamsen) def
/from-fax-number (425-486-7868) def
/from-voice-number (425-806-3369) def
/from-company (The Wright Group) def
/from-location (Bothell, WA 98011  USA) def
/page-count (0) def
/todays-date (Thu Mar 23 16:27:47 2000 ) def
/regarding () def
%/comments() def
/comments () def
%/comments1 () def
%/comments2 () def
%/comments3 () def
%/comments4 () def
%/comments5 () def
%/comments6 () def
%/comments7 () def
%/comments8 () def
%/comments9 () def
%/comments10 () def
%/comments11 () def
%/comments12 () def
%/comments13 () def
%/comments14 () def
%/comments15 () def
%/comments16 () def
%/comments17 () def
%/comments18 () def
%/comments19 () def
%%EndProlog
%%Page 1 +1
/wordbreak ( ) def
/BreakIntoLines
{ /proc exch def
  /linewidth exch def
  /textstring exch def
  /breakwidth wordbreak stringwidth pop def
  /curwidth 0 def
  /lastwordbreak 0 def
  /startchar 0 def
  /restoftext textstring def
  { restoftext wordbreak search
    { /nextword exch def pop
      /restoftext exch def
      /wordwidth nextword stringwidth pop def
      curwidth wordwidth add linewidth gt
      { textstring startchar
        lastwordbreak startchar sub
        getinterval proc
        /startchar lastwordbreak def
        /curwidth wordwidth breakwidth add def }
      { /curwidth curwidth wordwidth add
        breakwidth add def
                 } ifelse
      /lastwordbreak lastwordbreak
      nextword length add 1 add def
    }
    { pop exit }
    ifelse
  } loop
  /lastchar textstring length def
  textstring startchar lastchar startchar sub
  getinterval proc
} def
%!PS-Adobe-2.0 EPSF-2.0
%%BoundingBox: 21 3 588 788
%%Title:
%%CreationDate: 11:05 AM January  4, 1993
%%Pages: 1 +1
%%EndComments
%       $Id: faxcover.ps,v 1.2 1999/01/07 07:01:03 robert Exp $
%
% HylaFAX Facsimile Software
%
% Copyright (c) 1990-1996 Sam Leffler
% Copyright (c) 1991-1996 Silicon Graphics, Inc.
% HylaFAX is a trademark of Silicon Graphics
%
% Permission to use, copy, modify, distribute, and sell this software and
% its documentation for any purpose is hereby granted without fee, provided
% that (i) the above copyright notices and this permission notice appear in
% all copies of the software and related documentation, and (ii) the names
of
% Sam Leffler and Silicon Graphics may not be used in any advertising or
% publicity relating to the software without the specific, prior written
% permission of Sam Leffler and Silicon Graphics.
%
% THE SOFTWARE IS PROVIDED "AS-IS" AND WITHOUT WARRANTY OF ANY KIND,
% EXPRESS, IMPLIED OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY
% WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.
%
% IN NO EVENT SHALL SAM LEFFLER OR SILICON GRAPHICS BE LIABLE FOR
% ANY SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY KIND,
% OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
% WHETHER OR NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND ON ANY THEORY OF
% LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE
% OF THIS SOFTWARE.
%
1 setlinejoin
/nullstring () def
/IS {
    dup where {
        pop
        load dup nullstring ne {S} {pop} ifelse
    } {pop} ifelse
} bind def
/M { moveto } bind def /S { show  } bind def
/R { rmoveto } bind def /L { lineto } bind def
/B { newpath 0 0 M 0 1 L 1 1 L 1 0 L closepath } bind def
/CS { closepath stroke } bind def

/showcaseisoencoding [
/.notdef /.notdef /.notdef /.notdef
/.notdef /.notdef /.notdef /.notdef
/.notdef /.notdef /.notdef /.notdef
/.notdef /.notdef /.notdef /.notdef
/.notdef /.notdef /.notdef /.notdef
/.notdef /.notdef /.notdef /.notdef
/.notdef /.notdef /.notdef /.notdef
/.notdef /.notdef /.notdef /.notdef
/space /exclam /quotedbl /numbersign
/dollar /percent /ampersand /quoteright
/parenleft /parenright /asterisk /plus
/comma /minus /period /slash
/zero /one /two /three /four /five /six /seven
/eight /nine /colon /semicolon
/less /equal /greater /question
/at /A /B /C /D /E /F /G
/H /I /J /K /L /M /N /O
/P /Q /R /S /T /U /V /W
/X /Y /Z /bracketleft
/backslash /bracketright /asciicircum /underscore
/quoteleft /a /b /c /d /e /f /g
/h /i /j /k /l /m /n /o
/p /q /r /s /t /u /v /w
/x /y /z /braceleft
/bar /braceright /asciitilde /guilsinglright
/fraction /florin /quotesingle /quotedblleft
/guilsinglleft /fi /fl /endash
/dagger /daggerdbl /bullet /quotesinglbase
/quotedblbase /quotedblright /ellipsis /trademark
/dotlessi /grave /acute /circumflex
/tilde /macron /breve /dotaccent
/dieresis /perthousand /ring /cedilla
/Ydieresis /hungarumlaut /ogonek /caron
/emdash /exclamdown /cent /sterling
/currency /yen /brokenbar /section
/dieresis /copyright /ordfeminine /guillemotleft
/logicalnot /hyphen /registered /macron
/degree /plusminus /twosuperior /threesuperior
/acute /mu /paragraph /periodcentered
/cedilla /onesuperior /ordmasculine /guillemotright
/onequarter /onehalf /threequarters /questiondown
/Agrave /Aacute /Acircumflex /Atilde
/Adieresis /Aring /AE /Ccedilla
/Egrave /Eacute /Ecircumflex /Edieresis
/Igrave /Iacute /Icircumflex /Idieresis
/Eth /Ntilde /Ograve /Oacute
/Ocircumflex /Otilde /Odieresis /multiply
/Oslash /Ugrave /Uacute /Ucircumflex
/Udieresis /Yacute /Thorn /germandbls
/agrave /aacute /acircumflex /atilde
/adieresis /aring /ae /ccedilla
/egrave /eacute /ecircumflex /edieresis
/igrave /iacute /icircumflex /idieresis
/eth /ntilde /ograve /oacute
/ocircumflex /otilde /odieresis /divide
/oslash /ugrave /uacute /ucircumflex
/udieresis /yacute /thorn /ydieresis ] def
/Helvetica-Bold findfont
dup length dict begin
  {1 index /FID ne {def} {pop pop} ifelse} forall
  /Encoding showcaseisoencoding def
  currentdict
end
/Helvetica-Bold-SHOWISO exch definefont pop
/Helvetica findfont
dup length dict begin
  {1 index /FID ne {def} {pop pop} ifelse} forall
  /Encoding showcaseisoencoding def
  currentdict
end
/Helvetica-SHOWISO exch definefont pop
/Courier findfont
dup length dict begin
  {1 index /FID ne {def} {pop pop} ifelse} forall
  /Encoding showcaseisoencoding def
  currentdict
end
/Courier-SHOWISO exch definefont pop
/Times-Bold findfont
dup length dict begin
  {1 index /FID ne {def} {pop pop} ifelse} forall
  /Encoding showcaseisoencoding def
  currentdict
end
/Times-Bold-SHOWISO exch definefont pop
%%EndProlog
%%Page: label 1
newpath clippath pathbbox
/URy exch def
/URx exch def
/LLy exch def
/LLx exch def
/Width  URx LLx sub 0.005 sub def
/Height URy LLy sub 0.005 sub def
LLx LLy translate
Width 612 div Height 792 div gt
    { /Y_size Height def
      /X_size 612 792 div Y_size mul def
      /Scale Height 792 div def }
    { /X_size Width def
      /Y_size 792 612 div X_size mul def
      /Scale Width 612 div def } ifelse
Width  X_size sub 2 div
Height Y_size sub 2 div translate
Scale Scale scale
gsave
0 0 0 setrgbcolor
gsave
newpath
11.9999 3.00039 M -8.00007 787 L 618 787 L 618 3.00039 L
closepath clip newpath
/Helvetica-SHOWISO findfont 14 scalefont setfont

% tom-baby's logo stuff:

/inch {72 mul} def
/width {.375 inch} def
/r {.3 inch} def
/d {r 30 cos mul neg} def
/R {2 inch} def
1 setlinejoin

/pnta { r 30 cos mul r 30 sin mul } def
/pntb { R 90 cos mul d 90 sin mul sub R 90 sin mul d 90 cos mul add } def
/pntc { R 30 cos mul d 30 sin mul add R 30 sin mul d 30 cos mul sub } def
/pntd { r 90 cos mul r 90 sin mul } def
/pnte { R 150 cos mul d 150 sin mul sub R 150 sin mul d 150 cos mul add }
def
/pntf { R 90 cos mul d 90 sin mul add R 90 sin mul d 90 cos mul sub } def
/pntg { r 150 cos mul r 150 sin mul } def
/pnth { R 210 cos mul d 210 sin mul sub R 210 sin mul d 210 cos mul add }
def
/pnti { R 150 cos mul d 150 sin mul add R 150 sin mul d 150 cos mul sub }
def
/pntj { r 210 cos mul r 210 sin mul } def
/pntk { R 270 cos mul d 270 sin mul sub R 270 sin mul d 270 cos mul add }
def
/pntl { R 210 cos mul d 210 sin mul add R 210 sin mul d 210 cos mul sub }
def
/pntm { r 270 cos mul r 270 sin mul } def
/pntn { R 330 cos mul d 330 sin mul sub R 330 sin mul d 330 cos mul add }
def
/pnto { R 270 cos mul d 270 sin mul add R 270 sin mul d 270 cos mul sub }
def
/pntp { r 330 cos mul r 330 sin mul } def
/pntq { R 30 cos mul d 30 sin mul sub R 30 sin mul d 30 cos mul add } def
/pntr { R 330 cos mul d 330 sin mul add R 330 sin mul d 330 cos mul sub }
def

/logo { newpath
     pnta moveto pntb lineto pntc lineto pntd lineto pnte lineto
     pntf lineto pntg lineto pnth lineto pnti lineto pntj lineto
     pntk lineto pntl lineto pntm lineto pntn lineto pnto lineto
     pntp lineto pntq lineto pntr lineto
     closepath
} def

/drawlogo {
gsave
 .8 inch 10.2 inch translate
 .2 .2 scale
 width setlinewidth

 logo stroke

 width 1.13 mul setlinewidth
 1 setgray
 newpath
 pntc moveto pntd lineto pnte lineto stroke
 newpath
 pnti moveto pntj lineto pntk lineto stroke
 newpath
 pnto moveto pntp lineto pntq lineto stroke

 width setlinewidth
 0 setgray
 newpath
 pntb moveto pntc lineto pntd lineto pnte lineto pntf lineto stroke
 newpath
 pnth moveto pnti lineto pntj lineto pntk lineto pntl lineto stroke
 newpath
 pntn moveto pnto lineto pntp lineto pntq lineto pntr lineto stroke

grestore
} def

/drawtext {
gsave

 1.4 inch 10.2 inch moveto
 /Helvetica-BoldOblique findfont 23 scalefont setfont
 (The Wright Group) show
 1.42 inch 9.95 inch moveto
 /Helvetica-Bold findfont 14 scalefont setfont
 (19201 120th Avenue NE) show
 1.42 inch 9.7 inch moveto
 (Bothell, WA 98011  USA) show
 1.42 inch 9.45 inch moveto
 (Voice: 425-486-8011 ; FAX: 425-486-7868) show

grestore
} def

drawlogo
drawtext

0 0 0 setrgbcolor
/Helvetica-Bold-SHOWISO findfont 24 scalefont setfont
%gsave 164.063 642 M 442 642 L stroke grestore
210.875 586 M (Fax Cover Sheet) S
176.222 499 M (To:) S
226.744 499 M (________________________) S 226.744 499 M /to IS
58.3641 457 M (Fax Number:) S
%108.837 457 M (Number:) S
225.744 457 M (________________________) S 225.744 457 M /to-fax-number IS
/Times-Bold-SHOWISO findfont 10 scalefont setfont
/Helvetica-Bold-SHOWISO findfont 24 scalefont setfont
95.5068 415 M (Company:) S
225.744 415 M (________________________) S 225.744 415 M /to-company IS
146.199 373 M (From:) S
227.744 373 M (________________________) S 227.744 373 M /from IS
176.823 331 M (Re:) S
228.744 331 M (________________________) S 228.744 331 M /regarding IS
59.3601 289 M (Today's Date:) S
231.744 289 M (________________________) S 231.744 289 M /todays-date IS
31 247 M (# of pages to follow this sheet:) S
403.216 247 M (___________) S 403.216 247 M /page-count IS
/Helvetica-Bold-SHOWISO findfont 14 scalefont setfont
31 189 M (Comments:) S
/Helvetica-Bold-SHOWISO findfont 24 scalefont setfont
/rule (_______________________________) def
/y 189 def /x 141.336 def
y -29 73 { x exch M rule S } for
rule stringwidth pop 29 x y comments BreakIntoLines
grestore
grestore
showpage
%end
[root@twgrh1 fax]#
==============================================================
[root@twgrh1 fax]# /var/spool/fax/bin/ps2fax -o ./z/doc113.covertmp -r 98 -w
1728 -l 280 -m 4294967295 -2 ./z/doc113.cover
Error: /typecheck in --search--
Operand stack:
   413.663   29   141.336   ( )
Execution stack:
   %interp_exit   .runexec2   --nostringval--   --nostringval--
--nostringval--   2   %stopped_push   --nostringval--   --nostring
val--   --nostringval--   false   1   %stopped_push   1   3   %oparray_pop
.runexec2   --nostringval--   --nostringval--   --nostr
ingval--   2   %stopped_push   --nostringval--   --nostringval--
--nostringval--   %loop_continue   --nostringval--   --nostringva
l--   --nostringval--   5   4   %oparray_pop
Dictionary stack:
   --dict:776/809--   --dict:0/20--   --dict:43/200--   --dict:71/100--
Current allocation mode is local
Current file position is 11411
GNU Ghostscript: Unrecoverable error, exit code 1
[root@twgrh1 fax]#

Thanks!
ken
=======
-----Original Message-----
From: "Joachim Heinze" <jheinze@schroedahl.de> at Internet_TCO 
Sent: Thursday, March 23, 2000 6:31 AM
To: Abrahamsen, Ken
Subject: WHFC and cover page



hello Ken

Is there any version of WHFC available which will print cover pages?
If not, is there an anticipated data when a version will be available?
----------------------------------------------------------------------------
--
My Config:
RH 6.1 (no Updates Applied)
220 twgrh1 server (HylaFAX (tm) Version 4.1beta1) ready.
WHFC Client 1.0.6
WHFC printer driver is Apple Laser Writer 16/1600 PS

When I use sendfax, I send a fax AND a cover page. Works great!

When I attempt to send a fax (with *no* cover page) using WHFC client
(1.0.6) via either the 'Printer driver' or directly from the fax icon in
WHFC, it works great!

However, if I attempt to send a fax using WHFC client (1.0.6) via either
the 'Printer driver' or directly from the fax icon in WHFC, AND request a
cover page, it does not send. 
I noticed the main difference is that the faxcover.ps is an EPS file, while
the actual files I'm faxing are standard postscript. It seems a conversion
from EPS to postscript is missing / not recognized properly (not being
done?) on the *same* coverpage when using the WHFC client.


you have to define your coverpages on your client; marking the option
"coverPage" in WHFC you get a cover transfered to HylaFAX.
Before you can use this feature,  generate a PS document with a text editor
like
MS-WinWord or other using your defined printer Apple...
but mark the option box "print ot file" within the printer dialog. this
generated ps file you can define as your cover page with the WHFC Dialog /
Menue
command "System Preferences".

to use the automatically fillout of the cover page, you have to modify your
PS-file as follows:


in the beginning you have to define some macros (/to, /to-location, etc.)
and at
the end make a call with this macros. see attached example for a cover page


I work with HylaFax and WHFC 1.0.6 and WInn NT Clients and it works fine...

hope, I can help......


best regards

Joachim Heinze
Schroedahl Arapp