summaryrefslogtreecommitdiff
path: root/Master/tlpkg/archive/tlpdb2list
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-10-28 23:50:25 +0000
committerNorbert Preining <preining@logic.at>2008-10-28 23:50:25 +0000
commit395b98a9ece78fb75fe68b8182a4992f83cabef4 (patch)
tree6a62ffc661fbfe5d5ece732be7ada05ae5ae39fa /Master/tlpkg/archive/tlpdb2list
parent477195e9a79a9f1339a0eb0f5f27116a3e41086d (diff)
move some scripts to tlpkg/archive
git-svn-id: svn://tug.org/texlive/trunk@11096 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/archive/tlpdb2list')
-rwxr-xr-xMaster/tlpkg/archive/tlpdb2list86
1 files changed, 86 insertions, 0 deletions
diff --git a/Master/tlpkg/archive/tlpdb2list b/Master/tlpkg/archive/tlpdb2list
new file mode 100755
index 00000000000..c3ab78bc550
--- /dev/null
+++ b/Master/tlpkg/archive/tlpdb2list
@@ -0,0 +1,86 @@
+#!/usr/bin/env perl
+# $Id$
+# Copyright 2007, 2008 Norbert Preining
+# This file is licensed under the GNU General Public License version 2
+# or any later version.
+#
+# Create list files from tlpdb.
+
+BEGIN {
+ $^W = 1;
+ ($mydir = $0) =~ s,/[^/]*$,,;
+ unshift (@INC, "$mydir/..");
+}
+
+use strict;
+
+use TeXLive::TLPOBJ;
+use TeXLive::TLPDB;
+use Getopt::Long;
+use Pod::Usage;
+use TeXLive::TLUtils;
+use File::Path;
+
+my $opt_outputdir = "new-list";
+my $help = 0;
+
+TeXLive::TLUtils::process_logging_options();
+
+GetOptions("outputdir=s" => \$opt_outputdir,
+ "help|?" => \$help) or pod2usage(1);
+
+pod2usage(-exitstatus => 0, -verbose => 2) if $help;
+pod2usage(1) if ($#ARGV<0);
+
+if (! -d $opt_outputdir) {
+ mkpath ($opt_outputdir) or die "cannot mkdir $opt_outputdir: $!";
+}
+
+die "cannot read tlpdb $ARGV[0]." if (! -r "$ARGV[0]");
+
+my $tlpdb = new TeXLive::TLPDB (root => $ARGV[0]);
+$tlpdb->generate_listfiles ($opt_outputdir);
+
+__END__
+
+=head1 NAME
+
+tlpdb2list - generates list files from a TeX Live Package Database
+
+=head1 SYNOPSIS
+
+tlpdb2list [OPTION]... /path/to/installation/root/
+
+=head1 OPTIONS
+
+=over 4
+
+=item B<-outputdir> I<output_dir>
+Specifies the location where list files are created. Defaults to
+C<./new-list>.
+
+=back
+
+The standard options C<-help>, C<-q>, and C<-v> are also accepted.
+See the tlpfiles documentation for details.
+
+=head1 DESCRIPTION
+
+B<tlpdb2list> generates list files necessary for the installer from the
+TeX Live Package Database found in the installation given on the
+command line.
+
+=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: #