summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xbin/hafas-m6
-rw-r--r--lib/Travel/Status/DE/HAFAS.pm32
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',