#!/usr/bin/perl

$IPADDR    = '207.203.26';
$NETMASK   = '255.255.255.0';
$NETWORK   = '207.203.26.0';
$BROADCAST = '207.203.26.255';

print "\n";
print "Starting File Number : "; chomp($starting_file_number = <STDIN>);
print "Starting IP Number   : "; chomp($starting_ip_number   = <STDIN>);
print "Ending IP Number     : "; chomp($ending_ip_number     = <STDIN>);

if(!$starting_file_number or !$starting_ip_number or !$ending_ip_number) { 
  print "\nBlank Values!  Exiting\n\n"; exit; 
}

for($ip = $starting_ip_number; $ip <= $ending_ip_number; $ip++) {

  print "Processing: ifcfg-eth0:$starting_file_number\n";

  open( IP,">./ifcfg-eth0:$starting_file_number") or die "Can't create file. $!\n";
  print IP "DEVICE=eth0:$starting_file_number\n";
  print IP "IPADDR=$IPADDR.$ip\n";
  print IP "NETMASK=$NETMASK\n";
  print IP "NETWORK=$NETWORK\n";
  print IP "BROADCAST=$BROADCAST\n";
  print IP "ONBOOT=yes\n";
  print IP "BOOTPROTO=none\n";
  close(IP);

  $starting_file_number++;

}