-# $Id: Ping.pm,v 1.17 2006-12-06 12:58:06 mike Exp $
+# $Id: Ping.pm,v 1.19 2007-01-20 09:53:40 mike Exp $
# See the "Main" test package for documentation
encapsulation resultCount negotiationModel
duplicationDetection queryType104
pQESCorrection stringSchema)) {
+ #print STDERR "\$conn->option('init_opt_$opt') = '", $conn->option("init_opt_$opt"), "'\n";
$conn->record()->store_result('init_opt', option => $opt)
if $conn->option("init_opt_$opt");
}
+
+ foreach my $opt (qw(serverImplementationId
+ serverImplementationName
+ serverImplementationVersion)) {
+ $conn->record()->store_result($opt, value => $conn->option($opt));
+ }
}
+
return $ok ? ZOOM::IRSpy::Status::TEST_GOOD :
ZOOM::IRSpy::Status::TEST_BAD;
}