#!/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 generates the short list of package names with revisions (C) 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) 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: #