my $data = qq{
Hi All,
Currently below are the chassis which is currently being assigned
No | version | Chassis | Assigned | CMMIP1 | CMMIP2 | CMM1 SerialPortConnection | CMM2 SerialPortConnection | Ibootbar_Altusen |
};
# 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 = ;
close (INFO);
@ascend=sort(@array);
foreach my $line (@ascend){
my($version,$Chassis,$Assigned,$CMMIP1,$CMMIP2,$CMM1SerialPortConnection,$CMM1SerialPortConnectionPort,$CMM2SerialPortConnection,$CMM2SerialPortConnectionPort,$Ibootbar_Altusen) = split(/\|/,$line);
$data .= qq{
$i
|
$version
|
$Chassis
|
$Assigned
|
$CMMIP1
|
$CMMIP2
|
$CMM1SerialPortConnection
Port-
$CMM1SerialPortConnectionPort
|
$CMM2SerialPortConnection
Port-
$CMM2SerialPortConnectionPort
|
$Ibootbar_Altusen
|
};
++$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;
}
}