#!/usr/bin/perl
use warnings;
use strict;

use TokyoCabinet;
use Data::Dump qw(dump);

my $user = shift @ARGV || die "usage: $0 u2001\n";

my $dir = (getpwnam($user))[7];

die $! unless -d $dir;

my $path = "$dir/.md5";

die $! unless -r $path;

my %h;
tie %h, "TokyoCabinet::HDB", $path || die $!;

while( my($k,$v) = each(%h) ) {
	$k = "$dir/$k" if $ENV{FULL};
	print "$v  $k\n";
}

