From 296a16abb3e4263d96b90ecb45e765e0dae4723d Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Wed, 21 Jun 2006 16:10:18 +0000 Subject: [PATCH] Running version -- does not yet register the results of its probing. --- lib/ZOOM/IRSpy/Test/Ping.pm | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/lib/ZOOM/IRSpy/Test/Ping.pm b/lib/ZOOM/IRSpy/Test/Ping.pm index b1789c7..090c29f 100644 --- a/lib/ZOOM/IRSpy/Test/Ping.pm +++ b/lib/ZOOM/IRSpy/Test/Ping.pm @@ -1,4 +1,4 @@ -# $Id: Ping.pm,v 1.2 2006-06-21 14:35:09 mike Exp $ +# $Id: Ping.pm,v 1.3 2006-06-21 16:10:18 mike Exp $ # See the "Main" test package for documentation @@ -19,15 +19,18 @@ sub run { my $pod = $irspy->pod(); $pod->callback(ZOOM::Event::CONNECT, \&connected); - my $err = $pod->wait(); + my $err = $pod->wait($irspy); return 0; } sub connected { - my($conn, $state, $rs, $event) = @_; - print $conn->option("host"), ": connected\n"; + my($conn, $irspy, $rs, $event) = @_; + + my $rec = $irspy->record($conn); + $irspy->log("irspy_test", $conn->option("host"), " connected"); + ### Note the successful connection in $rec return 0; } -- 1.7.10.4