mirror of
https://gitlab.com/t6353/sharee.bike.git
synced 2024-05-18 23:06:34 +02:00
50 lines
1.1 KiB
Perl
Executable file
50 lines
1.1 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
#
|
|
#
|
|
# SPDX-License-Identifier: AGPL-3.0-or-later
|
|
# Copyright (c) Rainer Gümpelein, TeilRad GmbH
|
|
#
|
|
##forking payone request to generate an mail payone-link
|
|
|
|
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 $adrc_id = $ARGV[1] || "";
|
|
my $prepaid_amount = $ARGV[2] || "";
|
|
my $aowner = $ARGV[3] || "196";
|
|
my $dbh = "";
|
|
|
|
my $dbh = $dbt->dbconnect();
|
|
my $authref = {
|
|
table => "contentadr",
|
|
fetch => "one",
|
|
template_id => "202",
|
|
c_id => "$adrc_id",
|
|
};
|
|
my $users_sharee = { c_id => 0 };
|
|
$users_sharee = $dbt->fetch_record($dbh,$authref) if($adrc_id);
|
|
|
|
my $prepaidhash = {};
|
|
$prepaidhash = $pay->collect_prepaid($dbh,$users_sharee);
|
|
my $ret_json = $pay->generate_payonelink(\%varenv,$users_sharee,$prepaidhash,$prepaid_amount,$aowner);
|
|
|