diff options
Diffstat (limited to 'zarb-ml/mageia-dev/attachments/20120524/bf498b23')
| -rw-r--r-- | zarb-ml/mageia-dev/attachments/20120524/bf498b23/attachment-0001.obj | 20 | ||||
| -rw-r--r-- | zarb-ml/mageia-dev/attachments/20120524/bf498b23/attachment.obj | 20 |
2 files changed, 40 insertions, 0 deletions
diff --git a/zarb-ml/mageia-dev/attachments/20120524/bf498b23/attachment-0001.obj b/zarb-ml/mageia-dev/attachments/20120524/bf498b23/attachment-0001.obj new file mode 100644 index 000000000..6a031fafb --- /dev/null +++ b/zarb-ml/mageia-dev/attachments/20120524/bf498b23/attachment-0001.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 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 |