#!/usr/bin/env perl # Copyright 2007 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 File::Path; my $tlpdb = new TeXLive::TLPDB; $tlpdb->location("/tmp/texlive-test/texlive.tlpdb"); my @archs = qw/win32 i386-linux/; $tlpdb->add_tlpcontainer("a0poster", "./zip", \@archs); $tlpdb->add_tlpcontainer("automata", "./zip", \@archs); $tlpdb->add_tlpcontainer("bin-afm2pl", "./zip", \@archs); $tlpdb->save; ### Local Variables: ### perl-indent-level: 2 ### tab-width: 2 ### indent-tabs-mode: nil ### End: # vim:set tabstop=2: #