diff options
author | Norbert Preining <preining@logic.at> | 2016-01-06 04:20:58 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2016-01-06 04:20:58 +0000 |
commit | b9692a77db3bdee4c01543716a26b999bf50bb7e (patch) | |
tree | 1ba8bc82c60850b529eaadc0a8d0ff467d119834 /Master/tlpkg | |
parent | e2f5e5a2e07cb0b8cbbfa906ffea944f21e0efc3 (diff) |
TLUtils: remove install_package, replaced by TLPDB::install_package
git-svn-id: svn://tug.org/texlive/trunk@39289 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 168 |
1 files changed, 0 insertions, 168 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index a5888a02a87..d6bdcc27ea5 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -77,7 +77,6 @@ C<TeXLive::TLUtils> -- utilities used in TeX Live infrastructure TeXLive::TLUtils::create_language_lua($tlpdb,$dest,$localconf); TeXLive::TLUtils::time_estimate($totalsize, $donesize, $starttime) TeXLive::TLUtils::install_packages($from_tlpdb,$media,$to_tlpdb,$what,$opt_src, $opt_doc)>); - TeXLive::TLUtils::install_package($what, $filelistref, $target, $platform); TeXLive::TLUtils::do_postaction($how, $tlpobj, $do_fileassocs, $do_menu, $do_desktop, $do_script); TeXLive::TLUtils::announce_execute_actions($how, @executes, $what); TeXLive::TLUtils::add_symlinks($root, $arch, $sys_bin, $sys_man, $sys_info); @@ -1353,173 +1352,6 @@ sub install_packages { return 1; } - -=item C<install_package($what, $reloc, $size, $md5, $filelistref, $target, $platform)> - -This function installs the files given in @$filelistref from C<$what> -into C<$target>. - -C<$size> gives the size in bytes of the container, or -1 if we are -installing from uncompressed media, i.e., from a list of files to be copied. - -If C<$what> is a reference to a list of files then these files are -assumed to be readable and are copied to C<$target>, creating dirs on -the way. In this case the list C<@$filelistref> is not taken into -account. - -If C<$what> starts with C<http://> or C<ftp://> then C<$what> is -downloaded from the net and piped through C<xzdec> and C<tar>. - -If $what ends with C<.tar.xz> (but does not start with C<http://> or -C<ftp://>, but possibly with C<file:/>) it is assumed to be a readable -file on the system and is likewise piped through C<xzdec> and C<tar>. - -In both of these cases currently the list C<$@filelistref> currently -is not taken into account (should be fixed!). - -if C<$reloc> is true the container (NET or local_compressed mode) is packaged in a way -that the initial texmf-dist is missing. - -Returns 1 on success and 0 on error. - -=cut - -sub install_package { - my ($what, $reloc, $whatsize, $whatmd5, $filelistref, $target, $platform) = @_; - - my @filelist = @$filelistref; - - my $tempdir = "$target/temp"; - - # we assume that $::progs has been set up! - my $wget = $::progs{'wget'}; - my $xzdec = quotify_path_with_spaces($::progs{'xzdec'}); - if (!defined($wget) || !defined($xzdec)) { - tlwarn("install_package: wget/xzdec programs not set up properly.\n"); - return 0; - } - if (ref $what) { - # we are getting a ref to a list of files, so install from uncompressed media - my ($root, @files) = @$what; - foreach my $file (@files) { - # @what is taken, not @filelist! - # is this still needed? - my $dn=dirname($file); - mkdirhier("$target/$dn"); - copy "$root/$file", "$target/$dn"; - } - } elsif ($what =~ m,\.tar.xz$,) { - # this is the case when we install from compressed media - # - # in all other cases we create temp files .tar.xz (or use the present - # one), xzdec them, and then call tar - - # if we are unpacking a relocated container we adjust the target - if ($reloc) { - $target .= "/$TeXLive::TLConfig::RelocTree" if $reloc; - mkdir($target) if (! -d $target); - } - - my $fn = basename($what); - my $pkg = $fn; - $pkg =~ s/\.tar\.xz$//; - mkdirhier("$tempdir"); - my $xzfile = "$tempdir/$fn"; - my $tarfile = "$tempdir/$fn"; $tarfile =~ s/\.xz$//; - my $xzfile_quote = $xzfile; - my $tarfile_quote = $tarfile; - if (win32()) { - $xzfile =~ s!/!\\!g; - $tarfile =~ s!/!\\!g; - $target =~ s!/!\\!g; - } - $xzfile_quote = "\"$xzfile\""; - $tarfile_quote = "\"$tarfile\""; - my $gotfiledone = 0; - if (-r $xzfile) { - # check that the downloaded file is not partial - if ($whatsize >= 0) { - # we have the size given, so check that first - my $size = (stat $xzfile)[7]; - if ($size == $whatsize) { - # we want to check also the md5sum if we have it present - if ($whatmd5) { - if (tlmd5($xzfile) eq $whatmd5) { - $gotfiledone = 1; - } else { - tlwarn("Downloaded $what, size equal, but md5sum differs;\n", - "downloading again.\n"); - } - } else { - # size ok, no md5sum - tlwarn("Downloaded $what, size equal, but no md5sum available;\n", - "continuing, with fingers crossed."); - $gotfiledone = 1; - } - } else { - tlwarn("Partial download of $what found, removing it.\n"); - unlink($tarfile, $xzfile); - } - } else { - # ok no size information, hopefully we have md5 sums - if ($whatmd5) { - if (tlmd5($xzfile) eq $whatmd5) { - $gotfiledone = 1; - } else { - tlwarn("Downloaded file, but md5sum differs, removing it.\n"); - } - } else { - tlwarn("Container found, but cannot verify size of md5sum;\n", - "continuing, with fingers crossed.\n"); - $gotfiledone = 1; - } - } - debug("Reusing already downloaded container $xzfile\n") - if ($gotfiledone); - } - if (!$gotfiledone) { - if ($what =~ m,http://|ftp://,) { - # we are installing from the NET - # download the file and put it into temp - if (!download_file($what, $xzfile) || (! -r $xzfile)) { - tlwarn("Downloading $what did not succeed.\n"); - return 0; - } - } else { - # we are installing from local compressed media - # copy it to temp - copy($what, $tempdir); - } - } - debug("un-xzing $xzfile to $tarfile\n"); - system("$xzdec < $xzfile_quote > $tarfile_quote"); - if (! -f $tarfile) { - tlwarn("Unpacking $xzfile did not succeed.\n"); - return 0; - } - if (!TeXLive::TLUtils::untar($tarfile, $target, 1)) { - tlwarn("untarring $tarfile failed, stopping install.\n"); - return 0; - } - # we remove the created .tlpobj it is recreated anyway in - # install_packages above in the right place. This way we also - # get rid of the $pkg.source.tlpobj which are useless - unlink ("$target/tlpkg/tlpobj/$pkg.tlpobj") - if (-r "$target/tlpkg/tlpobj/$pkg.tlpobj"); - if ($what =~ m,http://|ftp://,) { - # we downloaded the original .tar.lzma from the net, so we keep it - } else { - # we are downloading it from local compressed media, so we can unlink it to save - # disk space - unlink($xzfile); - } - } else { - tlwarn("Sorry, no idea how to install $what\n"); - return 0; - } - return 1; -} - =item C<do_postaction($how, $tlpobj, $do_fileassocs, $do_menu, $do_desktop, $do_script)> Evaluates the C<postaction> fields in the C<$tlpobj>. The first parameter |