package PayoneLink; # # 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 Mod::Buttons; use Mod::Basework; use Mod::DBtank; use Mod::Prelib; use Mod::Pricing; use Mod::Payment; use Data::Dumper; sub new { my $class = shift; my $self = {}; bless($self,$class); return $self; } #Template sub tpl(){ my $self = shift; my $tpl_id = shift; my $node_meta = shift; my $users_dms = shift || ""; my $varenv = shift; my $users_sharee = shift || ""; my $feedb = shift || ""; my $q = new CGI; my $bw = new Basework; my $dbt = new DBtank; my $but = new Buttons; my $pl = new Prelib; my $pri = new Pricing; my $pay = new Payment; $q->import_names('R'); my @keywords = $q->param; my $dbh = ""; my $bgcolor1 = "009899";#sharee $bgcolor1 = $dbt->{website}->{$varenv->{syshost}}->{bgcolor1} if($dbt->{website}->{$varenv->{syshost}}->{bgcolor1}); $bgcolor1 = $dbt->{merchant_ids}->{$varenv->{merchant_id}}->{bgcolor1} if($dbt->{merchant_ids}->{$varenv->{merchant_id}}->{bgcolor1}); my $aowner = "198"; $aowner = $dbt->{merchant_ids}->{$varenv->{merchant_id}}->{id} if($varenv->{merchant_id} && $dbt->{merchant_ids}->{$varenv->{merchant_id}}->{id}); my $coo = $q->cookie(-name=>'domcookie') || $R::sessionid; my $ctadr = { c_id => 0 }; $ctadr = $users_sharee if(ref($users_sharee) eq "HASH" && $users_sharee->{c_id}); my $payable_check=0; $payable_check = $bw->isuser_rentable($ctadr,$varenv); my $prepaidhash = {}; $prepaidhash = $pri->collect_prepaid($dbh,$ctadr) if($ctadr->{c_id}); if(!$prepaidhash->{prepaid_id} && $ctadr->{c_id}){ $feedb = $pl->prepaid_request($dbh,$ctadr,$aowner); $prepaidhash = $pri->collect_prepaid($dbh,$ctadr); } my $ret_json = ""; print $q->start_form(),"\n"; print $q->hidden(-name=>"sessionid",-override=>1,-value=>"$R::sessionid"); print "