Skip to content
Commits on Source (2)
Hide whitespace changes
Inline Side-by-side
Changelog
View file @ 696ca930
Travel::Status::DE::DeutscheBahn 6.01 - Thu Apr 04 2024
* Journey: Add operators accessor
* Add CMTA (Capital Metropolitan Transportation Authority) and BLS (BLS AG)
services
Travel::Status::DE::DeutscheBahn 6.00 - Tue Apr 02 2024
* Add AVV (Aachener Verkehrsverbund), BART (Bay Area Rapid Transit), and IE
......
bin/hafas-m
View file @ 696ca930
......@@ -3,7 +3,7 @@ use strict;
use warnings;
use 5.014;
our $VERSION = '6.00';
our $VERSION = '6.01';
use utf8;
use DateTime;
......@@ -675,7 +675,7 @@ B<hafas-m> [B<-s> I<service>] [B<-l> I<language>] B<!>I<query>|I<journeyID>
=head1 VERSION
version 6.00
version 6.01
=head1 DESCRIPTION
......
lib/Travel/Status/DE/DeutscheBahn.pm
View file @ 696ca930
......@@ -6,7 +6,7 @@ use 5.014;
use parent 'Travel::Status::DE::HAFAS';
our $VERSION = '6.00';
our $VERSION = '6.01';
sub new {
my ( $class, %opt ) = @_;
......@@ -49,7 +49,7 @@ monitor operated by Deutsche Bahn
=head1 VERSION
version 6.00
version 6.01
=head1 DESCRIPTION
......
lib/Travel/Status/DE/HAFAS.pm
View file @ 696ca930
......@@ -21,7 +21,7 @@ use Travel::Status::DE::HAFAS::Polyline qw(decode_polyline);
use Travel::Status::DE::HAFAS::Product;
use Travel::Status::DE::HAFAS::StopFinder;
our $VERSION = '6.00';
our $VERSION = '6.01';
# {{{ Endpoint Definition
......@@ -95,6 +95,41 @@ my %hafas_instance = (
lang => 'en',
},
},
BLS => {
mgate => 'https://bls.hafas.de/bin/mgate.exe',
stopfinder => 'https://bls.hafas.de/bin/ajax-stopfinder.exe',
name => 'BLS AG',
time_zone => 'Europe/Zurich',
productbits => [
[ ice => 'long distance trains' ],
[ ic_ec => 'long distance trains' ],
[ ir => 'inter-regio trains' ],
[ regio => 'regional trains' ],
[ ferry => 'maritime transit' ],
[ s => 'suburban trains' ],
[ bus => 'busses' ],
[ fun => 'funicular / gondola' ],
[ _ => undef ],
[ tram => 'trams' ],
[ _ => undef ],
[ _ => undef ],
[ car => 'Autoverlad' ]
],
languages => [qw[de fr it en]],
request => {
client => {
id => 'HAFAS',
type => 'WEB',
name => 'webapp',
},
ver => '1.46',
auth => {
type => 'AID',
aid => '3jkAncud78HSo' . 'qclmN54812A',
},
lang => 'deu',
},
},
CMTA => {
stopfinder => 'https://capmetro.hafas.cloud/bin/ajax-getstop.exe',
mgate => 'https://capmetro.hafas.cloud/bin/mgate.exe',
......@@ -1181,7 +1216,7 @@ monitors
=head1 VERSION
version 6.00
version 6.01
=head1 DESCRIPTION
......
lib/Travel/Status/DE/HAFAS/Journey.pm
View file @ 696ca930
......@@ -11,7 +11,7 @@ use DateTime::Format::Strptime;
use List::Util qw(any uniq);
use Travel::Status::DE::HAFAS::Stop;
our $VERSION = '6.00';
our $VERSION = '6.01';
Travel::Status::DE::HAFAS::Journey->mk_ro_accessors(
qw(datetime sched_datetime rt_datetime tz_offset
......@@ -419,7 +419,7 @@ journey received by Travel::Status::DE::HAFAS
=head1 VERSION
version 6.00
version 6.01
=head1 DESCRIPTION
......
lib/Travel/Status/DE/HAFAS/Location.pm
View file @ 696ca930
......@@ -6,7 +6,7 @@ use 5.014;
use parent 'Class::Accessor';
our $VERSION = '6.00';
our $VERSION = '6.01';
Travel::Status::DE::HAFAS::Location->mk_ro_accessors(
qw(lid type name eva state lat lon distance_m weight));
......@@ -57,7 +57,7 @@ Travel::Status::DE::HAFAS::Location - A single public transit location
=head1 VERSION
version 6.00
version 6.01
=head1 DESCRIPTION
......
lib/Travel/Status/DE/HAFAS/Message.pm
View file @ 696ca930
......@@ -6,7 +6,7 @@ use 5.014;
use parent 'Class::Accessor';
our $VERSION = '6.00';
our $VERSION = '6.01';
Travel::Status::DE::HAFAS::Message->mk_ro_accessors(
qw(short type text code prio is_him ref_count));
......@@ -69,7 +69,7 @@ Travel::Status::DE::HAFAS::Message - An arrival/departure-related message.
=head1 VERSION
version 6.00
version 6.01
=head1 DESCRIPTION
......
lib/Travel/Status/DE/HAFAS/Polyline.pm
View file @ 696ca930
......@@ -16,7 +16,7 @@ use 5.014;
use parent 'Exporter';
our @EXPORT_OK = qw(decode_polyline);
our $VERSION = '6.00';
our $VERSION = '6.01';
# Translated this php script
# <http://unitstep.net/blog/2008/08/02/decoding-google-maps-encoded-polylines-using-php/>
......
lib/Travel/Status/DE/HAFAS/Product.pm
View file @ 696ca930
......@@ -8,7 +8,7 @@ use 5.014;
use parent 'Class::Accessor';
our $VERSION = '6.00';
our $VERSION = '6.01';
Travel::Status::DE::HAFAS::Product->mk_ro_accessors(
qw(class line_id line_no name number type type_long operator));
......@@ -105,7 +105,7 @@ associated with a journey.
=head1 VERSION
version 6.00
version 6.01
=head1 DESCRIPTION
......
lib/Travel/Status/DE/HAFAS/Stop.pm
View file @ 696ca930
......@@ -8,7 +8,7 @@ use 5.014;
use parent 'Class::Accessor';
our $VERSION = '6.00';
our $VERSION = '6.01';
Travel::Status::DE::HAFAS::Stop->mk_ro_accessors(
qw(loc
......@@ -218,7 +218,7 @@ Travel::Status::DE::HAFAS::Stop - Information about a HAFAS stop.
=head1 VERSION
version 6.00
version 6.01
=head1 DESCRIPTION
......
lib/Travel/Status/DE/HAFAS/StopFinder.pm
View file @ 696ca930
......@@ -10,7 +10,7 @@ use Encode qw(decode);
use JSON;
use LWP::UserAgent;
our $VERSION = '6.00';
our $VERSION = '6.01';
# {{{ Constructors
......@@ -180,7 +180,7 @@ finder services
=head1 VERSION
version 6.00
version 6.01
=head1 DESCRIPTION
......