fix : .ping command use new ping api (not so new in fact ...)

1 files changed, 7 insertions, 4 deletions

diff --git a/example/ivyprobe.pl b/example/ivyprobe.pl
index ba095df..1ec8449 100755
--- a/example/ivyprobe.pl
+++ b/example/ivyprobe.pl
@@ -239,12 +239,15 @@ sub interpret_line {
 	return 0;
     }
 
-    if ($str =~ /^.p(ing)?\s+(\S+)\s+(\d+)\s*$/) {
+    if ($str =~ /^.p(ing)?\s+(\S+)\s*$/) {
 	my $appname = $2;
-	my $timeout = $3;
 	&printtime;
-	print  "ping $appname timeout=$timeout\n";
-	my $res = $Ivyobj->ping($appname, $timeout);
+	print  "ping $appname\n";
+	my $res = $Ivyobj->ping($appname, sub {
+				  my ($time, $name) = @_;
+				  printf ("pong from ${appname}[$name] time=%.2f ms\n", $time);
+				}
+			       );
 	print  "$res\n";
 	return 0;
     }