diff options
author | Norbert Preining <preining@logic.at> | 2008-09-08 00:24:44 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-09-08 00:24:44 +0000 |
commit | b15e35f41b5b136d0c6c89dff8fdb2a8cd9d3358 (patch) | |
tree | 2fa620a68ab20ee406571c61f3cd90c91b1bf970 /Master | |
parent | a3d94a0f722547df1036b24b1fafd1ec0562a89c (diff) |
make tlmgr report new packages
git-svn-id: svn://tug.org/texlive/trunk@10464 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-x | Master/texmf/scripts/texlive/tlmgr.pl | 21 |
1 files changed, 21 insertions, 0 deletions
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"; } |