dump TDB file (e.g. lookup)

git-svn-id: file:///home/dpavlin/private/svn/webpac/trunk@232 13eb9ef6-21d5-0310-b721-a9d68796d827

diff --git a/tools/dump_tdb.pl b/tools/dump_tdb.pl
new file mode 100755 (executable)
index 0000000..278268d
--- /dev/null
+++ b/tools/dump_tdb.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/perl -w
+
+use strict;
+use TDB_File;
+use Fcntl;     # for O_RDWR
+
+my $tdb_file=shift @ARGV;
+if (! $tdb_file) {
+       print "usage: $0 [tdb file]\n";
+       exit 1;
+}
+
+my %tdb_file;
+tie %tdb_file, 'TDB_File', $tdb_file, TDB_DEFAULT, O_RDWR, 0644;
+foreach (sort keys %tdb_file) {
+       print "$_\t",$tdb_file{$_},"\n";
+}
+untie %tdb_file;