1 files changed, 20 insertions, 0 deletions
diff --git a/zarb-ml/mageia-dev/attachments/20120524/bf498b23/attachment.obj b/zarb-ml/mageia-dev/attachments/20120524/bf498b23/attachment.obj
new file mode 100644
index 000000000..6a031fafb
--- /dev/null
+++ b/zarb-ml/mageia-dev/attachments/20120524/bf498b23/attachment.obj
@@ -0,0 +1,20 @@
+#!/usr/bin/perl -w
+
+# This script takes a root SRPMS directory as argument, and print the
+# list of package names on stdout
+
+use strict;
+use URPM;
+
+my $srpmsdir = $ARGV[0] or exit 1;
+
+my $urpm = URPM->new;
+
+foreach (glob("$srpmsdir/*/*/media_info/synthesis.hdlist.cz")) {
+    $urpm->parse_synthesis($_);
+}
+
+my %res;
+$urpm->traverse(sub { $res{$_[0]->name} = 1 });
+
+print join("\n", sort(keys %res), '')
+\ No newline at end of file