summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
authorBirte Kristina Friesel <derf@finalrewind.org>2023-12-10 08:22:15 +0100
committerBirte Kristina Friesel <derf@finalrewind.org>2023-12-10 08:22:15 +0100
commite73b97dd2472e50867a6a6fb7ab6c4021b884023 (patch)
tree37ec7087d29f55b44425befb9b5785a9f35a7ce0 /bin
parentf7141fdb987c20e99a10e4953110d5ae76030016 (diff)
Add --raw-json option
Diffstat (limited to 'bin')
-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;