summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xbin/hafas-m19
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