my $data = qq{ Hi All,
Currently below are the chassis which is currently being assigned }; # 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; } 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; } }
NoversionChassisAssignedCMMIP1CMMIP2CMM1
SerialPortConnection
CMM2
SerialPortConnection
Ibootbar_Altusen
$i $version $Chassis $Assigned $CMMIP1 $CMMIP2 $CMM1SerialPortConnection Port- $CMM1SerialPortConnectionPort $CMM2SerialPortConnection Port- $CMM2SerialPortConnectionPort $Ibootbar_Altusen