3 # $Id: zhello.pl,v 1.1 2006-12-06 11:16:26 mike Exp $
10 print STDERR "Usage: $0 target\n";
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") ? " " : "!";