--- trunk/pts/www/bin/sources_to_xml.py	2011/05/01 22:20:55	2520
+++ trunk/pts/www/bin/sources_to_xml.py	2011/08/25 09:11:42	2565
@@ -225,6 +225,18 @@
 cPickle.dump(binary_to_sources, f, 0)
 f.close()
 
+# Also store a copy in the old sources.map format, to be used by the
+# Perl mail interface
+with open(os.path.join(odir, "sources.map"), 'w') as f:
+    for binary, source in binary_to_sources.iteritems():
+        # If the package is in current (i.e., unstable), we use it
+        if source['current'] is not None:
+            f.write("%s %s\n" % (binary, source['current']))
+        # Otherwise we pick an arbitrary one among all the available
+        # distributions
+        else:
+            f.write("%s %s\n" % (binary, source['merged'][0]))
+
 # Scan the old package/distribution that existed and check if they
 # still exist ... if they don't, remove the associated xml file.
 for key in old_done.keys():