From 1d6032301e0b9d82755599825de24e00fc837bc3 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 19 Apr 2012 16:18:16 +0000 Subject: thumbpdf (18apr12) git-svn-id: svn://tug.org/texlive/trunk@26040 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/scripts/thumbpdf/thumbpdf.pl | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) (limited to 'Master/texmf-dist/scripts/thumbpdf') diff --git a/Master/texmf-dist/scripts/thumbpdf/thumbpdf.pl b/Master/texmf-dist/scripts/thumbpdf/thumbpdf.pl index dda3ad3d26d..3b52e5dd62c 100755 --- a/Master/texmf-dist/scripts/thumbpdf/thumbpdf.pl +++ b/Master/texmf-dist/scripts/thumbpdf/thumbpdf.pl @@ -26,8 +26,9 @@ $^W=1; # turn warning on # my $file = "thumbpdf.pl"; my $program = uc($&) if $file =~ /^\w+/; -my $version = "3.14"; -my $date = "2012/04/09"; +my $prj = 'thumbpdf'; +my $version = "3.15"; +my $date = "2012/04/18"; my $author = "Heiko Oberdiek"; my $copyright = "Copyright (c) 1999-2012 by $author."; # @@ -150,6 +151,8 @@ my $copyright = "Copyright (c) 1999-2012 by $author."; # 2011/08/10 v3.13 # * Use gswin64c in Windows with 64 bits. # 2012/04/09 v3.14 +# 2012/04/18 v3.15 +# * Option --version added. # ### program identification @@ -212,6 +215,7 @@ $::opt_modes = "pdftex"; $::opt_gscmd = ""; $::opt_level2 = 0; $::opt_help = 0; +$::opt_version = 0; $::opt_quiet = 0; $::opt_debug = 0; $::opt_verbose = 0; @@ -234,6 +238,7 @@ Function: Support of thumbnails for pdfTeX or dvips/ps2pdf (pdfmark). `$pdftexext' (pdfTeX), `$pdfmarkext' (pdfmark) Options: (defaults:) --help print usage + --version print version number --(no)quiet suppress messages ($bool[$::opt_quiet]) --(no)verbose verbose printing ($bool[$::opt_verbose]) --(no)debug debug informations ($bool[$::opt_debug]) @@ -265,6 +270,7 @@ my @OrgArgv = @ARGV; use Getopt::Long; GetOptions( "help!", + "version!", "quiet!", "debug!", "verbose!", @@ -286,6 +292,10 @@ GetOptions( "greek!" ) or die $usage; !$::opt_help or die $usage; +if ($::opt_version) { + print "$prj $date v$version\n"; + exit(0); +} @ARGV < 2 or die "$usage$Error Too many files!\n"; @ARGV == 1 or die "$usage$Error Missing jobname!\n"; -- cgit v1.2.3