From: mike <mike>
Date: Wed, 6 Dec 2006 11:16:26 +0000 (+0000)
Subject: New
X-Git-Tag: cpan_1_22~88
X-Git-Url: http://git.indexdata.com/?a=commitdiff_plain;ds=sidebyside;h=1cf08b0f25591576726d6c1484ae85dc68c8fe18;p=ZOOM-Perl-moved-to-github.git

New
---

diff --git a/samples/zoom/zhello.pl b/samples/zoom/zhello.pl
new file mode 100755
index 0000000..d79c404
--- /dev/null
+++ b/samples/zoom/zhello.pl
@@ -0,0 +1,24 @@
+#!/usr/bin/perl -w
+
+# $Id: zhello.pl,v 1.1 2006-12-06 11:16:26 mike Exp $
+
+use strict;
+use warnings;
+use ZOOM;
+
+if (@ARGV != 1) {
+    print STDERR "Usage: $0 target\n";
+    exit 1;
+}
+
+my $conn = new ZOOM::Connection($ARGV[0]);
+foreach my $opt (qw(search present delSet resourceReport
+		    triggerResourceCtrl resourceCtrl accessCtrl scan
+		    sort extendedServices level_1Segmentation
+		    level_2Segmentation concurrentOperations
+		    namedResultSets encapsulation resultCount
+		    negotiationModel duplicationDetection queryType104
+		    pQESCorrection stringSchema)) {
+    print $conn->option("init_opt_$opt") ? " " : "!";
+    print "$opt\n";
+}