mirror of
https://gitlab.com/t6353/sharee.bike.git
synced 2024-05-16 22:16:33 +02:00
95 lines
2.4 KiB
Perl
Executable file
95 lines
2.4 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
#
|
|
#
|
|
# SPDX-License-Identifier: AGPL-3.0-or-later
|
|
# Copyright (c) Rainer Gümpelein, TeilRad GmbH
|
|
#
|
|
|
|
use vars qw($syshost);
|
|
|
|
BEGIN {
|
|
$syshost = $ARGV[0] || exit 1;
|
|
}
|
|
|
|
use lib "/var/www/copri-bike/$syshost/src";
|
|
use strict;
|
|
use warnings;
|
|
use POSIX;
|
|
use Scalar::Util qw(looks_like_number);
|
|
use Lib::Config;
|
|
use Mod::DBtank;
|
|
use Mod::Payment;
|
|
use Data::Dumper;
|
|
|
|
my $cf = new Config;
|
|
my %varenv = $cf->envonline();
|
|
my $dbt = new DBtank;
|
|
my $pay = new Payment;
|
|
my $now_dt = strftime("%Y-%m-%d %H:%M:%S",localtime(time));
|
|
|
|
my $todo = $ARGV[1] || "";
|
|
my $adrc_id = $ARGV[2] || "";
|
|
my $aowner = $ARGV[3] || "196";
|
|
|
|
|
|
open(FILE,">>$varenv{logdir}/payment_ack.log");
|
|
print FILE "\n*** $now_dt todo:$todo|adrc_id:$adrc_id|aowner:$aowner \n";
|
|
|
|
my $dbh = $dbt->dbconnect();
|
|
my $authref = {
|
|
table => "contentadr",
|
|
fetch => "one",
|
|
template_id => "202",
|
|
c_id => "$adrc_id",
|
|
};
|
|
my $ctadr = { c_id => 0 };
|
|
$ctadr = $dbt->fetch_record($dbh,$authref) if($adrc_id);
|
|
|
|
|
|
#preauthorization 1€ and after success async capture 0 for deletion
|
|
#define fictiv invoice to get 1 € test
|
|
my $epoche = time();
|
|
if($ctadr->{c_id}){
|
|
my $ctt = {
|
|
c_id => 1,
|
|
int01 => 0,#will delete preauth_amount by capture 0€
|
|
int04 => 0,
|
|
int15 => 1,#preauth_amount
|
|
txt16 => "",
|
|
reference => "$ctadr->{c_id}_$epoche",
|
|
payone_reset => ''
|
|
};
|
|
|
|
print FILE "fictiv invoice ctt:" . Dumper($ctt) . "\n";
|
|
|
|
my $payone_txid = "";
|
|
if($todo eq "payment_ackCC"){
|
|
$payone_txid = $pay->preauthorizationCC_main(\%varenv,$ctadr,$ctt,$aowner);
|
|
print FILE "preauthorizationCC_main txid:$payone_txid\n";
|
|
|
|
$ctt->{txt16} = $payone_txid;
|
|
if($ctt->{txt16}){
|
|
sleep 2;
|
|
my $payone_txid_captured = $pay->captureCC_main(\%varenv,$ctadr,$ctt,$aowner);
|
|
print FILE "captureCC_main returns txid:$payone_txid_captured\n";
|
|
}else{
|
|
print FILE "Failure, No preauthorizationCC_main txid!\n";
|
|
}
|
|
}elsif($todo eq "payment_ackSEPA"){
|
|
$payone_txid = $pay->preauthorizationSEPA_main(\%varenv,$ctadr,$ctt,$aowner);
|
|
print FILE "preauthorizationSEPA_main txid:$payone_txid\n";
|
|
|
|
$ctt->{txt16} = $payone_txid;
|
|
if($ctt->{txt16}){
|
|
sleep 2;
|
|
my $payone_txid_captured = $pay->captureSEPA_main(\%varenv,$ctadr,$ctt,$aowner);
|
|
print FILE "captureSEPA_main returns txid:$payone_txid_captured\n";
|
|
}else{
|
|
print FILE "Failure, No preauthorizationSEPA_main txid!\n";
|
|
}
|
|
}
|
|
}
|
|
|
|
close(FILE);
|
|
|