# dumphash -- Print confirmed emails

#!/usr/bin/perl
###########################################
# dumphash -- Print confirmed emails
# Mike Schilli, 2002 ([email protected])
###########################################
use warnings;
use strict;

use DB_File::Lock;
use Fcntl qw(:flock O_RDONLY);
use EmailReg;

tie my %DATA, 'DB_File::Lock',
$EmailReg::DB_FILE,
O_RDONLY, 0644, $DB_HASH,
'read' or die "Cannot tie";

for (keys %DATA) {
print "$_\n" if $DATA{$_} eq "C";
}

untie %DATA;