From 0f1696d5c0601f3070b9c1bb1f32dd82fceb033b Mon Sep 17 00:00:00 2001
From: Stefano Zacchiroli <zack@upsilon.cc>
Date: Thu, 26 Dec 2002 15:38:55 +0000
Subject: [PATCH] Dbm dumper for dbs created using Dbm ocaml module

---
 helm/http_getter/tools/dump_db.ml | 6 ++++++
 1 file changed, 6 insertions(+)
 create mode 100755 helm/http_getter/tools/dump_db.ml

diff --git a/helm/http_getter/tools/dump_db.ml b/helm/http_getter/tools/dump_db.ml
new file mode 100755
index 000000000..3a64f1dd6
--- /dev/null
+++ b/helm/http_getter/tools/dump_db.ml
@@ -0,0 +1,6 @@
+#!/usr/bin/ocamlrun /usr/bin/ocaml
+#use "topfind";;
+#require "dbm";;
+let db = Dbm.opendbm Sys.argv.(1) [ Dbm.Dbm_rdonly ] 0 in
+Dbm.iter (Printf.printf "%s: %s\n") db;
+Dbm.close db
-- 
2.39.2