#!/usr/bin/perl

#- Mandriva cryptographic package hdlist and depslist generation tools.
#- Copyright (C) 1999-2005 Mandriva (fpons@mandriva.com)
#-
#- This program is free software; you can redistribute it and/or modify
#- it under the terms of the GNU General Public License as published by
#- the Free Software Foundation; either version 2, or (at your option)
#- any later version.
#-
#- This program is distributed in the hope that it will be useful,
#- but WITHOUT ANY WARRANTY; without even the implied warranty of
#- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#- GNU General Public License for more details.
#-
#- You should have received a copy of the GNU General Public License
#- along with this program; if not, write to the Free Software
#- Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

#- usage: gencryptofiles <crypto_dir>
#- build an hdlist and depslist file for crypto, need rpmtools also.

my %resolver = (
		'/bin/sh'           => 'bash',
		'/bin/bash'         => 'bash',
		'/usr/bin/perl'     => 'perl',
		'/usr/bin/perl5'    => 'perl',

		'libBrokenLocale.so' => 'glibc',
		'libICE.so'         => 'XFree86-libs',
		'libSM.so'          => 'XFree86-libs',
		'libX11.so'         => 'XFree86-libs',
		'libXext.so'        => 'XFree86-libs',
		'libXmu.so'         => 'XFree86-libs',
		'libXpm.so'         => 'xpm',
		'libXt.so'          => 'XFree86-libs',
		'libc.so.6'         => 'glibc',
		'libgdbm.so'        => 'gdbm',
		'libgpm.so'         => 'gpm',
		'libm.so'           => 'glibc',
		'libncurses.so'     => 'ncurses',
		'libnsl.so'         => 'glibc',
		'libpam.so'         => 'pam',
		'libpthread.so'     => 'glibc',
		'libreadline.so'    => 'readline',
		'libstdc++-libc6.1-2.so' => 'libstdc++',
		'libstdc++.so'      => 'libstdc++-compat',
		'libutil.so'        => 'glibc',
		'libz.so'           => 'zlib',
		'smtpdaemon'        => 'postfix',
	       );

