3 # Check for obsolete binary packages
4 # Copyright (C) 2000, 2001, 2002 James Troup <james@nocrew.org>
5 # $Id: rene,v 1.12 2002-05-14 15:33:32 troup Exp $
7 # This program is free software; you can redistribute it and/or modify
8 # it under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 2 of the License, or
10 # (at your option) any later version.
12 # This program is distributed in the hope that it will be useful,
13 # but WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with this program; if not, write to the Free Software
19 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
21 ################################################################################
23 # "Welcome to where time stands still,
24 # No one leaves and no one will."
25 # - Sanitarium - Metallica / Master of the puppets
27 ################################################################################
29 import commands, pg, os, string, sys, tempfile;
30 import utils, db_access;
33 ################################################################################
38 ################################################################################
43 Cnf = utils.get_conf()
45 Arguments = [('h',"help","Catherine::Options::Help"),
46 ('V',"version","Catherine::Options::Version"),
47 ('l',"limit", "Catherine::Options::Limit", "HasArg"),
48 ('n',"no-action","Catherine::Options::No-Action"),
49 ('v',"verbose","Catherine::Options::Verbose")];
51 apt_pkg.ParseCommandLine(Cnf,Arguments,sys.argv);
52 projectB = pg.connect(Cnf["DB::Name"], Cnf["DB::Host"], int(Cnf["DB::Port"]));
53 db_access.init(Cnf, projectB);
61 suite_id = db_access.get_suite_id(suite);
63 components = Cnf.ValueList("Suite::%s::Components" % (suite));
64 for component in components:
65 filename = "%s/dists/%s/%s/source/Sources.gz" % (Cnf["Dir::Root"], suite, component);
66 # apt_pkg.ParseTagFile needs a real file handle and can't handle a GzipFile instance...
67 temp_filename = tempfile.mktemp();
68 fd = os.open(temp_filename, os.O_RDWR|os.O_CREAT|os.O_EXCL, 0700);
70 (result, output) = commands.getstatusoutput("gunzip -c %s > %s" % (filename, temp_filename));
72 sys.stderr.write("Gunzip invocation failed!\n%s\n" % (output));
74 sources = utils.open_file(temp_filename);
75 Sources = apt_pkg.ParseTagFile(sources);
77 source = Sources.Section.Find('Package');
78 architecture = Sources.Section.Find('Architecture');
79 binaries = Sources.Section.Find('Binary');
81 # Check for packages built on architectures they shouldn't be.
82 if architecture != "any" and architecture != "all":
84 for arch in string.split(architecture):
85 architectures[string.strip(arch)] = "";
86 for binary in string.split(binaries, ','):
87 binary = string.strip(binary);
88 q = projectB.query("SELECT a.arch_string, b.version FROM binaries b, bin_associations ba, architecture a WHERE ba.suite = %s AND ba.bin = b.id AND b.architecture = a.id AND b.package = '%s'" % (suite_id, binary));
91 utils.warn("%s lists %s as a binary, but it doesn't seem to exist in %s?" % (source, binary, suite));
92 # Loop around twice; first to get the latest 'valid' version
94 for i in q.getresult():
97 if architectures.has_key(arch):
98 versions.append(version);
99 versions.sort(apt_pkg.VersionCompare);
101 latest_version = versions.pop()
103 latest_version = None;
104 # ... then to check for 'invalid' architectures
105 for i in q.getresult():
108 if not architectures.has_key(arch):
109 print "[%s]: %s appears for %s (vs. '%s')" % (source, binary, arch, architecture),
110 if not latest_version:
111 print "** mwaap, mwapp! Ignore me **";
113 if apt_pkg.VersionCompare(latest_version, version) != -1:
114 print "- out of date.",
117 print "[%s vs %s (%s)]" % (latest_version, version, arch);
119 # Check for duplicated packages and build indices for checking "no source" later
120 source_index = component + '/' + source;
121 if src_pkgs.has_key(source):
122 print " %s is a duplicated source package (%s and %s)" % (source, source_index, src_pkgs[source]);
123 src_pkgs[source] = source_index;
124 for binary in string.split(binaries, ','):
125 binary = string.strip(binary);
126 if bin_pkgs.has_key(binary):
127 print " %s is duplicated in %s and %s" % (binary, source, bin_pkgs[binary]);
128 bin_pkgs[binary] = source;
129 source_binaries[source] = binaries;
132 os.unlink(temp_filename);
134 for component in components:
135 architectures = Cnf.ValueList("Suite::%s::Architectures" % (suite));
136 for architecture in architectures:
137 if [ "source", "all" ].count(architecture) != 0:
139 filename = "%s/dists/%s/%s/binary-%s/Packages" % (Cnf["Dir::Root"], suite, component, architecture);
140 packages = utils.open_file(filename);
141 Packages = apt_pkg.ParseTagFile(packages);
142 while Packages.Step():
143 package = Packages.Section.Find('Package');
144 source = Packages.Section.Find('Source', "");
147 if string.find(source, "(") != -1:
148 m = utils.re_extract_src_version.match(source)
150 if not bin_pkgs.has_key(package) and not miss_src.has_key(package):
151 miss_src[package] = 1;
152 print " %s has no source [%s: %s]" % (package, source, source_binaries.get(source, "(source does not exist)"));
155 # Check for packages in experimental obsoleted by versions in unstable
157 # [If melanie was callable from python, we could auto-remove these
160 suite_id = db_access.get_suite_id("unstable");
161 q = projectB.query("""
162 SELECT s.source, s.version AS experimental, s2.version AS unstable
163 FROM src_associations sa, source s, source s2, src_associations sa2
164 WHERE sa.suite = 1 AND sa2.suite = %d AND sa.source = s.id
165 AND sa2.source = s2.id AND s.source = s2.source
166 AND versioncmp(s.version, s2.version) < 0""" % (suite_id));
172 ####################################################################################################
174 if __name__ == '__main__':