summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
Diffstat (limited to 'bin')
-rwxr-xr-xbin/db-iris10
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 ) {