#!/usr/bin/env zsh

export PERL5LIB=lib

IFS=','

checks="BSVG,Braunschweig,Hbf,Volkmarode,Moorhüttenweg
DING,Ulm,Hbf,Ulm,Theodor-Heuss-Platz
KVV,Karlsruhe,Hbf,Karlsruhe,Tivoli
LinzAG,Linz,Hbf,Linz,Hart
MVV,München,Donnersbergerbrücke,München,Seeholzenweg
NVBW,Stuttgart,Brendle (Großmarkt),Stuttgart,Schwabstraße
SVV,Salzburg,Hbf,Salzburg,Mirabellplatz
TLEM,London,Waterloo Underground Station,London,St Pancras Way
VAG,Schallstadt,Bf,Freiburg im Breisgau,Hbf
VBL,Luzern,Bf,Luzern,Brüggligasse
Verbundlinie,Graz,Hbf,Graz,Mariatrost
VGN,Nürnberg,Hbf,Nürnberg,Messe
VMV,Schwerin,Hbf,Schwerin,Dreescher Markt
VOR,Wien,Hbf,Wien,Praterstern
VRN,Mannheim,Hbf,Ludwigshafen (Rhein),Hbf
VRR,Essen,Hbf,Essen,Rüttenscheider Stern
VRR2,Essen,Hbf,Essen,Rüttenscheider Stern
VVO,Dresden,Hbf,Dresden,Altmarkt
VVS,Stuttgart,Brendle (Großmarkt),Stuttgart,Schwabstraße"

echo $checks | while read service from_name from_place to_name to_place; do
	echo -n "${service} ... "
	if bin/efa -s $service $from_name $from_place $to_name $to_place > /dev/null; then
		echo OK
	fi
done