diff options
Diffstat (limited to 'lib/Travel')
-rw-r--r-- | lib/Travel/Status/DE/DeutscheBahn.pm | 4 | ||||
-rw-r--r-- | lib/Travel/Status/DE/HAFAS.pm | 67 | ||||
-rw-r--r-- | lib/Travel/Status/DE/HAFAS/Result.pm | 4 | ||||
-rw-r--r-- | lib/Travel/Status/DE/HAFAS/StopFinder.pm | 4 |
4 files changed, 42 insertions, 37 deletions
diff --git a/lib/Travel/Status/DE/DeutscheBahn.pm b/lib/Travel/Status/DE/DeutscheBahn.pm index 66f16a1..baca059 100644 --- a/lib/Travel/Status/DE/DeutscheBahn.pm +++ b/lib/Travel/Status/DE/DeutscheBahn.pm @@ -6,7 +6,7 @@ use 5.014; use parent 'Travel::Status::DE::HAFAS'; -our $VERSION = '2.04'; +our $VERSION = '2.05'; sub new { my ( $class, %opt ) = @_; @@ -49,7 +49,7 @@ monitor operated by Deutsche Bahn =head1 VERSION -version 2.04 +version 2.05 =head1 DESCRIPTION diff --git a/lib/Travel/Status/DE/HAFAS.pm b/lib/Travel/Status/DE/HAFAS.pm index 234887b..0dccb99 100644 --- a/lib/Travel/Status/DE/HAFAS.pm +++ b/lib/Travel/Status/DE/HAFAS.pm @@ -16,64 +16,69 @@ use Travel::Status::DE::HAFAS::Result; use Travel::Status::DE::HAFAS::StopFinder; use XML::LibXML; -our $VERSION = '2.04'; +our $VERSION = '2.05'; my %hafas_instance = ( - BVG => { - url => 'http://bvg.hafas.de/bin/stboard.exe', - stopfinder => 'http://bvg.hafas.de/bin/ajax-getstop.exe', - name => 'Berliner Verkehrsgesellschaft', - productbits => [qw[s u tram bus ferry ice regio ondemand]], - }, + + #BVG => { + # url => 'https://bvg.hafas.de/bin/stboard.exe', + # stopfinder => 'https://bvg.hafas.de/bin/ajax-getstop.exe', + # name => 'Berliner Verkehrsgesellschaft', + # productbits => [qw[s u tram bus ferry ice regio ondemand]], + #}, DB => { - url => 'https://reiseauskunft.bahn.de/bin/bhftafel.exe', - stopfinder => 'https://reiseauskunft.bahn.de/bin/ajax-getstop.exe', - name => 'Deutsche Bahn', + url => 'https://reiseauskunft.bahn.de/bin/bhftafel.exe', + stopfinder => 'https://reiseauskunft.bahn.de/bin/ajax-getstop.exe', + trainsearch => 'https://reiseauskunft.bahn.de/bin/trainsearch.exe', + traininfo => 'https://reiseauskunft.bahn.de/bin/traininfo.exe', + name => 'Deutsche Bahn', productbits => [qw[ice ic_ec d regio s bus ferry u tram ondemand x x x x]], }, NAHSH => { - url => 'http://nah.sh.hafas.de/bin/stboard.exe', - stopfinder => 'http://nah.sh.hafas.de/bin/ajax-getstop.exe', + url => 'https://nah.sh.hafas.de/bin/stboard.exe', + stopfinder => 'https://nah.sh.hafas.de/bin/ajax-getstop.exe', name => 'Nahverkehrsverbund Schleswig-Holstein', productbits => [qw[ice ice ice regio s bus ferry u tram ondemand]], }, NASA => { - url => 'http://reiseauskunft.insa.de/bin/stboard.exe', - stopfinder => 'http://reiseauskunft.insa.de/bin/ajax-getstop.exe', + url => 'https://reiseauskunft.insa.de/bin/stboard.exe', + stopfinder => 'https://reiseauskunft.insa.de/bin/ajax-getstop.exe', name => 'Nahverkehrsservice Sachsen-Anhalt', productbits => [qw[ice ice regio regio regio tram bus ondemand]], }, NVV => { - url => 'http://auskunft.nvv.de/auskunft/bin/jp/stboard.exe', - stopfinder => 'http://auskunft.nvv.de/auskunft/bin/jp/ajax-getstop.exe', - name => 'Nordhessischer VerkehrsVerbund', + url => 'https://auskunft.nvv.de/auskunft/bin/jp/stboard.exe', + stopfinder => + 'https://auskunft.nvv.de/auskunft/bin/jp/ajax-getstop.exe', + name => 'Nordhessischer VerkehrsVerbund', productbits => [qw[ice ic_ec regio s u tram bus bus ferry ondemand regio regio]], }, 'ÖBB' => { - url => 'http://fahrplan.oebb.at/bin/stboard.exe', - stopfinder => 'http://fahrplan.oebb.at/bin/ajax-getstop.exe', + url => 'https://fahrplan.oebb.at/bin/stboard.exe', + stopfinder => 'https://fahrplan.oebb.at/bin/ajax-getstop.exe', name => 'Österreichische Bundesbahnen', productbits => [qw[ice ice ice regio regio s bus ferry u tram ice ondemand ice]], }, RSAG => { - url => 'http://fahrplan.rsag-online.de/hafas/stboard.exe', - stopfinder => 'http://fahrplan.rsag-online.de/hafas/ajax-getstop.exe', + url => 'https://fahrplan.rsag-online.de/hafas/stboard.exe', + stopfinder => 'https://fahrplan.rsag-online.de/hafas/ajax-getstop.exe', name => 'Rostocker Straßenbahn AG', productbits => [qw[ice ice ice regio s bus ferry u tram ondemand]], }, - SBB => { - url => 'http://fahrplan.sbb.ch/bin/stboard.exe', - stopfinder => 'http://fahrplan.sbb.ch/bin/ajax-getstop.exe', - name => 'Schweizerische Bundesbahnen', - productbits => - [qw[ice ice regio regio ferry s bus cablecar regio tram]], - }, + + #SBB => { + # url => 'https://fahrplan.sbb.ch/bin/stboard.exe', + # stopfinder => 'https://fahrplan.sbb.ch/bin/ajax-getstop.exe', + # name => 'Schweizerische Bundesbahnen', + # productbits => + # [qw[ice ice regio regio ferry s bus cablecar regio tram]], + #}, VBB => { - url => 'http://fahrinfo.vbb.de/bin/stboard.exe', - stopfinder => 'http://fahrinfo.vbb.de/bin/ajax-getstop.exe', + url => 'https://fahrinfo.vbb.de/bin/stboard.exe', + stopfinder => 'https://fahrinfo.vbb.de/bin/ajax-getstop.exe', name => 'Verkehrsverbund Berlin-Brandenburg', productbits => [qw[s u tram bus ferry ice regio]], }, @@ -425,7 +430,7 @@ monitors =head1 VERSION -version 2.04 +version 2.05 =head1 DESCRIPTION diff --git a/lib/Travel/Status/DE/HAFAS/Result.pm b/lib/Travel/Status/DE/HAFAS/Result.pm index bdc1340..2950736 100644 --- a/lib/Travel/Status/DE/HAFAS/Result.pm +++ b/lib/Travel/Status/DE/HAFAS/Result.pm @@ -8,7 +8,7 @@ no if $] >= 5.018, warnings => 'experimental::smartmatch'; use parent 'Class::Accessor'; -our $VERSION = '2.04'; +our $VERSION = '2.05'; Travel::Status::DE::HAFAS::Result->mk_ro_accessors( qw(date datetime info raw_e_delay raw_delay time train route_end)); @@ -190,7 +190,7 @@ arrival/departure received by Travel::Status::DE::HAFAS =head1 VERSION -version 2.04 +version 2.05 =head1 DESCRIPTION diff --git a/lib/Travel/Status/DE/HAFAS/StopFinder.pm b/lib/Travel/Status/DE/HAFAS/StopFinder.pm index c472c97..d99ee2f 100644 --- a/lib/Travel/Status/DE/HAFAS/StopFinder.pm +++ b/lib/Travel/Status/DE/HAFAS/StopFinder.pm @@ -12,7 +12,7 @@ use Encode qw(decode); use JSON; use LWP::UserAgent; -our $VERSION = '2.04'; +our $VERSION = '2.05'; sub new { my ( $obj, %conf ) = @_; @@ -123,7 +123,7 @@ finder services =head1 VERSION -version 2.04 +version 2.05 =head1 DESCRIPTION |