mirror of
https://github.com/adulau/paper-token.git
synced 2024-12-01 14:37:12 +00:00
Space added on the left border + URL fixed
This commit is contained in:
parent
57fe67103c
commit
f65a81e0c4
1 changed files with 7 additions and 7 deletions
|
@ -40,7 +40,7 @@ my $window = 14;
|
|||
my $when = localtime();
|
||||
|
||||
my $opt = new Getopt::Compact(
|
||||
name => 'paper token - http://www.foo.be/paper-token/',
|
||||
name => 'paper token - http://www.quuxlabs.com/?p=431',
|
||||
modes => '',
|
||||
version => '0.1',
|
||||
struct => [
|
||||
|
@ -112,11 +112,11 @@ my $tokeninfo = "Paper token for HOTP token S/N : " . $sn;
|
|||
my $tokenhowto =
|
||||
"How to use? Read from left to right and when you use a token, strikethrough the used value.";
|
||||
my $tokenadv =
|
||||
"Generated by paper token - http://www.foo.be/paper-token/ at " . $when;
|
||||
"Generated by paper token (http://www.quuxlabs.com/?p=431) at " . $when;
|
||||
|
||||
$pdf->info(
|
||||
'Author' => "Alexandre Dulaunoy - http://www.foo.be/",
|
||||
'Creator' => "Paper Token - http://www.foo.be/paper-token/",
|
||||
'Creator' => "Paper Token - http://www.quuxlabs.com/?p=431",
|
||||
'Producer' => "PDF::API2",
|
||||
'Title' => $tokeninfo,
|
||||
);
|
||||
|
@ -124,15 +124,15 @@ $pdf->info(
|
|||
$fnt = $pdf->corefont('Helvetica-Bold');
|
||||
$fntlow = $pdf->corefont('Helvetica');
|
||||
|
||||
$gfx->textlabel( 10, 750, $fnt, 11, $tokeninfo );
|
||||
$gfx->textlabel( 10, 739, $fntlow, 11, $tokenhowto );
|
||||
$gfx->textlabel( 10, 728, $fntlow, 11, $tokenadv );
|
||||
$gfx->textlabel( 20, 750, $fnt, 11, $tokeninfo );
|
||||
$gfx->textlabel( 20, 739, $fntlow, 11, $tokenhowto );
|
||||
$gfx->textlabel( 20, 728, $fntlow, 11, $tokenadv );
|
||||
|
||||
$pdftable->table(
|
||||
$pdf,
|
||||
$page,
|
||||
@tokentable,
|
||||
-x => 1,
|
||||
-x => 20,
|
||||
-w => 40,
|
||||
-start_y => 700,
|
||||
-next_y => 700,
|
||||
|
|
Loading…
Reference in a new issue