diff options
Diffstat (limited to 'example/ivyprobe.pl')
-rwxr-xr-x | example/ivyprobe.pl | 18 |
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; |