#!/usr/bin/perl
#---------------------------------------------------------------------
# faxer.pl <recipient> <file>
#
# Send file <file> to <recipient>.  Note that the recipient field is
# a specially formatted field that contains recipient name, fax,
# and email address of the fax server, like so:
#
#       "/name=Lonnie/fax=2136998/<rfax@faxserver.domain.com>"
#
# 20050111 MCMason - Created from script LPhillips gave me
#---------------------------------------------------------------------

use MIME::Lite;

$fax_dest = @ARGV[0];
$fax_file = @ARGV[1];

$msg = MIME::Lite->new(
        From => 'Roboticus <roboticus@domain.com>',
        To => "$fax_dest",
        Subject => 'Aging Report',
        Type => 'TEXT',
        Data => '<FROMPHONE:(XXX)315-2177>'
               .'<CHANNEL:1><FINE><PRIORITY:LOW>'
) or die "Error creating MIME body: $!\n";

$msg->attach(
        Type => 'text/plain',
        Path => $fax_file,
        Filename => 'Aging Report'
) or die "Error attaching file: $!\n";

$msg->send;