samples/zoom/zhello.pl

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