#!/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 #- 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 \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); Mageia Installer and base platform for many utilitiesThierry Vignaud [tv]

path: root/perl-install/wizards.pm

diff options

author	Thierry Vignaud <tv@mageia.org>	2012-08-07 10:37:06 +0000
committer	Thierry Vignaud <tv@mageia.org>	2012-08-07 10:37:06 +0000
commit	41a3a005f88fb7cb0b5a0c5ac69b2a79ea89b0ff (patch)
tree	6627f3a7242f034e5473661dec6f5a36278d737b /perl-install/wizards.pm
parent	ff04212de501d0b4d8535e366f5d4d4a7c25939c (diff)
download	drakx-41a3a005f88fb7cb0b5a0c5ac69b2a79ea89b0ff.tar drakx-41a3a005f88fb7cb0b5a0c5ac69b2a79ea89b0ff.tar.gz drakx-41a3a005f88fb7cb0b5a0c5ac69b2a79ea89b0ff.tar.bz2 drakx-41a3a005f88fb7cb0b5a0c5ac69b2a79ea89b0ff.tar.xz drakx-41a3a005f88fb7cb0b5a0c5ac69b2a79ea89b0ff.zip

(ensure_files_are_installed) do not popup if we've no packages to install

Diffstat (limited to 'perl-install/wizards.pm')

0 files changed, 0 insertions, 0 deletions


context:
space:
mode: