From 1cf08b0f25591576726d6c1484ae85dc68c8fe18 Mon Sep 17 00:00:00 2001
From: mike <mike>
Date: Wed, 6 Dec 2006 11:16:26 +0000
Subject: [PATCH] New

---
 samples/zoom/zhello.pl |   24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100755 samples/zoom/zhello.pl

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";
+}
-- 
1.7.10.4