1 files changed, 82 insertions, 0 deletions
diff --git a/new-infra/tlp2tldb.pl b/new-infra/tlp2tldb.pl
new file mode 100644
index 00000000000..0d70aff7423
--- /dev/null
+++ b/new-infra/tlp2tldb.pl
@@ -0,0 +1,82 @@
+#!/usr/bin/env perl -w
+#
+# tlp2tldb.pl
+# convert a set of tlp files (given as arguments) into a tldb
+# Copyright 2007 Norbert Preining
+#
+# This file is licensed under the GNU General Public Licence version 2
+# or any later version
+#
+
+BEGIN {
+  ($mydir = $0) =~ s,/[^/]*$,,;
+  unshift (@INC, $mydir);
+}
+
+use strict;
+
+use TLP;
+use TLDB;
+use Getopt::Long;
+use Pod::Usage;
+use File::Path;
+
+our $opt_debug = 0;
+my $man = 0;
+my $help = 0;
+
+GetOptions("debug!", 'help|?' => \$help, man => \$man) or pod2usage(2);
+
+pod2usage(1) if $help;
+pod2usage(-exitstatus => 0, -verbose => 2) if $man;
+
+my $tldb = TLDB->new;
+foreach my $f (@ARGV) {
+        my $tlp = new TLP;
+        $tlp->from_file($f);
+        $tldb->add_tlp($tlp);
+}
+$tldb->writeout;
+
+
+__END__
+
+=head1 NAME
+
+tlp2tldb - Converting tlp files into a tldb file
+
+=head1 SYNOPSIS
+
+tlp2tldb [options] [tlsrcfiles ...]
+
+ Options:
+    -help            brief help message
+    -man             full documentation
+    -debug           get debug messages from TL* modules
+
+
+=head1 OPTIONS
+
+=over 8
+
+=item B<-help>
+
+Print a brief help message and exits.
+
+=item B<-man>
+
+Prints the manual page and exits.
+
+=item B<-debug>
+
+Give debug messages from the TeX Live modules
+
+=back
+
+=head1 DESCRIPTION
+
+B<tlp2tldb> converts TeX Live Package (tlp) files into TeX Live Database
+(tldb).
+
+=cut
+