summaryrefslogtreecommitdiff
path: root/lib/Travel/Status
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Travel/Status')
-rw-r--r--lib/Travel/Status/DE/HAFAS.pm27
1 files changed, 7 insertions, 20 deletions
diff --git a/lib/Travel/Status/DE/HAFAS.pm b/lib/Travel/Status/DE/HAFAS.pm
index c313a44..56a79b3 100644
--- a/lib/Travel/Status/DE/HAFAS.pm
+++ b/lib/Travel/Status/DE/HAFAS.pm
@@ -32,10 +32,7 @@ my %hafas_instance = (
# 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',
- trainsearch => 'https://reiseauskunft.bahn.de/bin/trainsearch.exe',
- traininfo => 'https://reiseauskunft.bahn.de/bin/traininfo.exe',
mgate => 'https://reiseauskunft.bahn.de/bin/mgate.exe',
name => 'Deutsche Bahn',
productbits => [qw[ice ic_ec d regio s bus ferry u tram ondemand]],
@@ -51,7 +48,7 @@ my %hafas_instance = (
ver => '1.15',
auth => {
type => 'AID',
- aid => 'n91dB8Z77MLdoR0K'
+ aid => 'n91dB8Z77' . 'MLdoR0K'
},
},
},
@@ -207,18 +204,7 @@ sub new_mgate {
meth => 'StationBoard'
}
],
- client => {
- id => 'DB',
- v => '20100000',
- type => 'IPH',
- name => 'DB Navigator'
- },
- ext => 'DB.R21.12.a',
- ver => '1.15',
- auth => {
- type => 'AID',
- 'aid' => 'n91dB8Z77MLdoR0K'
- }
+ %{ $hafas_instance{$service}{request} }
};
$req = $json->encode($req);
@@ -403,7 +389,11 @@ sub check_input_error {
sub check_mgate {
my ($self) = @_;
- if ( $self->{raw_json}{cInfo}{code} ne 'OK' ) {
+ if ( $self->{raw_json}{err} ) {
+ $self->{errstr} = 'error code is ' . $self->{raw_json}{err};
+ $self->{errcode} = $self->{raw_json}{err};
+ }
+ elsif ( $self->{raw_json}{cInfo}{code} ne 'OK' ) {
$self->{errstr} = 'cInfo code is ' . $self->{raw_json}{cInfo}{code};
$self->{errcode} = $self->{raw_json}{cInfo}{code};
}
@@ -438,9 +428,6 @@ sub similar_stops {
if ( $service and exists $hafas_instance{$service}{stopfinder} ) {
- # we do not pass our constructor's language argument here,
- # because most stopfinder services do not return any results
- # for languages other than german ('d' aka the default)
my $sf = Travel::Status::DE::HAFAS::StopFinder->new(
url => $hafas_instance{$service}{stopfinder},
input => $self->{station},