This commit was manufactured by cvs2svn to create branch

[helm.git] / helm / http_getter / tools / dump_db.pl

diff --git a/helm/http_getter/tools/dump_db.pl b/helm/http_getter/tools/dump_db.pl
deleted file mode 100755 (executable)
index 95d3f4a..0000000
--- a/helm/http_getter/tools/dump_db.pl
+++ /dev/null
@@ -1,19 +0,0 @@
-#!/usr/bin/perl -w
-
-# dump on stdout the data contained in a db file.
-# Print one line for each record in this format
-#  <key> = <value>
-#
-# Stefano "Zack" Zacchiroli <zack@cs.unibo.it>
-#
-
-use strict qw(O_RDONLY);
-use DB_File;
-
-my $dbfile = shift || die "which db file ?";
-my %map;
-tie(%map, 'DB_File', $dbfile, O_RDONLY, 0664);
-while(($key,$value) = each %map) {
-       print "$key = $value\n";
-}
-