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)
77 message = '[auto-cruft] no longer built from source, no reverse dependencies'
80 if utils.check_reverse_depends([package], suite_name, [], session, cruft=True, quiet=True):
84 # Embed the -R just in case someone wants to run it manually later
85 print 'Would do: dak rm -m "%s" -s %s -a all -p -R -b %s' % \
86 (message, suite_name, package)
88 q = session.execute("""
89 SELECT b.package, b.version, a.arch_string, b.id
91 JOIN bin_associations ba ON b.id = ba.bin
92 JOIN architecture a ON b.architecture = a.id
93 JOIN suite su ON ba.suite = su.id
94 WHERE a.id = :arch_all_id AND b.package = :package AND su.id = :suite_id
95 """, {arch_all_id: arch_all_id, package: package, suite_id: suite_id})
96 remove(session, message, [suite_name], list(q), partial=True, whoami="DAK's auto-decrufter")
99 def removeNBS(suite_name, suite_id, session, dryrun):
100 """Remove binaries no longer built
102 @type suite_name: string
103 @param suite_name: The name of the suite to remove from
106 @param suite_id: The id of the suite donated by suite_name
108 @type session: SQLA Session
109 @param session: The database session in use
112 @param dryrun: If True, just print the actions rather than actually doing them
115 rows = queryNBS(suite_id, session)
118 (pkg_list, arch_list, source, _) = row
119 if utils.check_reverse_depends(pkg_list, suite_name, arch_list, session, cruft=True, quiet=True):
121 arch_string = ','.join(arch_list)
122 message = '[auto-cruft] NBS (no longer built by %s, no reverse dependencies)' % source
125 # Embed the -R just in case someone wants to run it manually later
126 pkg_string = ' '.join(pkg_list)
127 print 'Would do: dak rm -m "%s" -s %s -a %s -p -R -b %s' % \
128 (message, suite_name, arch_string, pkg_string)
130 for architecture in arch_list:
131 if architecture in arch2ids:
132 arch2ids[architecture] = utils.get_architecture(architecture, session=session)
133 arch_ids = tuple(arch2ids[architecture] for architecture in arch_list)
137 pkg_list: tuple(pkg_list),
139 q = session.execute("""
140 SELECT b.package, b.version, a.arch_string, b.id
142 JOIN bin_associations ba ON b.id = ba.bin
143 JOIN architecture a ON b.architecture = a.id
144 JOIN suite su ON ba.suite = su.id
145 WHERE a.id IN :arch_ids AND b.package IN :pkg_db_set AND su.id = :suite_id
147 remove(session, message, [suite_name], list(q), partial=True, whoami="DAK's auto-decrufter")
149 ################################################################################
155 Arguments = [('h',"help","Auto-Decruft::Options::Help"),
156 ('n',"dry-run","Auto-Decruft::Options::Dry-Run"),
157 ('s',"suite","Auto-Decruft::Options::Suite","HasArg")]
158 for i in ["help", "Dry-Run"]:
159 if not cnf.has_key("Auto-Decruft::Options::%s" % (i)):
160 cnf["Auto-Decruft::Options::%s" % (i)] = ""
162 cnf["Auto-Decruft::Options::Suite"] = cnf.get("Dinstall::DefaultSuite", "unstable")
164 apt_pkg.parse_commandline(cnf.Cnf, Arguments, sys.argv)
166 Options = cnf.subtree("Auto-Decruft::Options")
171 if Options["Dry-Run"]:
174 session = DBConn().session()
176 suite = get_suite(Options["Suite"].lower(), session)
178 utils.fubar("Cannot find suite %s" % Options["Suite"].lower())
180 suite_id = suite.suite_id
181 suite_name = suite.suite_name.lower()
183 remove_sourceless_cruft(suite_name, suite_id, session, dryrun)
184 removeNBS(suite_name, suite_id, session, dryrun)
186 ################################################################################
188 if __name__ == '__main__':