diff options
| -rwxr-xr-x | bin/hafas-m | 6 | ||||
| -rw-r--r-- | lib/Travel/Status/DE/HAFAS.pm | 32 |
2 files changed, 35 insertions, 3 deletions
diff --git a/bin/hafas-m b/bin/hafas-m index ac14110..8bed8e5 100755 --- a/bin/hafas-m +++ b/bin/hafas-m @@ -163,9 +163,11 @@ sub parse_mot_options { if ($desc) { for my $mot ( @{ $desc->{productbits} } ) { if ( ref($mot) eq 'ARRAY' ) { - printf( "%-10s %s\n", @{$mot} ); + if ( $mot->[0] ne '_' ) { + printf( "%-10s %s\n", @{$mot} ); + } } - else { + elsif ( $mot ne '_' ) { say $mot; } } diff --git a/lib/Travel/Status/DE/HAFAS.pm b/lib/Travel/Status/DE/HAFAS.pm index 7dbb1f6..1e0aa21 100644 --- a/lib/Travel/Status/DE/HAFAS.pm +++ b/lib/Travel/Status/DE/HAFAS.pm @@ -37,7 +37,7 @@ my %hafas_instance = ( [ bus => 'long distance busses' ], [ s => 'sububrban trains' ], [ u => 'underground trains' ], - [ tram => 'rams' ], + [ tram => 'trams' ], [ bus => 'busses' ], [ bus => 'additional busses' ], [ ondemand => 'on-demand services' ], @@ -59,6 +59,36 @@ my %hafas_instance = ( lang => 'deu', }, }, + BART => { + stopfinder => 'https://planner.bart.gov/bin/ajax-getstop.exe', + mgate => 'https://planner.bart.gov/bin/mgate.exe', + name => 'Bay Area Rapid Transit', + productbits => [ + [ _ => undef ], + [ _ => undef ], + [ cc => 'cable cars' ], + [ regio => 'regional trains' ], + [ _ => undef ], + [ bus => 'busses' ], + [ ferry => 'maritime transit' ], + [ bart => 'BART trains' ], + [ tram => 'trams' ], + ], + languages => [qw[en]], + request => { + client => { + id => 'BART', + type => 'WEB', + name => 'webapp', + }, + ver => '1.40', + auth => { + type => 'AID', + aid => 'kEwHkFUC' . 'IL500dym', + }, + lang => 'en', + }, + }, DB => { stopfinder => 'https://reiseauskunft.bahn.de/bin/ajax-getstop.exe', mgate => 'https://reiseauskunft.bahn.de/bin/mgate.exe', |