diff options
Diffstat (limited to 'Master/tlpkg/bin/tlpdb2pkgver')
-rwxr-xr-x | Master/tlpkg/bin/tlpdb2pkgver | 83 |
1 files changed, 0 insertions, 83 deletions
diff --git a/Master/tlpkg/bin/tlpdb2pkgver b/Master/tlpkg/bin/tlpdb2pkgver deleted file mode 100755 index b52ad9097d4..00000000000 --- a/Master/tlpkg/bin/tlpdb2pkgver +++ /dev/null @@ -1,83 +0,0 @@ -#!/usr/bin/env perl -# $Id$ -# Find the minimal package list (tlpver) of the current installation. -# Copyright 2007, 2008 Norbert Preining -# -# This file is licensed under the GNU General Public License version 2 -# or any later version. - -BEGIN { - $^W = 1; - ($mydir = $0) =~ s,/[^/]*$,,; - unshift (@INC, "$mydir/.."); -} - -use strict; - -use TeXLive::TLPDB; -use TeXLive::TLUtils qw(dirname tllog); -use Getopt::Long; -use Pod::Usage; - -my $opt_debug = 0; -my $help = 0; - -GetOptions("debug!", 'help|?' => \$help ) or pod2usage(1); - -pod2usage(-exitstatus => 0, -verbose => 2) if $help; - -if ($opt_debug) { - $::LOGLEVELFILE = $::LOG_DDDEBUG; - $::LOGLEVELTERMINAL = $::LOG_DDDEBUG; -} - -die "$0: missing tlpdb argument; try --help if you need it.\n" if ($#ARGV<0); - -die "cannot read tlpdb file $ARGV[0]." if (! -r "$ARGV[0]"); -# backwards compatibility -my $root; -if ($ARGV[0] =~ m,texlive.tlpdb$,) { - $root = dirname(dirname($ARGV[0])); -} else { - $root = $ARGV[0]; -} - -my $tldb = new TeXLive::TLPDB ("root" => $root); - -$tldb->generate_packagelist; - -__END__ - -=head1 NAME - -tlpdb2pkgver - generate a list of TeX Live packages with revisions - -=head1 SYNOPSIS - -tlpdb2pkgver [OPTION]... /path/to/root/of/installation/ - -=head1 OPTIONS - -The standard options C<-help> and C<-debug> are accepted. -See the tlpfiles documentation for details. - -=head1 DESCRIPTION - -B<tlpdb2pkgver> generates the short list of package names with revisions -(C<tlpdb.pkgver>) from the TeX Live installation present at the location -specified on the command line. Output is to stdout. - -=head1 AUTHORS AND COPYRIGHT - -This script and its documentation were written for the TeX Live -distribution (L<http://tug.org/texlive>) and both are licensed under the -GNU General Public License Version 2 or later. - -=cut - -### Local Variables: -### perl-indent-level: 2 -### tab-width: 2 -### indent-tabs-mode: nil -### End: -# vim:set tabstop=2: # |