X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fdaemons%2Fhttp_getter%2Ftools%2Fdump_db.ml;fp=helm%2Fsoftware%2Fdaemons%2Fhttp_getter%2Ftools%2Fdump_db.ml;h=3a64f1dd6f204d3c718dbb0813b7b973c4a1573e;hb=76ad23ea1e83e8c187a4593027e9baed1bb022e3;hp=0000000000000000000000000000000000000000;hpb=2b2b90087f836c2f32291935216549e9370e68c3;p=helm.git

diff --git a/helm/software/daemons/http_getter/tools/dump_db.ml b/helm/software/daemons/http_getter/tools/dump_db.ml
new file mode 100755
index 000000000..3a64f1dd6
--- /dev/null
+++ b/helm/software/daemons/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