diff options
author | Daniel Friesel <derf@finalrewind.org> | 2015-01-02 23:32:53 +0100 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2015-01-02 23:32:53 +0100 |
commit | d13e9426c6733206bd92d813c8ff2cd2a5d7c734 (patch) | |
tree | 92381a49e365cb38e098094801e423d96c29d302 /bin/db-iris | |
parent | 380e2f0e744c994db851b51a65c1a0f476ec4c70 (diff) |
add debug foo for ar / dp hi flag
Diffstat (limited to 'bin/db-iris')
-rwxr-xr-x | bin/db-iris | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/bin/db-iris b/bin/db-iris index e30dc9b..3920f53 100755 --- a/bin/db-iris +++ b/bin/db-iris @@ -92,6 +92,7 @@ for my $efield (@edata_pre) { when ('q') { $edata{qos} = 1 } when ('r') { $edata{route} = 1 } when ('t') { $edata{times} = 1 } + when ('!') { $edata{debug} = 1 } default { $edata{$efield} = 1 } } } @@ -239,6 +240,15 @@ sub display_result { } + if ( $edata{debug} ) { + if ( $d->{unk_ar_hi} ) { + say "[DEBUG] arr:hi = $d->{unk_ar_hi}"; + } + if ( $d->{unk_dp_hi} ) { + say "[DEBUG] dep:hi = $d->{unk_dp_hi}"; + } + } + if ( $edata{messages} ) { for my $message ( $d->messages ) { |