Traewelling can't seem to decide on date formats
This commit is contained in:
parent
ce88fe440c
commit
9ad3b3c9e8
1 changed files with 15 additions and 4 deletions
|
@ -47,18 +47,29 @@ sub get_status_p {
|
||||||
}
|
}
|
||||||
else {
|
else {
|
||||||
if ( my $status = $tx->result->json->{statuses}{data}[0] ) {
|
if ( my $status = $tx->result->json->{statuses}{data}[0] ) {
|
||||||
my $strp = DateTime::Format::Strptime->new(
|
my $strp1 = DateTime::Format::Strptime->new(
|
||||||
pattern => '%Y-%m-%dT%H:%M:%S.000000Z',
|
pattern => '%Y-%m-%dT%H:%M:%S.000000Z',
|
||||||
time_zone => 'UTC',
|
time_zone => 'UTC',
|
||||||
);
|
);
|
||||||
|
my $strp2 = DateTime::Format::Strptime->new(
|
||||||
|
pattern => '%Y-%m-%d %H:%M:%S',
|
||||||
|
time_zone => 'Europe/Berlin',
|
||||||
|
);
|
||||||
my $status_id = $status->{id};
|
my $status_id = $status->{id};
|
||||||
my $message = $status->{body};
|
my $message = $status->{body};
|
||||||
my $checkin_at
|
my $checkin_at
|
||||||
= $strp->parse_datetime( $status->{created_at} );
|
= $strp1->parse_datetime( $status->{created_at} )
|
||||||
|
// $strp2->parse_datetime( $status->{created_at} );
|
||||||
|
|
||||||
my $dep_dt = $strp->parse_datetime(
|
my $dep_dt
|
||||||
|
= $strp1->parse_datetime(
|
||||||
|
$status->{train_checkin}{departure} )
|
||||||
|
// $strp2->parse_datetime(
|
||||||
$status->{train_checkin}{departure} );
|
$status->{train_checkin}{departure} );
|
||||||
my $arr_dt = $strp->parse_datetime(
|
my $arr_dt
|
||||||
|
= $strp1->parse_datetime(
|
||||||
|
$status->{train_checkin}{arrival} )
|
||||||
|
// $strp2->parse_datetime(
|
||||||
$status->{train_checkin}{arrival} );
|
$status->{train_checkin}{arrival} );
|
||||||
|
|
||||||
my $dep_eva
|
my $dep_eva
|
||||||
|
|
Loading…
Reference in a new issue