sig minor changes

This commit is contained in:
ragu 2022-06-10 06:47:18 +02:00
parent b959c0b2c0
commit a0872ed063
6 changed files with 66 additions and 55 deletions

View file

@ -31,6 +31,9 @@ my $lang = "de";
my $now_dt = strftime "%Y-%m-%d %H:%M:%S", localtime;
my $dbh = "";
my $interval_min = "15";
$interval_min = $ARGV[1] if($ARGV[1] && $ARGV[1] =~ /^\d+$/);
#set available if requestes older than 15 minute
my $return={};
my $pref = {
@ -40,7 +43,7 @@ my $pref = {
#txt10 => "requested",
int10 => "2",
owner => "!=::199",#don't select LV api requested bikes
start_time => "<=::(now() - interval '15 minutes')",
start_time => "<=::(now() - interval '$interval_min minutes')",
};
my $record_cp = $dbt->fetch_tablerecord($dbh,$pref);