diff options
author | Norbert Preining <preining@logic.at> | 2009-06-11 19:01:28 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2009-06-11 19:01:28 +0000 |
commit | 4668ff2135619ef67c9561b09886b591d4a1879e (patch) | |
tree | 7345da1e2f16775442017d8d00fd9835c366ee98 /Master | |
parent | f80859d2b991050682111ee79e8cbb12c8b330d8 (diff) |
create md5 sums of texlive.tlpdb in the tlnet directories
git-svn-id: svn://tug.org/texlive/trunk@13710 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-x | Master/tlpkg/bin/tl-update-containers | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/Master/tlpkg/bin/tl-update-containers b/Master/tlpkg/bin/tl-update-containers index a6d126bfea7..91208c9faeb 100755 --- a/Master/tlpkg/bin/tl-update-containers +++ b/Master/tlpkg/bin/tl-update-containers @@ -377,6 +377,13 @@ sub main # do that. $nettlpdb->save; system("$::progs{'xz'} --force -k -z $opt_location/tlpkg/texlive.tlpdb"); + chomp (my $olddir = `pwd`); + if (chdir("$opt_location/tlpkg/")) { + system("md5sum texlive.tlpdb > texlive.tlpdb.md5"); + chdir($olddir); + } else { + tlwarn("Cannot chdir to $opt_location/tlpkg/ for md5 hash creation\n"); + } if (! @ARGV) { # do a last check that all the containers are actually present |