From c48a393b10d13898abac756e8dc6ae02873819da Mon Sep 17 00:00:00 2001 From: ragu Date: Wed, 27 Jul 2022 14:38:06 +0200 Subject: [PATCH] station bike group select by type_id --- copri4/main/src/Mod/APIfunc.pm | 56 +++++++++++--------- copri4/main/src/Mod/APIsigclient.pm | 17 +++--- copri4/main/src/Mod/Prelogic.pm | 7 --- copri4/main/src/Mod/Shareework.pm | 4 +- copri4/main/src/Tpl/Karte_osm.pm | 2 +- copri4/main/src/Tpl/Liste3.pm | 5 +- copri4/main/src/scripts/Ilockauth.class | Bin 1972 -> 2335 bytes copri4/main/src/scripts/Ilockauth.java | 2 +- copri4/main/src/scripts/Ilockkeygen.class | Bin 1991 -> 2269 bytes copri4/main/src/scripts/Ilocktestauth.pl | 4 +- copri4/shareeapp-operator/src/Lib/Mlogic.pm | 4 +- 11 files changed, 51 insertions(+), 50 deletions(-) diff --git a/copri4/main/src/Mod/APIfunc.pm b/copri4/main/src/Mod/APIfunc.pm index 7cf2561..793e374 100755 --- a/copri4/main/src/Mod/APIfunc.pm +++ b/copri4/main/src/Mod/APIfunc.pm @@ -2171,22 +2171,23 @@ sub stations_available(){ my $auth = shift || ""; my $record_pos = shift || {}; + + my $authed = 0; + $authed = 1 if(ref($auth) eq "HASH" && $auth->{c_id}); + my ($bike_group,$bike_node,$user_tour,$tariff_content,$adrtarif_hash) = $self->fetch_tariff($varenv->{dbname},$auth,$q->param('authcookie')); + #station_group and bike_group alias bike nodes.type_id - #my $station_group = ""; - #$station_group = $record_pos->{int29} if(ref($record_pos) eq "HASH" && $record_pos->{int29}); + my $station_group = ""; + $station_group = $record_pos->{int29} if(ref($record_pos) eq "HASH" && $record_pos->{int29}); #station_bike_node and bike_node alias bike nodes.main_id my $station_bike_node = ""; - $station_bike_node = $record_pos->{int21} if(ref($record_pos) eq "HASH" && $record_pos->{int21}); + $station_bike_node = $record_pos->{int12} if(ref($record_pos) eq "HASH" && $record_pos->{int12}); #take start station from pos my $aa_station = ""; $aa_station = $record_pos->{int06} if(ref($record_pos) eq "HASH" && $record_pos->{int06} && $record_pos->{int42}); - my $authed = 0; - $authed = 1 if(ref($auth) eq "HASH" && $auth->{c_id}); - my ($bike_group,$bike_node,$user_tour,$tariff_content,$adrtarif_hash) = $self->fetch_tariff($varenv->{dbname},$auth,$q->param('authcookie')); - my $return = {}; my $pref = { table => "content", @@ -2199,33 +2200,44 @@ sub stations_available(){ #group_id must have 6 numbers like 300103 my $pref_sql = ""; $pref_sql .= " and ("; - foreach(@{$bike_node}){ + foreach my $type_id (@{$bike_group}){ #on rental end select only stations which are defined #A-A rental - if($station_bike_node && $_ =~ /(\d+)/ && $aa_station){ - my $node_id = $1; - if($node_id == $station_bike_node){ + if($station_group && $type_id =~ /(\d+)/ && $aa_station){ + my $group_id = $1; + if($group_id == $station_group){ $pref_sql .= " ct.int04 = $aa_station OR"; } #A-B rental - }elsif($station_bike_node && $_ =~ /(\d+)/){ - my $node_id = $1; - if($node_id == $station_bike_node){ - $pref_sql .= " ct.txt24 like '%$node_id%' OR"; + }elsif($station_group && $type_id =~ /(\d+)/){ + my $group_id = $1; + if($group_id == $station_group){ + $pref_sql .= " ct.txt25 like '%$group_id%' OR"; } #without a rental - }elsif($_ =~ /(\d+)/){ - my $node_id = $1; - $pref_sql .= " ct.txt24 like '%$node_id%' OR"; + }elsif(!$station_group && $type_id =~ /(\d+)/){ + my $group_id = $1; + $pref_sql .= " ct.txt25 like '%$group_id%' OR"; } } $pref_sql =~ s/OR$//; $pref_sql .= ")"; $pref_sql = "" if($pref_sql !~ /\d/); + $bw->log("stations_available --> station_bike_node:$station_bike_node|aa_station:$aa_station|bike_node:@{$bike_node}|bike_group:@{$bike_group}|pref_sql:\n",$pref_sql,""); + my $record = {}; $record = $dbt->fetch_record($dbh,$pref,$pref_sql) if(ref($bike_node) eq "ARRAY" && @{$bike_node}[0]); + my $hotline_hash = { + table => "contentuser", + fetch => "one", + template_id => 197, + c_id => "1", + }; + my $hotline_data = $dbt->fetch_record($dbh,$hotline_hash); + + my $op_return = {}; foreach my $id (sort { $record->{$a}->{barcode} <=> $record->{$b}->{barcode} } keys (%$record)){ $return->{$id}->{authed} = "$authed"; @@ -2245,14 +2257,6 @@ sub stations_available(){ $return->{$id}->{station_group} = [@station_group]; } - my $hotline_hash = { - table => "contentuser", - fetch => "one", - template_id => 197, - c_id => "1", - }; - my $hotline_data = $dbt->fetch_record($dbh,$hotline_hash); - $return->{$id}->{operator_data} = { "operator_name" => "", "operator_hours" => "", diff --git a/copri4/main/src/Mod/APIsigclient.pm b/copri4/main/src/Mod/APIsigclient.pm index 6b47579..1f5757a 100755 --- a/copri4/main/src/Mod/APIsigclient.pm +++ b/copri4/main/src/Mod/APIsigclient.pm @@ -108,13 +108,15 @@ sub sig_available { #station (mainly using sigojson site object) my $station = "SX$resp->{site}->{id}"; + print FILE "---> Station: $station| bike_group: @{$bike_group}[0])\n"; if($station && looks_like_number($resp->{site}->{id}) && ref($bike_group) eq "ARRAY" && @{$bike_group}[0]){ - print FILE "Station: $station\n"; + print FILE "Station: $station\n\n"; $response_out->{$station}->{station} = "$station"; $response_out->{$station}->{authed} = "$authed"; $response_out->{$station}->{uri_operator} = "$dbt->{operator}->{$varenv->{dbname}}->{operatorApp}"; #FIXME charset encoding + $response_out->{$station}->{description} = ""; #$response_out->{$station}->{description} = "$resp->{site}->{address}" || ""; #$response_out->{$station}->{description} = Encode::encode('utf-8', Encode::decode('iso-8859-1',$resp->{site}->{address})) || ""; $response_out->{$station}->{station_group} = ["SX300101"];#Lastenrad alias type_id @@ -124,9 +126,9 @@ sub sig_available { #Other than Active status, should not be used to display information to a customer $response_out->{$station}->{state} = "defect"; - if(uc($resp->{site}->{status}) eq "ACTIVE"){ + if(uc($resp->{status}) =~ /ACTIVE|PRIVATE/i){ $response_out->{$station}->{state} = "available"; - }elsif(uc($resp->{site}->{status}) eq "MAINTANANCE"){ + }elsif(uc($resp->{status}) eq "MAINTANANCE"){ $response_out->{$station}->{state} = "maintanance"; } @@ -158,7 +160,9 @@ sub sig_available { $return2copri->{$station}->{int10} = $key; } } - delete $response_out->{$station} if(uc($resp->{site}->{status}) ne "ACTIVE" || !$resp->{site}->{lat} || !$resp->{site}->{lon}); + #print FILE "response_out:" . Dumper($response_out->{$station}) . "\n"; + #print FILE "return2copri:" . Dumper($return2copri->{$station}) . "\n"; + delete $response_out->{$station} if(uc($resp->{status}) !~ /ACTIVE|PRIVATE/i || !$resp->{site}->{lat} || !$resp->{site}->{lon}); } }#end stations_available @@ -173,7 +177,7 @@ sub sig_available { print FILE "bike-data $bike_id | $resp->{site}->{id} | @{$bike_group}[0]\n"; if($bike && looks_like_number($bike_id) && looks_like_number($resp->{site}->{id}) && ref($bike_group) eq "ARRAY" && @{$bike_group}[0]){ - print FILE "Bike: $bike\n"; + print FILE "Bike: $bike\n\n"; if($ctpos->{barcode} && $ctpos->{barcode} == $bike_id){ $response_out->{$bike}->{user_miniquery} = $show_dialog->{user_miniquery} if($show_dialog->{user_miniquery}); $response_out->{$bike}->{co2saving} = ""; @@ -276,8 +280,7 @@ sub sig_available { $return2copri->{$bike}->{int20} = $key; } } - #delete if $resp->{status} ne "ACTIVE" || reservation_state ne Reserved|Active-Rental - delete $response_out->{$bike} if(uc($resp->{status}) ne "ACTIVE" || $resp->{reservation_state});#don't view not active bikes + delete $response_out->{$bike} if(uc($resp->{status}) !~ /ACTIVE|PRIVATE/i || $resp->{reservation_state});#don't view not active bikes } }#end bikes_available diff --git a/copri4/main/src/Mod/Prelogic.pm b/copri4/main/src/Mod/Prelogic.pm index d87f602..3f2424c 100755 --- a/copri4/main/src/Mod/Prelogic.pm +++ b/copri4/main/src/Mod/Prelogic.pm @@ -819,13 +819,6 @@ sub preinit(){ my $opos="null"; $u_rows += $db->update_tagesabschluss($table,$c_id4kasse,$journal_id,$journal_tpl,$tpl_vk,$parent_trans->{parent_id},"$main_ids","$s_owner_id","$opos"); - - #calculate and set counts - my @mainis = split(/,/,$main_ids); - foreach(@mainis){ - my $rows = $db->count_content($table,"$_","$tpl_vk"); - $db->updater("nodes","main_id",$_,"int10",$rows) if($_ > 300000 && $rows =~ /\d/); - } print $q->div({-class=>'elementwhite'},"1... redirecting to ... or CLICK ", $q->a({href=>"$varenv{wwwhost}/DMS/Faktura/Verkaufsjournal"},"$varenv{wwwhost}/DMS/Faktura/Verkaufsjournal")); print redirect("$varenv{wwwhost}/DMS/Faktura/Verkaufsjournal?redirected=1\&return=0-0-0|$i_rows-$u_rows-$d_rows"); exit 0; diff --git a/copri4/main/src/Mod/Shareework.pm b/copri4/main/src/Mod/Shareework.pm index 165e9b2..4ab8147 100755 --- a/copri4/main/src/Mod/Shareework.pm +++ b/copri4/main/src/Mod/Shareework.pm @@ -838,8 +838,8 @@ sub sigbike_cupdate { owner => "169", }; - $bw->log("sigbike_cupdate content from record_sig with bike nr:",$update,""); $rows = $dbt->update_record($dbh,$update,$record_sig->{$bid}); + $bw->log("rows: $rows | sigbike_cupdate content from record_sig with bike nr:",$update,""); if($rows != 1){ my $c_id = ""; $update->{itime} = "now()"; @@ -869,8 +869,8 @@ sub sigstation_cupdate { owner => "169", }; - $bw->log("sigstation_cupdate content from record_sig with bike nr:",$update,""); $rows = $dbt->update_record($dbh,$update,$record_sig->{$sid}); + $bw->log("rows: $rows | sigstation_cupdate content from record_sig with bike nr:",$update,""); if($rows != 1){ my $c_id = ""; $update->{itime} = "now()"; diff --git a/copri4/main/src/Tpl/Karte_osm.pm b/copri4/main/src/Tpl/Karte_osm.pm index db2ccfe..d681ab3 100755 --- a/copri4/main/src/Tpl/Karte_osm.pm +++ b/copri4/main/src/Tpl/Karte_osm.pm @@ -65,7 +65,7 @@ sub tpl(){ my $icon_green = "Open_Green.png"; my $icon_red = "Open_Red.png"; my $icon_blue = "Open_Blue.png"; - my $mapheight = "600px;"; + my $mapheight = "800px;"; if($project eq "Bayern"){ $icon_green = "LastenradBay_Standortpfeil_gruen_03a.png"; $icon_red = "LastenradBay_Standortpfeil_rot_03a.png"; diff --git a/copri4/main/src/Tpl/Liste3.pm b/copri4/main/src/Tpl/Liste3.pm index eb5a51e..d13f487 100755 --- a/copri4/main/src/Tpl/Liste3.pm +++ b/copri4/main/src/Tpl/Liste3.pm @@ -483,12 +483,13 @@ sub tpl(){ if($node_meta->{tpl_id} == 205 || $node_meta->{node_name} eq "Waren"){ $q->param(-name=>'request',-value=>"bikes_available"); (my $response->{bikes},my $return2copri->{bikes}) = $si->sig_available($q,\%varenv,$ctadr); - #$bw->log("return2copri",$return2copri->{bikes},""); + #$bw->log("return2copri",$return2copri->{bikes},""); $tk->sigbike_cupdate($return2copri->{bikes}); }elsif($node_meta->{tpl_id} == 225){ $q->param(-name=>'request',-value=>"stations_available"); (my $response->{stations},my $return2copri->{stations}) = $si->sig_available($q,\%varenv,$ctadr); - $tk->sigbike_cupdate($return2copri->{stations}); + #$bw->log("return2copri",$return2copri->{stations},""); + $tk->sigstation_cupdate($return2copri->{stations}); } } $ct4rel = $db->search_content3($searchref,$table,$dbt->{shareedms_conf}->{parent_id},$node_meta,$users_dms->{u_id},$lang,"$main_ids","$tplids","$ct_ids",$v_journal,$time,$R::s_kontext,$scol,$users_dms->{sort_updown},$offset,$limit,$export,$R::todo,$ck4ex,$opos); diff --git a/copri4/main/src/scripts/Ilockauth.class b/copri4/main/src/scripts/Ilockauth.class index 4a2ad72685da7ab04453bd9336e88d1f33b849fc..c871a7595ea675d2a6c63c76d5d9904559b6a8eb 100755 GIT binary patch delta 1287 zcmai!*;5=<6ou88N74G)9o;3_+gP7}L0T=i7M%ST#@a z7S~MPrcqHbXDwSD3s!cfP}6uMt_^}=P`2)F)(x-SdG0iltiFiMmrnq@7jYEoui7wm`DVE0gKsC!tA zsB|b6*dSOKKeR;%V&Pb118wARa1%Yi;Z357bSNHb+rofNN&=+A@$e?5;x6swy;`Lz`47-}7F@JsQ*DHEQB5;dSEc z)W(I^ZSi=~Hn>6keaXF)n|vmhHoyTdqU|fx6O-~QNs6qK8cq^tfI3E{852_JoOEDO zs&+ZZHCp60B*jCU_(*X}UWV`FiTIv&LE$K&ZE+CMXwgU(|CC0nCMq1+W-sA?AgB`> p)%DWKHZhkL@wsqA()^S!Bt)EU+1E-lpAgxRB7Lez&lc&ke*xl14R`77 z7H^=wkx3vv5b>#R8c4J4sxk4^7~_9ne9(7aHKG2d^%9-T`JHoqm+$v?zH{bNe_?I? zyW3xW1MK8uk8SL9+2wIB_i1)}*zx}Uc+SUW#N`2(QI7|CD8(N3#%7<(!!G+%9N>`@ z2YJ-xP&_}@!eNfMjCqXnxW^Mb>G2dte5j&p?zg@LI;xj1mNHd87W z_nj|IO@=dyZ1jVb9W=a1(eM%_gRe|Q5;bo=--|z}$!!#Aew&=G+R~XzpL+!@D?hSuso^AMW0!l zJO6Xa5ow?{z3Ni5cSo7Tk5QNXMf8&$M7DFS?iIt@SXiwVilUVr&X(jLcK4y4<7C+? z`p1ujLSz+tx9mD)7JYDf7g0B5q39NyTyeJ0LJz&NmQ;0v1g^w>?M)0H>9vQ))VRvq zzO_W+#8=oS7pXgbvVqjf9q|;x!`DEbuev>u{>07k_U3`bs1bT_}tF;X}f@D2*Y?xpEHiifkf!$=I zDA{C_VxFPAbBoTu00O7MT@5zJ{FxX__St{15=(5kDd%owfknBi)`}_@M(dYu2oP#QColb(kKz~Y`i0Rg7C761SM diff --git a/copri4/main/src/scripts/Ilockauth.java b/copri4/main/src/scripts/Ilockauth.java index 0e05944..47a4ac2 100755 --- a/copri4/main/src/scripts/Ilockauth.java +++ b/copri4/main/src/scripts/Ilockauth.java @@ -21,7 +21,7 @@ public class Ilockauth { //System.out.println("Opened database successfully"); stmt = c.createStatement(); - ResultSet rs = stmt.executeQuery( "SELECT * FROM content where barcode=" + bike_id + ";" ); + ResultSet rs = stmt.executeQuery( "SELECT * FROM content where barcode=" + bike_id + " and int11=2;" ); while ( rs.next() ) { byte[] randomNum = new byte[16]; diff --git a/copri4/main/src/scripts/Ilockkeygen.class b/copri4/main/src/scripts/Ilockkeygen.class index 6477d52b14a0f16c18d3542465c2ad9f177c00c6..cbff239745a98c1b3e5b53e29b78501469f73068 100755 GIT binary patch literal 2269 zcmbtVOK%fb6#lMX<2VBe4hCEr9_5t>#DtaIVl?gTHiuyA>{^a z$~Z>8JZ)5!pN8EUW(kwIG&W3dy7jxeL@wOR%c@hdOq)u^s@L*zqU7Rsrz=*zT$T;u z58XEI7&`V~uZGJyKE@Rd868<%rC-Xj9NVcG)oJN0Sp~Z*gt;)T>9~%04L5Ww;3nN% zh(z5fRT5VWvtTXj_yo7Y$O-hSrIM9MH5@rss~L^ix>Kz?8K))<`h5yRpr`4So^7S9 zV-b6GgdOSj$PO-a8NnhGGDKioJL~C%GC2qW0j&sb!oX3FR;IfdeyY+)v8r< zWZ{CDw+bb**m4WwvoMMRL2`FwSi_Qz5^n1#gPc@QU=7;1Y96&>n8n2G;%%9Cn%OH; z3wE7jreQmBnZ>s1bdOCn^SWFsnQKHOn*oYM#S?25b}aJ5bOpA#MfD=pPM$p(!7@xX z*kq1Sdrt2W0^663vK+U}yy09UBb?ceVLF66*!MQT2AItgv1n}>vi+)Vz7=j4+X#ql zshRSglQwzCKwr8)&8C~o*-{p~#DaHOAvRyoJqo?M6rSqjY|Y5K?e18uHgPe$E}qPh zy{d9oo-Y-p%}jWOn379@yTkBCnR~3XI%*vN3lpkW3%r7y z6cnZg%k6&>>UEf^N6EZnm1V*!i^u+ik$0?GLqnaRQG5B;k)*H z)-b%Qc8M3MBJKTNVDjzCwOQ5$W*b$xf%`(6zt_3R_S&yOj2o3ohE+;xxFc{tG24E= zjdBy%_1}Kj%YSAs|GR8d_YQOB=bV2W%J-=Caughc15Y3xDaU=3A!Up)Xg>~kuD&n$ zr`3p*cnsg*Q}~}z#|nbl&*6E$KRX}b7vvZ6XQ!VdH2(zJjDI8$3v_qiM{FP#II;z+ zD+qs+{VE_HtiB@5fP(2zFwYTTNatvvHHilXR-nfNgOm>t84bpRE7%+lte|T&$mn=b zg?FoPSK0CtqOM~o9$G=H4d*eU3hA(tjBj_`Oei`itZfQQY5yN=y8?Se(sFQcmoM74 z_#Qu?XKmby2Y88JX#WGR@F(rwxD~HOkJv`L4{kAjxwIEJtBK6gC9y_4MiB<^FBJD--rF+JGImBZA0q^ZV{xu8nIK1ZA+ VfdmKf0d2>XOe#617%Q6#gb&d!3D&CTZQov<)d~i}P24SM8+&m!adubs zF4R}VffG{2g&PtFdZk55D^hVnLU7>9krNjrB*X=YL&G^|*{TRSaqfU?7YkISy+W!4)~Xs$mpkDz0hJFd)Tv7%3IkH8e`S z5fdsVH8f*ND$`-y(9nT&J;hBGGb&~^%wZ~w`7jp3xTWDX7Ny8YkyWvz;*LOld0kK5 z(TkoTP`8p22wgEP(;XEE#Jjk!T(|SwIy!4w#=N(+W|Xq}T9GRa1;a8*x@*iB6#+HA zl3Gbgha(wR&uz}>j&G-;lV>1pl2vh+c$pjHNk*Z4mkg&(-p?71YuZ+sO2+m|Ib+I{ z0h-c9JGZ%MR2b;OhW>#b!C9PBaW8^pyd}^o*AhkDDkL&)$+QY7&n)JRl0bN7)wJA> zs~r)n;B6J}MDQ+FrFc&TVb+i%yzlP0W-+m-TX}mcf;6bIWzTW!l56BAt(=|biK}LQYC|)tx=))E&z}UD z?7pOm%?OGhUkil@Y)Pu2Cb@Kd?4wqfMlgH!oS)hLGyGnF!r#Wt}$nn!03Xx?He z_7gP1I_r*OSb2fI_?|^gy+*oTSlTZk9c#+tC!XCAcI~}F3!ISc^MW_sj>liRT&+%%SyN&+-E>O=S~pDpP*c`sbM+AY$} z@A8v}t379w%X-0>FbhVR*t|*%Qg(Gq0wiC?W$&!jb~ywf)9g8UUPVswJ|^Fn4t@aJ zPxc#U0nT}UD9=+n%~5a+c0Yl5a*~2Adp>F_yzfe0@=A8Xf$q^4_sEFN>kI9h;~PnzGm!hBk~~ou_7Ms z{$7K5gkasZm^)~s|IuNkI*BRW+h~d@J(Lfj4F_W+(h^g)acnqP19hBGv0yEh)S}(zq7bSN}iq$rq6yG3yn4iU)k-pW%D_fY$x7 z4L{=#{E21}746~-TKC5`5f{_qChhAWtN9gc2(;rAo1vfWFvvzou?glmW@+JYzk(io zgkF4tKE~>2v@C7b1;vi#>F!~UF#4sa|;unnJS6sty7$=VjGD+btT*u#- z5>d>Gb}W$9oan^7h+|PCkr6}4iZLvSX)KfBT``M$;x?ago3C;=SuP>+93v`vRP>5} z(6);!2>L2lZ-9kS>9Io5G(YB}{3r)PWE oOYQ8WSHI?(U^>A6Xn<1ZHCRIfa!i4|5_L>`8!awUtHY�XS>FZ~y=R diff --git a/copri4/main/src/scripts/Ilocktestauth.pl b/copri4/main/src/scripts/Ilocktestauth.pl index 5467597..2cb5567 100755 --- a/copri4/main/src/scripts/Ilocktestauth.pl +++ b/copri4/main/src/scripts/Ilocktestauth.pl @@ -13,7 +13,7 @@ BEGIN { $syshost = $ARGV[0] || exit 1; } -use lib "/var/www/copri4/$syshost/src"; +use lib "/var/www/copri-bike/$syshost/src"; my $dbname = $ARGV[1] || ""; my $bike = $ARGV[2] || ""; @@ -31,7 +31,7 @@ my %varenv = $cf->envonline("$syshost"); my $now_dt = strftime "%Y-%m-%d %H:%M:%S", localtime; -my @K_select = `cd /var/www/copri4/$varenv{syshost}/src/scripts && export CLASSPATH='.:/usr/share/java:/usr/share/java/postgresql.jar' && java Ilockauth $dbname $bike`; +my @K_select = `cd /var/www/copri-bike/$varenv{syshost}/src/scripts && export CLASSPATH='.:/usr/share/java:/usr/share/java/postgresql.jar' && java Ilockauth $dbname $bike`; foreach(@K_select){ my ($K_key,$K_val) = split(/ = /, $_); $K_val =~ s/\n//g; diff --git a/copri4/shareeapp-operator/src/Lib/Mlogic.pm b/copri4/shareeapp-operator/src/Lib/Mlogic.pm index 1cdf6db..33edc99 100755 --- a/copri4/shareeapp-operator/src/Lib/Mlogic.pm +++ b/copri4/shareeapp-operator/src/Lib/Mlogic.pm @@ -43,9 +43,9 @@ sub tpl(){ my $coo = $q->cookie('domcookie') || $q->param('sessionid') || ""; #my $api_test = "sharee_fr01"; my $bike="FR1538"; - my $api_test = "sharee_fr01"; my $bike="FR1005";#E-Lastenrad (bike_group=300101, bike_node=300102) + #my $api_test = "sharee_fr01"; my $bike="FR1005";#E-Lastenrad (bike_group=300101, bike_node=300102) #my $api_test = "sharee_fr01"; my $bike="FR4781";#Tracking and BVB test - #my $api_test = "sharee_kn"; my $bike="KN205"; + my $api_test = "sharee_kn"; my $bike="KN205"; #my $api_test = "sharee_wue"; my $bike="WUE5525"; #my $api_test = "sharee_sx"; my $bike="S3X1001"; #my $api_test = "sharee_ren"; my $bike="REN2";