#!/usr/bin/perl


# Cleanse individual DB stuff


#!/usr/bin/perl -w 

# This script is a minimalistic version of adding a
# database entry to the db. 


use DB_File;                            # load database module

$dbmlocation = '/usr/local/jail/www/htdocs/ncsa/riverweb/notebook/notebook1/database/riverweb.dbm';

tie %hash, DB_File, $dbmlocation        # open database, to be accessed
    or die "Can't open FILENAME: $!\n";    # through %HASH


#delete $hash{'19'};                   # delete from database
delete $hash{'90'};
#delete $hash{'1'};

if (exists $hash{'keny'}) {             # check whether in database
    print "Exists, Biatch:  $hash{'keny'}\n\n";
}
else {
        print "Does Not Exist, Biatch.\n\n";
}


untie %hash;                            # close the database