Re: [hylafax-users] Fax archive remote access

[Matthias Reich <rei@xxxxxxxx>]

Am Montag, 15. September 2003 11:37 schrieb Jörg Wiesenfeller:
> Hello,
>
> I've changed faxrcvd to archive incomming faxes into a suddirectory under
> the archive dir like for example
> archive/20030912/fax00006.tif.
> When i try to retrieve the file through the hylafax-protocoll i get the
> error "550 : archive/20030912/fax00006.tif. No such file or directory."
>
> Any ideas ?
>
> Thanks in advance
>
> Jörg Wiesenfeller
>
>
>
> ____________________ HylaFAX(tm) Users Mailing List _______________________
>   To subscribe/unsubscribe, click http://lists.hylafax.org/cgi-bin/lsg2.cgi
>  On UNIX: mail -s unsubscribe hylafax-users-request@xxxxxxxxxxx < /dev/null
>   *To learn about commercial HylaFAX(tm) support, mail sales@xxxxxxxxxxxx*


Maybe the directory archive/20030912 does not exist or is not writeable ??

I do the same and it works fine:
I copy the incoming faxes into a new directory and put a row in a log file.

have a look at my attached faxrcvd. and the perl-script ps_config.pl
which puts an ID on the fax before sending it to the printer.

HIH
-m


-- 
HAGOS eG                 phone: +49 711 7880592
Matthias Reich             fax: +49 711 7880535
Industriestr. 62           web: http://www.hagos.de
D-70565 Stuttgart         mail: rei@xxxxxxxx
Germany

Attachment: faxrcvd
Description: application/shellscript

#!/usr/bin/perl -w
while (<>) {
	$title = $1 if (/^%%Title: recvq\/(.*)\.tif/);
	$title = $1 if (/^%%Title: (.*)\.fax/);
	$datum = $1 if (/^%\%CreationDate: (.*)/);
	print $_;
	print <DATA> if (/^%\%BeginSetup/);
	if (/^%\%Page: 1 1/) {
		print "0 setgray\n";
		print "16 /ISOHelvetica F\n";
		print "30 815 moveto ($title.fax) show\n";
		print "330 815 moveto ($datum) show\n";
	}
}
__DATA__
/bdef { bind def} bind def              % Einfach nur ein shorthand
/F {
    findfont exch 	% g f -> fdict g	font-dictionary von f: fdict
    dup /FontSize exch	% -> fdict g /FontSize g
    def 		% -> fdict g		/FontSize g def
    scalefont		% -> fdict		g scalefont
    setfont		% -> _leer_		fdict setfont
} bdef
/MakeISOFont {
    /neufont exch def
    findfont dup maxlength dict
    /newdict exch def
    {1 index /FID ne
	{newdict 3 1 roll put }
	{pop pop} ifelse
    } forall
    newdict /Encoding ISOLatin1Encoding put
    newdict /FontName neufont put
    neufont newdict definefont pop
} bdef
/Helvetica (ISOHelvetica) MakeISOFont