sharee.bike/copri4/main/src/scripts/requested_timeout.pl

#!/usr/bin/perl 
#
#Autor ragu@gnu-systems.de
#
#set availabel if requested > 15min
#
#sudo su www-data -c "./src/scripts/requested_timeout.pl shareedms-fr01"
#
#
use vars qw($syshost);

BEGIN {
  $syshost = $ARGV[0] || die;
}

use lib "/var/www/copri-bike/$syshost/src";

use strict;
use warnings;
use POSIX;
use CGI ':standard';
use Lib::Config;
use Mod::DBtank;
use Data::Dumper;

my $q = new CGI;
my $cf = new Config;
my %varenv = $cf->envonline("$syshost");
my $dbt = new DBtank;
my $lang = "de";
my $now_dt = strftime "%Y-%m-%d %H:%M:%S", localtime;
my $dbh = "";

#set available if requestes older than 15 minute
my $return={};
my $pref = {
        table           => "contenttranspos",
        fetch           => "all",
        keyfield        => "c_id",
	#txt10		=> "requested",
	int10		=> "2",
	owner		=> "!=::199",#don't select LV api requested bikes 
        start_time      => "<=::(now() - interval '15 minutes')",
};
my $record_cp = $dbt->fetch_tablerecord($dbh,$pref);

my $update_cp = {
        table   =>	"contenttranspos",
	#txt10   =>      "available",
        int10   =>      "1",
	owner_end => "172",
	mtime => "now()",
};
my $update_cc = {
        table   =>	"content",
        int10   =>      "1",
};

my $rows = 0;
foreach my $id (sort { $record_cp->{$a}->{c_id} <=> $record_cp->{$b}->{c_id} } keys (%$record_cp)){
	my $record = { c_id => 0 };
	$record->{c_id} = $record_cp->{$id}->{c_id};
	#contenttranspos
	$rows = $dbt->update_record($dbh,$update_cp,$record);
	if($rows > 0 && $record_cp->{$id}->{cc_id}){
	  $record->{c_id} = $record_cp->{$id}->{cc_id};
	  #content
	  $dbt->update_record($dbh,$update_cc,$record);
  	}
}

1;