#! /usr/bin/perl -w
#use warnings;
#use strict;
use Net::SMTP;
use MIME::Lite;

###Deleting the old files

unlink <D:/report/*.txt>;

###Input from the User

print "\n Pls give all your inputs in CAPS\n";
print "Enter the dist id of the package\n";
chop($input=<STDIN>);
print "Enter the gateway name of the package\n";
chop($division=<STDIN>);
print "Enter the version of the package\n";
chop($version=<STDIN>);

### Declarations


my %id=("HTCHSTCGW1"=>"abc\@abc.in",
	  "HTCHTDLGW1"=>"def\@def.in",
	  "HTCHMROGW1"=>"ghi\@ghi.in",
	  "HTCHAM4GW1"=>"jkl\@jkl.in");

my %cc=("HTCHSTCGW1"=>"ppp\@ppp.in",
        "HTCHTDLGW1"=>"ppp\@ppp.in",
	  "HTCHMROGW1"=>"ppp\@ppp.in",
	  "HTCHAM4GW1"=>"ppp\@ppp.in");


my $mail_host='10.101.26.28';
my $From_address='admin@abc.in';
my $body="Hi,
	   Monthly Patches were distributed to the hosts in $division.\n
	   Results of the $version patches";

###Distribution Status based on Input


	if($version eq "2K")
	{
		system("wmdist -e $input SUCCESS > 2K_success.txt");
		system("wmdist -e $input FAILED > 2K_failed.txt");
		system("wmdist -e $input WAITING > 2K_waiting.txt");
	}

	if($version eq "2K3")
	{
		system("wmdist -e $input SUCCESS > 2K3_success.txt");
		system("wmdist -e $input FAILED > 2K3_failed.txt");
		system("wmdist -e $input WAITING > 2K3_waiting.txt");
	}

	if($version eq "XP")
	{
		system("wmdist -e $input SUCCESS > XP_success.txt");
		system("clear");
		system("wmdist -e $input FAILED > XP_failed.txt");
		$|=1;
		system("wmdist -e $input WAITING > XP_waiting.txt");
	}



my $To_address=$id{$division};
my $cc_address=$cc{$division};

$msg=MIME::Lite->new(
From => $From_address,
To   => $To_address,
Cc   => $cc_address,
Subject =>'Monthly Patches Rollout Distribution Status',
Type =>'multipart/mixed'
);

$msg->attach(
Type =>'Text',
Data => "$body"
);

if ( $version eq "2K3")
{
	$msg->attach(
	Type     =>'text/html',
	Path     =>'D:/report/2K3_success.txt',
	Filename =>'2K3_success.txt',
	Disposition => 'attachment'
	);

	$msg->attach(
	Type     =>'text/html',
	Path     =>'D:/report/2K3_failed.txt',
	Filename =>'2K3_failed.txt',
	Disposition => 'attachment'
	);

	$msg->attach(
	Type     =>'text/html',
	Path     =>'D:/report/2K3_failed.txt',
	Filename =>'2K3_waiting.txt',
	Disposition => 'attachment'
	);

}

if ( $version eq "2K")
{
	$msg->attach(
	Type     =>'text/html',
	Path     =>'D:/report/2K_success.txt',
	Filename =>'2K_success.txt',
	Disposition => 'attachment'
	);

	$msg->attach(
	Type     =>'text/html',
	Path     =>'D:/report/2K_failed.txt',
	Filename =>'2K_failed.txt',
	Disposition => 'attachment'
	);

	$msg->attach(
	Type     =>'text/html',
	Path     =>'D:/report/2K_failed.txt',
	Filename =>'2K_waiting.txt',
	Disposition => 'attachment'
	);
}

if ( $version eq "XP")
{
	$msg->attach(
	Type     =>'text/html',
	Path     =>'D:/report/XP_success.txt',
	Filename =>'XP_success.txt',
	Disposition => 'attachment'
	);

	$msg->attach(
	Type     =>'text/html',
	Path     =>'D:/report/XP_failed.txt',
	Filename =>'XP_failed.txt',
	Disposition => 'attachment'
	);

	$msg->attach(
	Type     =>'text/html',
	Path     =>'D:/report/XP_failed.txt',
	Filename =>'XP_waiting.txt',
	Disposition => 'attachment'
	);

}

MIME::Lite->send('smtp',$mail_host,Timeout=>60);
$msg->send;