From 621311703ee3ada314ee131fa479786e3ee0c88c Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 4 Mar 2008 15:06:40 +0000 Subject: stats git-svn-id: svn://tug.org/texlive/trunk@6845 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/bin/tl-update-containers | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/Master/tlpkg/bin/tl-update-containers b/Master/tlpkg/bin/tl-update-containers index f0bc652afd9..9aaa36c3e51 100755 --- a/Master/tlpkg/bin/tl-update-containers +++ b/Master/tlpkg/bin/tl-update-containers @@ -78,7 +78,8 @@ sub main close(TMP); } - # collect packages to be updated: + # collect packages to be updated. + my %count; my @todopacks = (); for my $pkg (@packs) { my $oldrev = 0; @@ -87,6 +88,7 @@ sub main $oldrev = $archiverevs{$pkg}; } else { tllog($::LOG_DEBUG, "$pkg is new, found no containers\n"); + $count{"new"}++; } my $tlp = $tlpdb->get_package($pkg); @@ -96,12 +98,15 @@ sub main } else { tllog($::LOG_NORMAL, "$pkg has disappeared, removing its containers\n"); `rm $opt_containerdir/$pkg.*`; + $count{"remove"}++; } if ($oldrev == $newrev) { tllog($::LOG_DEBUG, "$pkg up to date\n"); + $count{"unchanged"}++; } elsif ($oldrev < $newrev) { push @todopacks, $pkg; + $count{"update"}++ if $oldrev; } else { die "This shouldn't happen! The revision of $pkg in texlive.tlpdb" . "($newrev) is OLDER than the one in" @@ -141,7 +146,8 @@ sub main or die "open(>$opt_containerdir/texlive.pkgver) failed: $!"; $tlpdb->generate_packagelist(\*TMP); close(TMP); - print "$0: all done.\n"; + print "$0: $count{new} new, $count{remove} removed, " + . "$count{update} updated.\n"; } else { print "$0: nothing to be done.\n"; } -- cgit v1.2.3