roko.li/sharee.bike
5
0
Fork 0
mirror of https://gitlab.com/t6353/sharee.bike.git synced 2025-07-12 00:16:26 +02:00
Code Issues Projects Releases Packages Wiki Activity

VK Terminal with tariff_description2

Browse source
This commit is contained in:
ragu 2022-04-26 20:57:13 +02:00
parent 4108673ef1
commit e6ca75a66a
10 changed files with 338 additions and 176 deletions
Download patch file Download diff file Expand all files Collapse all files

1
copri4/main/src/scripts/Ilockit_cloud.pl
View file

@ -97,7 +97,6 @@ sub utctime {
#'deviceTime' => '2021-10-14T08:19:35.000+0000',
#'serverTime' => '2021-10-14T07:19:37.000+0000',
#TODO
$utc_epoch -= 2*60*60;# -2 std (Sommerzeit)
#$utc_epoch -= 1*60*60;# -1 std (Winterzeit)

1
copri4/main/src/scripts/Ilockit_trackingcloud.pl
View file

@ -93,7 +93,6 @@ sub utctime {
my $time = Time::Piece->strptime($date, "%Y-%m-%dT%H:%M:%S");
print FILE "localtime: " . $time->datetime . "\n";#localtime
my $utc_epoch = $time->epoch;
#TODO
$utc_epoch -= 2*60*60;# -2 std (Sommerzeit)
#$utc_epoch -= 1*60*60;# -1 std (Winterzeit)
$utc_epoch += $latency;

9
copri4/main/src/scripts/tests/index.pl
View file

@ -34,7 +34,8 @@ my %varenv = $cf->envonline();
my $operator_key = $q->param('api_test');
my $bike = $q->param('bike');
#my $bike = "FR4781";
#$bike = "FR4781";
#$bike = "FR1002";
my $lang = "de";
my $dyn_js = "
@ -116,11 +117,11 @@ my %varenv = $cf->envonline();
##
my $uri = "$dbt->{primary}->{sharee_primary}->{primaryApp}/APIjsonserver";
print $q->div({-style=>'margin:15px;'},$q->a({-href=>"/src/scripts/tests/index.pl"},"[ index ]")),"\n";
#print $q->div({-style=>'margin:15px;'},$q->a({-href=>"/src/scripts/tests/index.pl"},"[ index ]")),"\n";
print $q->div({-style=>'margin:15px;'},"sharee API tests", $q->b("operator_key: $operator_key | bike: $bike")),"\n";
print $q->div({-style=>'margin:15px;'}," "),"\n";
print $q->div({-style=>'margin:15px;'},"-------------- $uri --------------------"),"\n";
my $authorization = "$uri?request=authorization&user_id=ragu\@gnu-systems.de&user_pw=mabel321&merchant_id=oiF2kahH&hw_id=g89g8o7goguzuzug";
my $authorization = "$uri?request=authorization&user_id=ragu\@sharee.bike&user_pw=xxxxxx&merchant_id=oiF2kahH&hw_id=g89g8o7goguzuzug";
print $q->div({-style=>'margin:15px;'},$q->a({-target=>'_blank', -href=>"$authorization"},"[ authorization ]---> $authorization")),"\n";
my $authout = "$uri?request=authout&authcookie=$coo";