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

## Scott Wiersdorf
## Created: Tue Nov 18 09:21:15 MST 2003
## $Id$

## db file creation for blocklist

## usage: echo '192.168.1.1  block' | ./db_create block.db

use DB_File;
use Fcntl;

my $db = shift;

my $dbmap;
tie(my %DB, 'DB_File', $db, O_RDWR|O_CREAT, 0640)
  or die "Cannot tie to $db: $!\n";
while( <> ) {
    chomp;
    if( /^\s*(\S+)\s+(\S+)/ ) {
        $DB{$1} = $2;
    }
}
untie %DB;