From 019dcae3879d68beab6c736fe63e90f2e4e77f0c Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Tue, 6 Nov 2007 17:34:06 +0000 Subject: - change TLPOBJ->make_zip to take a simple path instead of a TLTREE as first argument, it is not necessary - add a new program tlpdb2zip which generates zip files for all/specified packages git-svn-id: svn://tug.org/texlive/trunk@5371 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPOBJ.pm | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm') diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm index 2de48ace3b5..dcd22ff99eb 100644 --- a/Master/tlpkg/TeXLive/TLPOBJ.pm +++ b/Master/tlpkg/TeXLive/TLPOBJ.pm @@ -353,7 +353,7 @@ sub writeout_simple { sub make_zip { - my ($self,$tltree,$destdir,$zipname) = @_; + my ($self,$instroot,$destdir,$zipname) = @_; my $zipn; if (not(defined($zipname))) { $zipname = $self->name . ".zip"; @@ -361,9 +361,9 @@ sub make_zip { if (not(defined($destdir))) { $destdir = TeXLive::TLPOBJ->zipdir; } - die("Undefined tltree argument!") if (not(defined($tltree))); + die("Undefined instroot argument!") if (not(defined($instroot))); # first build the arch independent part - $self->_make_zip($tltree,$destdir,$zipname,"all"); + $self->_make_zip($instroot,$destdir,$zipname,"all"); # now the $pkg.$arch.zip if ($self->is_arch_dependent) { foreach my $t (keys %{$self->{'binfiles'}}) { @@ -373,14 +373,13 @@ sub make_zip { } else { $zipn = "$zipname.$t.zip"; } - $self->_make_zip($tltree,$destdir,$zipn,$t); + $self->_make_zip($instroot,$destdir,$zipn,$t); } } } sub _make_zip { - my ($self,$tltree,$destdir,$zipname,$arch) = @_; - my $root = $tltree->svnroot; + my ($self,$instroot,$destdir,$zipname,$arch) = @_; my @files = (); my $zipcmd; if ($arch ne "all") { @@ -414,7 +413,7 @@ sub _make_zip { $destdir = "$cwd/$destdir"; } &mkpath("$destdir") if (! -d "$destdir"); - chdir($tltree->svnroot); + chdir($instroot); if ($arch eq "all") { # we add the .tlpobj into the .tlpobj directory my $removetlpobjdir = 0; @@ -909,7 +908,7 @@ or the filehandle if given: debugging function for comparison with C/C, will go away. -=item C +=item C creates a zip file of the arch B files in the C in C<$destdir> (if not defined then C<< TLPOBJ->zipdir >> is used). @@ -924,6 +923,9 @@ All the arch independent zip files B contain the respective C file in C<.tlpobj/$name.tlpobj> so C<$zipname.zip> does contain this tlpobj file, while C<$zipname.$arch.zip> does NOT. +The argument C<$instroot> specifies the root of the installation from +which the files should be taken. + =item C recomputes the sizes based on the information present in C<$tltree>. -- cgit v1.2.3