-# $Id: Ping.pm,v 1.18 2006-12-15 17:23:27 mike Exp $
+# $Id: Ping.pm,v 1.20 2007-02-23 15:03:44 mike Exp $
# See the "Main" test package for documentation
my($conn) = @_;
$conn->irspy_connect(undef, {},
- ZOOM::Event::RECV_APDU, \&connected,
+ ZOOM::Event::ZEND, \&connected,
exception => \¬_connected);
}
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");
}