- initial import of revision 374 from cnc
[apt.git] / contrib / list-extras / list-extras.lua
1 -- This script will list all installed packages which are not
2 -- availabe in any online repository. It must be plugged
3 -- in the slot Scripts::AptCache::Command
4 --
5 -- Author: Gustavo Niemeyer <niemeyer@conectiva.com>
6
7 if script_slot == "Scripts::AptCache::Help::Command" then
8     print(_("   list-extras - Show installed pkgs not available in repositories"))
9     return
10 end
11
12 if command_args[1] ~= "list-extras" then
13     return
14 end
15 command_consume = 1
16
17 for i, pkg in pairs(pkglist()) do
18     ver = pkgvercur(pkg)
19     verlist = pkgverlist(pkg)
20     if ver and not verisonline(ver)
21        and table.getn(verlist) == 1 then
22         print(pkgname(pkg) .. "-" .. verstr(ver))
23     end
24 end
25
26 -- vim:ts=4:sw=4:et