#!/usr/bin/env perl # $Id$ # create-package-list # Create the package list of the current installation # Copyright 2007 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); use Getopt::Long; use Pod::Usage; our $opt_debug = 0; my $help = 0; GetOptions("debug!", 'help|?' => \$help ) or pod2usage(1); pod2usage(-exitstatus => 0, -verbose => 2) if $help; 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 create-package-list - generate a list of TeX Live packages with revisions =head1 SYNOPSIS create-package-list [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 list of packages with revisions from the TeX Live Installation present at the location specified at the command line. =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: #