From: Don Armstrong <don@donarmstrong.com>
Date: Sun, 20 May 2007 10:30:21 +0000 (-0700)
Subject: add script to dump databases
X-Git-Tag: release/2.6.0~565^2~4
X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=commitdiff_plain;h=99294e9f964fcd71ae7ed58d18c7584b9ae07037

add script to dump databases
---

diff --git a/examples/debian/versions/dump_db.pl b/examples/debian/versions/dump_db.pl
new file mode 100755
index 0000000..e41fd1e
--- /dev/null
+++ b/examples/debian/versions/dump_db.pl
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+use MLDBM qw(DB_File Storable);
+use Data::Dumper;
+use Fcntl;
+
+$MLDBM::DumpMeth=q(portable);
+
+
+my %db;
+
+my $db_name = (shift @ARGV || 'versions.idx');
+
+tie %db, MLDBM => $db_name,O_RDONLY or die "unable to tie $db_name: $!";
+if (@ARGV) {
+     print Dumper([@db{@ARGV}]);
+}
+else {
+     print Dumper(\%db);
+}
+
+
+