#!/usr/bin/perl

exit(0);
use DBI();
use CGI qw(:standard);

$database="radius";
$hostname="127.0.0.1";
$port="3306";
$dbuser="radius";
$dbpasswd="25703741";

$dsn = "DBI:mysql:database=$database;host=$hostname;port=$port";
$dbh = DBI->connect_cached($dsn, $dbuser, $dbpasswd) || die "can'not open base";


open(patt,"<./oui.dop")||die "error";
while(<patt>)
    {
	chop($_);
	($mac, $ven) = split ("---");
#	print "$mac -- $ven";
	$sth = $dbh->prepare("INSERT INTO oui (mac,vendor) VALUES ('$mac','$ven')");
        $sth->execute();
    }
close(patt);