summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xbin/hafas8
1 files changed, 7 insertions, 1 deletions
diff --git a/bin/hafas b/bin/hafas
index 8658d4e..33fdca8 100755
--- a/bin/hafas
+++ b/bin/hafas
@@ -18,7 +18,7 @@ use Travel::Status::DE::HAFAS;
my ( $date, $time, $arrival, $language );
my $types = q{};
my $developer_mode;
-my $json_output;
+my ( $json_output, $raw_json_output );
my $show_full_route;
my ( $list_services, $service );
my ( @excluded_mots, @exclusive_mots );
@@ -56,6 +56,7 @@ GetOptions(
'V|version' => \&show_version,
'devmode' => \$developer_mode,
'json' => \$json_output,
+ 'raw-json' => \$raw_json_output,
'list' => \$list_services,
) or show_help(1);
@@ -273,6 +274,11 @@ if ( my $err = $hafas->errstr ) {
exit 2;
}
+if ($raw_json_output) {
+ say JSON->new->convert_blessed->encode( $hafas->{raw_json} );
+ exit 0;
+}
+
if ($json_output) {
say JSON->new->convert_blessed->encode( [ $hafas->connections ] );
exit 0;