mirror of
https://gitlab.com/t6353/sharee.bike.git
synced 2024-11-16 23:56:27 +01:00
70 lines
1.6 KiB
Perl
Executable file
70 lines
1.6 KiB
Perl
Executable file
#!/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",
|
|
};
|
|
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;
|