From e7f48bc5f397a6a094ec5150cc2748f1ca906a7e Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sat, 19 Jun 2021 11:52:48 +0200 Subject: Result: Update delay and qos messages via --- lib/Travel/Status/DE/IRIS/Result.pm | 132 ++++++++++++++++++++---------------- t/32-result-messages.t | 20 +++--- 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' ); -- cgit v1.2.3