summaryrefslogtreecommitdiff
path: root/lib/Travel/Status/DE/HAFAS/Services.pm.PL
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Travel/Status/DE/HAFAS/Services.pm.PL')
-rw-r--r--lib/Travel/Status/DE/HAFAS/Services.pm.PL317
1 files changed, 317 insertions, 0 deletions
diff --git a/lib/Travel/Status/DE/HAFAS/Services.pm.PL b/lib/Travel/Status/DE/HAFAS/Services.pm.PL
new file mode 100644
index 0000000..9cda569
--- /dev/null
+++ b/lib/Travel/Status/DE/HAFAS/Services.pm.PL
@@ -0,0 +1,317 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use 5.014;
+use utf8;
+use Data::Dumper;
+use Encode qw(encode);
+use File::Slurp qw(read_file write_file);
+use JSON;
+
+my $json = JSON->new->utf8;
+
+sub load_instance {
+ my ( $path, %opt ) = @_;
+
+ my $data = $json->decode(
+ scalar read_file("ext/transport-apis/data/${path}-hafas-mgate.json") );
+ my %ret = (
+ name => $data->{name} =~ s{ *[(][^)]+[)]}{}r,
+ homepage => $data->{attribution}{homepage},
+ mgate => $data->{options}{endpoint},
+ time_zone => $data->{timezone},
+ languages => $data->{supportedLanguages},
+ request => {
+ client => $data->{options}{client},
+ auth => $data->{options}{auth},
+ },
+
+ #coverage => {
+ # area => $data->{coverage}{realtimeCoverage}{area},
+ # regions => $data->{coverage}{realtimeCoverage}{region},
+ #}
+ );
+
+ if ( $opt{lang} ) {
+ $ret{request}{lang} = $opt{lang};
+ }
+ if ( $opt{ver} ) {
+ $ret{request}{ver} = $opt{ver};
+ }
+
+ if ( $data->{options}{ext} ) {
+ $ret{request}{ext} = $data->{options}{ext};
+ }
+ if ( $data->{options}{ver} ) {
+ $ret{request}{ver} = $data->{options}{ver};
+ }
+
+ return %ret;
+}
+
+my %hafas_instance = (
+ AVV => {
+ load_instance(
+ 'de/avv',
+ lang => 'deu',
+ ver => '1.26'
+ ),
+ stopfinder => 'https://auskunft.avv.de/bin/ajax-getstop.exe',
+ productbits => [
+ [ regio => 'regional trains' ],
+ [ ic_ec => 'long distance trains' ],
+ [ ice => 'long distance trains' ],
+ [ bus => 'long distance busses' ],
+ [ s => 'sububrban trains' ],
+ [ u => 'underground trains' ],
+ [ tram => 'trams' ],
+ [ bus => 'busses' ],
+ [ bus => 'additional busses' ],
+ [ ondemand => 'on-demand services' ],
+ [ ferry => 'maritime transit' ]
+ ],
+ },
+ BART => {
+ load_instance(
+ 'us/bart',
+ lang => 'en',
+ ver => '1.40'
+ ),
+ stopfinder => 'https://planner.bart.gov/bin/ajax-getstop.exe',
+ productbits => [
+ [ _ => undef ],
+ [ _ => undef ],
+ [ cc => 'cable cars' ],
+ [ regio => 'regional trains' ],
+ [ _ => undef ],
+ [ bus => 'busses' ],
+ [ ferry => 'maritime transit' ],
+ [ bart => 'BART trains' ],
+ [ tram => 'trams' ],
+ ],
+ },
+ BLS => {
+ load_instance(
+ 'ch/bls',
+ lang => 'deu',
+ ver => '1.46'
+ ),
+ languages => [qw[de fr it en]],
+ stopfinder => 'https://bls.hafas.de/bin/ajax-stopfinder.exe',
+ productbits => [
+ [ ice => 'long distance trains' ],
+ [ ic_ec => 'long distance trains' ],
+ [ ir => 'inter-regio trains' ],
+ [ regio => 'regional trains' ],
+ [ ferry => 'maritime transit' ],
+ [ s => 'suburban trains' ],
+ [ bus => 'busses' ],
+ [ fun => 'funicular / gondola' ],
+ [ _ => undef ],
+ [ tram => 'trams' ],
+ [ _ => undef ],
+ [ _ => undef ],
+ [ car => 'Autoverlad' ]
+ ],
+ },
+ BVG => {
+ load_instance( 'de/bvg', lang => 'deu' ),
+ stopfinder => 'https://bvg-apps-ext.hafas.de/bin/ajax-getstop.exe',
+ productbits => [qw[s u tram bus]],
+ },
+ CMTA => {
+ load_instance(
+ 'us/cmta',
+ lang => 'en',
+ ver => '1.40'
+ ),
+ stopfinder => 'https://capmetro.hafas.cloud/bin/ajax-getstop.exe',
+ productbits => [
+ [ _ => undef ],
+ [ _ => undef ],
+ [ _ => undef ],
+ [ regio => 'MetroRail' ],
+ [ _ => undef ],
+ [ bus => 'MetroBus' ],
+ [ _ => undef ],
+ [ _ => undef ],
+ [ _ => undef ],
+ [ _ => undef ],
+ [ _ => undef ],
+ [ _ => undef ],
+ [ rapid => 'MetroRapid' ],
+ ],
+ },
+ DB => {
+ load_instance('de/db'),
+ stopfinder => 'https://reiseauskunft.bahn.de/bin/ajax-getstop.exe',
+ productbits => [qw[ice ic_ec d regio s bus ferry u tram ondemand]],
+ productgroups =>
+ [ [qw[ice ic_ec d]], [qw[regio s]], [qw[bus ferry u tram ondemand]] ],
+ salt => 'bdI8UVj40K5fvxwf',
+ languages => [qw[de en fr es]],
+ request => {
+ client => {
+ id => 'DB',
+ v => '20100000',
+ type => 'IPH',
+ name => 'DB Navigator',
+ },
+ ext => 'DB.R21.12.a',
+ ver => '1.18',
+ auth => {
+ type => 'AID',
+ aid => 'n91dB8Z77MLdoR0K'
+ },
+ lang => 'deu'
+ },
+ },
+ IE => {
+ load_instance(
+ 'ie/iarnrod-eireann',
+ lang => 'en',
+ ver => '1.33'
+ ),
+ stopfinder =>
+ 'https://journeyplanner.irishrail.ie/bin/ajax-getstop.exe',
+ productbits => [
+ [ _ => undef ],
+ [ ic => 'national trains' ],
+ [ _ => undef ],
+ [ regio => 'regional trains' ],
+ [ dart => 'DART trains' ],
+ [ _ => undef ],
+ [ luas => 'LUAS trams' ],
+ ],
+ salt => 'i5s7m3q9z6b4k1c2',
+ micmac => 1,
+ },
+ KVB => {
+ load_instance( 'de/kvb', lang => 'deu' ),
+ productbits => [
+ [ s => 'sub-urban trains' ],
+ [ tram => 'trams' ],
+ [ _ => undef ],
+ [ bus => 'buses' ],
+ [ regio => 'regional trains' ],
+ [ ic => 'national trains' ],
+ [ _ => undef ],
+ [ _ => undef ],
+ [ ondemand => 'taxi buses' ]
+ ],
+ },
+ NAHSH => {
+ load_instance('de/nahsh'),
+ stopfinder => 'https://nah.sh.hafas.de/bin/ajax-getstop.exe',
+ productbits => [qw[ice ice ice regio s bus ferry u tram ondemand]],
+ },
+ NASA => {
+ load_instance( 'de/nasa', lang => 'deu' ),
+ stopfinder => 'https://reiseauskunft.insa.de/bin/ajax-getstop.exe',
+ productbits => [qw[ice ice regio regio regio tram bus ondemand]],
+ },
+ NVV => {
+ load_instance( 'de/nvv', lang => 'deu' ),
+ stopfinder =>
+ 'https://auskunft.nvv.de/auskunft/bin/jp/ajax-getstop.exe',
+ productbits =>
+ [qw[ice ic_ec regio s u tram bus bus ferry ondemand regio regio]],
+ },
+ 'ÖBB' => {
+ load_instance(
+ 'at/oebb',
+ lang => 'deu',
+ ver => '1.57'
+ ),
+ stopfinder => 'https://fahrplan.oebb.at/bin/ajax-getstop.exe',
+ productbits => [
+ [ ice_rj => 'long distance trains' ],
+ [ sev => 'rail replacement service' ],
+ [ ic_ec => 'long distance trains' ],
+ [ d_n => 'night trains and rapid trains' ],
+ [ regio => 'regional trains' ],
+ [ s => 'suburban trains' ],
+ [ bus => 'busses' ],
+ [ ferry => 'maritime transit' ],
+ [ u => 'underground' ],
+ [ tram => 'trams' ],
+ [ other => 'other transit services' ]
+ ],
+ productgroups =>
+ [ qw[ice_rj ic_ec d_n], qw[regio s sev], qw[bus ferry u tram other] ],
+ },
+ VBB => {
+ load_instance( 'de/vbb', lang => 'deu' ),
+ stopfinder => 'https://fahrinfo.vbb.de/bin/ajax-getstop.exe',
+ productbits => [qw[s u tram bus ferry ice regio]],
+ },
+ VBN => {
+ load_instance(
+ 'de/vbn',
+ lang => 'deu',
+ ver => '1.42'
+ ),
+ stopfinder => 'https://fahrplaner.vbn.de/hafas/ajax-getstop.exe',
+ productbits => [qw[ice ice regio regio s bus ferry u tram ondemand]],
+ salt => 'SP31mBufSyCLmNxp',
+ micmac => 1,
+ },
+ VOS => {
+ load_instance(
+ 'de/vos',
+ lang => 'deu',
+ ver => '1.72'
+ ),
+ stopfinder => 'https://fahrplan.vos.info/bin/ajax-getstop.exe',
+ productbits => [qw[ice ic_ec d regio s bus ferry u tram ondemand]],
+ },
+);
+
+my $perlobj = Data::Dumper->new( [ \%hafas_instance ], ['hafas_instance'] );
+
+my $buf = <<'__EOF__';
+package Travel::Status::DE::HAFAS::Services;
+
+# vim:readonly
+# This module has been automatically generated
+# by lib/Travel/Status/DE/HAFAS/Services.pm.PL.
+# Do not edit, changes will be lost.
+
+use strict;
+use warnings;
+use 5.014;
+use utf8;
+
+our $VERSION = '6.04';
+
+# Most of these have been adapted from
+# <https://github.com/public-transport/transport-apis> and
+# <https://github.com/public-transport/hafas-client/tree/main/p>.
+# Many thanks to Jannis R / @derhuerst and all contributors for maintaining
+# these resources.
+
+__EOF__
+
+$buf .= 'my ' . $perlobj->Sortkeys(1)->Indent(1)->Dump;
+
+$buf =~ s{\Q\x{d6}\E}{Ö}g;
+$buf =~ s{\Q\x{c9}\E}{É}g;
+$buf =~ s{\Q\x{f3}\E}{ó}g;
+$buf =~ s{\Q\x{f6}\E}{ö}g;
+$buf =~ s{\Q\x{fc}\E}{ü}g;
+
+$buf .= <<'__EOF__';
+
+sub get_service_ref {
+ return $hafas_instance;
+}
+
+sub get_service_map {
+ return %{$hafas_instance};
+}
+
+1;
+__EOF__
+
+write_file( $ARGV[0], { binmode => ':utf8' }, $buf );