Unverified Commit 705b4e69 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

DBRIS: actually strip trailing dot from zuginfo.nrw and related links

parent d90ebb34

lib/Travelynx/Model/InTransit.pm

+6 −3
Original line number Diff line number Diff line
@@ -315,8 +315,9 @@ sub add { 
		for my $msg ( $journey->messages ) {

			if ( not $msg->{ueberschrift} ) {

				my $url;

				if ( $msg->{text} =~ m{ ( http s? :// \S+ ) [.]?+ }x ) {

				if ( $msg->{text} =~ m{ ( http s? :// \S+ ) }x ) {

					$url = $1;

					$url =~ s{ [.] $ }{}x;

				}

				push(

					@{ $data->{him_msg} },
@@ -1072,8 +1073,9 @@ sub update_departure_dbris { 
	for my $msg ( $journey->messages ) {

		if ( not $msg->{ueberschrift} ) {

			my $url;

			if ( $msg->{text} =~ m{ ( http s? :// \S+ ) [.]?+ }x ) {

			if ( $msg->{text} =~ m{ ( http s? :// \S+ ) }x ) {

				$url = $1;

				$url =~ s{ [.] $ }{}x;

			}

			push(

				@{ $ephemeral_data->{him_msg} },
@@ -1285,8 +1287,9 @@ sub update_arrival_dbris { 
	for my $msg ( $journey->messages ) {

		if ( not $msg->{ueberschrift} ) {

			my $url;

			if ( $msg->{text} =~ m{ ( http s? :// \S+ ) [.]?+ }x ) {

			if ( $msg->{text} =~ m{ ( http s? :// \S+ ) }x ) {

				$url = $1;

				$url =~ s{ [.] $ }{}x;

			}

			push(

				@{ $ephemeral_data->{him_msg} },