summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tlpdb2pkgver
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/bin/tlpdb2pkgver')
-rwxr-xr-xMaster/tlpkg/bin/tlpdb2pkgver83
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: #