mirror of
https://gitlab.com/t6353/sharee.bike.git
synced 2024-11-15 23:26:34 +01:00
97 lines
3 KiB
Perl
97 lines
3 KiB
Perl
|
package Mod::ajax_post;
|
||
|
|
#
|
||
|
|
# SPDX-License-Identifier: AGPL-3.0-or-later
|
||
|
|
# Copyright (c) Rainer Gümpelein, TeilRad GmbH
|
||
|
|
#
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use POSIX;
|
||
|
|
use CGI ':standard';
|
||
|
|
use Apache2::Const -compile => qw(OK );
|
||
|
|
use Scalar::Util qw(looks_like_number);
|
||
|
|
use Lib::Config;
|
||
|
|
use Mod::Libenzdb;
|
||
|
|
use Mod::Libenz;
|
||
|
|
|
||
|
|
sub handler {
|
||
|
|
my ($r) = @_;
|
||
|
|
my $q = new CGI();
|
||
|
|
$q->import_names('R');
|
||
|
|
my @keywords = $q->param;
|
||
|
|
my $cf = new Config;
|
||
|
|
my $db = new Libenzdb;
|
||
|
|
my $lb = new Libenz;
|
||
|
|
my %varenv = $cf->envonline();
|
||
|
|
my $now_dt = strftime "%Y-%m-%d %H:%M:%S", localtime;
|
||
|
|
my $lang = "de";
|
||
|
|
print $q->header(-charset=>'utf-8');
|
||
|
|
|
||
|
|
open(FILE,">>$varenv{logdir}/ajax_post.log");
|
||
|
|
print FILE "\n\nPost-start: $now_dt\n";
|
||
|
|
foreach my $xkey (@keywords){
|
||
|
|
my @val;
|
||
|
|
my $matrix_val;
|
||
|
|
my $tpl_id;
|
||
|
|
my $xval;
|
||
|
|
if($xkey =~ /^matrix_/){
|
||
|
|
@val = $q->param($xkey);
|
||
|
|
foreach(@val){
|
||
|
|
my ($key,$des,$size,$interval,$service_type) = split /=/,$_;
|
||
|
|
#print FILE "$key,$des,$size,$interval,$service_type\n";
|
||
|
|
|
||
|
|
my $interval = 0;
|
||
|
|
$interval = $q->param("interval_$key") if(looks_like_number($q->param("interval_$key")));
|
||
|
|
my $service_type = 0;
|
||
|
|
$service_type = $q->param("servicetype_$key") if(looks_like_number($q->param("servicetype_$key")));
|
||
|
|
print FILE "\n$key --> interval: $interval | service_type: $service_type\n";
|
||
|
|
$matrix_val .= "$_=$interval=$service_type,";# if($interval =~ /(\d+)/);
|
||
|
|
}
|
||
|
|
$matrix_val =~ s/,$//;
|
||
|
|
#print FILE "$xkey: @val\n";
|
||
|
|
#print FILE "matrix_val: $matrix_val\n";
|
||
|
|
#}elsif($_ =~ /^ckid_rel|ckid_main|edit_main|post_request/){
|
||
|
|
}else{
|
||
|
|
my @xval = $q->param($xkey);
|
||
|
|
foreach(@xval){
|
||
|
|
$xval .= "$_," if($_);
|
||
|
|
}
|
||
|
|
$xval =~ s/,$//;
|
||
|
|
print FILE "$xkey: $xval (owner: $R::owner)\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
if($xkey =~ /c_id4trans/ && looks_like_number($R::owner) && looks_like_number($xval)){
|
||
|
|
$db->update_ajaxes("users","","","","c_id4trans","$xval","$R::owner");
|
||
|
|
}
|
||
|
|
|
||
|
|
if($xkey =~ /matrix_users/ && $R::owner){
|
||
|
|
$matrix_val = "" if($R::u_group =~ /supervisor/);
|
||
|
|
$db->update_ajaxes("users","","","","checkboxes","$matrix_val","$R::owner");
|
||
|
|
}
|
||
|
|
if($xkey =~ /matrix_template/ && $R::template_id){
|
||
|
|
$db->update_ajaxes("template","tpl_id","=","$R::template_id","tpl_order","$matrix_val","");
|
||
|
|
print FILE "update_ajaxes(\"template\",\"tpl_id\",\"=\",\"$R::template_id\",\"tpl_order\",\"$matrix_val\")\n";
|
||
|
|
}
|
||
|
|
if($xkey =~ /k9itemList_(\d+)/){
|
||
|
|
$db->update_ajaxes("template","tpl_id","=","$1","tpl_order","$xval","");
|
||
|
|
}
|
||
|
|
|
||
|
|
#because of downward compatibility
|
||
|
|
if($xkey =~ /^ckid_rel/ && $R::owner){
|
||
|
|
$db->update_ajaxes("users","","","","checked4dragg","$xval","$R::owner");
|
||
|
|
}
|
||
|
|
if($xkey =~ /^ckid_main/ && $R::owner){
|
||
|
|
$db->update_ajaxes("users","","","","view_list","$xval","$R::owner");
|
||
|
|
}
|
||
|
|
if($xkey =~ /^edit_main/ && $R::owner){
|
||
|
|
$db->update_ajaxes("users","","","","edit_list","$xval","$R::owner");
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
}
|
||
|
|
close(FILE);
|
||
|
|
|
||
|
|
return Apache2::Const::OK;
|
||
|
|
}
|
||
|
|
1;
|