summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
52bd387)
results in init_opt elements. This requires that the connected()
callback fires on RECV_APDU rather than CONNECT as previously,
otherwise we are called before the APDU's arrived and therefore before
the options have been set. I think this is fine, as the Init APDU is
the only one that arrives during the task.
-# $Id: Ping.pm,v 1.16 2006-11-29 18:18:37 mike Exp $
+# $Id: Ping.pm,v 1.17 2006-12-06 12:58:06 mike Exp $
# See the "Main" test package for documentation
# See the "Main" test package for documentation
my($conn) = @_;
$conn->irspy_connect(undef, {},
my($conn) = @_;
$conn->irspy_connect(undef, {},
- ZOOM::Event::CONNECT, \&connected,
+ ZOOM::Event::RECV_APDU, \&connected,
exception => \¬_connected);
}
exception => \¬_connected);
}
my $rec = $conn->record();
$rec->append_entry("irspy:status", "<irspy:probe ok='$ok'>" .
isodate(time()) . "</irspy:probe>");
my $rec = $conn->record();
$rec->append_entry("irspy:status", "<irspy:probe ok='$ok'>" .
isodate(time()) . "</irspy:probe>");
+
+ if ($ok) {
+ foreach my $opt (qw(search present delSet resourceReport
+ triggerResourceCtrl resourceCtrl
+ accessCtrl scan sort extendedServices
+ level_1Segmentation level_2Segmentation
+ concurrentOperations namedResultSets
+ encapsulation resultCount negotiationModel
+ duplicationDetection queryType104
+ pQESCorrection stringSchema)) {
+ $conn->record()->store_result('init_opt', option => $opt)
+ if $conn->option("init_opt_$opt");
+ }
+ }
+
return $ok ? ZOOM::IRSpy::Status::TEST_GOOD :
ZOOM::IRSpy::Status::TEST_BAD;
}
return $ok ? ZOOM::IRSpy::Status::TEST_GOOD :
ZOOM::IRSpy::Status::TEST_BAD;
}