From f65a81e0c46e8e81c3336f99b5a80a635cc1491c Mon Sep 17 00:00:00 2001
From: Alexandre Dulaunoy <a@foo.be>
Date: Fri, 24 Sep 2010 14:37:58 +0200
Subject: [PATCH] Space added on the left border + URL fixed

---
 paper-token.pl | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/paper-token.pl b/paper-token.pl
index ad45444..f76327e 100644
--- a/paper-token.pl
+++ b/paper-token.pl
@@ -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,