From 500ac4b613ff8c75c3da695368767509e0c8c1f9 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sun, 20 Dec 2020 16:33:34 +0100
Subject: add LNF trains (empty sleeper cars?)

---
 bin/db-wagenreihung-to-json | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/bin/db-wagenreihung-to-json b/bin/db-wagenreihung-to-json
index 01ebe2d..4d2ca44 100755
--- a/bin/db-wagenreihung-to-json
+++ b/bin/db-wagenreihung-to-json
@@ -268,16 +268,17 @@ for my $line (@lines) {
 			$map{$number}{type} = $type;
 		}
 	}
-	elsif (
-		$line =~ m{ ^ (?<type> LPF T? (-[A-Z])? ) (?<number> [ 0-9]{2,16}) }x )
+	elsif ( $line
+		=~ m{ ^ (?<type> L[NP]F T? (-[A-Z])? ) (?<number> [ 0-9]{2,16}) }x )
 	{
 
-		# Not in passenger service ("Leehrfahrt"). Ignore it for now.
+		# Probably not in passenger service ("Leehrfahrt")
 		# FWIW, LPF(T) can be further distinguished:
 		# LPFT-A: ICE BR 401/402
 		# LPFT-B: ICE BR 412
 		# LPFT-T: ICE BR 411 / 415 / 605
 		# LPFT-W: ICE BR 403 / 406
+		# LNF seems to be related to couchettes / sleeper cars.
 		#$number = undef;
 		#$state  = "";
 
-- 
cgit v1.2.3