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

Partially fix excessive requests for stations with long "meta" tags

parent 6e5b350c

lib/Travel/Status/DE/IRIS.pm

+9 −2
Original line number Original line Diff line number Diff line
@@ -12,6 +12,8 @@ use Carp qw(confess cluck); 
use DateTime;

use DateTime;

use Encode qw(encode decode);

use Encode qw(encode decode);

use List::Util qw(first);

use List::Util qw(first);

use List::MoreUtils qw(uniq);

use List::UtilsBy qw(uniq_by);

use LWP::UserAgent;

use LWP::UserAgent;

use Travel::Status::DE::IRIS::Result;

use Travel::Status::DE::IRIS::Result;

use XML::LibXML;

use XML::LibXML;
@@ -197,11 +199,14 @@ sub get_station { 
		printf( " -> %s (%s / %s)\n", @{ $ret[0] }{qw{name uic ds100}} );

		printf( " -> %s (%s / %s)\n", @{ $ret[0] }{qw{name uic ds100}} );

	}

	}





	# TODO this approach is flawed, iterative is probably better



	if ( $opt{recursive} and $station_node->hasAttribute('meta') ) {

	if ( $opt{recursive} and $station_node->hasAttribute('meta') ) {

		my @recursion_blacklist = @{ $opt{recursion_blacklist} // [] };

		my @recursion_blacklist = @{ $opt{recursion_blacklist} // [] };

		my @refs = split( m{ \| }x, $station_node->getAttribute('meta') );

		my @refs = uniq(split( m{ \| }x, $station_node->getAttribute('meta') ));



		push( @recursion_blacklist, map { $_->{uic} } @ret );





		push( @recursion_blacklist, $ret[0]{uic} );

		for my $ref (@refs) {

		for my $ref (@refs) {

			if ( not( $ref ~~ \@recursion_blacklist ) ) {

			if ( not( $ref ~~ \@recursion_blacklist ) ) {

				push(

				push(
@@ -217,6 +222,8 @@ sub get_station { 
		}

		}

	}

	}





	@ret = uniq_by { $_->{uic} } @ret;



	return @ret;

	return @ret;

}

}