#!/usr/local/bin/perl -w
#
#
use strict;

use lib "../lib";
use DBUTIL;


my %CONFIG;
$CONFIG{ACTION} = $ARGV[0] || "";

if ($CONFIG{ACTION} eq 'initdb' ) {
    &init_db();
}elsif ($CONFIG{ACTION} eq 'dropdb' ) {
    &drop_db();
}elsif ($CONFIG{ACTION} eq 'generate') {
    &generate_schema_file();
}elsif ($CONFIG{ACTION} eq 'oui') {
    &insert_oui();
}else {
    die '$CONFIG{ACTION} invalid: '.$CONFIG{ACTION} ;
}
