diff options
Diffstat (limited to 'example/ivyprobe.pl')
-rwxr-xr-x | example/ivyprobe.pl | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/example/ivyprobe.pl b/example/ivyprobe.pl index 1ec8449..f25e9a0 100755 --- a/example/ivyprobe.pl +++ b/example/ivyprobe.pl @@ -252,6 +252,19 @@ sub interpret_line { return 0; } + if ($str =~ /^.du(mp)?\s+(\S+)\s*$/) { + my $appname = $2; + &printtime; + print "dumptable $appname\n"; + my $res = $Ivyobj->dumpTable($appname, sub { + my ($fileName, $name) = @_; + print ("dumpTable from ${appname}[$name] fileName=$fileName\n"); + } + ); + print "$res\n"; + return 0; + } + if ($str =~ /^.who\s*$/) { print "Apps:"; foreach my $app (sort keys %connected_applications) { @@ -366,7 +379,8 @@ sub line_command_usage { print "tutu\n"; print " .die appname1 appname2 ... - send die msg to appnameN\n"; print " .db[ind] id - add a direct msg to receive\n"; print " .d[irect] appname id args - send direct msg to appname\n"; - print " .p[ing] appname timeout - ping appname with a delay of timeout ms NYI\n"; + print " .p[ing] appname - ping appname\n"; + print " .du[mp] appname - ask appname to dump internal table for debug\n"; print " .where appname - on which host is/are appname\n"; print " .who - who is on the bus\n"; } |