Result: Update delay and qos messages

via <https://github.com/marudor/BahnhofsAbfahrten/issues/499>

2 files changed, 85 insertions, 67 deletions

diff --git a/lib/Travel/Status/DE/IRIS/Result.pm b/lib/Travel/Status/DE/IRIS/Result.pm
index b23f26d..59d69a3 100644
--- a/lib/Travel/Status/DE/IRIS/Result.pm
+++ b/lib/Travel/Status/DE/IRIS/Result.pm
@@ -18,88 +18,106 @@ use Scalar::Util qw(weaken);
 our $VERSION = '1.55';
 
 my %translation = (
-	2  => 'Polizeiliche Ermittlung',
-	3  => 'Feuerwehreinsatz neben der Strecke',
-	4  => 'Kurzfristiger Personalausfall',
-	5  => 'Ärztliche Versorgung eines Fahrgastes',
-	6  => 'Betätigen der Notbremse',
-	7  => 'Personen im Gleis',
-	8  => 'Notarzteinsatz am Gleis',
+	1 => 'Nähere Informationen in Kürze',
+	2 => 'Polizeieinsatz',
+	3 => 'Feuerwehreinsatz auf der Strecke',
+	4 => 'Kurzfristiger Personalausfall',            # xlsx: missing
+	5 => 'Ärztliche Versorgung eines Fahrgastes',
+	6 => 'Betätigen der Notbremse',   # xlsx: "Unbefugtes Ziehen der Notbremse"
+	7  => 'Unbefugte Personen auf der Strecke',
+	8  => 'Notarzteinsatz auf der Strecke',
 	9  => 'Streikauswirkungen',
-	10 => 'Ausgebrochene Tiere im Gleis',
+	10 => 'Tiere auf der Strecke',
 	11 => 'Unwetter',
-	12 => 'Warten auf Fahrgäste aus einem Schiff',
+	12 => 'Warten auf ein verspätetes Schiff',
 	13 => 'Pass- und Zollkontrolle',
-	14 => 'Technische Störung am Bahnhof',
+	14 => 'Defekt am Bahnhof',         # xlsx: "Technischer Defekt am Bahnhof"
 	15 => 'Beeinträchtigung durch Vandalismus',
 	16 => 'Entschärfung einer Fliegerbombe',
 	17 => 'Beschädigung einer Brücke',
-	18 => 'Umgestürzter Baum im Gleis',
+	18 => 'Umgestürzter Baum auf der Strecke',
 	19 => 'Unfall an einem Bahnübergang',
-	20 => 'Tiere im Gleis',
-	21 => 'Warten auf weitere Reisende',
-	22 => 'Witterungsbedingte Störung',
-	23 => 'Feuerwehreinsatz auf Bahngelände',
-	24 => 'Verspätung aus dem Ausland',
-	25 => 'Warten auf verspätete Zugteile',
-	28 => 'Gegenstände im Gleis',
+	20 => 'Tiere im Gleis',                            # xlsx: missing
+	21 => 'Warten auf Anschlussreisende',
+	22 => 'Witterungsbedingte Beeinträchtigung',
+	23 => 'Feuerwehreinsatz auf Bahngelände',         # xlsx: missing
+	24 => 'Verspätung im Ausland',
+	25 => 'Bereitstellung weiterer Wagen',
+	26 => 'Abhängen von Wagen',
+	28 => 'Gegenstände auf der Strecke',
+	29 => 'Ersatzverkehr mit Bus ist eingerichtet',
 	31 => 'Bauarbeiten',
-	32 => 'Verzögerung beim Ein-/Ausstieg',
-	33 => 'Oberleitungsstörung',
-	34 => 'Signalstörung',
+	32 => 'Verzögerung beim Ein-/Ausstieg'
+	,    # xlsx: "Unterstützung beim Ein- und Ausstieg"
+	33 => 'Defekt an der Oberleitung',    # xlsx: "Reparatur an der Oberleitung"
+	34 => 'Defekt an einem Signal',       # xlsx: "Reparatur an einem Signal"
 	35 => 'Streckensperrung',
-	36 => 'Technische Störung am Zug',
-	37 => 'Technische Störung am Wagen',
-	38 => 'Technische Störung an der Strecke',
-	39 => 'Anhängen von zusätzlichen Wagen',
-	40 => 'Stellwerksstörung/-ausfall',
-	41 => 'Störung an einem Bahnübergang',
-	42 => 'Außerplanmäßige Geschwindigkeitsbeschränkung',
+	36 => 'Defekt am Zug',                # xlsx: "Reparatur am Zug"
+	37 => 'Defekt am Wagen',              # xlsx: missing
+	38 => 'Defekt an der Strecke',        # xlsx: "Reparatur an der Strecke"
+	39 => 'Anhängen von zusätzlichen Wagen',    # xlsx: missing
+	40 => 'Defektes Stellwerk',
+	41 => 'Defekt an einem Bahnübergang'
+	,    # xlsx: "Technischer Defekt an einem Bahnüburgang"
+	42 => 'Außerplanmäßige Geschwindigkeitsbeschränkung'
+	,    # xlsx: "Vorübergehend verminderte Geschwindigkeit auf der Strecke"
 	43 => 'Verspätung eines vorausfahrenden Zuges',
 	44 => 'Warten auf einen entgegenkommenden Zug',
-	45 => 'Überholung durch anderen Zug',
-	46 => 'Warten auf freie Einfahrt',
-	47 => 'Verspätete Bereitstellung',
+	45 =>
+	  'Überholung durch anderen Zug',    # xlsx: "Vorfahrt eines anderen Zuges"
+	46 => 'Warten auf freie Einfahrt',    # xlsx: "Vorfahrt eines anderen Zuges"
+	47 => 'Verspätete Bereitstellung'
+	,    # xlsx: "Verspätete Bereitstellung des Zuges"
 	48 => 'Verspätung aus vorheriger Fahrt',
-	55 => 'Technische Störung an einem anderen Zug',           # ?
-	56 => 'Warten auf Fahrgäste aus einem Bus',
-	57 => 'Zusätzlicher Halt',
-	58 => 'Umleitung',                                          # ?
+	49 => 'Kurzfristiger Personalausfall',
+	50 => 'Kurzfristige Erkrankung von Personal',
+	51 => 'Verspätetes Personal aus vorheiger Fahrt',
+	52 => 'Streik',
+	53 => 'Unwetterauswirkungen',
+	54 => 'Verfügbarkeit der Gleise derzeit eingeschränkt',
+	55 => 'Defekt an einem anderen Zug',
+	56 => 'Warten auf Anschlussreisende',                       # aus einem Bus
+	57 =>
+	  'Zusätzlicher Halt',   # xslx: "Zusätzlicher Halt zum Ein- und Ausstieg"
+	58 => 'Umleitung',        # xlsx: "Umleitung des Zuges"
 	59 => 'Schnee und Eis',
-	60 => 'Reduzierte Geschwindigkeit wegen Sturm',
-	61 => 'Türstörung',
-	62 => 'Behobene technische Störung am Zug',
+	60 => 'Witterungsbedingt verminderte Geschwindigkeit',
+	61 => 'Defekte Tür',
+	62 => 'Behobener Defekt am Zug',
 	63 => 'Technische Untersuchung am Zug',
-	64 => 'Weichenstörung',
+	64 => 'Defekt an einer Weiche',    # xlsx: "Reparatur an der Weiche"
 	65 => 'Erdrutsch',
 	66 => 'Hochwasser',
-	67 => 'Behördliche Anordnung',
+	67 => 'Behördliche Maßnahme',
+	68 => 'Hohes Fahrgastaufkommen'
+	,    # xlsx: "Hohes Fahrgastaufkommen verlängert Ein- und Ausstieg"
+	69 => 'Zug verkehrt mit verminderter Geschwindigeit',
 	70 => 'WLAN nicht verfügbar',
 	71 => 'WLAN in einzelnen Wagen nicht verfügbar',
 	72 => 'Info/Entertainment nicht verfügbar',
-	73 => 'Mehrzweckabteil vorne',
-	74 => 'Mehrzweckabteil hinten',
-	75 => '1. Klasse vorne',
-	76 => '1. Klasse hinten',
-	77 => 'Ohne 1. Klasse',
-	79 => 'Ohne Mehrzweckabteil',
-	80 => 'Abweichende Wagenreihung',
+	73 => 'Heute: Mehrzweckabteil vorne',
+	74 => 'Heute: Mehrzweckabteil hinten',
+	75 => 'Heute: 1. Klasse vorne',
+	76 => 'Heute: 1. Klasse hinten',
+	77 => '1. Klasse fehlt',
+	79 => 'Mehrzweckabteil fehlt',
+	80 => 'Andere Reihenfolge der Wagen',
 	82 => 'Mehrere Wagen fehlen',
-	83 => 'Störung der fahrzeuggebundenen Einstiegshilfe',
-	84 => 'Zug verkehrt richtig gereiht',                       # r 80 82 85
+	83 => 'Defekte fahrzeuggebundene Einstiegshilfe',
+	84 => 'Zug verkehrt richtig gereiht',                   # r 80 82 85
 	85 => 'Ein Wagen fehlt',
-	86 => 'Keine Reservierungsanzeige',
-	87 => 'Einzelne Wagen ohne Reservierungsanzeige',
+	86 => 'Gesamter Zug ohne Reservierung',
+	87 => 'Einzelne Wagen ohne Reservierung',
 	88 => 'Keine Qualitätsmängel',  # r 80 82 83 85 86 87 90 91 92 93 96 97 98
-	89 => 'Reservierungen sind wieder vorhanden',                     # -> 86 87
+	89 => 'Reservierungen sind wieder vorhanden',    # -> 86 87
 	90 => 'Kein gastronomisches Angebot',
-	91 => 'Keine Fahrradbeförderung',
+	91 => 'Fahrradmitnahme nicht möglich',
 	92 => 'Eingeschränkte Fahrradbeförderung',
-	93 => 'Fehlende oder gestörte behindertengerechte Einrichtung',
+	93 => 'Behindertengerechte Einrichtung fehlt',
 	94 => 'Ersatzbewirtschaftung',
-	95 => 'Ohne behindertengerechtes WC',
-	96 => 'Der Zug ist stark überbesetzt',                           # r 97
-	97 => 'Der Zug ist überbesetzt',                                 # r 96
+	95 => 'Universal-WC fehlt',
+	96 => 'Überbesetzung mit Kulanzleistungen',     # r 97
+	97 => 'Überbesetzung ohne Kulanzleistungen',    # r 96
 	98 => 'Sonstige Qualitätsmängel',
 	99 => 'Verzögerungen im Betriebsablauf',
 
diff --git a/t/32-result-messages.t b/t/32-result-messages.t
index 355162a..26b9c4c 100644
--- a/t/32-result-messages.t
+++ b/t/32-result-messages.t
@@ -33,28 +33,28 @@ my $abr    = $results[13];
 
 is_deeply(
 	[ $ice645->info ],
-	[ 'Witterungsbedingte Störung', 'Unwetter', 'Abweichende Wagenreihung' ],
+	[ 'Witterungsbedingte Beeinträchtigung', 'Unwetter', 'Andere Reihenfolge der Wagen' ],
 	'info: no dups, sorted, msg+qos'
 );
 
 is_deeply(
 	[ $ice645->messages ],
 	[
-		[ '2014-01-03T20:02:00', 'Abweichende Wagenreihung' ],
+		[ '2014-01-03T20:02:00', 'Andere Reihenfolge der Wagen' ],
 		[ '2014-01-03T20:01:00', 'Unwetter' ],
-		[ '2014-01-03T20:00:00', 'Witterungsbedingte Störung' ],
-		[ '2014-01-03T19:59:00', 'Witterungsbedingte Störung' ],
-		[ '2014-01-03T19:58:00', 'Witterungsbedingte Störung' ],
-		[ '2014-01-03T19:48:00', 'Witterungsbedingte Störung' ],
-		[ '2014-01-03T19:15:00', 'Witterungsbedingte Störung' ],
-		[ '2014-01-03T19:03:00', 'Witterungsbedingte Störung' ]
+		[ '2014-01-03T20:00:00', 'Witterungsbedingte Beeinträchtigung' ],
+		[ '2014-01-03T19:59:00', 'Witterungsbedingte Beeinträchtigung' ],
+		[ '2014-01-03T19:58:00', 'Witterungsbedingte Beeinträchtigung' ],
+		[ '2014-01-03T19:48:00', 'Witterungsbedingte Beeinträchtigung' ],
+		[ '2014-01-03T19:15:00', 'Witterungsbedingte Beeinträchtigung' ],
+		[ '2014-01-03T19:03:00', 'Witterungsbedingte Beeinträchtigung' ]
 	],
 	'messages: with dups'
 );
 
 is_deeply(
 	[ $ice645->qos_messages ],
-	[ [ '2014-01-03T20:02:00', 'Abweichende Wagenreihung' ] ],
+	[ [ '2014-01-03T20:02:00', 'Andere Reihenfolge der Wagen' ] ],
 	'qos_messages'
 );
 
@@ -62,7 +62,7 @@ is_deeply(
 	[ $ice645->delay_messages ],
 	[
 		[ '2014-01-03T20:01:00', 'Unwetter' ],
-		[ '2014-01-03T20:00:00', 'Witterungsbedingte Störung' ]
+		[ '2014-01-03T20:00:00', 'Witterungsbedingte Beeinträchtigung' ]
 	],
 	'delay_messages: no dups'
 );