implement -oq (qos_messages in Result.pm)

1 files changed, 4 insertions, 0 deletions

diff --git a/bin/db-iris b/bin/db-iris
index 1bbe5b2..d0e2662 100755
--- a/bin/db-iris
+++ b/bin/db-iris
@@ -151,6 +151,10 @@ sub display_result {
 		if ( $edata{delay} and $d->delay and $d->delay_messages ) {
 			printf( '  %s', ( $d->delay_messages )[-1]->[1] );
 		}
+		if ( $edata{qos} and $d->qos_messages ) {
+			printf( '  %s',
+				join( '  ', map { $_->[1] } ( reverse $d->qos_messages ) ) );
+		}
 		print "\n";
 
 		if ( $edata{times} ) {