#!c:\perl\bin
# Compiler directives and Includes
use Mime::Lite;
use HTML::LinkExtor;
   
unless (open(LOG, ">log.txt")) 
{
        die ("cannot open log.txt file \n");
}

unless (open(TEMPLATE, "htmlfile.htm")) 
{
        die ("cannot open paris.htm file \n");
}

$from = 'herman';
$to = 'tomail@whoever.co.za';
$cc = '';
$path = "att";
$att = "exclam.gif";
$bodytype = "multipart/mixed"; #if mail has attachments use multipart
$subject = "Hello template";
$body='';

while(<TEMPLATE>)
{
	$body .= $record;
} #while(<TEMPLATE>)

$mtype = "gif";


open (STDERR, ">&LOG");

my %mimeTypes = ();
 $mimeTypes{'gif'} = "image/gif";


   
## Create the multipart "container":
$msg = MIME::Lite->new(
   From    =>$from,
   To      =>$to,
   Cc      =>$cc,
   Subject =>$subject,
   Type    =>$bodytype
);

### Add the text message part:
### (Note that "attach" has same arguments as "new"):
$msg->attach(Type     =>'text/html',
             Data     =>$body
);

### Attach Images that are embedded in the html body to the mail
### This is where I'll need to get these linked images as embedded images
             
my $parser = HTML::LinkExtor->new();
$parser->parse($body);
foreach my $link ($parser->links){
    if ($link->[0] eq 'img'){
        
        print LOG ("Image found [".$link->[2]."] ");
        
        if ($link->[2] =~ /^https?:\/\//){
            print LOG ("Absolute! Ignored.\n");
        }else{
            my ($imgtype,$junk) = reverse split '\.',$link->[2];
            $imgtype =~ s/^jpg$/jpeg/; #propper mime name?

            if(open(TEST,"<".$link->[2])){
                print LOG ("Attaching\n");
                close(TEST);
                $msg->attach(Type =>'image/'.$imgtype,
                             Path    =>$link->[2],
                             Filename=>$link->[2],
                             Disposition => 'inline');
                             #Disposition => 'attachment');
            }else{
                print LOG ("Not found, Skipped!!\n");
            }
        }
    }
}

### Attach all the the files required to be attached

$tmp = (exists($mimeTypes{$mtype})) 
           ? $mimeTypes{$mtype} 
           : 'application/octet-stream' ;

### Add the file part:
$msg->attach(Type     =>$tmp,
             Path     =>"$path\\$att",
             Filename =>$att,
             Disposition => 'attachment'
				 );
 


### Send Mail
 
MIME::Lite->send('smtp', "whoever", Timeout=>60);

$test = $msg->send;                      # send email
print "$test\n\n\n\n";