summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tlpdb2container
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2007-12-03 15:11:01 +0000
committerNorbert Preining <preining@logic.at>2007-12-03 15:11:01 +0000
commit8769358c65a1821de408076b69cf94f3ce2073a4 (patch)
treea827b5dda42bd3712f55c7adf38d978d25c30322 /Master/tlpkg/bin/tlpdb2container
parent9edb5feefe19dfb1ba540bbcca521a1904136609 (diff)
BIG change: no TLPDB->location anymore, but TLPDB->root
git-svn-id: svn://tug.org/texlive/trunk@5697 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/tlpdb2container')
-rwxr-xr-xMaster/tlpkg/bin/tlpdb2container11
1 files changed, 5 insertions, 6 deletions
diff --git a/Master/tlpkg/bin/tlpdb2container b/Master/tlpkg/bin/tlpdb2container
index 68d4768dbe9..efb33bd9531 100755
--- a/Master/tlpkg/bin/tlpdb2container
+++ b/Master/tlpkg/bin/tlpdb2container
@@ -25,8 +25,8 @@ use File::Path;
my $opt_all = 0;
our $mydir;
our $opt_debug = 0;
-my $opt_type = "zip";
-my $opt_outputdir = "./zip";
+my $opt_type = "lzma";
+my $opt_outputdir = "./archive";
my $opt_relative = 0;
my $help = 0;
@@ -45,9 +45,8 @@ sub main
{
# get the db.
chomp (my $Master = `cd $mydir/../.. && pwd`); # xx TLPDB should default
- my $tlpdb_path = "$Master/$TeXLive::TLConfig::InfraLocation/texlive.tlpdb";
- my $tlpdb = TeXLive::TLPDB->new ("location" => $tlpdb_path);
- die("Cannot load tlpdb at $tlpdb_path!\n") unless defined($tlpdb);
+ my $tlpdb = TeXLive::TLPDB->new ("root" => "$Master");
+ die("Cannot find tlpdb in $Master!\n") unless defined($tlpdb);
my @packs;
if ($opt_all) {
@packs = $tlpdb->list_packages;
@@ -57,7 +56,7 @@ sub main
# get list of packages.
for my $pkg (@packs) {
my $obj = $tlpdb->get_package ($pkg);
- die "$0: no TeX Live package named $pkg in $tlpdb_path.\n" if ! $obj;
+ die "$0: no TeX Live package named $pkg in $Master.\n" if ! $obj;
$obj->make_container($opt_type,$Master,$opt_outputdir,$pkg,$opt_relative);
}
}