From owner-freebsd-questions  Wed Apr 10 13:19:15 2002
Delivered-To: freebsd-questions@freebsd.org
Received: from smtp018.mail.yahoo.com (smtp018.mail.yahoo.com [216.136.174.115])
	by hub.freebsd.org (Postfix) with SMTP id E746237B404
	for <questions@freebsd.org>; Wed, 10 Apr 2002 13:19:07 -0700 (PDT)
Received: from ?@.aging.cpaaa.org (HELO yahoo.com) (jlboss@165.201.71.250 with plain)
  by smtp.mail.vip.sc5.yahoo.com with SMTP; 10 Apr 2002 20:19:07 -0000
Message-ID: <3CB49E84.3050403@yahoo.com>
Date: Wed, 10 Apr 2002 15:20:20 -0500
From: "Justin L. Boss" <jlboss@yahoo.com>
User-Agent: Mozilla/5.0 (X11; U; Linux i386; en-US; rv:0.9.4.1) Gecko/20020314 Netscape6/6.2.2
X-Accept-Language: en-us
MIME-Version: 1.0
To: questions@freebsd.org
Subject: perl script 
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit
Sender: owner-freebsd-questions@FreeBSD.ORG
Precedence: bulk
List-ID: <freebsd-questions.FreeBSD.ORG>
List-Archive: <http://docs.freebsd.org/mail/> (Web Archive)
List-Help: <mailto:majordomo@FreeBSD.ORG?subject=help> (List Instructions)
List-Subscribe: <mailto:majordomo@FreeBSD.ORG?subject=subscribe%20freebsd-questions>
List-Unsubscribe: <mailto:majordomo@FreeBSD.ORG?subject=unsubscribe%20freebsd-questions>
X-Loop: FreeBSD.ORG

this perl script is linux, i do not know if it is difrent from freebsd i though perl cross platform. this is the error i get:

Use of uninitialized value at /var/spool/hylafax/bin/faxrcvd-mail line 32.
Use of uninitialized value at /var/spool/hylafax/bin/faxrcvd-mail line 32.
Use of uninitialized value at /var/spool/hylafax/bin/faxrcvd-mail line 70.
Use of uninitialized value at /var/spool/hylafax/bin/faxrcvd-mail line 70.
Use of uninitialized value at /var/spool/hylafax/bin/faxrcvd-mail line 70.
Use of uninitialized value at /var/spool/hylafax/bin/faxrcvd-mail line 70.
Use of uninitialized value at /var/spool/hylafax/bin/faxrcvd-mail line 70.
Use of uninitialized value at /var/spool/hylafax/bin/faxrcvd-mail line 70.
Can't exec "minencode": No such file or directory at /var/spool/hylafax/bin/faxrcvd-mail line 80.
minencode:/var/spool/hylafax/bin/faxrcvd-mail line 82.


i don't know what minencode is and at line 32 and 70 are 'print <<EOF' i put a space in (print << EOF) just got difrent errors

this suck big, the guy was using linux and this was working fine for him. i convenst him to move to freebsd and i have worked on this for two days strate.


thanks for you help.


#! /usr/bin/perl -w
#
# /var/spool/hylafax/bin/faxrcvd-mail
# Noel Burton-Krahn <noel@burton-krahn.com>
# Sept 4, 1999
#
# a replacement for hylafax's faxrcvd which sends the whole fax by email

use strict;


my($file, $device, $commid, $msg, $toaddr, $fromaddr, $tiffile) = @ARGV;

#open(STDOUT, "|send -oi -f fax $toaddr");

my(%info, $info);
my($boundary);

$boundary=join('---', 
	       "=Boundary=",
	       $$, 
	       sprintf('%x', rand(0xffffffff)));

open(IN, "/usr/local/sbin/faxinfo $file|") || die("/usr/local/sbin/faxinfo $file:
$!");
while(<IN>) {
    $info .= $_;
    $info{lc($1)} = $2 if( /^\s*(\S+): (.*)$/ );
}
close(IN) || die("/usr/local/sbin/faxinfo: $?");

print <<EOF
From: HylaFAX Server < $fromaddr >
To: $toaddr
Subject: FAX from $info{sender} at $info{received}
Mime-Version: 1.0
Content-Type: Multipart/Mixed; Boundary=\"$boundary\"
Content-Transfer-Encoding: 7bit

This is a multi-part message in MIME format.

--$boundary
#Content-Type: text/plain; charset=us-ascii
#Content-Description: FAX information
#Content-Transfer-Encoding: 7bit

#$info
    
EOF
    ;

if( $msg ne "" ) {
    print <<EOF
The full document was not received because:

    $msg

EOF
;
}
if( open(IN, "<log/c$commid") ) {
    print << EOF
    ---- Transcript of session follows ----
EOF
;
    print while(<IN>);
    close(IN);
}

print <<EOF
--$boundary
Content-Type: application/tif; name="FAX from $info{sender} at $info{received}.tif"
Content-Description: FAX from $info{sender} at $info{received}
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="FAX from $info{sender} at $info{received}.tif"

EOF
    ;

open(IN, "mimencode $tiffile |") || die ("couldn't mimencode $tiffile: $!");
print while(<IN>);
close(IN) || die("mimencode: $?");

print <<EOF
--$boundary--
EOF



_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com


To Unsubscribe: send mail to majordomo@FreeBSD.org
with "unsubscribe freebsd-questions" in the body of the message