From 0ee11e471095e7390839eac7ff95bddd13651ffa Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Tue, 9 May 2000 16:06:10 +0000
Subject: *** empty log message ***

---
 tools/gencryptofiles | 115 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 115 insertions(+)
 create mode 100755 tools/gencryptofiles

(limited to 'tools/gencryptofiles')

diff --git a/tools/gencryptofiles b/tools/gencryptofiles
new file mode 100755
index 000000000..f86b1ec3a
--- /dev/null
+++ b/tools/gencryptofiles
@@ -0,0 +1,115 @@
+#!/usr/bin/perl
+
+#- Mandrake cryptographic package hdlist and depslist generation tools.
+#- Copyright (C) 1999 MandrakeSoft (fpons@mandrakesoft.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);
-- 
cgit v1.2.1