adulau/paper-token
1
0
Fork 0
mirror of https://github.com/adulau/paper-token.git synced 2024-11-21 09:37:08 +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 $when = localtime();
my $opt = new Getopt::Compact( my $opt = new Getopt::Compact(
name => 'paper token - http://www.foo.be/paper-token/', name => 'paper token - http://www.quuxlabs.com/?p=431',
modes => '', modes => '',
version => '0.1', version => '0.1',
struct => [ struct => [
@ -112,11 +112,11 @@ my $tokeninfo = "Paper token for HOTP token S/N : " . $sn;
my $tokenhowto = my $tokenhowto =
"How to use? Read from left to right and when you use a token, strikethrough the used value."; "How to use? Read from left to right and when you use a token, strikethrough the used value.";
my $tokenadv = 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( $pdf->info(
'Author' => "Alexandre Dulaunoy - http://www.foo.be/", '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", 'Producer' => "PDF::API2",
'Title' => $tokeninfo, 'Title' => $tokeninfo,
); );
@ -124,15 +124,15 @@ $pdf->info(
$fnt = $pdf->corefont('Helvetica-Bold'); $fnt = $pdf->corefont('Helvetica-Bold');
$fntlow = $pdf->corefont('Helvetica'); $fntlow = $pdf->corefont('Helvetica');
$gfx->textlabel( 10, 750, $fnt, 11, $tokeninfo ); $gfx->textlabel( 20, 750, $fnt, 11, $tokeninfo );
$gfx->textlabel( 10, 739, $fntlow, 11, $tokenhowto ); $gfx->textlabel( 20, 739, $fntlow, 11, $tokenhowto );
$gfx->textlabel( 10, 728, $fntlow, 11, $tokenadv ); $gfx->textlabel( 20, 728, $fntlow, 11, $tokenadv );
$pdftable->table( $pdftable->table(
$pdf, $pdf,
$page, $page,
@tokentable, @tokentable,
-x => 1, -x => 20,
-w => 40, -w => 40,
-start_y => 700, -start_y => 700,
-next_y => 700, -next_y => 700,