diff options
author | Norbert Preining <preining@logic.at> | 2007-12-03 15:11:01 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2007-12-03 15:11:01 +0000 |
commit | 8769358c65a1821de408076b69cf94f3ce2073a4 (patch) | |
tree | a827b5dda42bd3712f55c7adf38d978d25c30322 /Master/tlpkg/bin/tlpdb2container | |
parent | 9edb5feefe19dfb1ba540bbcca521a1904136609 (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-x | Master/tlpkg/bin/tlpdb2container | 11 |
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); } } |