From 548f2908e131cce14e92a335821f24f3138aedf3 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Sun, 26 Jul 2009 21:55:38 +0000 Subject: remove included patch git-svn-id: svn://tug.org/texlive/trunk@14463 c570f23f-e606-0410-a88d-b1316a301751 --- .../etc/dev.tlmgr-use-saved-remote-tlpdb.patch | 66 ---------------------- 1 file changed, 66 deletions(-) delete mode 100644 Master/tlpkg/etc/dev.tlmgr-use-saved-remote-tlpdb.patch (limited to 'Master') diff --git a/Master/tlpkg/etc/dev.tlmgr-use-saved-remote-tlpdb.patch b/Master/tlpkg/etc/dev.tlmgr-use-saved-remote-tlpdb.patch deleted file mode 100644 index 4f52da053d5..00000000000 --- a/Master/tlpkg/etc/dev.tlmgr-use-saved-remote-tlpdb.patch +++ /dev/null @@ -1,66 +0,0 @@ -Index: tlmgr.pl -=================================================================== ---- tlmgr.pl (revision 11008) -+++ tlmgr.pl (working copy) -@@ -79,6 +79,7 @@ - use Cwd qw/abs_path/; - use Pod::Usage; - use Getopt::Long qw(:config no_autoabbrev require_order); -+use Digest::MD5 qw(md5_hex); - use strict; - - # used variables -@@ -1864,14 +1865,52 @@ - # uses the global $location. - # - sub init_tlmedia { -+ # compute the md5 digest for the location -+ my $locmdv = md5_hey($location); - if (($location =~ m/$TeXLiveServerURL/) || - ($location =~ m/^ctan$/i)) { - $location = give_ctan_mirror(); - } - info("tlmgr: installation location $location\n"); -+ if ($location =~ m/^(http|ftp):/i) { -+ # try to download the md5hash from the location -+ my $root = $localtlpdb->root; -+ my $temp = "$root/temp"; -+ my $remotefilemdvfile = "$temp/md5.$locmdv"; -+ my $remote_tlpdb_copy = "$root/$InfraLocation/texlive.tlpdb.$locmdv"; -+ my $ret = TeXLive::TLUtils::download_file("$location/$InfraLocation/${DatabaseName}.md5", "$remotefilemdvfile"); -+ if ($ret && (-r "$lzmafile")) { -+ # we found a md5 hash -+ # we have to check the md5hash against the md5 hash of the local file -+ my $local_digest = TeXLive::TLUtils::tlmd5("$remote_tlpdb_copy"); -+ if (open (FOO, "<$remotefilemdvfile")) { -+ my $remote_digest = ; -+ close(FOO); -+ if ($remote_digest eq $local_digest) { -+ # that is fine, we have the same database, don't re-download it -+ $tlmediasrc = TeXLive::TLMedia->new($location, $remote_tlpdb_copy, "good"); -+ die ("NOT KNOW WHY") unless defined($tlmediasrc); -+ } -+ } else { -+ debug("Cannot read md5 sum from downloaded file $remotefilemdvfile\n"); -+ # we will read it again -+ } -+ } else { -+ tlwarn("We seem to be off line.\n"); -+ if (-r "$remote_tlpdb_copy") { -+ tlwarn("Using local copy of remote database, installation may not succeed.\n"); -+ $tlmediasrc = TeXLive::TLMedia->new($location, $remote_tlpdb_copy, "maybe_good"); -+ die ("NOT KNOW WHY") unless defined($tlmediasrc); -+ } else { -+ # do nothing, we will try below to download the tlpdb ... -+ } -+ } -+ } - # $tlmediasrc is a global variable -- $tlmediasrc = TeXLive::TLMedia->new($location); -+ $tlmediasrc = TeXLive::TLMedia->new($location) unless defined($tlmediasrc); - die($loadmediasrcerror . $location) unless defined($tlmediasrc); -+ # save the md5hash of -+ tlwarn("TODO TODO TODO ...."); - } - - # -- cgit v1.2.3