Operator sharee_mak init

This commit is contained in:
Rainer Gümpelein 2022-04-14 14:45:36 +02:00
parent 75c38a8721
commit b586568e68
8 changed files with 33 additions and 55 deletions

View file

@ -159,7 +159,6 @@ my $and_station_state_unlocked = "";
#system=sigo
if($operator_key eq "sharee_sx"){
#$bike = "SX1150";
$latitude = "";
$longitude = "";
#$and_station_state_locking = "&station_state=locking";
@ -168,15 +167,18 @@ if($operator_key eq "sharee_sx"){
}
if($operator_key eq "sharee_kn"){
#$bike = "KN259";
$latitude = "47.66267";
$longitude = "9.17262";
}
if($operator_key eq "sharee_wue"){
#$bike = "WUE5529";
$latitude = "47.997930";
$longitude = "7.785428";
}
if($operator_key eq "sharee_ren"){
$latitude = "48.8975726";
$longitude = "11.170959";
}
print $q->div({-style=>'margin:15px;'},"-------------- $uriop --------------------"),"\n";
my $booking_request = "$uriop?request=booking_request&bike=$bike&authcookie=$coo";
print $q->div({-style=>'margin:15px;'},$q->a({-target=>'_blank', -href=>"$booking_request"},"[ booking_request ]---> $booking_request")),"\n";