hafas-m: add --json option

1 files changed, 18 insertions, 1 deletions

diff --git a/bin/hafas-m b/bin/hafas-m
index 623cd36..3533cf4 100755
--- a/bin/hafas-m
+++ b/bin/hafas-m
@@ -7,7 +7,8 @@ our $VERSION = '4.10';
 
 use utf8;
 use DateTime;
-use Encode          qw(decode);
+use Encode qw(decode);
+use JSON;
 use Getopt::Long    qw(:config no_ignore_case);
 use List::MoreUtils qw(uniq);
 use List::Util      qw(first max);
@@ -17,6 +18,7 @@ my ( $date, $time );
 my $arrivals = 0;
 my $types    = q{};
 my $developer_mode;
+my $json_output;
 my ( $list_services, $service );
 my ( @excluded_mots, @exclusive_mots );
 
@@ -36,6 +38,7 @@ GetOptions(
 	't|time=s'    => \$time,
 	'V|version'   => \&show_version,
 	'devmode'     => \$developer_mode,
+	'json'        => \$json_output,
 	'list'        => \$list_services,
 
 ) or show_help(1);
@@ -245,6 +248,16 @@ if ( my $err = $status->errstr ) {
 	exit 2;
 }
 
+if ($json_output) {
+	if ( $opt{journey} ) {
+		say JSON->new->convert_blessed->encode( [ $status->result ] );
+	}
+	else {
+		say JSON->new->convert_blessed->encode( [ $status->results ] );
+	}
+	exit 0;
+}
+
 if ( $opt{geoSearch} ) {
 	for my $result ( $status->results ) {
 		printf(
@@ -384,6 +397,10 @@ the end station.
 
 Date to list departures for.  Default: today.
 
+=item B<--json>
+
+Print result(s) as JSON.
+
 =item B<--list>
 
 List known HAFAS installations. A HAFAS service from this list can be querie