Биллинговая система Nodeny

#!/usr/bin/perl -w

use DBI;

$sqlfirst="dbi:mysql:dbname=nodeny;host=10.1.1.2";
$sqllogin="admin";
$sqlpassw="ku5";

$arpcache="/etc/ethers";
$date=`date`;



@networks = (30,31,32,33,34);

foreach $net (@networks) {
    for ($i=2; $i < 255; $i++) {
        $ip = "10.1.$net.$i";
        $rmac = sprintf("%x:%x:%x:%x:%x:%x", int(rand(255)), int(rand(255)), int(rand(255)), int(rand(255)), int(rand(255)), int(rand(255)));
        # Add fake mac
        system("/usr/sbin/arp -s $ip $rmac");
        #print "/usr/sbin/arp -s $ip $rmac\n";
    }
}

#print "\n\n\n";

# Add real mac
$dbh=DBI->connect($sqlfirst,$sqllogin,$sqlpassw);

if($dbh){
    #print "Adding Valid MACS\n";
    open(ETHERS, ">$arpcache");
    print ETHERS "# Generated automatically by randomarp.pl. DON'T EDIT BY HANDS!\n";
    print ETHERS "# $date\n";

    $sql="ЗАПРОС, КОТОРЫЙ ВЫГРЕБАЕТ ИП НА КОТОРЫЕ НУЖНА ПРИВЯЗКА";
    ($sth=$dbh->prepare($sql)) or die($DBI::errstr);
    ($sth->execute) or die($DBI::errstr);
    while(($ip, $mac)=$sth->fetchrow) {
      # Add valid mac
      print ETHERS "$ip $mac\n";
      #print "/usr/sbin/arp -s $ip $mac\n";
      system("/usr/sbin/arp -s $ip $mac");
    }
    close(ETHERS);

    # Remove excludes
    $sql="ЗАПРОС, КОТОРЫЙ ВЫГРЕБАЕТ ИП НА КОТОРЫЕ НЕ НУЖНА ПРИВЯЗКА";
    ($sth=$dbh->prepare($sql)) or die($DBI::errstr);
    ($sth->execute) or die($DBI::errstr);
    while(($ip)=$sth->fetchrow) {
      # Remove dep
      #print "/usr/sbin/arp -s $ip $mac\n";
      system("/usr/sbin/arp -d $ip");
    }

} else {
    #print "/usr/sbin/arp -f $arpcache\n";
    system("/usr/sbin/arp -f $arpcache");
}