#! /usr/bin/perl -w
#
# /var/spool/fax/bin/faxrcvd-mail
# Noel Burton-Krahn <noel@burton-krahn.com>
# Sept 4, 1999
#
# Modifications by Jonas Smedegaard <dr@jones.dk>
# 2001-2002
#
# $Id: faxrcvd-mail,v 1.2 2002-03-07 16:22:51 jonas Exp $
#
# a replacement for hylafax's faxrcvd which sends the whole fax by email
#

use strict;

my($filebase, $filetype, $device, $commid, $msg, $toaddr, $fromaddr, $sentaddr) = @ARGV;
if( !defined $fromaddr ) { die("Usage: faxrcvd-mail <filebase> <filetype> <device> <coomid> <msg> <toaddr> <fromaddr> [<sentaddr>]") };
if( !defined $sentaddr ) { $sentaddr="" };

open(STDOUT, "|/usr/sbin/sendmail -oi -f$fromaddr $toaddr") || die("/usr/sbin/sendmail -oi -f$fromaddr $toaddr: $!");

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

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

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

my($subject) = "FAX from $info{sender}";
if( $sentaddr ne "" ) { $subject .= " (dispatched to $sentaddr)" };

print <<EOF
From: The HylaFAX Receive Agent < $fromaddr >
To: $toaddr
Subject: $subject
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

File on host is: $info
    
EOF
;

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

    $msg

EOF
    ;
}

if( $sentaddr ne "" ) {
    print <<EOF
The facsimile was automatically dispatched to: $sentaddr.

EOF
    ;
} else {

# Attach fax and log
# TODO: code this smarter!
    for ($filetype) {
	/^pdf$/ and -f "$filebase.pdf" and do {
	    print <<EOF
--$boundary
Content-Type: application/pdf; name="$filebase.pdf"
Content-Description: FAX from $info{sender}
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="$filebase.pdf"

EOF
	    ;
	    open(IN, "mimencode $filebase.pdf |") || die ("couldn't mimencode $filebase.pdf: $!");
	    print while(<IN>);
	    close(IN) || die("mimencode: $?");
	    next;
	};
	/^ps$/ and -f "$filebase.ps" and do {
	    print <<EOF
--$boundary
Content-Type: application/postscript; name="$filebase.ps"
Content-Description: FAX from $info{sender}
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="$filebase.ps"

EOF
	    ;
	    open(IN, "mimencode $filebase.ps |") || die ("couldn't mimencode $filebase.ps: $!");
	    print while(<IN>);
	    close(IN) || die("mimencode: $?");
	    next;
	};
	/^tif$/ and -f "$filebase.tif" and do {
	    print <<EOF
--$boundary
Content-Type: image/tiff; name="$filebase.tif"
Content-Description: FAX from $info{sender}
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="$filebase.tif"

EOF
	    ;
	    open(IN, "mimencode $filebase.tif |") || die ("couldn't mimencode $filebase.tif: $!");
	    print while(<IN>);
	    close(IN) || die("mimencode: $?");
	    next;
	};
# default: output the tif file
	die "Unsupported filetype \"$filetype\"!";
    }

    if( open(IN, "<log/c$commid") ) {
	print <<EOF
--$boundary
Content-Type: text/plain; charset=us-ascii
Content-Description: Reception log
Content-Transfer-Encoding: 7bit

    ---- Transcript of session follows ----
EOF
	;
	print while(<IN>);
	close(IN);
    }

}; # end of part possibly dispatched

print <<EOF
--$boundary--
EOF

ted='selected'>include</option><option value='1'>ignore</option></select></td></tr><tr><td class='label'>mode:</td><td class='ctrl'><select name='dt' onchange='this.form.submit();'><option value='0' selected='selected'>unified</option><option value='1'>ssdiff</option><option value='2'>stat only</option></select></td></tr><tr><td/><td class='ctrl'><noscript><input type='submit' value='reload'/></noscript></td></tr></table></form></div><table summary='commit info' class='commit-info'>
<tr><th>author</th><td>Jonas Smedegaard &lt;dr@jones.dk&gt;</td><td class='right'>2023-06-27 09:35:08 +0200</td></tr>
<tr><th>committer</th><td>Jonas Smedegaard &lt;dr@jones.dk&gt;</td><td class='right'>2023-06-27 09:35:08 +0200</td></tr>
<tr><th>commit</th><td colspan='2' class='oid'><a href='/notmuch/commit/tags/5c/3f/20140702064024.GD1546@sid.nuvreauspam/unread?h=master&amp;id=fd54908da2b05c526dd3bee9b6dcd093214a220d'>fd54908da2b05c526dd3bee9b6dcd093214a220d</a> (<a href='/notmuch/patch/tags/5c/3f/20140702064024.GD1546@sid.nuvreauspam/unread?id=fd54908da2b05c526dd3bee9b6dcd093214a220d'>patch</a>)</td></tr>
<tr><th>tree</th><td colspan='2' class='oid'><a href='/notmuch/tree/?h=master'>c69c845069c99d1d01044f6fafda7c08433329c6</a> /<a href='/notmuch/tree/tags/5c/3f/20140702064024.GD1546@sid.nuvreauspam/unread?h=master'>tags/5c/3f/20140702064024.GD1546@sid.nuvreauspam/unread</a></td></tr>
<tr><th>parent</th><td colspan='2' class='oid'><a href='/notmuch/commit/tags/5c/3f/20140702064024.GD1546@sid.nuvreauspam/unread?h=master&amp;id=ba46132213560cf3335d53560d519c0ec0190da2'>ba46132213560cf3335d53560d519c0ec0190da2</a> (<a href='/notmuch/diff/tags/5c/3f/20140702064024.GD1546@sid.nuvreauspam/unread?h=master&amp;id2=ba46132213560cf3335d53560d519c0ec0190da2'>diff</a>)</td></tr></table>
<div class='commit-subject'><span class='decoration'><a class='branch-deco' href='/notmuch/log/tags/5c/3f/20140702064024.GD1546@sid.nuvreauspam/unread?h=master'>master</a></span></div><div class='commit-msg'></div><div class='diffstat-header'><a href='/notmuch/diff/?h=master'>Diffstat</a> (limited to 'tags/5c/3f/20140702064024.GD1546@sid.nuvreauspam/unread')</div><table summary='diffstat' class='diffstat'><tr><td class='mode'>-rw-r--r--</td><td class='add'><a href='/notmuch/diff/tags/5c/3f/20140702064024.GD1546@sid.nuvreauspam/unread?h=master'>tags/5c/3f/20140702064024.GD1546@sid.nuvreauspam/unread</a></td><td class='right'>0</td><td class='graph'><table summary='file diffstat' width='0%'><tr><td class='add' style='width: -nan%;'/><td class='rem' style='width: -nan%;'/><td class='none' style='width: -nan%;'/></tr></table></td></tr>
</table><div class='diffstat-summary'>1 files changed, 0 insertions, 0 deletions</div><table summary='diff' class='diff'><tr><td>