r1340@llin: dpavlin | 2007-10-08 01:04:36 +0200

 helper script from 2006, sigh!

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@896 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/scripts/webpac-lookup-dump.pl b/scripts/webpac-lookup-dump.pl
new file mode 100755 (executable)
index 0000000..a5e5e84
--- /dev/null
+++ b/scripts/webpac-lookup-dump.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/perl -w
+
+# dump WebPAC lookups
+
+use strict;
+use Storable qw/retrieve/;
+use Data::Dump qw/dump/;
+
+my $path = shift @ARGV || die "usage: $0 /path/to/lookup\n";
+
+print dump( retrieve( $path ));
+