statusFunc fix to fit the 7 args new api

1 files changed, 9 insertions, 9 deletions

diff --git a/example/ivyprobe.pl b/example/ivyprobe.pl
index b229fd6..199c6e9 100755
--- a/example/ivyprobe.pl
+++ b/example/ivyprobe.pl
@@ -131,30 +131,30 @@ sub printtime {
 # this function has 3 additionnal parameters till Ivy Version 4.6
 # and now getting the new/dying applications is straightforward.
 # The first 3 parameters are kept only for upward compatibility! 
-sub statusFunc {
-    my ($ref_ready, $ref_nonReady, $ref_hashReady, $appname, $status, $host_or_regexp) = @_;
+sub statusFunc ($$$$$$$)  {
+    my ($ref_ready, $ref_nonReady, $ref_hashReady, $appname, $status, $host, $regexp) = @_;
 
     if ($status eq "new") {
 	&printtime;
-	print  "$appname connected from $host_or_regexp\n";
-	$where_applications{"$appname:$host_or_regexp"}++;
+	print  "$appname connected from $host\n";
+	$where_applications{"$appname:$host"}++;
     }
     elsif ($status eq "died") {
 	&printtime;
-	print  "$appname disconnected from $host_or_regexp\n";
-	$where_applications{"$appname:$host_or_regexp"}--;
+	print  "$appname disconnected from $host\n";
+	$where_applications{"$appname:$host"}--;
     }
     elsif ($status eq 'subscribing') {
 	&printtime;
-	print  "$appname subscribed to '$host_or_regexp'\n";
+	print  "$appname subscribed to '$regexp'\n";
     }
     elsif ($status eq 'unsubscribing') {
 	&printtime;
-	print  "$appname unsubscribed to '$host_or_regexp'\n";
+	print  "$appname unsubscribed to '$regexp'\n";
     }
     elsif ($status eq 'filtered') {
 	&printtime;
-	print  "$appname subscribed to *FILTERED* '$host_or_regexp'\n";
+	print  "$appname subscribed to *FILTERED* '$regexp'\n";
     }
     else {
 	&printtime;