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

Tariff refactoring init

Browse source
This commit is contained in:
Rainer Gümpelein 2022-04-12 11:21:19 +02:00
parent 9c0e5f78e8
commit 75c38a8721
16 changed files with 243 additions and 78 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -33,6 +33,7 @@ my %varenv = $cf->envonline();
die "no configuration available" if(!$varenv{wwwhost});
my $operator_key = $q->param('api_test');
my $bike = $q->param('bike');
my $lang = "de";
my $dyn_js = "
@ -139,10 +140,6 @@ print $q->div({-style=>'margin:15px;'},$q->a({-target=>'_blank', -href=>"$statio
my $user_bikes_occupied = "$uri?request=user_bikes_occupied&authcookie=$coo";
print $q->div({-style=>'margin:15px;'},$q->a({-target=>'_blank', -href=>"$user_bikes_occupied"},"[ user_bikes_occupied ]---> $user_bikes_occupied")),"\n";
my $user_rentals_history = "$uri?request=user_rentals_history&authcookie=$coo";
print $q->div({-style=>'margin:15px;'},$q->a({-target=>'_blank', -href=>"$user_rentals_history"},"[ user_rentals_history ]---> $user_rentals_history")),"\n";
my $user_minianswer = "$uri?request=user_minianswer&q1=opt5&q2=opt4&q3=iuwehfiolbev&authcookie=$coo";
print $q->div({-style=>'margin:15px;'},$q->a({-target=>'_blank', -href=>"$user_minianswer"},"[ user_minianswer ]---> $user_minianswer")),"\n";
@ -151,10 +148,10 @@ print $q->div({-style=>'margin:15px;'},$q->a({-target=>'_blank', -href=>"$user_m
print $q->div({-style=>'margin:15px;'}," "),"\n";
#config
my $uriop = "$dbt->{operator}->{$operator_key}->{operatorApp}/APIjsonserver";
my $bike = "FR1003";
#my $bike = "FR1003";
my $latitude = "47.927738";
my $longitude = "7.973855";
#not used
my $and_station_state_locking = "";
my $and_station_state_locked = "";
@ -162,7 +159,7 @@ my $and_station_state_unlocked = "";
#system=sigo
if($operator_key eq "sharee_sx"){
$bike = "SX1150";
#$bike = "SX1150";
$latitude = "";
$longitude = "";
#$and_station_state_locking = "&station_state=locking";
@ -171,12 +168,12 @@ if($operator_key eq "sharee_sx"){
}
if($operator_key eq "sharee_kn"){
$bike = "KN259";
#$bike = "KN259";
$latitude = "47.66267";
$longitude = "9.17262";
}
if($operator_key eq "sharee_wue"){
$bike = "WUE5529";
#$bike = "WUE5529";
$latitude = "47.997930";
$longitude = "7.785428";
}