Commit df2ec5d7 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

efa: efa.vrr.de changed something, fixed the resulting encoding fuckup 

Note that the arguments to efa are not recoded, so don't use unicode there
parent 1eaa5947

bin/efa

+5 −5
Original line number Diff line number Diff line
@@ -4,7 +4,7 @@ 
use strict;

use warnings;

use 5.010;

use encoding 'utf8';

use Encode;

use Getopt::Long;

use WWW::Mechanize;
@@ -77,7 +77,7 @@ sub parse_content($) { 
				splice(@{$raw->[$offer]}, $offset+7, 0, '');

			}

			for my $j (0, 4, 8) {

				until (not exists($raw->[$offer]->[$offset+$j]) or $raw->[$offer]->[$offset+$j] =~ /^(\d+:\d+|ab |)$/) {

				until (not exists($raw->[$offer]->[$offset+$j]) or $raw->[$offer]->[$offset+$j] =~ /^(\d+:\d+|ab |)$/) {

					last unless (exists($raw->[$offer]->[$offset+$j]));

					last if ($raw->[$offer]->[$offset+$j] eq 'Verspätungen sind berücksichtigt');

					if ($raw->[$offer]->[$offset+$j] =~ /^\s*$/) {
@@ -107,8 +107,7 @@ sub prepare_content($) { 
	my $html = shift;

	my $offer = 0;

	my $return;

	# beware of the no-break space (U+00A0)     ↓     ↓

	foreach (split(/<span class="labelTextBold"> \d+\. Fahrt<\/span>/, $html)) {

	foreach (split(/<span class="labelTextBold"> \d+\. Fahrt<\/span>/, $html)) {

		unless ($offer) {

			$offer++;

			next;
@@ -267,7 +266,8 @@ $www->submit_form( 
	fields => \%post,

);

$content = $www->content;



$content =~ s/\xa0/ /gs;

$content = encode('utf-8', decode('iso-8859-1', $content));



if (check_ambiguous($content)) {

	exit(1);