sub gendepslist_crypto {
    my ($dir) = @_;
    my %depslist;

    #- get information about each rpm.
    local *DIR;
    opendir DIR, $dir or die "cannot open directory: $!\n";
    while ($_ = readdir DIR) {
	my ($key) = /(.*)\..*\.rpm$/ or next;
	my ($name) = /(.*)-[^-]*-[^-]*-/;

	my $size = `rpm -qp --queryformat="%{SIZE}" $dir/$_`;
	my @filelist = split "\n", `rpm -qpl $dir/$_`;
	my @requires = split "\n", `rpm -qpR $dir/$_`;

	$depslist{$key} = {
			   key      => $key,
			   size     => $size,
			   filelist => \@filelist,
			   requires => \@requires,
			   deps     => [],
			  };

	foreach (@filelist) {
	    $resolver{$_} = $name;
	    m|.*/([^/]*)$| and $resolver{$1} = $name;
	}
    }
    close DIR;

    #- resolve the dependancies.
    foreach my $pkg (values %depslist) {
	foreach (@{$pkg->{requires}}) {
	    $resolver{$_} and push(@{$pkg->{deps}}, $resolver{$_}), next;
	    m|^([^\s\(]*)| and $resolver{$1} and push(@{$pkg->{deps}}, $resolver{$1}), next;
	    m|^.*/([^/\s\(]*)| and $resolver{$1} and push(@{$pkg->{deps}}, $resolver{$1}), next;
	    m|^([^\s\(]*\.so)| and $resolver{$1} and push(@{$pkg->{deps}}, $resolver{$1}), next;
	    m|^.*/([^\s\(]*\.so)| and $resolver{$1} and push(@{$pkg->{deps}}, $resolver{$1}), next;
	    m|^([\w-]*)(?:\s+.*)$| and push(@{$pkg->{deps}}, $1); #- last and default to package name.
	}
    }

    #- build depslist-crypto file.
    local *F;
    open F, ">$dir/depslist-crypto" or die "cannot open depslist-crypto file for writing: $!\n";
    foreach (values %depslist) {
	my %deps;
	@deps{@{$_->{deps}}} = ();
	print F "$_->{key} $_->{size} ", join(" ", keys %deps), "\n";
    }
    close F;
}

sub main {
    my ($dir) = @_;
    -d $dir or die "usage: gencryptofiles <crypto_dir>\n";
    -x "/usr/bin/genhdlist_cz2" or die "I need rpmtools to work (ie /usr/bin/genhdlist_cz2)\n";

    print `genhdlist_cz2 -o $dir/hdlist-crypto.cz2 $dir`;
    gendepslist_crypto($dir);
}

main(@ARGV);
md</option>
<option value='user/ennael/mga6'>user/ennael/mga6</option>
<option value='user/erwan/bug-13680'>user/erwan/bug-13680</option>
<option value='user/jibz/aarch64'>user/jibz/aarch64</option>
<option value='user/martinw/mga6'>user/martinw/mga6</option>
<option value='user/pterjan/arm64'>user/pterjan/arm64</option>
</select> <input type='submit' value='switch'/></form></td></tr>
<tr><td class='sub'>Mageia Installer and base platform for many utilities</td><td class='sub right'>Thierry Vignaud [tv]</td></tr></table>
<table class='tabs'><tr><td>
<a href='/software/drakx/?h=17.36.1'>summary</a><a href='/software/drakx/refs/?h=17.36.1&amp;id=cb8bc022c53b9dc737e0f26d1ff00271726f247c'>refs</a><a href='/software/drakx/log/perl-install/share/po?h=17.36.1'>log</a><a href='/software/drakx/tree/perl-install/share/po?h=17.36.1&amp;id=cb8bc022c53b9dc737e0f26d1ff00271726f247c'>tree</a><a class='active' href='/software/drakx/commit/perl-install/share/po?h=17.36.1&amp;id=cb8bc022c53b9dc737e0f26d1ff00271726f247c'>commit</a><a href='/software/drakx/diff/perl-install/share/po?h=17.36.1&amp;id=cb8bc022c53b9dc737e0f26d1ff00271726f247c'>diff</a><a href='/software/drakx/stats/perl-install/share/po?h=17.36.1'>stats</a></td><td class='form'><form class='right' method='get' action='/software/drakx/log/perl-install/share/po'>
<input type='hidden' name='h' value='17.36.1'/><input type='hidden' name='id' value='cb8bc022c53b9dc737e0f26d1ff00271726f247c'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/software/drakx/commit/?h=17.36.1&amp;id=cb8bc022c53b9dc737e0f26d1ff00271726f247c'>root</a>/<a href='/software/drakx/commit/perl-install?h=17.36.1&amp;id=cb8bc022c53b9dc737e0f26d1ff00271726f247c'>perl-install</a>/<a href='/software/drakx/commit/perl-install/share?h=17.36.1&amp;id=cb8bc022c53b9dc737e0f26d1ff00271726f247c'>share</a>/<a href='/software/drakx/commit/perl-install/share/po?h=17.36.1&amp;id=cb8bc022c53b9dc737e0f26d1ff00271726f247c'>po</a></div><div class='content'><div class='cgit-panel'><b>diff options</b><form method='get'><input type='hidden' name='h' value='17.36.1'/><input type='hidden' name='id' value='cb8bc022c53b9dc737e0f26d1ff00271726f247c'/><table><tr><td colspan='2'/></tr><tr><td class='label'>context:</td><td class='ctrl'><select name='context' onchange='this.form.submit();'><option value='1'>1</option><option value='2'>2</option><option value='3' selected='selected'>3</option><option value='4'>4</option><option value='5'>5</option><option value='6'>6</option><option value='7'>7</option><option value='8'>8</option><option value='9'>9</option><option value='10'>10</option><option value='15'>15</option><option value='20'>20</option><option value='25'>25</option><option value='30'>30</option><option value='35'>35</option><option value='40'>40</option></select></td></tr><tr><td class='label'>space:</td><td class='ctrl'><select name='ignorews' onchange='this.form.submit();'><option value='0' selected='selected'>include</option><option value='1'>ignore</option></select></td></tr><tr><td class='label'>mode:</td><td class='ctrl'><select name='dt' onchange='this.form.submit();'><option value='0' selected='selected'>unified</option><option value='1'>ssdiff</option><option value='2'>stat only</option></select></td></tr><tr><td/><td class='ctrl'><noscript><input type='submit' value='reload'/></noscript></td></tr></table></form></div><table summary='commit info' class='commit-info'>
<tr><th>author</th><td>Thierry Vignaud &lt;tv@mageia.org&gt;</td><td class='right'>2012-09-18 10:40:01 +0000</td></tr>
<tr><th>committer</th><td>Thierry Vignaud &lt;tv@mageia.org&gt;</td><td class='right'>2012-09-18 10:40:01 +0000</td></tr>
<tr><th>commit</th><td colspan='2' class='sha1'><a href='/software/drakx/commit/perl-install/share/po?h=17.36.1&amp;id=cb8bc022c53b9dc737e0f26d1ff00271726f247c'>cb8bc022c53b9dc737e0f26d1ff00271726f247c</a> (<a href='/software/drakx/patch/perl-install/share/po?id=cb8bc022c53b9dc737e0f26d1ff00271726f247c'>patch</a>)</td></tr>
<tr><th>tree</th><td colspan='2' class='sha1'><a href='/software/drakx/tree/?h=17.36.1&amp;id=cb8bc022c53b9dc737e0f26d1ff00271726f247c'>578aede50a32c8e7465c2a156cb30e103a8bca46</a> /<a href='/software/drakx/tree/perl-install/share/po?h=17.36.1&amp;id=cb8bc022c53b9dc737e0f26d1ff00271726f247c'>perl-install/share/po</a></td></tr>
<tr><th>parent</th><td colspan='2' class='sha1'><a href='/software/drakx/commit/perl-install/share/po?h=17.36.1&amp;id=720f8e17cc0bf3c455d0ae7e62008134b45fa13a'>720f8e17cc0bf3c455d0ae7e62008134b45fa13a</a> (<a href='/software/drakx/diff/perl-install/share/po?h=17.36.1&amp;id=cb8bc022c53b9dc737e0f26d1ff00271726f247c&amp;id2=720f8e17cc0bf3c455d0ae7e62008134b45fa13a'>diff</a>)</td></tr><tr><th>download</th><td colspan='2' class='sha1'><a href='/software/drakx/snapshot/drakx-cb8bc022c53b9dc737e0f26d1ff00271726f247c.tar'>drakx-cb8bc022c53b9dc737e0f26d1ff00271726f247c.tar</a><br/><a href='/software/drakx/snapshot/drakx-cb8bc022c53b9dc737e0f26d1ff00271726f247c.tar.gz'>drakx-cb8bc022c53b9dc737e0f26d1ff00271726f247c.tar.gz</a><br/><a href='/software/drakx/snapshot/drakx-cb8bc022c53b9dc737e0f26d1ff00271726f247c.tar.bz2'>drakx-cb8bc022c53b9dc737e0f26d1ff00271726f247c.tar.bz2</a><br/><a href='/software/drakx/snapshot/drakx-cb8bc022c53b9dc737e0f26d1ff00271726f247c.tar.xz'>drakx-cb8bc022c53b9dc737e0f26d1ff00271726f247c.tar.xz</a><br/><a href='/software/drakx/snapshot/drakx-cb8bc022c53b9dc737e0f26d1ff00271726f247c.zip'>drakx-cb8bc022c53b9dc737e0f26d1ff00271726f247c.zip</a><br/></td></tr></table>
<div class='commit-subject'>sync with code</div><div class='commit-msg'></div><div class='diffstat-header'><a href='/software/drakx/diff/?h=17.36.1&amp;id=cb8bc022c53b9dc737e0f26d1ff00271726f247c'>Diffstat</a> (limited to 'perl-install/share/po')</div><table summary='diffstat' class='diffstat'>