#!/usr/bin/perl

$hdnb = shift;
chomp $hdnb;

$id=`whoami`;
chomp $id;
if ($id ne "root") {
	print "Il faut être 'root' pour pouvoir installer la configuration réseau standard\n";
	exit;
}

if ($hdnb !~ /^\d+$/) {
	print "$hdnb n'est pas un nombre ";
	print "l'argument doit être un nombre de 100 à 200";
	exit;
}

if ($hdnb > 200) {
	print "$hdnb est supérieur à 200";
	print "l'argument doit être un nombre de 100 à 200";
	exit;
}

if ($hdnb < 100) {
	print "$hdnb est inférieur à 100";
	print "l'argument doit être un nombre de 100 à 200";
	exit;
}

$txt = <<TXT;
BOOTPROTO=static
IPADDR=192.168.30.$hdnb
NETMASK=255.255.0.0
NETWORK=192.168.0.0
BROADCAST=192.168.255.255
ONBOOT=yes
MII_NOT_SUPPORTED=yes
TXT

$number = 0;
while ($number < 20) {
	$texte = "DEVICE=eth" . $number . "\n" . $txt;
	$filename = "ifcfg-eth$number";
	system("echo '$texte' > /etc/sysconfig/network-scripts/$filename");
	
	$number++;
}
system("chmod +x /etc/sysconfig/network-scripts/ifcfg-eth*");
system("echo -n $hdnb > /etc/hd.nb");