From c8d66e28159df3f5f2b35e6f367ecc98956e7105 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 3 Mar 2008 01:51:47 +0000 Subject: rename for semi-consistency git-svn-id: svn://tug.org/texlive/trunk@6815 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/bin/create-package-list | 85 ------------------------------------ Master/tlpkg/bin/tlpdb2pkgver | 85 ++++++++++++++++++++++++++++++++++++ 2 files changed, 85 insertions(+), 85 deletions(-) delete mode 100755 Master/tlpkg/bin/create-package-list create mode 100755 Master/tlpkg/bin/tlpdb2pkgver diff --git a/Master/tlpkg/bin/create-package-list b/Master/tlpkg/bin/create-package-list deleted file mode 100755 index 85c3716c2a2..00000000000 --- a/Master/tlpkg/bin/create-package-list +++ /dev/null @@ -1,85 +0,0 @@ -#!/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 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 - -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: # diff --git a/Master/tlpkg/bin/tlpdb2pkgver b/Master/tlpkg/bin/tlpdb2pkgver new file mode 100755 index 00000000000..85c3716c2a2 --- /dev/null +++ b/Master/tlpkg/bin/tlpdb2pkgver @@ -0,0 +1,85 @@ +#!/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 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 + +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: # -- cgit v1.2.3