Re^4: html format email

[GordonLim]

Hi, Finally I done my table, thank you very much to golux. Below are the script working for me :)

    my $data =    qq{
    Hi All,<br>
    
    Currently below are the chassis which is currently being assigned
        
    <TABLE cellSpacing=\"0\" cellPadding=\"0\" border=\"1\"  align=\"c
+enter\">
    <TR align=\"center\"><TD>No</TD><TD>version</TD><TD>Chassis</TD><T
+D>Assigned</TD><TD>CMMIP1</TD><TD>CMMIP2</TD><TD>CMM1<br>SerialPortCo
+nnection</TD><TD>CMM2<br>SerialPortConnection</TD><TD>Ibootbar_Altuse
+n</TD></TR>
    };

    # Open db for reading -- but die if there's an error
    open(INFO, "data.txt")or die "Failed to open 'data.txt' ($!)\n"; #
+ Open db for reading
    @array = <INFO>;
    close (INFO);
    @ascend=sort(@array);


    foreach my $line (@ascend){
    my($version,$Chassis,$Assigned,$CMMIP1,$CMMIP2,$CMM1SerialPortConn
+ection,$CMM1SerialPortConnectionPort,$CMM2SerialPortConnection,$CMM2S
+erialPortConnectionPort,$Ibootbar_Altusen) = split(/\|/,$line);
    $data .= qq{
    <TR><TD align=\"center\"> $i
    </TD><TD>
    $version
    </TD><TD>
    $Chassis
    </TD><TD>
    $Assigned
    </TD><TD>
    $CMMIP1
    </TD><TD>
    $CMMIP2
    </TD><TD>
    $CMM1SerialPortConnection
    <h>Port-</h>
    $CMM1SerialPortConnectionPort
    </TD><TD>
    $CMM2SerialPortConnection
    <h>Port-</h>
    $CMM2SerialPortConnectionPort
    </TD><TD>
    $Ibootbar_Altusen
    </TD></TR>
    };
    ++$i;
}


print "DATA:\n $data\n";


    my $mime = MIME::Lite->new(
        'From'    => $sender,
        'To'      => $email,
        'Subject' => $subject,
        'Type'    => 'text/html',
        'Data'    => $data,
    );

    $pingStatus = &checkTargetPing("mail.hotmail.com");
    if ($pingStatus eq 1)
    {
            $smtp = Net::SMTP->new('mail.hotmails.com');
            $mime->send() or die "Failed to send mail\n";
            $mime->quit;
    }
}