#!/usr/bin/perl

my $range = 1000;

my $minimum = 10;

my $i = 0;

my $j = 0;

my $count = 0;

unless (-e "/root/NETMAP") {

print "NETMAP doesn't exists, so we are going to create it n";

$local_id= int(rand($range)) + $minimum;

$pseudo_id= int(rand($range)) + $minimum;

opendir (DIR,'/sys/class/net/') or die "open failed : $!n";

while (defined($dir = readdir(DIR))) {

if ($dir =~ m/eth/) {

print "Found valid interface $dir in /sys/class/net n";

open NETMAP, ">>/root/NETMAP";

if ($count <= 3) {

$i = 0;

}

elsif (($count >= 4) && ($count <= 7)) {

$i = 1;

}

elsif (($count >=8) && ($count <= 11)) {

$i = 2;

}

print NETMAP "$local_id:$i/$j",'@centos'," $pseudo_id:0/0",'@centos'," n";

close NETMAP;

$count++; $j++; $pseudo_id++;

if (($count == 4) || ($count == 8) || ($count == 12)) {

$j = 0;

}

}

}

close (DIR)

}