summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2021-01-10 12:22:01 +0100
committerDaniel Friesel <derf@finalrewind.org>2021-01-10 12:22:01 +0100
commit789d604c1a83a1063b4c0f86f1853b3753c7327d (patch)
treeaabfdd0ed3357f249be16aea9f66a7878e922cc9
parentdd77e41cf5e211895f6feac56509fac4a4bd3a31 (diff)
Adjust for train_type changes from DBWagenreihung
-rw-r--r--lib/DBInfoscreen.pm11
1 files changed, 4 insertions, 7 deletions
diff --git a/lib/DBInfoscreen.pm b/lib/DBInfoscreen.pm
index a8086e9..3a429e7 100644
--- a/lib/DBInfoscreen.pm
+++ b/lib/DBInfoscreen.pm
@@ -182,7 +182,7 @@ sub startup {
{
$ret = $wagon_type;
}
- elsif ( $train_type =~ m{IC2 Twindexx} ) {
+ elsif ( $train_type =~ m{IC2.TWIN} ) {
$ret = $wagon_type;
}
elsif ( not $uic ) {
@@ -192,13 +192,10 @@ sub startup {
$ret = substr( $uic, 4, 5 );
}
- if ( $train_type =~ m{ICE . 4..[.]1} ) {
- $ret .= '.1';
+ if ( $train_type =~ m{[.]S(\d)$} ) {
+ $ret .= ".$1";
}
- elsif ( $train_type =~ m{ICE . 4..[.]2} ) {
- $ret .= '.2';
- }
- elsif ( $train_type =~ m{Redesign} ) {
+ elsif ( $train_type =~ m{[.]R$} ) {
$ret .= '.r';
}