migrate to OSM

This commit is contained in:
ragu 2022-05-27 17:11:35 +02:00
parent cc4dfcd70f
commit 46f86f6c05
13 changed files with 476 additions and 59 deletions

View file

@ -36,10 +36,10 @@ my $dbh = "";
my $todo = $ARGV[1] || "";
my $user_id = $ARGV[2] || "";
my $sig_bike_id = $ARGV[3] || "";
my $pos_id = $ARGV[3] || "";
open(FILE,">>$varenv{logdir}/APIsigclient.log");
print FILE "\n*** $now_dt 'sig_client fork with todo:$todo|user_id:$user_id|sig_bike_id:$sig_bike_id' \n";
print FILE "\n*** $now_dt 'sig_client fork with todo:$todo|user_id:$user_id|pos_id:$pos_id' \n";
#get user and bike in copri by id
my $apref = {
@ -58,10 +58,10 @@ my $posref = {
fetch => "one",
ca_id => "$ctadr->{c_id}",
int10 => "IN::('3','2')",
txt22 => "$sig_bike_id",
c_id => "$pos_id",
};
my $ctpos = { c_id => 0 };
$ctpos = $dbt->fetch_tablerecord($dbh,$posref) if($user_id =~ /^\d+$/ && $user_id > 0 && $sig_bike_id);
$ctpos = $dbt->fetch_tablerecord($dbh,$posref) if($user_id =~ /^\d+$/ && $user_id > 0 && $pos_id);
print FILE "fetched from DB ctadr:$ctadr->{c_id}|ctpos:$ctpos->{c_id}\n";