From aa49669e9e29c0c382c642295a280e295e71fa48 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sat, 26 Dec 2020 19:47:24 +0100 Subject: wagon images: Add ICE T; distinguish between ICE 3 BR 403 series 1 / 2 --- lib/DBInfoscreen.pm | 18 ++++++++++++++---- 1 file changed, 14 insertions(+), 4 deletions(-) (limited to 'lib/DBInfoscreen.pm') diff --git a/lib/DBInfoscreen.pm b/lib/DBInfoscreen.pm index 52b1383..94b4d5b 100644 --- a/lib/DBInfoscreen.pm +++ b/lib/DBInfoscreen.pm @@ -191,11 +191,16 @@ sub startup { elsif ( $train_type =~ m{ICE [12]} and $wagon_type !~ m{^I} ) { $ret = substr( $uic, 5, 4 ); } + elsif ( $train_type =~ m{ICE 3 403.1} ) { + $ret = '31_' . substr( $uic, 5, 4 ); + } + elsif ( $train_type =~ m{ICE 3 403.2} ) { + $ret = '32_' . substr( $uic, 5, 4 ); + } elsif ( $train_type =~ m{ICE 3 Redesign} ) { $ret = '3r_' . substr( $uic, 5, 4 ); } - elsif ( $train_type =~ m{ICE 3} and substr( $uic, 5, 3 ) eq '406' ) - { + elsif ( $train_type =~ m{ICE 3 406} ) { $ret = '3_' . substr( $uic, 5, 4 ); } elsif ( $train_type eq 'ICE 3 Velaro' ) { @@ -204,8 +209,13 @@ sub startup { elsif ( $train_type =~ m{ICE 4} ) { $ret = substr( $uic, 4, 5 ); } - elsif ( $train_type =~ m{ICE T} and substr( $uic, 5, 3 ) eq '415' ) - { + elsif ( $train_type =~ m{ICE T 411.1} ) { + $ret = 't1_' . substr( $uic, 5, 4 ); + } + elsif ( $train_type =~ m{ICE T 411.2} ) { + $ret = 't2_' . substr( $uic, 5, 4 ); + } + elsif ( $train_type =~ m{ICE T 415} ) { $ret = substr( $uic, 5, 4 ); } elsif ( $train_type =~ m{IC2 KISS} ) { -- cgit v1.2.3