diff options
| author | Birte Kristina Friesel <derf@finalrewind.org> | 2024-12-27 09:10:49 +0100 |
|---|---|---|
| committer | Birte Kristina Friesel <derf@finalrewind.org> | 2024-12-27 09:10:49 +0100 |
| commit | 31ef58b4217a60429f77b58a5b2c9c549f40d19e (patch) | |
| tree | ecd11b7ab5afb530b344a22ae987366ea4be1d33 /lib | |
| parent | 6d44f63a1109800341f514ac2d75982e27be13b3 (diff) | |
station board: add mode-of-transit filter
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Travel/Status/DE/DBRIS.pm | 17 |
1 files changed, 11 insertions, 6 deletions
diff --git a/lib/Travel/Status/DE/DBRIS.pm b/lib/Travel/Status/DE/DBRIS.pm index 3b25862..49b54be 100644 --- a/lib/Travel/Status/DE/DBRIS.pm +++ b/lib/Travel/Status/DE/DBRIS.pm @@ -49,6 +49,13 @@ sub new { if ( my $station = $conf{station} ) { my $dt = $conf{datetime} // DateTime->now( time_zone => 'Europe/Berlin' ); + my @mots + = ( + qw(ICE EC_IC IR REGIONAL SBAHN BUS SCHIFF UBAHN TRAM ANRUFPFLICHTIG) + ); + if ( $conf{modes_of_transit} ) { + @mots = @{ $conf{modes_of_transit} // [] }; + } $req = 'https://www.bahn.de/web/api/reiseloesung/abfahrten' . '?datum=' @@ -59,12 +66,10 @@ sub new { . $station->{eva} . '&ortId=' . $station->{id} - . '&mitVias=true&maxVias=8' - . '&verkehrsmittel[]=ICE&verkehrsmittel[]=EC_IC' - . '&verkehrsmittel[]=IR&verkehrsmittel[]=REGIONAL' - . '&verkehrsmittel[]=SBAHN&verkehrsmittel[]=BUS' - . '&verkehrsmittel[]=SCHIFF&verkehrsmittel[]=UBAHN' - . '&verkehrsmittel[]=TRAM&verkehrsmittel[]=ANRUFPFLICHTIG'; + . '&mitVias=true&maxVias=8'; + for my $mot (@mots) { + $req .= '&verkehrsmittel[]=' . $mot; + } } elsif ( my $gs = $conf{geoSearch} ) { my $lat = $gs->{latitude}; |