adulau/paper-token
1
0
Fork 0
mirror of https://github.com/adulau/paper-token.git synced 2024-11-23 02:27:10 +00:00
Code Issues Projects Releases Packages Wiki Activity

Space added on the left border + URL fixed

Browse source
This commit is contained in:
Alexandre Dulaunoy 2010-09-24 14:37:58 +02:00
parent 57fe67103c
commit f65a81e0c4
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
paper-token.pl
View file

@ -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,