dump user md5sum file and use it for test

[cloudstore.git] / user-md5sum.pl

diff --git a/user-md5sum.pl b/user-md5sum.pl
new file mode 100755 (executable)
index 0000000..e120037
--- /dev/null
+++ b/user-md5sum.pl
@@ -0,0 +1,25 @@
+#!/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";
+}
+