#!/usr/bin/perl

use Getopt::Long;
my ($inputfile, $logfile);

GetOptions (
        "h|help"=> \$help,
        "f=s"   => \$inputfile,
        "l=s"   => \$logfile
) or usage();

sub usage {
        print ("Invalid Command!! \n");
        print ("USAGE: $0 -l <log_file> -f <csv_input_file> \n");
        exit;
}

open (CONFIG, "$inputfile");
while ($line = <CONFIG>) {
        chomp($line);
        $line =~ s/"//g;
        next if $line =~ /^FromName/;
        @data = split(/\,/, $line);

        $FromName      = $data[0];
        $FromMail      = $data[1];
        $ToName        = $data[2];
        $ToMail        = $data[3];
        $CCName        = $data[4];
        $CCMail        = $data[5];
        $BCCName       = $data[6];
        $BCCMail       = $data[7];
        $ReplyName     = $data[8];
        $ReplyMail     = $data[9];
        $Subject       = $data[10];
        $ReplyMail     = $data[9];
        $Subject       = $data[10];
        $TextFile      = $data[11];
        $HtmlFile      = $data[12];
        $ReturnName    = $data[13];
        $ReturnMail    = $data[14];
        $ReturnReceipt = $data[15];
        $ReadReceipt   = $data[16];
        $Attachment    = $data[17];
        $blank1        = $data[18];
        $blank2        = $data[19];
        $AddPdfFile    = $data[20];

        open (LOG,">> $logfile");
        print (LOG localtime(time) . ",$email_id,$attach,$cust_name,$sdate,$ddate\n");
        $msg = MIME::Lite->new(
                To      =>$ToEmail,
                From    =>$FromName,
                Subject =>$Subject,
                Type    =>'multipart/related'
        );

        $msg->attach(
                ##############################
                # Called HTML script here... #
                ##############################
        );

        $msg->attach(
                Type => 'image/gif',
                Id   => "$Attachment",
                Path => "$Attachment"
        );

        $msg->send();
        close(LOG);
}
close(CONFIG);