summaryrefslogtreecommitdiff
path: root/example/ivyprobe.pl
diff options
context:
space:
mode:
authorbustico2006-08-02 08:46:42 +0000
committerbustico2006-08-02 08:46:42 +0000
commit71b83f5bba3a2e00a86c3a4f6b69c8f3e53c72e6 (patch)
treea92d3bc32d329679c3cce5b142d429d8b31fdcc2 /example/ivyprobe.pl
parent39820ec180f2a5051871059411f1344f4359c2db (diff)
downloadivy-perl-71b83f5bba3a2e00a86c3a4f6b69c8f3e53c72e6.zip
ivy-perl-71b83f5bba3a2e00a86c3a4f6b69c8f3e53c72e6.tar.gz
ivy-perl-71b83f5bba3a2e00a86c3a4f6b69c8f3e53c72e6.tar.bz2
ivy-perl-71b83f5bba3a2e00a86c3a4f6b69c8f3e53c72e6.tar.xz
statusFunc fix to fit the 7 args new api
Diffstat (limited to 'example/ivyprobe.pl')
-rwxr-xr-xexample/ivyprobe.pl18
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;