use lib ".";
use strict;
use lib '.';

use ticketserver::Tools qw(getiTANforVerbundPlain);
use ADBGUI::Tools qw(ReadConfig);

my $config = ReadConfig("dbm.cfg");

my $secret = $ARGV[0] || die "Secret missing!\n";

my $path = `pwd`;
chomp($path);
$path = "..".$path."/ticketserver/pdf/";

print '<html>
	<link rel="stylesheet" href="'.$path.'style.css" type="text/css">
	<head>
	</head>
	<body>';
	
print '<div class="page">
			<div class="header">
				iTAN - '.$config->{ticketstreet}." - ".$config->{ticketcity}.'
			</div>
			<img class="logo-img" src="'.$path.'logo_sw.jpg" alt="CryptoMagic GmbH">
			<div class="text"><h1>Grunds&auml;tzliches</h1>
			Die Einhaltung folgender Punkte ist zum sicheren funktionieren des Verfahrens unerlässlich:<br><br>
<li>Die iTAN-Liste muss unter Verschluss bleiben<br></li>
<li>Es darf nur die vom System angeforderte iTAN herausgegeben werden<br></li>
<li>Die Daten m&uuml;ssen sorgf&auml;ltig auf Richtigkeit &uuml;berpr&uuml;ft werden<br></li>
<li>Ein Verlust der iTAN-Liste muss CryptoMagic unverz&uuml;glich gemeldet werden</li><br><br>
<h1>How-To</h1>
Zun&auml;chst muss anhand des ersten Buchstand des <i>Vornamens</i> des Kunden die entsprechende Seite aufgeschlagen werden. Im Anschluss wird in der Sektion die dem ersten Buchstaben des <i>Nachnamens</i> entspricht die entsprechende iTAN ausgew&auml;hlt und herausgegeben.
<br><br><br><br><br><h2>'.$config->{ticketstreet}.", ".$config->{ticketplz}." ".$config->{ticketcity}.'</h2><br><br><br><br><br>
<i>CryptoMagic GmbH</i><br>Schwangaustrasse 2<br>86163 Augsburg<br><br>https://www.cryptomagic.eu<br>info@cryptomagic.eu</div>';

print '</div>';

my $forname = 0;
while (++$forname <= 26) {#Neue Seite
#while (++$forname <= 1) {#Neue Seite
   #print chr($forname +64)."\n";
   
   print '<div class="page">
			<div class="header">
				<div class="capital_left">'.chr($forname +64).'</div>
			</div>';
   
   
   my $name = 0;
   while (++$name <= 26) { #Neuer Buchstabe
	  
	  print '</div><div class="page">
			<div class="header">
				<div class="capital_right">'.chr($forname +64).'</div>
			</div>' if($name == 14);
	  
	  print '<table';
	  if(($name%2) == 0){print ' class="grau"';}
	  print '>';
						';#<tr><td rowspan="11" class="cell_big"><div class="capital">'.chr($name+64).'</div></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td></tr>';
	  
	  
      my $k = -1;
      while ($k <= 1) {
		$k++;
         #print " ".++$k."=".getiTANforVerbundPlain($k, chr($forname+64), chr($name+64), $secret);
		 print '<td rowspan="11" class="cell_big"><div class="capital">'.chr($name+64).'</div></td>' if($k==0);
		 print '<tr>';
		 
		 for(my $c=1; $c<11; $c++){
			print '<td class="cell_small">'.($k*10+$c).'#</td><td class="cell_big">'.getiTANforVerbundPlain(($k*10+$c), chr($forname+64), chr($name+64), $secret).'</td>';
		 }
		 print '</tr>';
		 #print '<tr><td class="cell_small">#'.$k.'</td><td class="cell_big">12345678</td><td class="cell_small">#'.($k + 5).'</td><td class="cell_big">12345678</td><td class="cell_small">#'.($k + 10).'</td><td class="cell_big">12345678</td><td class="cell_small">#'.($k + 15).'</td><td class="cell_big">12345678</td><td class="cell_small">#'.($k + 20).'</td><td class="cell_big">12345678</td><td class="cell_small">#'.($k + 25).'</td><td class="cell_big">12345678</td></tr>';
		 
      }
	  
	  print '</table>';
      #print "  ".chr($name +64);
   }
   
   
   print '</div>';
}
print '</body></html>';
