4 Check for obsolete binary packages
6 @contact: Debian FTP Master <ftpmaster@debian.org>
7 @copyright: 2000-2006 James Troup <james@nocrew.org>
8 @copyright: 2009 Torsten Werner <twerner@debian.org>
9 @copyright: 2015 Niels Thykier <niels@thykier.net>
10 @license: GNU General Public License version 2 or later
13 # This program is free software; you can redistribute it and/or modify
14 # it under the terms of the GNU General Public License as published by
15 # the Free Software Foundation; either version 2 of the License, or
16 # (at your option) any later version.
18 # This program is distributed in the hope that it will be useful,
19 # but WITHOUT ANY WARRANTY; without even the implied warranty of
20 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
21 # GNU General Public License for more details.
23 # You should have received a copy of the GNU General Public License
24 # along with this program; if not, write to the Free Software
25 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
27 ################################################################################
29 # | priviledged positions? What privilege? The honour of working harder
30 # | than most people for absolutely no recognition?
32 # Manoj Srivastava <srivasta@debian.org> in <87lln8aqfm.fsf@glaurung.internal.golden-gryphon.com>
34 ################################################################################
39 from daklib.config import Config
40 from daklib.dbconn import *
41 from daklib import utils
42 from daklib.cruft import *
43 from daklib.rm import remove
45 ################################################################################
47 def usage(exit_code=0):
48 print """Usage: dak cruft-report
49 Check for obsolete or duplicated packages.
51 -h, --help show this help and exit.
52 -n, --dry-run don't do anything, just show what would have been done
53 -s, --suite=SUITE check suite SUITE."""
56 ################################################################################
58 def remove_sourceless_cruft(suite_name, suite_id, session, dryrun):
59 """Remove binaries without a source
61 @type suite_name: string
62 @param suite_name: The name of the suite to remove from
65 @param suite_id: The id of the suite donated by suite_name
67 @type session: SQLA Session
68 @param session: The database session in use
71 @param dryrun: If True, just print the actions rather than actually doing them
74 rows = query_without_source(suite_id, session)
75 arch_all_id = get_architecture('all', session=session)
78 message = '[auto-cruft] no longer built from source and no reverse dependencies'
81 if utils.check_reverse_depends([package], suite_name, [], session, cruft=True, quiet=True):
85 # Embed the -R just in case someone wants to run it manually later
86 print 'Would do: dak rm -m "%s" -s %s -a all -p -R -b %s' % \
87 (message, suite_name, package)
89 q = session.execute("""
90 SELECT b.package, b.version, a.arch_string, b.id
92 JOIN bin_associations ba ON b.id = ba.bin
93 JOIN architecture a ON b.architecture = a.id
94 JOIN suite su ON ba.suite = su.id
95 WHERE a.id = :arch_all_id AND b.package = :package AND su.id = :suite_id
96 """, {arch_all_id: arch_all_id, package: package, suite_id: suite_id})
97 remove(session, message, [suite_name], list(q), partial=True, whoami="DAK's auto-decrufter")
100 def removeNBS(suite_name, suite_id, session, dryrun):
101 """Remove binaries no longer built
103 @type suite_name: string
104 @param suite_name: The name of the suite to remove from
107 @param suite_id: The id of the suite donated by suite_name
109 @type session: SQLA Session
110 @param session: The database session in use
113 @param dryrun: If True, just print the actions rather than actually doing them
116 rows = queryNBS(suite_id, session)
119 (pkg_list, arch_list, source, _) = row
120 if utils.check_reverse_depends(pkg_list, suite_name, arch_list, session, cruft=True, quiet=True):
122 arch_string = ','.join(arch_list)
123 message = '[auto-cruft] NBS (no longer built by %s and had no reverse dependencies)' % source
126 # Embed the -R just in case someone wants to run it manually later
127 pkg_string = ' '.join(pkg_list)
128 print 'Would do: dak rm -m "%s" -s %s -a %s -p -R -b %s' % \
129 (message, suite_name, arch_string, pkg_string)
131 for architecture in arch_list:
132 if architecture in arch2ids:
133 arch2ids[architecture] = utils.get_architecture(architecture, session=session)
134 arch_ids = tuple(arch2ids[architecture] for architecture in arch_list)
138 pkg_list: tuple(pkg_list),
140 q = session.execute("""
141 SELECT b.package, b.version, a.arch_string, b.id
143 JOIN bin_associations ba ON b.id = ba.bin
144 JOIN architecture a ON b.architecture = a.id
145 JOIN suite su ON ba.suite = su.id
146 WHERE a.id IN :arch_ids AND b.package IN :pkg_db_set AND su.id = :suite_id
148 remove(session, message, [suite_name], list(q), partial=True, whoami="DAK's auto-decrufter")
150 ################################################################################
156 Arguments = [('h',"help","Auto-Decruft::Options::Help"),
157 ('n',"dry-run","Auto-Decruft::Options::Dry-Run"),
158 ('s',"suite","Auto-Decruft::Options::Suite","HasArg")]
159 for i in ["help", "Dry-Run"]:
160 if not cnf.has_key("Auto-Decruft::Options::%s" % (i)):
161 cnf["Auto-Decruft::Options::%s" % (i)] = ""
163 cnf["Auto-Decruft::Options::Suite"] = cnf.get("Dinstall::DefaultSuite", "unstable")
165 apt_pkg.parse_commandline(cnf.Cnf, Arguments, sys.argv)
167 Options = cnf.subtree("Auto-Decruft::Options")
172 if Options["Dry-Run"]:
175 session = DBConn().session()
177 suite = get_suite(Options["Suite"].lower(), session)
179 utils.fubar("Cannot find suite %s" % Options["Suite"].lower())
181 suite_id = suite.suite_id
182 suite_name = suite.suite_name.lower()
184 remove_sourceless_cruft(suite_name, suite_id, session, dryrun)
185 removeNBS(suite_name, suite_id, session, dryrun)
187 ################################################################################
189 if __name__ == '__main__':