sync travelynx -> Träwelling: add comment

This commit is contained in:
Daniel Friesel 2020-10-03 14:33:56 +02:00
parent b0de6628b3
commit 2cc31422b7
2 changed files with 5 additions and 0 deletions

View file

@ -285,6 +285,10 @@ sub checkin {
$opt{dep_eva} $opt{dep_eva}
); );
if ( $opt{user_data}{comment} ) {
$request->{body} = $opt{user_data}{comment};
}
# Work around https://github.com/Traewelling/traewelling/issues/72 # Work around https://github.com/Traewelling/traewelling/issues/72
$self->{user_agent}->request_timeout(20) $self->{user_agent}->request_timeout(20)
->get_p( ->get_p(

View file

@ -185,6 +185,7 @@ sub get_pushable_accounts {
my ($self) = @_; my ($self) = @_;
my $res = $self->{pg}->db->query( my $res = $self->{pg}->db->query(
qq{select t.user_id as uid, t.token as token, t.data as data, qq{select t.user_id as uid, t.token as token, t.data as data,
i.user_data as user_data,
i.checkin_station_id as dep_eva, i.checkout_station_id as arr_eva, i.checkin_station_id as dep_eva, i.checkout_station_id as arr_eva,
i.data as journey_data, i.train_type as train_type, i.data as journey_data, i.train_type as train_type,
i.train_line as train_line, i.train_no as train_no, i.train_line as train_line, i.train_no as train_no,