#! /usr/bin/perl -wT
# 
use strict;	#force all variables to be declared before use
use CGI qw(:standard escapeHTML);	# import most common gateway interface functions
use CGI::Carp qw(warningsToBrowser fatalsToBrowser); #cause all diagnostics to be sent to browser
use Mail::Sendmail;
use MIME::Entity;

print header;
print start_html (-title => "email");

my $from = qq~"Me" <me\@here.com>~;
my $to   = qq~"You" <you\@there.com>~;
my $cc   = qq~"Him" <him\@overthere.com>~;
my $bcc  = qq~bccguy\@where.com>~;

$ENV{PATH} = "/usr/sbin";
open (MAIL, "|/usr/sbin/sendmail -t") or &dienice("Can't fork for sendmail: $!\n");
print "Testing Mail::Sendmail version $Mail::Sendmail::VERSION&nbsp&nbsp&nbsp&nbsp\n\n"; print "\n\nDefault server: $Mail::Sendmail::mailcfg{smtp}->[0]&nbsp&nbsp&nbsp&nbsp\n\n";

my $top = MIME::Entity->build(Type     => "multipart/mixed",
                              From     => "$from",
                              To       => "$to",
                              Cc       => "$cc",
                              Bcc      => "$bcc",
                              Subject  => "two attachment email");

$top->attach              (Type     =>"text/html",
                           Encoding => "quoted-printable",
                           Data     => [
"<p><font size='3' face='Times' color='black'>HTML test:</font>\n\n",
"<p><a href='http://www.anyoldsomethingforurl.com'> any old URL</a>\n\n",
"<p><img src='http://www...../images/image1.jpg' height='361' width='250' alt='any old image'>\n\n"
                                       ]);

$top->attach              (Path     =>"/home/..../public_html/images/power.pps",
                           Type     => "application/vnd.ms-powerpoint",
                           Encoding => "base64",
                           );

$top->attach              (Path     =>"/home/..../public_html/images/image2.jpg",
                           Type     => "image/jpg",
                           Encoding => "base64",
                           );



$top->print(\*MAIL);
print "\n\n\$Mail::Sendmail::log says:&nbsp&nbsp $Mail::Sendmail::log\n";
close(MAIL);

print end_html; exit (0);