Add --json option

1 files changed, 8 insertions, 0 deletions

diff --git a/bin/db-iris b/bin/db-iris
index 8b858c3..c0b5a2a 100755
--- a/bin/db-iris
+++ b/bin/db-iris
@@ -12,6 +12,7 @@ use DateTime;
 use DateTime::Format::Strptime;
 use Encode qw(decode);
 use Getopt::Long qw(:config no_ignore_case bundling);
+use JSON;
 use List::Util qw(first max);
 use List::MoreUtils qw(none);
 use Travel::Status::DE::IRIS;
@@ -26,6 +27,7 @@ my $with_related   = 1;
 my ( $filter_via, $track_via, $status_via );
 my ( @grep_class, @grep_type, @grep_platform );
 my ( %edata,      @edata_pre );
+my $json_output    = 0;
 
 my @output;
 
@@ -47,6 +49,7 @@ GetOptions(
 	'V|track-via=s'      => \$track_via,
 	'x|exact|no-related' => sub { $with_related = 0 },
 	'devmode'            => \$developer_mode,
+	'json'               => \$json_output,
 	'version'            => \&show_version,
 
 ) or show_help(1);
@@ -413,6 +416,11 @@ if ( $status_via and $status_via->warnstr ) {
 
 sanitize_options();
 
+if ($json_output) {
+	say JSON->new->convert_blessed->encode( [ $status->results ] );
+	exit 0;
+}
+
 for my $d ( $status->results() ) {
 
 	my @via;