diff options
Diffstat (limited to 'lib/Travel/Status/DE/HAFAS.pm')
| -rw-r--r-- | lib/Travel/Status/DE/HAFAS.pm | 16 |
1 files changed, 13 insertions, 3 deletions
diff --git a/lib/Travel/Status/DE/HAFAS.pm b/lib/Travel/Status/DE/HAFAS.pm index 6589359..7cd1c97 100644 --- a/lib/Travel/Status/DE/HAFAS.pm +++ b/lib/Travel/Status/DE/HAFAS.pm @@ -15,11 +15,21 @@ use XML::LibXML; our $VERSION = '1.05'; my %hafas_instance = ( + BVG => { + url => 'http://bvg.hafas.de/bin/stboard.exe', + name => 'Berliner Verkehrsgesellschaft', + productbits => [qw[s u tram bus ferry ice regio ondemand]], + }, DB => { url => 'http://reiseauskunft.bahn.de/bin/bhftafel.exe', name => 'Deutsche Bahn', - productbits => [qw[ice ic_ec d nv s bus ferry u tram ondemand x x x x]], - } + productbits => [qw[ice ic_ec d regio s bus ferry u tram ondemand x x x x]], + }, + NASA => { + url => 'http://reiseauskunft.insa.de/bin/stboard.exe', + name => 'Nahverkehrsservice Sachsen-Anhalt', + productbits => [qw[ice ice regio regio regio tram bus ondemand]], + }, ); sub new { @@ -104,7 +114,7 @@ sub set_productfilter { my $service = $self->{active_service}; - if ($service) { + if ($service and exists $hafas_instance{$service}{productbits}) { $self->{post}{productsFilter} = '1' x ( scalar @{ $hafas_instance{$service}{productbits} } ); } |