diff options
Diffstat (limited to 'lib/Travelynx/Command')
| -rw-r--r-- | lib/Travelynx/Command/database.pm | 153 | ||||
| -rw-r--r-- | lib/Travelynx/Command/work.pm | 105 | 
2 files changed, 258 insertions, 0 deletions
diff --git a/lib/Travelynx/Command/database.pm b/lib/Travelynx/Command/database.pm index 6ba80a3..f72a38c 100644 --- a/lib/Travelynx/Command/database.pm +++ b/lib/Travelynx/Command/database.pm @@ -2701,6 +2701,159 @@ qq{select distinct checkout_station_id from in_transit where backend_id = 0;}  			}  		);  	}, + +	# v59 -> v60 +	# Add bahn.de / DBRIS backend +	sub { +		my ($db) = @_; +		$db->insert( +			'backends', +			{ +				iris  => 0, +				hafas => 0, +				efa   => 0, +				ris   => 1, +				name  => 'bahn.de', +			}, +		); +		$db->query( +			qq{ +				update schema_version set version = 60; +			} +		); +	}, + +	# v60 -> v61 +	# Rename "ris" / "is_ris" to "dbris" / "is_dbris", as it is DB-specific +	sub { +		my ($db) = @_; +		$db->query( +			qq{ +				drop view in_transit_str; +				drop view journeys_str; +				drop view users_with_backend; +				drop view follows_in_transit; +				alter table backends rename column ris to dbris; +				create view in_transit_str as select +					user_id, +					backend.iris as is_iris, backend.hafas as is_hafas, +					backend.efa as is_efa, backend.dbris as is_dbris, +					backend.name as backend_name, in_transit.backend_id as backend_id, +					train_type, train_line, train_no, train_id, +					extract(epoch from checkin_time) as checkin_ts, +					extract(epoch from sched_departure) as sched_dep_ts, +					extract(epoch from real_departure) as real_dep_ts, +					checkin_station_id as dep_eva, +					dep_station.ds100 as dep_ds100, +					dep_station.name as dep_name, +					dep_station.lat as dep_lat, +					dep_station.lon as dep_lon, +					extract(epoch from checkout_time) as checkout_ts, +					extract(epoch from sched_arrival) as sched_arr_ts, +					extract(epoch from real_arrival) as real_arr_ts, +					checkout_station_id as arr_eva, +					arr_station.ds100 as arr_ds100, +					arr_station.name as arr_name, +					arr_station.lat as arr_lat, +					arr_station.lon as arr_lon, +					polyline_id, +					polylines.polyline as polyline, +					visibility, +					coalesce(visibility, users.public_level & 127) as effective_visibility, +					cancelled, route, messages, user_data, +					dep_platform, arr_platform, data +					from in_transit +					left join polylines on polylines.id = polyline_id +					left join users on users.id = user_id +					left join stations as dep_station on checkin_station_id = dep_station.eva and in_transit.backend_id = dep_station.source +					left join stations as arr_station on checkout_station_id = arr_station.eva and in_transit.backend_id = arr_station.source +					left join backends as backend on in_transit.backend_id = backend.id +					; +				create view journeys_str as select +					journeys.id as journey_id, user_id, +					backend.iris as is_iris, backend.hafas as is_hafas, +					backend.efa as is_efa, backend.dbris as is_dbris, +					backend.name as backend_name, journeys.backend_id as backend_id, +					train_type, train_line, train_no, train_id, +					extract(epoch from checkin_time) as checkin_ts, +					extract(epoch from sched_departure) as sched_dep_ts, +					extract(epoch from real_departure) as real_dep_ts, +					checkin_station_id as dep_eva, +					dep_station.ds100 as dep_ds100, +					dep_station.name as dep_name, +					dep_station.lat as dep_lat, +					dep_station.lon as dep_lon, +					extract(epoch from checkout_time) as checkout_ts, +					extract(epoch from sched_arrival) as sched_arr_ts, +					extract(epoch from real_arrival) as real_arr_ts, +					checkout_station_id as arr_eva, +					arr_station.ds100 as arr_ds100, +					arr_station.name as arr_name, +					arr_station.lat as arr_lat, +					arr_station.lon as arr_lon, +					polylines.polyline as polyline, +					visibility, +					coalesce(visibility, users.public_level & 127) as effective_visibility, +					cancelled, edited, route, messages, user_data, +					dep_platform, arr_platform +					from journeys +					left join polylines on polylines.id = polyline_id +					left join users on users.id = user_id +					left join stations as dep_station on checkin_station_id = dep_station.eva and journeys.backend_id = dep_station.source +					left join stations as arr_station on checkout_station_id = arr_station.eva and journeys.backend_id = arr_station.source +					left join backends as backend on journeys.backend_id = backend.id +					; +				create view users_with_backend as select +					users.id as id, users.name as name, status, public_level, +					email, password, registered_at, last_seen, +					deletion_requested, deletion_notified, use_history, +					accept_follows, notifications, profile, backend_id, iris, +					hafas, efa, dbris, backend.name as backend_name +					from users +					left join backends as backend on users.backend_id = backend.id +					; +				create view follows_in_transit as select +					r1.subject_id as follower_id, user_id as followee_id, +					users.name as followee_name, +					train_type, train_line, train_no, train_id, +					backend.iris as is_iris, backend.hafas as is_hafas, +					backend.efa as is_efa, backend.dbris as is_dbris, +					backend.name as backend_name, in_transit.backend_id as backend_id, +					extract(epoch from checkin_time) as checkin_ts, +					extract(epoch from sched_departure) as sched_dep_ts, +					extract(epoch from real_departure) as real_dep_ts, +					checkin_station_id as dep_eva, +					dep_station.ds100 as dep_ds100, +					dep_station.name as dep_name, +					dep_station.lat as dep_lat, +					dep_station.lon as dep_lon, +					extract(epoch from checkout_time) as checkout_ts, +					extract(epoch from sched_arrival) as sched_arr_ts, +					extract(epoch from real_arrival) as real_arr_ts, +					checkout_station_id as arr_eva, +					arr_station.ds100 as arr_ds100, +					arr_station.name as arr_name, +					arr_station.lat as arr_lat, +					arr_station.lon as arr_lon, +					polyline_id, +					polylines.polyline as polyline, +					visibility, +					coalesce(visibility, users.public_level & 127) as effective_visibility, +					cancelled, route, messages, user_data, +					dep_platform, arr_platform, data +					from in_transit +					left join polylines on polylines.id = polyline_id +					left join users on users.id = user_id +					left join relations as r1 on r1.predicate = 1 and r1.object_id = user_id +					left join stations as dep_station on checkin_station_id = dep_station.eva and in_transit.backend_id = dep_station.source +					left join stations as arr_station on checkout_station_id = arr_station.eva and in_transit.backend_id = arr_station.source +					left join backends as backend on in_transit.backend_id = backend.id +					order by checkin_time desc +					; +				update schema_version set version = 61; +			} +		); +	},  );  sub sync_stations { diff --git a/lib/Travelynx/Command/work.pm b/lib/Travelynx/Command/work.pm index 5385e9b..55c2005 100644 --- a/lib/Travelynx/Command/work.pm +++ b/lib/Travelynx/Command/work.pm @@ -49,6 +49,111 @@ sub run {  		my $arr      = $entry->{arr_eva};  		my $train_id = $entry->{train_id}; +		if ( $entry->{is_dbris} ) { + +			eval { + +				$self->app->dbris->get_journey_p( trip_id => $train_id )->then( +					sub { +						my ($journey) = @_; + +						my $found_dep; +						my $found_arr; +						for my $stop ( $journey->route ) { +							if ( $stop->eva == $dep ) { +								$found_dep = $stop; +							} +							if ( $arr and $stop->eva == $arr ) { +								$found_arr = $stop; +								last; +							} +						} +						if ( not $found_dep ) { +							$self->app->log->debug( +								"Did not find $dep within journey $train_id"); +							return; +						} + +						if ( $found_dep->rt_dep ) { +							$self->app->in_transit->update_departure_dbris( +								uid      => $uid, +								journey  => $journey, +								stop     => $found_dep, +								dep_eva  => $dep, +								arr_eva  => $arr, +								train_id => $train_id, +							); +						} +						if (    $found_dep->sched_dep +							and $found_dep->dep->epoch > $now->epoch ) +						{ +							$self->app->add_wagonorder( +								uid          => $uid, +								train_id     => $train_id, +								is_departure => 1, +								eva          => $dep, +								datetime     => $found_dep->sched_dep, +								train_type   => $journey->type, +								train_no     => $journey->number, +							); +							$self->app->add_stationinfo( $uid, 1, +								$train_id, $found_dep->eva ); +						} + +						if ( $found_arr and $found_arr->rt_arr ) { +							$self->app->in_transit->update_arrival_dbris( +								uid     => $uid, +								journey => $journey, +								stop    => $found_arr, +								dep_eva => $dep, +								arr_eva => $arr +							); +							if ( $found_arr->arr->epoch - $now->epoch < 600 ) { +								$self->app->add_wagonorder( +									uid        => $uid, +									train_id   => $train_id, +									is_arrival => 1, +									eva        => $arr, +									datetime   => $found_arr->sched_dep, +									train_type => $journey->type, +									train_no   => $journey->number, +								); +								$self->app->add_stationinfo( $uid, 0, +									$train_id, $found_dep->eva, +									$found_arr->eva ); +							} +						} +					} +				)->catch( +					sub { +						my ($err) = @_; +						$self->app->log->error( +"work($uid) @ DBRIS $entry->{backend_name}: journey: $err" +						); +					} +				)->wait; + +				if (    $arr +					and $entry->{real_arr_ts} +					and $now->epoch - $entry->{real_arr_ts} > 600 ) +				{ +					$self->app->checkout_p( +						station => $arr, +						force   => 2, +						dep_eva => $dep, +						arr_eva => $arr, +						uid     => $uid +					)->wait; +				} +			}; +			if ($@) { +				$errors += 1; +				$self->app->log->error( +					"work($uid) @ DBRIS $entry->{backend_name}: $@"); +			} +			next; +		} +  		if ( $entry->{is_hafas} ) {  			eval {  | 
