#!/usr/bin/perl

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

$txt = <<TXT;
BOOTPROTO=dhcp
ONBOOT=yes
MII_NOT_SUPPORTED=yes
DHCP_CLIENT=dhclient
NEEDHOSTNAME=yes
PEERDNS=yes
PEERYP=no
PEERNTPD=no
TXT

$number = 0;
while ($number < 20) {
$texte = "DEVICE=eth" . $number . "\n" . $txt;

# print "\n";
# 
# print $texte;
$filename = "ifcfg-eth$number";
system("echo '$texte' > /etc/sysconfig/network-scripts/$filename");

$number++;
}
system("chmod +x /etc/sysconfig/network-scripts/ifcfg-eth*");