+################################################################################
+#
+# Check all files for timestamps in the future; common from hardware
+# (e.g. alpha) which have far-future dates as their default dates.
+
+
+
+def Ent(Kind,Name,Link,Mode,UID,GID,Size,MTime,Major,Minor):
+ global future_files;
+
+ if MTime > current_time:
+ future_files[current_file] = MTime;
+ print "%s: %s '%s','%s',%u,%u,%u,%u,%u,%u,%u" % (current_file, Kind,Name,Link,Mode,UID,GID,Size, MTime, Major, Minor);
+
+def check_timestamps():
+ global current_file;
+
+ q = projectB.query("SELECT l.path, f.filename FROM files f, location l WHERE f.location = l.id AND f.filename ~ '.deb$'")
+ ql = q.getresult();
+ db_files.clear();
+ count = 0;
+ for i in ql:
+ filename = os.path.abspath(i[0] + i[1]);
+ if os.access(filename, os.R_OK):
+ file = utils.open_file(filename);
+ current_file = filename;
+ sys.stderr.write("Processing %s.\n" % (filename));
+ apt_inst.debExtract(file,Ent,"control.tar.gz");
+ file.seek(0);
+ apt_inst.debExtract(file,Ent,"data.tar.gz");
+ count = count + 1;
+ print "Checked %d files (out of %d)." % (count, len(db_files.keys()));
+
+################################################################################
+
+def check_missing_tar_gz_in_dsc():
+ count = 0;
+
+ q = projectB.query("SELECT l.path, f.filename FROM files f, location l WHERE f.location = l.id AND f.filename ~ '.dsc$'")
+ for i in q.getresult():
+ filename = os.path.abspath(i[0] + i[1]);
+ try:
+ # NB: don't enforce .dsc syntax
+ dsc = utils.parse_changes(filename, 0);
+ except:
+ utils.fubar("error parsing .dsc file '%s'." % (filename));
+ dsc_files = utils.build_file_list(dsc, 1);
+ has_tar = 0;
+ for file in dsc_files.keys():
+ m = utils.re_issource.match(file);
+ if not m:
+ utils.fubar("%s not recognised as source." % (file));
+ type = m.group(3);
+ if type == "orig.tar.gz" or type == "tar.gz":
+ has_tar = 1;
+ if not has_tar:
+ utils.warn("%s has no .tar.gz in the .dsc file." % (file));
+ count = count + 1;
+
+ if count:
+ utils.warn("Found %s invalid .dsc files." % (count));
+