roko.li/sharee.bike
5
0
Fork 0
mirror of https://gitlab.com/t6353/sharee.bike.git synced 2025-05-11 22:37:27 +02:00
Code Issues Projects Releases Packages Wiki Activity

user message on longterm rental, based also on fleed operator. Bikeakku view config

Browse source
This commit is contained in:
ragu 2024-02-26 20:30:45 +01:00
parent addf1ab6db
commit 030091de20
16 changed files with 364 additions and 248 deletions
Download patch file Download diff file Expand all files Collapse all files

38
copri4/main/src/Mod/Indexsharee.pm
View file

@ -10,6 +10,7 @@ use warnings;
use POSIX;
use CGI::Cookie ();
use CGI ':standard';
use Time::Piece;
use DateTime;
use DateTime::Format::Pg;
use DBI;
@ -27,9 +28,7 @@ use Mod::APIfunc;
use Mod::Shareework;
use Mod::Prelib;
use Mod::Payment;
use Mod::Modalbox;
use Mod::Modalbox3;
use Data::Dumper;
#use Data::Dumper;
sub handler {
my $re = shift;
@ -101,8 +100,8 @@ sub handler {
}
my $dyn_js = "";
my $users_dms = {};
my $users_sharee = {};
my $users_dms = { u_id => 0 };
my $users_sharee = { c_id => 0 };
my $api_return = {};
print $q->header(-charset=>"$html_charset");
@ -157,10 +156,10 @@ sub handler {
if($users_dms->{u_id}){
my $update_users = {
table => "users",
owner => $aowner,
change => "no_time",
u_id => $users_dms->{u_id}
};
$dbt->update_one($dbh,$update_users,"cookie='$coo'");
$dbt->update_one($dbh,$update_users,"cookie='$coo',atime='now()'");
print redirect("$varenv{wwwhost}");
exit 0;
@ -182,7 +181,26 @@ sub handler {
#DMS
if($users_sharee->{c_id} && $varenv{orga} eq "dms" && $coo && length($coo) > 20){
$users_dms = $dbt->select_users($dbh,$users_sharee->{c_id},"and cookie='$coo'");
$users_dms = { u_id => 0 };
$users_dms = $dbt->select_users($dbh,$users_sharee->{c_id},"and cookie='$coo' and u_id = $users_sharee->{c_id}");
my $update_users = {
table => "users",
change => "no_time",
u_id => $users_dms->{u_id}
};
my $dt1 = DateTime->now;
my $dt2 = DateTime->now;
$dt2 = DateTime::Format::Pg->parse_datetime($users_sharee->{atime}) if($users_sharee->{atime});
my $logout_hours = 2;
my $dt2_over = $dt2->add( hours => $logout_hours );
if($dt1 > $dt2_over){
$apif->authout($q,$coo);
$dbt->update_one($dbh,$update_users,"cookie=''");
print redirect("$varenv{wwwhost}?autologout=$logout_hours");
exit 0;
}
$dbt->update_one($dbh,$update_users,"atime='now()'");
}
$varenv{cms} = $dbt->fetch_cms($dbh,{ lang => $q->escapeHTML($lang) });
@ -218,7 +236,7 @@ sub handler {
#if user-pw authorized, then ignore conflict_ because it matches exist user-data
#should be result to Uhps page
if($shareec_id && $returnwww && $returnwww =~ /conflict_txt07|conflict_txt08/){
$return = $shwo->delete_account($shareec_id,$users_dms->{u_id});
$return = $shwo->delete_account($shareec_id,$aowner);
$apif->authout($q,$coo) if($coo);
print redirect("$varenv{wwwhost}/$varenv{mandant}/Anmelden?conflict_failure=1");
exit 0;
@ -643,7 +661,7 @@ sub handler {
$dbt->update_operatorsloop($varenv{dbname},$users_sharee->{c_id},"update");
}
print FILE Dumper($update_adr) . "\n" if($debug);
#print FILE Dumper($update_adr) . "\n" if($debug);
close(FILE);
}#end payone response with pseudocardpan
}