Do not error out if only partial data is available (closes #4)

1 files changed, 8 insertions, 1 deletions

diff --git a/bin/db-iris b/bin/db-iris
index f1bff19..38e30cd 100755
--- a/bin/db-iris
+++ b/bin/db-iris
@@ -259,12 +259,19 @@ if ( my $err = $status->errstr ) {
 	say STDERR "Request error: ${err}";
 	exit 2;
 }
+if ( my $warning = $status->warnstr ) {
+	say STDERR "Request warning: ${warning}";
+}
 
 if ( $status_via and $status_via->errstr ) {
 	my $err = $status_via->errstr;
-	say STDERR "Request error: ${err}";
+	say STDERR "Request error in --via : ${err}";
 	exit 2;
 }
+if ( $status_via and $status_via->warnstr ) {
+	my $warning = $status_via->warnstr;
+	say STDERR "Request warning in --via : ${warning}";
+}
 
 sanitize_options();