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

Tariff rentalog and tariff_description2

Browse source
This commit is contained in:
ragu 2022-04-21 21:15:01 +02:00
parent b2e5d72c51
commit 4108673ef1
5 changed files with 188 additions and 44 deletions
Download patch file Download diff file Expand all files Collapse all files

23
copri4/main/src/scripts/sigo_client.pl
View file

@ -3,9 +3,10 @@
# SPDX-License-Identifier: AGPL-3.0-or-later
# Copyright (c) Rainer Gümpelein, TeilRad GmbH
#
# sudo su www-data -c "./src/scripts/sigo_client.pl shareeapp-sx sigo_available"
# sudo su www-data -c "./src/scripts/sigo_client.pl shareeapp-sx available"
#
# sudo su www-data -c "./src/scripts/sigo_client.pl shareeapp-sx sigo_reserve"
# sudo su www-data -c "./src/scripts/sigo_client.pl shareeapp-sx reserve"
# sudo su www-data -c "./src/scripts/sigo_client.pl shareeapp-sx rental"
#
use vars qw($syshost);
@ -32,20 +33,26 @@ my $now_dt = strftime "%Y-%m-%d %H:%M:%S", localtime;
my $todo = $ARGV[1];
if($todo eq "sigo_available"){
if($todo eq "available"){
$q->param(-name=>'request',-value=>"bikes_available");
my $auth = { c_id => 0 };
my $return = $si->sigo_available($q,\%varenv,$auth);
print $0 . Dumper($return) . "\n";
}
if($todo eq "sigo_booking"){
if($todo eq "reserve"){
my $auth = { c_id => 1842 };
#my $bikeId = "380116b5-0522-43da-ab66-477744a731a3";# bike 1150
my $bike = "SX1150";# bike 1150 from app booking_request
my $return = $si->sigo_reserve(\%varenv,$auth,$bike);
my $bike = { txt22 => "380116b5-0522-43da-ab66-477744a731a3" };# bike 1150
#my $bike = "SX1150";# bike 1150 from app booking_request
my $return = $si->sigo_booking(\%varenv,$auth,$bike,$todo);
print $0 . Dumper($return) . "\n";
}
if($todo eq "rental"){
my $auth = { c_id => 1842 };
my $bike = { txt22 => "380116b5-0522-43da-ab66-477744a731a3" };# bike 1150
#my $bike = "SX1150";# bike 1150 from app booking_request
my $return = $si->sigo_booking(\%varenv,$auth,$bike,$todo);
print $0 . Dumper($return) . "\n";
}