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

package PDFGenerator;
#
# SPDX-License-Identifier: AGPL-3.0-or-later
# Copyright (c) Rainer Gümpelein, TeilRad GmbH
#
#
use strict;
use warnings;

use POSIX;
use CGI::Cookie ();
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use CGI ':standard';
use Lib::Config;
use Mod::DBtank;

sub new {
 my $class = shift;
 my $self = {};
 bless($self,$class);
 return $self;
}

sub printpre(){
 my $q = new CGI;
 my $cf = new Config;
 my $dbt = new DBtank;
 my %varenv = $cf->envonline();
 my $today = strftime("%d.%m.%Y %H:%M",localtime(time));
 my $dbh = "";

 my $c_id=$R::id;
 my $pkey = $R::pkey || "";

 my $api_file = "/var/www/copri4/shareeconf/apikeys.cfg";
 my $aconf = Config::General->new($api_file);
 my %apikeyconf = $aconf->getall;

 my $payone_conf = $dbt->{operator}->{$varenv{dbname}}->{payone_conf} || $dbt->{payone_conf};
 my $authref = {
                table           => "contentadr",
                fetch           => "one",
                template_id     => "202",
                c_id            => "$c_id",
  };
  my $ctrel = { c_id => 0 };
  $ctrel = $dbt->fetch_record($dbh,$authref) if($c_id);

 print $q->start_html(-title=>'PDFGenerator');

 my $width="1799px";
if(1==1){
 print "<style type='text/css'><!--
body,html {
   background-color: white;
   margin: 1px; padding: 0;
   border: 0px solid black;
   text-align: left;
   font-family: Arial,sans-serif;
}
.Oline {
  border-bottom-width:1px;
  border-bottom-style:solid;
  border-color:black;
  margin:0.5em 0;
}
.tdname1 {
  font-size:1em;
  font-weight:bold;
  padding:0.1em;
  text-align: right;
}
.tdval1 {
  font-size:1em;
  font-weight:normal;
  padding:0.1em 1em;
  text-align: left;
}
.content1 {
  font-size:1em;
  font-weight:normal;
  padding:1em 0.1em;
  text-align: left;
}
//--></style>","\n";
}

 if(!$apikeyconf{pdfprinter}->{pkey} || !$pkey || $apikeyconf{pdfprinter}->{pkey} ne $pkey){
     print "Failure: access denied, api-key doesn't match";
     return Apache2::Const::OK;
     exit 0;
 }
  print $q->div({-style=>'font-size:1.2em;font-weight:bold;padding:1em 0.1em;'},"SEPA-Lastschriftmandat"),"\n";
  print $q->div({-class=>'Oline'},""),"\n";

  print $q->start_table({-border=>'0', -cellpadding=>'3', -cellspacing=>'0'}),"\n";
  print $q->Tr(),"\n";
  print $q->td({-class=>'tdname1'}, "Zahlungsempfänger"),"\n";
  print $q->td({-class=>'tdval1'}, "$payone_conf->{sepa_creditor_name}"),"\n";
  print $q->Tr(),"\n";
  print $q->td({-class=>'tdname1'}, "Gläubiger-Identifikationsnummer"),"\n";
  print $q->td({-class=>'tdval1'}, "$payone_conf->{sepa_creditor_id}"),"\n";
  print $q->Tr(),"\n";
  print $q->td({-class=>'tdname1'}, "Mandatsreferenz"),"\n";
  print $q->td({-class=>'tdval1'}, "$ctrel->{ct_name}"),"\n";
  print $q->end_table,"\n";

  print $q->div({-class=>'Oline'},""),"\n";
  print $q->div({-class=>'content1'},"Ich ermächtige den Zahlungsempfänger, Zahlungen von meinem Konto mittels Lastschrift einzuziehen. Zugleich weise ich mein Kreditinstitut an, die von dem Zahlungsempfänger auf mein Konto gezogenen Lastschriften einzulösen."),"\n";
  print $q->div({-class=>'content1'},"Hinweis: Ich kann innerhalb von acht Wochen, beginnend mit dem Belastungsdatum, die Erstattung des belasteten Betrages verlangen. Es gelten dabei die mit meinem Kreditinstitut vereinbarten Bedingungen."),"\n";
  print $q->div({-class=>'Oline'},""),"\n";
 
  print $q->start_table({-border=>'0',-cellpadding=>'3', -cellspacing=>'0'}),"\n";
  print $q->Tr(),"\n";
  print $q->td({-class=>'tdname1'}, "Name des Zahlungspflichtigen"),"\n";
  print $q->td({-class=>'tdval1'}, "$ctrel->{txt01}"),"\n";
  print $q->Tr(),"\n";
  print $q->td({-class=>'tdname1'}, "Straße Nr."),"\n";
  print $q->td({-class=>'tdval1'}, "$ctrel->{txt03}"),"\n";
  print $q->Tr(),"\n";
  print $q->td({-class=>'tdname1'}, "PLZ Ort"),"\n";
  print $q->td({-class=>'tdval1'}, "$ctrel->{txt06}"),"\n";
  print $q->Tr(),"\n";
  print $q->td({-class=>'tdname1'}, "Land"),"\n";
  print $q->td({-class=>'tdval1'}, "$ctrel->{txt10}"),"\n";
  print $q->Tr(),"\n";
  print $q->td({-class=>'tdname1'}, "E-Mail"),"\n";
  print $q->td({-class=>'tdval1'}, "$ctrel->{txt08}"),"\n";
  print $q->Tr(),"\n";
  print $q->td({-class=>'tdname1'}, "Swift BIC"),"\n";
  print $q->td({-class=>'tdval1'}, "$ctrel->{txt23}"),"\n";
  print $q->Tr(),"\n";
  print $q->td({-class=>'tdname1'}, "Bankkontonummer - IBAN"),"\n";
  print $q->td({-class=>'tdval1'}, "$ctrel->{txt22}"),"\n";

  print $q->end_table,"\n";

  print $q->div({-class=>'content1'},""),"\n";
  print $q->div({-class=>'content1'},"$ctrel->{txt06}, $today, $ctrel->{txt01}"),"\n";

 print $q->end_html;
 return Apache2::Const::OK;
}
1;