summaryrefslogtreecommitdiff
path: root/lib/DBInfoscreen.pm
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2020-12-26 19:47:24 +0100
committerDaniel Friesel <derf@finalrewind.org>2020-12-26 19:47:24 +0100
commitaa49669e9e29c0c382c642295a280e295e71fa48 (patch)
treeeb91a041787497145cc8f16679823a648a518550 /lib/DBInfoscreen.pm
parentd6fcf7a9e74d280a61d9d0ea5b8434e2255a3ce7 (diff)
wagon images: Add ICE T; distinguish between ICE 3 BR 403 series 1 / 2
Diffstat (limited to 'lib/DBInfoscreen.pm')
-rw-r--r--lib/DBInfoscreen.pm18
1 files changed, 14 insertions, 4 deletions
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} ) {