#!/usr/bin/perl

use warnings;
use strict;

my $awsGone = "/ansible/awsGone";
my $awsLists = "/ansible/awsLists";

my @ips;
open(FILE, '<', $awsLists) || die("Could not open file, $!");

@ips = <FILE>;
close FILE;
foreach my $addy(@ips)
{
chomp($addy);
#Test if up

my $retreval=system qq{nc -w 1 $addy 22 > /dev/null 2>&1};


if($retreval==0)
      {
	print "This up -> $addy\n";
        }
	else
         {
              ##check if the file is empty, dont bother searching for duplicates
		if(-z "$awsGone")
		{
                print "Host not up\n";
	        open(WRITE,'+>>',"$awsGone") || die("canot open $awsGone,$!"); 
		print WRITE "$addy\n";
	        close WRITE;
                #remove dead ip from file
		system qq{perl -p -i -e "/$addy/" $awsLists};
		}
		else
		{
               ##ip is dead, so open file for writing, then check if dead ip is already there
	        open(WR,'+>>',"$awsGone") || die("canot open $awsGone,$!"); 
		while(my $line = <WR>)
		  {

			if($line =~ /$addy/)	
			{ 
			print "already exists\n";
			}
				else
				{
                              ##Append dead ip to the file
	                        print "Host not up now\n";
 				print WR "$addy\n";
				close WR;
			        system qq{perl -p -i -e "/$addy/" $awsLists};

				}

          	}
	
	       }
	}


}


##</code><code>##

ip-10-1-0-152.us-west-2.compute.internal
ip-10-1-0-239.us-west-2.compute.internal
ip-10-55-55-55.us-west-2.compute.internal
ip-10-122-122-122.us-west-2.compute.internal
ip-10-1-1-143.us-west-2.compute.internal
ip-10-1-1-149.us-west-2.compute.internal
ip-10-1-1-150.us-west-2.compute.internal
ip-10-1-1-167.us-west-2.compute.internal

##</code><code>##

This up -> ip-10-1-0-152.us-west-2.compute.internal
This up -> ip-10-1-0-239.us-west-2.compute.internal
This up -> ip-10-1-1-143.us-west-2.compute.internal
This up -> ip-10-1-1-149.us-west-2.compute.internal
This up -> ip-10-1-1-150.us-west-2.compute.internal
This up -> ip-10-1-1-167.us-west-2.compute.internal