summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
Diffstat (limited to 'bin')
-rwxr-xr-xbin/efa61
1 files changed, 33 insertions, 28 deletions
diff --git a/bin/efa b/bin/efa
index 2ddc0c6..60dfb62 100755
--- a/bin/efa
+++ b/bin/efa
@@ -29,13 +29,10 @@ binmode(STDOUT, ':utf8');
sub check_ambiguous {
my ($full_tree) = @_;
- my $xp_select = '//select';
+ my $ambiguous = 0;
- if (not $full_tree->exists($xp_select)) {
- return;
- }
-
- foreach my $select (@{$full_tree->findnodes($xp_select)}) {
+ foreach my $select (@{$full_tree->findnodes('//select')}) {
+ $ambiguous = 1;
printf(
"Ambiguous input for %s\n",
$select->attr('name'),
@@ -44,7 +41,9 @@ sub check_ambiguous {
say "\t$val";
}
}
- exit 1;
+ if ($ambiguous) {
+ exit 1;
+ }
}
sub display_connection {
@@ -198,31 +197,37 @@ sub parse_tree {
my $con_no = 0;
my $cons;
- foreach my $row (@{$full_tree->findnodes('//table//table/tr')}) {
- foreach (@{$row->findnodes(
- './td[@class="bgColor"] | '.
- './td[@class="bgColor2"] | '.
- './td[@colspan="8"]')})
- {
- if (defined $_->attr('colspan') and $_->attr('colspan') == 8) {
- if ($_->as_text() =~ / (?<no> \d+ ) \. .+ Fahrt /x) {
- $con_no = $+{'no'} - 1;
- $con_part = 0;
- next;
- }
+ foreach my $td (@{$full_tree->findnodes('//table//table/tr/td')}) {
+
+ my $colspan = $td->attr('colspan') // 0;
+ my $class = $td->attr('class') // q{};
+
+ # Putting these into the XPath expression would lead to noticable (1
+ # to 2 seconds) performance penalties
+ if ( $colspan != 8 and $class !~ /^bgColor2?$/ ) {
+ next;
+ }
+
+ if ($colspan == 8) {
+ if ($td->as_text() =~ / (?<no> \d+ ) \. .+ Fahrt /x) {
+ $con_no = $+{'no'} - 1;
+ $con_part = 0;
+ next;
}
- if (defined $_->attr('class') and $_->attr('class') =~ /^bgColor2?$/) {
- if ($_->attr('class') eq 'bgColor' and ($con_part % 2) == 1) {
- $con_part++;
- }
- elsif ($_->attr('class') eq 'bgColor2' and ($con_part % 2) == 0) {
- $con_part++;
- }
+ }
+
+ if ($class =~ /^bgColor2?$/) {
+ if ($class eq 'bgColor' and ($con_part % 2) == 1) {
+ $con_part++;
}
- if (not $_->exists('./img') and $_->as_text() !~ /^\s*$/) {
- push(@{$cons->[$con_no]->[$con_part]}, $_->as_text());
+ elsif ($class eq 'bgColor2' and ($con_part % 2) == 0) {
+ $con_part++;
}
}
+
+ if (not $td->exists('./img') and $td->as_text() !~ /^\s*$/) {
+ push(@{$cons->[$con_no]->[$con_part]}, $td->as_text());
+ }
}
return $cons;
}