summaryrefslogtreecommitdiffstats
path: root/tools
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-05-09 16:06:10 +0000
committerFrancois Pons <fpons@mandriva.com>2000-05-09 16:06:10 +0000
commit0ee11e471095e7390839eac7ff95bddd13651ffa (patch)
treeb718445dcebec8cff794f0a3fe74f8a3b1724273 /tools
parent393e88400fd376b305300cc2e686d5d39cfb9c28 (diff)
downloaddrakx-backup-do-not-use-0ee11e471095e7390839eac7ff95bddd13651ffa.tar
drakx-backup-do-not-use-0ee11e471095e7390839eac7ff95bddd13651ffa.tar.gz
drakx-backup-do-not-use-0ee11e471095e7390839eac7ff95bddd13651ffa.tar.bz2
drakx-backup-do-not-use-0ee11e471095e7390839eac7ff95bddd13651ffa.tar.xz
drakx-backup-do-not-use-0ee11e471095e7390839eac7ff95bddd13651ffa.zip
*** empty log message ***
Diffstat (limited to 'tools')
-rwxr-xr-xtools/gencryptofiles115
1 files changed, 115 insertions, 0 deletions
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);