From 26bd6e152eac77c2fb272a2fffba6c3ce1d0c156 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@derf.homelinux.org>
Date: Tue, 7 Apr 2009 10:03:22 +0200
Subject: efa: Display possible values for every ambiguous input

---
 bin/efa | 12 ++++--------
 1 file changed, 4 insertions(+), 8 deletions(-)

(limited to 'bin/efa')

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