From f32f3e6e01a501a926787f1a2b7fcbcbff197f66 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sat, 29 Nov 2003 20:11:07 +0000
Subject: [PATCH] dump content of gdbm file

git-svn-id: file:///home/dpavlin/private/svn/webpac/trunk@191 13eb9ef6-21d5-0310-b721-a9d68796d827
---
 tools/dump_gdbm.pl | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100755 tools/dump_gdbm.pl

diff --git a/tools/dump_gdbm.pl b/tools/dump_gdbm.pl
new file mode 100755
index 0000000..b5f6e1f
--- /dev/null
+++ b/tools/dump_gdbm.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/perl -w
+
+use strict;
+use GDBM_File;
+
+my $gdbm_file=shift @ARGV;
+if (! $gdbm_file) {
+	print "usage: $0 [gdbm file]\n";
+	exit 1;
+}
+
+my %gdbm_file;
+tie %gdbm_file, 'GDBM_File', $gdbm_file, &GDBM_READER, 0640;
+foreach (sort keys %gdbm_file) {
+	print "$_\t",$gdbm_file{$_},"\n";
+}
+untie %gdbm_file;
-- 
2.20.1