#!/usr/bin/perl
use BerkeleyDB;
my $filename = $ARGV[0] ;

$db = new BerkeleyDB::Btree
                -Filename => $filename,
                -Flags    => DB_CREATE
        or die "Cannot open file $filename: $! $BerkeleyDB::Error\n" ;

while (<STDIN>) {
	$line = $_;
	chop($line);
	($hash,$url) = split(/\|/,$line);
#	my $lk2 = $db->cds_lock();
	$db->db_put("hash:$hash",$url);
#	$lk2->cds_unlock();
}