sharee.bike/copri4/main/src/Mod/APIpayone.pm

174 lines
4.8 KiB
Perl
Raw Normal View History

2022-02-03 21:14:37 +01:00
package Mod::APIpayone;
#
# SPDX-License-Identifier: AGPL-3.0-or-later
# Copyright (c) Rainer Gümpelein, TeilRad GmbH
#
#Server for payone to get payment state like p-saldo
#
use lib qw(/var/www/copri-bike/shareeapp-primary/src);
use warnings;
use strict;
use Exporter;
our @ISA = qw (Exporter);
use POSIX;
use CGI;
use Apache2::Const -compile => qw(OK );
use Scalar::Util qw(looks_like_number);
use LWP::UserAgent;
use XML::Simple qw(:strict);
use Lib::Config;
use Mod::DBtank;
use Mod::Basework;
use Mod::Shareework;
use Mod::APIfunc;
use Data::Dumper;
use Sys::Hostname;
my $hostname = hostname;
sub handler {
my ($r) = @_;
my $q = new CGI;
my $netloc = $q->url(-base=>1);
#$q->import_names('R');
my $cf = new Config;
my $dbt = new DBtank;
my $bw = new Basework;
my $tk = new Shareework;
my $apif = new APIfunc;
my %varenv = $cf->envonline();
my $oprefix = $dbt->{operator}->{$varenv{dbname}}->{oprefix};
my $now_dt = strftime "%Y-%m-%d %H:%M:%S", localtime;
my $owner=178;#payone id
my @keywords = $q->param;
my $user_agent = $q->user_agent();
my $dbh = "";
if(1==1){
foreach(@keywords){
if(length($_) > 40 || length($q->param($_)) > 400){
print "<text>Failure 19900: amount of characters in $_ exceeds</text>";
return Apache2::Const::OK;
exit 0;
}
}
}
$bw->log("APIpayone request:\n--> user-agent '$user_agent'",$q,"");
print $q->header( -charset => 'ISO-8859-1' );
print "TSOK";
open(FILE,">>$varenv{logdir}/APIpayone.log");
print FILE "\n*--> $now_dt on $varenv{syshost}\n";
print FILE "TSOK\n";
#check if transfer
my $txaction="";
my $receivable="";
my $txid="";
my $reference="";
my $cardexpiredate=0;
my $update_adr = {
table => "contentadr",
mtime => "now()",
owner => $owner
};
my $update_ctt = {
table => "contenttrans",
mtime => "now()",
pay_time => "now()",
owner => $owner,
int14 => 0,#OPOS
int16 => 0,#balance
int18 => 0,#sequencenumber
2022-03-18 14:51:25 +01:00
int19 => 0,#receivable
2022-02-03 21:14:37 +01:00
};
my $operator_prefix = "";
foreach(@keywords){
my $val = $q->param($_);
$val = $q->escapeHTML("$val");
print FILE "$_=$val\n";
$txaction = $val if($_ eq "txaction");
$receivable = $val if($_ eq "receivable");
$txid = $val if($_ eq "txid");
if($_ eq "reference"){
$update_ctt->{txt25} = $val;
if($val =~ /^(\w+)-/){
$operator_prefix = $1;
if($operator_prefix ne $oprefix){
my $operator_conf = $dbt->get_operator_conf($operator_prefix);
if(ref($operator_conf) eq "HASH" && $operator_conf->{oprefix} && $operator_conf->{database}->{dbname}){
print FILE "operator_prefix ----> $operator_prefix\n";
$dbh = $dbt->dbconnect_extern($operator_conf->{database}->{dbname});
}
}
}
}
$update_ctt->{int16} = $val if($_ eq "balance");
$update_ctt->{int18} = $val if($_ eq "sequencenumber");
2022-03-18 14:51:25 +01:00
$update_ctt->{int19} = $val if($_ eq "receivable");
2022-02-03 21:14:37 +01:00
#contentadr
$update_adr->{int24} = $val if($_ eq "cardexpiredate");
}
#do updates on invoice by payone transaction data on matching TXID
if($txid && looks_like_number($receivable) && looks_like_number($update_ctt->{int16})){
my $ctt = { c_id => 0 };
my $ctadr = { c_id => 0 };
my $fetch_ctt = {
table => "contenttrans",
fetch => "one",
txt16 => $q->escapeHTML($txid),
};
$ctt = $dbt->fetch_tablerecord($dbh,$fetch_ctt) if($txid);
$ctadr->{c_id} = $ctt->{int10} if($ctt->{int10});
2022-04-26 20:57:13 +02:00
my $fetch_ctadr = {
table => "contentadr",
fetch => "one",
c_id => $ctadr->{c_id},
};
$ctadr = $dbt->fetch_tablerecord($dbh,$fetch_ctadr) if($ctadr->{c_id});
my $vde_on_fail = $ctadr->{int12} || 1;#keep last or set 1
2022-02-03 21:14:37 +01:00
if($ctt->{c_id} > 0){
#balance > 0 then payment fails
2022-03-18 14:51:25 +01:00
if($update_ctt->{int16} && $update_ctt->{int16} > 0){
2022-04-26 20:57:13 +02:00
$update_adr->{int12} = $vde_on_fail;
2022-02-03 21:14:37 +01:00
$update_ctt->{int14} = 1;
$update_ctt->{txt28} = "$now_dt $txaction\nSaldo > 0 Meldung\n" . $ctt->{txt28} if($ctt->{txt28} !~ /0 Meldung,/);#only once;
2022-02-03 21:14:37 +01:00
}else{
2023-03-05 20:01:47 +01:00
#2023-02-27, because this will be also done by manually user payment (without valid saved payment data)
#$update_adr->{int12} = "null";
2022-04-26 20:57:13 +02:00
$update_ctt->{int14} = "null";
$update_ctt->{txt28} = "$now_dt $txaction\n" . $ctt->{txt28};
2022-02-03 21:14:37 +01:00
}
$dbt->update_record($dbh,$update_ctt,$ctt);
2022-03-18 14:51:25 +01:00
print FILE Dumper($update_ctt) . "\n";
2022-02-03 21:14:37 +01:00
#set cardexpiredate
2022-04-26 20:57:13 +02:00
if(($update_adr->{int24} && $update_adr->{int24} > 0 || $ctadr->{int12} ne $update_adr->{int12}) && $ctadr->{c_id} > 0){
2022-02-03 21:14:37 +01:00
$dbt->update_record($dbh,$update_adr,$ctadr);
2023-03-05 20:01:47 +01:00
#update adr also on primary
my $dbh_primary = $dbt->dbconnect($dbt->{primary}->{sharee_primary}->{database}->{dbname});
$dbt->update_record($dbh_primary,$update_adr,$ctadr);
2022-02-03 21:14:37 +01:00
}
}
}
close(FILE);
return Apache2::Const::OK;
}
1;