From b15e35f41b5b136d0c6c89dff8fdb2a8cd9d3358 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 8 Sep 2008 00:24:44 +0000 Subject: make tlmgr report new packages git-svn-id: svn://tug.org/texlive/trunk@10464 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf/scripts/texlive/tlmgr.pl | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl index e501c84115c..8721a3c898a 100755 --- a/Master/texmf/scripts/texlive/tlmgr.pl +++ b/Master/texmf/scripts/texlive/tlmgr.pl @@ -621,6 +621,27 @@ sub action_update { } else { @todo = @ARGV; } + if ($opt_list) { + # we check for new packages + # loop over all installed collections + for my $c ($localtlpdb->collections) { + my $tlc = $mediatlpdb->get_package($c); + if (!defined($tlc)) { + debug("collection $c has disappeared from the network!\n"); + } else { + # take all the dependencies of the installed collection + # *as*found* in the network tlpdb + for my $d ($tlc->depends) { + my $tlp = $localtlpdb->get_package($d); + if (!defined($tlp)) { + # there is a dep that is either new or has been forcibly removed + # report it as new/forcibly removed + info("package $d ($c) is new (or has been forcibly removed)\n"); + } + } + } + } + } if (!@todo) { printf "tlmgr update takes either a list of packages or --all\n"; } -- cgit v1.2.3