X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=helm%2Fhttp_getter%2Ftools%2Fdump_db.pl;fp=helm%2Fhttp_getter%2Ftools%2Fdump_db.pl;h=0000000000000000000000000000000000000000;hp=95d3f4ab523bf45c1969fa8bd387049196824686;hb=1696761e4b8576e8ed81caa905fd108717019226;hpb=5325734bc2e4927ed7ec146e35a6f0f2b49f50c1

diff --git a/helm/http_getter/tools/dump_db.pl b/helm/http_getter/tools/dump_db.pl
deleted file mode 100755
index 95d3f4ab5..000000000
--- 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";
-}
-