From 9abfcfa3dc389001d9c5a2f8a95b17bf3fbad5c8 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@derf.homelinux.org>
Date: Tue, 7 Apr 2009 09:43:57 +0200
Subject: efa: Show possible alternatives when receiving ambiguous input

---
 bin/efa | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

(limited to 'bin')

diff --git a/bin/efa b/bin/efa
index be2b29c..7d0b7d9 100755
--- a/bin/efa
+++ b/bin/efa
@@ -90,7 +90,21 @@ $www->submit_form(
 
 $content = $www->content;
 
-foreach(split(/<span class="labelTextBold"> \d+\. Fahrt<\/span>/, $content)) {
+# ambiguous input
+if ($content =~ /<span class="errorTextBold">Bitte auswählen<\/span>/s) {
+	print STDERR "Ambiguous input for ";
+	if ($content =~ /<select name="(?<what>(place|type|name)_(origin|destination))"/) {
+		print STDERR "$+{what}\n";
+	} else {
+		print STDERR "unknown\n";
+	}
+	while ($content =~ /<option value="\d+:\d+"( selected)?>(?<choice>[^<]+)<\/option>/gs) {
+		print STDERR "\t$+{choice}\n";
+	}
+	exit(1);
+}
+
+foreach (split(/<span class="labelTextBold"> \d+\. Fahrt<\/span>/, $content)) {
 	unless ($offer) {
 		$offer++;
 		next;
-- 
cgit v1.2.3