sharee.bike/copri4/main/src/scripts/Ilockit_trackingcloud.pl

222 lines
6.2 KiB
Perl
Raw Normal View History

2021-12-30 12:05:56 +01:00
#!/usr/bin/perl
#
# SPDX-License-Identifier: AGPL-3.0-or-later
# Copyright (c) Rainer Gümpelein, TeilRad GmbH
#
#get tracking by
#Ilockit trips by Ilockit cloud
#
#sudo su www-data -c "./src/scripts/Ilockit_trackingcloud.pl shareedms-fr01 get_tripsum 155884"
#
#2021-07-20
#GPS tracking
#Unser System bieten für die Auswertung von Fahrtstrecken bereits Zusammenfassungen an. Hierfür können Sie einfach die folgenden Calls benutzen:
#
#GET /api/reports/summary?groupId=95& from=2021-07-17T18:30:00Z& to=2021-07-20T18:30:00Z - Gibt Ihnen eine Zusammenfassung aller Fahrstrecken für die Schlösser in der Gruppe zurück.
#
#GET /api/reports/trips?groupId=95& from=2020-07-17T18:30:00Z& to=2021-07-20T18:30:00Z - Gibt Ihnen einzelne Fahrtstrecken für die Schlösser in der Gruppe zurück.
#
#
use vars qw($syshost);
BEGIN {
$syshost = $ARGV[0] || die;
}
2022-01-09 18:31:20 +01:00
use lib "/var/www/copri-bike/$syshost/src";
2021-12-30 12:05:56 +01:00
use strict;
use warnings;
use POSIX;
use CGI;
use Lib::Config;
use JSON;
use LWP::UserAgent;
use DateTime;
use Time::Piece;
use Mod::DBtank;
use Data::Dumper;
my $q = new CGI;
my $dbt = new DBtank;
my $cf = new Config;
my %varenv = $cf->envonline($syshost);
my $lang = "de";
my $now_dt = strftime "%Y-%m-%d %H:%M:%S", localtime;
2022-04-20 12:07:48 +02:00
my $api_file = "/var/www/copri4/shareeconf/apikeys.cfg";
my $aconf = Config::General->new($api_file);
my %apikeyconf = $aconf->getall;
#print "---> " . $apikeyconf{Ilockitcloud}->{username} . "\n";
2021-12-30 12:05:56 +01:00
my $ua = LWP::UserAgent->new;
$ua->agent("sharee APIclient");
2022-04-20 12:07:48 +02:00
$ua->credentials( 'tracking.ilockit.bike:443', 'api', "$apikeyconf{Ilockitcloud}->{username}", "$apikeyconf{Ilockitcloud}->{passwd}");
2021-12-30 12:05:56 +01:00
my $json = JSON->new->allow_nonref;
my $response_in = {};
my $dbh = "";
my $owner = 183;
my $todo = $ARGV[1];
#my $deviceId = $ARGV[2] || "";
my $pos_id = $ARGV[2] || "";
2022-04-20 12:07:48 +02:00
my $sleep = $ARGV[3] || "";
2021-12-30 12:05:56 +01:00
open(FILE,">>$varenv{logdir}/Ilockit_tracking.log");
print FILE "\n\n*** $now_dt\n";
#utc to localtime
sub localizedtime {
my $date = shift;
$date =~ s/\..*$//;
my $time = Time::Piece->strptime($date, "%Y-%m-%dT%H:%M:%S");
#print $time->datetime . "\n";#GMT alias Zulu
$time = localtime($time->epoch);#epoch
#print $time->datetime . "\n";#localized date time
#
return $time->datetime;
}
#localtime to utc
#my $now = strftime "%Y-%m-%dT%H:%M:%S", localtime;
#utctime($now);
#exit;
#
sub utctime {
my $date = shift;
my $latency = shift || 0;
$date =~ s/\..*$//;
$date =~ s/\+\d+$//;
print FILE "requested datetime: " . $date . "\n";
my $time = Time::Piece->strptime($date, "%Y-%m-%dT%H:%M:%S");
print FILE "localtime: " . $time->datetime . "\n";#localtime
my $utc_epoch = $time->epoch;
2022-04-20 12:07:48 +02:00
$utc_epoch -= 2*60*60;# -2 std (Sommerzeit)
#$utc_epoch -= 1*60*60;# -1 std (Winterzeit)
2021-12-30 12:05:56 +01:00
$utc_epoch += $latency;
$time = gmtime($utc_epoch);#epoch
print FILE "utctime: " . $time->datetime . "\n";#utc zulu date time
#
return $time->datetime;
}
#get pos in contenttranspo
sub get_pos {
my $id = shift;
my $pref = {
table => "contenttranspos",
fetch => "one",
c_id => "$id",
};
my $record = $dbt->fetch_tablerecord($dbh,$pref);
return $record;
}
if($todo eq "get_tripsum" && $pos_id){
2022-04-20 12:07:48 +02:00
print FILE "trying $todo && $pos_id | sleep $sleep" . "\n";
sleep $sleep if($sleep);
2021-12-30 12:05:56 +01:00
my $rows = &get_tripsum($pos_id);
print FILE "got rows $rows" . "\n";
}else{
print FILE "failure: $todo && $pos_id" . "\n";
}
sub get_tripsum {
my $pos_id = shift;
my $ctpos = get_pos($pos_id);
#TEST
#$ctpos->{int13} = 8385;
#$ctpos->{start_time} = "2021-10-04 08:12:29";
#$ctpos->{end_time} = "2021-10-04 17:35:49";
#GET /api/reports/summary?groupId=95& from=2021-07-17T18:30:00Z& to=2021-07-20T18:30:00Z
my $endpoint = "https://tracking.ilockit.bike/api/reports/summary";
#GET /api/reports/trips?groupId=95& from=2020-07-17T18:30:00Z& to=2021-07-20T18:30:00Z
#my $endpoint = "https://tracking.ilockit.bike/api/reports/trips";
#my $rest = "groupId=95\&from=$oneday\&to=$today";
#my $rest = "deviceId=6574\&from=$oneday\&to=$today";
#
my $rows = 0;
if($ctpos->{int13}){
#start_time
$ctpos->{start_time} =~ s/\..*$//;
my $start_time = $ctpos->{start_time};
$start_time =~ s/\s/T/;
my $utc_start_time = utctime($start_time,"0");
$utc_start_time .= "Z";
#end_time
#my $end_time = strftime "%Y-%m-%dT%H:%M:%S", localtime;
$ctpos->{end_time} =~ s/\..*$//;
my $end_time = $ctpos->{end_time};
$end_time =~ s/\s/T/;
my $utc_end_time = utctime($end_time,"+300");#add 5 minutes, 300sec for latency
$utc_end_time .= "Z";
my $rest = "deviceId=$ctpos->{int13}\&from=$utc_start_time\&to=$utc_end_time";
#my $rest = "deviceId=$ctpos->{int13}\&from=2021-11-03T07:50:00Z\&to=2021-11-03T11:00:00Z";
my $ret_json = fetch_ilockit_cloud("","$endpoint",$rest);
$response_in = decode_json($ret_json);
print FILE "ilockit get_tripsum response_in:" . Dumper($response_in) . "\n";
if(1==1){
my $update_pos = {
table => "contenttranspos",
owner => $owner,
mtime => "now()",
int26 => 0,
};
foreach my $resp (@{ $response_in }) {
if($ctpos->{int13} eq $resp->{deviceId}){
print FILE "device Id: $resp->{deviceId}" . "\n";
print FILE "distance: $resp->{distance}" . "\n";
if($resp->{distance}){
#my $distance = $resp->{distance} / 1000 * 1.60934; #distance in Meilen
my $distance = $resp->{distance} / 1000;
$distance = sprintf('%.2f', $distance);
$update_pos->{int26} = $distance;
}
}
}
$rows = $dbt->update_record($dbh,$update_pos,$ctpos) if($ctpos->{c_id} && $update_pos->{int26});
}
}else{
print FILE "failure: There is no contenttranspo deviceId int13: $ctpos->{int13}" . "\n";
}
return $rows;
}#end if($todo eq "get_tripsum"){
#ilockit http request
sub fetch_ilockit_cloud {
my $self = shift;
my $ilockitserver = shift || "";
my $rest = shift || "";
my $ilockit_request = "$ilockitserver?$rest";
print FILE "fetch_ >> " . $ilockit_request . "\n";
my $req = HTTP::Request->new(GET => "$ilockit_request");
$req->content_type('application/json');
$req->content($rest);
my $res = $ua->request($req);
if ($res->is_success) {
#print $res->content;
return $res->content;
print $res->status_line, "\n";
}else {
print $res->status_line, "\n";
}
}
close(FILE);
1;