samples/zoom/zhello.pl

   1 #!/usr/bin/perl -w
   2
   3 # $Id: zhello.pl,v 1.1 2006-12-06 11:16:26 mike Exp $
   4
   5 use strict;
   6 use warnings;
   7 use ZOOM;
   8
   9 if (@ARGV != 1) {
  10     print STDERR "Usage: $0 target\n";
  11     exit 1;
  12 }
  13
  14 my $conn = new ZOOM::Connection($ARGV[0]);
  15 foreach my $opt (qw(search present delSet resourceReport
  16                     triggerResourceCtrl resourceCtrl accessCtrl scan
  17                     sort extendedServices level_1Segmentation
  18                     level_2Segmentation concurrentOperations
  19                     namedResultSets encapsulation resultCount
  20                     negotiationModel duplicationDetection queryType104
  21                     pQESCorrection stringSchema)) {
  22     print $conn->option("init_opt_$opt") ? " " : "!";
  23     print "$opt\n";
  24 }