#!/usr/bin/perl


if((!$ARGV[0])||(!$ARGV[1])) {

  system("clear");
  print "---< IIS - ifd >--------------------------------------------------------\n";
  print "---< Description: Used to Bring Down an IP and Erase interface file >---\n\n";
  print "   usage: ifd <ifconfig filename> <'remove Y|N'>\n";
  print "      eg: ifd 176 Y\n";
  print "   Notes: use ticks if string has a space in it.\n\n";

}  else {

	print " ";
	system("/etc/sysconfig/network-scripts/ifdown /etc/sysconfig/network-scripts/ifcfg-eth0:$ARGV[0]");

	if(($ARGV[1]) eq "y") {
		system("rm /etc/sysconfig/network-scripts/ifcfg-eth0:$ARGV[0]");
	}

print " \n";
print "ifcfg-eth0:$ARGV[0] Has Been Shut Down\n";
	if(($ARGV[1]) eq "y") {
		print "ifcfg-eth0:$ARGV[0] Has Been DELETED\n";
        } else {
		print "ifcfg-eth0:$ARGV[0] Has NOT Been DELETED\n";
	}	
print " ";

exit;
}

exit;