From 99294e9f964fcd71ae7ed58d18c7584b9ae07037 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Sun, 20 May 2007 03:30:21 -0700
Subject: [PATCH 1/1] add script to dump databases

---
 examples/debian/versions/dump_db.pl | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100755 examples/debian/versions/dump_db.pl

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);
+}
+
+
+
-- 
2.39.2