From bf137ec301ca61b40a1f59e1d74ef1c14c508118 Mon Sep 17 00:00:00 2001
From: mike <mike>
Date: Sat, 3 Mar 2007 16:39:38 +0000
Subject: [PATCH] New

---
 samples/zoom/zoomdump |    7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100755 samples/zoom/zoomdump

diff --git a/samples/zoom/zoomdump b/samples/zoom/zoomdump
new file mode 100755
index 0000000..5e43615
--- /dev/null
+++ b/samples/zoom/zoomdump
@@ -0,0 +1,7 @@
+#!/usr/bin/perl -w
+use ZOOM;
+my $target = $ARGV[0];
+my $conn = new ZOOM::Connection($target);
+my $rs = $conn->search_pqf('@attr 1=_ALLRECORDS @attr 2=103 ""');
+my $n = $rs->size();
+print STDERR "$0: found $n records in '$target'\n";
-- 
1.7.10.4