From 84ba76922efb3a5e29bad2a9c9c00e00f04e4037 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Fri, 15 Dec 2006 17:23:27 +0000 Subject: [PATCH] Note implementation details. --- lib/ZOOM/IRSpy/Test/Ping.pm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/lib/ZOOM/IRSpy/Test/Ping.pm b/lib/ZOOM/IRSpy/Test/Ping.pm index 8fdfea8..2eeda3b 100644 --- a/lib/ZOOM/IRSpy/Test/Ping.pm +++ b/lib/ZOOM/IRSpy/Test/Ping.pm @@ -1,4 +1,4 @@ -# $Id: Ping.pm,v 1.17 2006-12-06 12:58:06 mike Exp $ +# $Id: Ping.pm,v 1.18 2006-12-15 17:23:27 mike Exp $ # See the "Main" test package for documentation @@ -47,8 +47,15 @@ sub maybe_connected { $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; } -- 1.7.10.4