diff options
| author | Nicolas Vigier <boklm@mageia.org> | 2013-04-14 13:46:12 +0000 |
|---|---|---|
| committer | Nicolas Vigier <boklm@mageia.org> | 2013-04-14 13:46:12 +0000 |
| commit | 1be510f9529cb082f802408b472a77d074b394c0 (patch) | |
| tree | b175f9d5fcb107576dabc768e7bd04d4a3e491a0 /zarb-ml/mageia-dev/attachments/20120524 | |
| parent | fa5098cf210b23ab4f419913e28af7b1b07dafb2 (diff) | |
| download | archives-master.tar archives-master.tar.gz archives-master.tar.bz2 archives-master.tar.xz archives-master.zip | |
Diffstat (limited to 'zarb-ml/mageia-dev/attachments/20120524')
4 files changed, 54 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 diff --git a/zarb-ml/mageia-dev/attachments/20120524/e85fe958/attachment-0001.asc b/zarb-ml/mageia-dev/attachments/20120524/e85fe958/attachment-0001.asc new file mode 100644 index 000000000..743abe910 --- /dev/null +++ b/zarb-ml/mageia-dev/attachments/20120524/e85fe958/attachment-0001.asc @@ -0,0 +1,7 @@ +-----BEGIN PGP SIGNATURE----- +Version: GnuPG v1.4.9 (GNU/Linux) + +iD8DBQBPvkinT1rWTfpocyQRAu1UAKDWsu/IUJT66x6euQrAwBp1icyVowCg3ydX +l6cAmKkyp4t5TDxcRW25GDU= +=Abe4 +-----END PGP SIGNATURE----- diff --git a/zarb-ml/mageia-dev/attachments/20120524/e85fe958/attachment.asc b/zarb-ml/mageia-dev/attachments/20120524/e85fe958/attachment.asc new file mode 100644 index 000000000..743abe910 --- /dev/null +++ b/zarb-ml/mageia-dev/attachments/20120524/e85fe958/attachment.asc @@ -0,0 +1,7 @@ +-----BEGIN PGP SIGNATURE----- +Version: GnuPG v1.4.9 (GNU/Linux) + +iD8DBQBPvkinT1rWTfpocyQRAu1UAKDWsu/IUJT66x6euQrAwBp1icyVowCg3ydX +l6cAmKkyp4t5TDxcRW25GDU= +=Abe4 +-----END PGP SIGNATURE----- |