roko.li/sharee.bike
5
0
Fork 0
mirror of https://gitlab.com/t6353/sharee.bike.git synced 2025-05-15 08:06:27 +02:00
Code Issues Projects Releases Packages Wiki Activity

sigo api reserve and rental

Browse source
This commit is contained in:
Rainer Gümpelein 2022-04-07 21:07:59 +02:00
parent 5870071d1b
commit 9c0e5f78e8
7 changed files with 444 additions and 68 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -3,7 +3,9 @@
# 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 shareedms-fr01 get_bikes"
# 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 sigo_reserve"
#
use vars qw($syshost);
@ -30,10 +32,20 @@ my $now_dt = strftime "%Y-%m-%d %H:%M:%S", localtime;
my $todo = $ARGV[1];
if($todo eq "get_bikes"){
if($todo eq "sigo_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_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);
print $0 . Dumper($return) . "\n";
}