diff options
Diffstat (limited to 'bin/efa')
-rwxr-xr-x | bin/efa | 12 |
1 files changed, 4 insertions, 8 deletions
@@ -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)) { |