From: mike <mike>
Date: Sat, 3 Mar 2007 16:39:38 +0000 (+0000)
Subject: New
X-Git-Tag: cpan_1_22~60
X-Git-Url: http://sru.miketaylor.org.uk/cgi-bin?a=commitdiff_plain;h=bf137ec301ca61b40a1f59e1d74ef1c14c508118;p=ZOOM-Perl-moved-to-github.git

New
---

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";