#!/usr/bin/perl use lib "../perl-install"; use keyboard; use common qw(:file); use Config; Config->import; my ($arch) = $Config{archname} =~ /(.*)-/; $tmp = "/tmp/rescue_tmp"; $mnt = "/tmp/rescue_stage2_img"; $mke2fs = "/sbin/mke2fs -q -m 0 -F -s 1"; $rescue = "rescue_stage2"; if ($>) { $sudo = "sudo"; $ENV{PATH} = "/sbin:/usr/sbin:$ENV{PATH}"; } BEGIN { undef *_; } sub __ { print @_, "\n"; system(@_); } sub _ { __ @_; $? and die; } sub install_ { return if -e "$tmp$_[0]"; my $d = dirname($_[0]); commands::mkdir_("-p", "$tmp$d") unless -d "$tmp$d"; _ "$sudo cp $_[1] $_[0] $tmp$d"; } sub install { install_($_[0], "-a") } sub install_lib { install_($_[0], "") } _ "$sudo rm -rf $tmp" if -e $tmp; _ "mkdir $tmp"; _ 'find . -name "*~" | xargs rm -f'; foreach (cat_("dirs")) { chomp; commands::mkdir_("-p", "$tmp$_"); } _ "cp -a tree/* $tmp"; _ "find $tmp -name 'CVS*' | xargs rm -rf"; foreach (keyboard::loadkeys_files) { install($_); symlink "$2.kmap.gz", "$tmp$1/$3.kmap.gz" if m|(.*)/((..).+)\.kmap\.gz|; } unlink "$tmp/usr/lib/kbd/keymaps/i386/qwertz/fr.kmap.gz"; foreach (cat_("list"), cat_(`../tools/specific_arch list`)) { chomp; install($_); chomp, install_lib($_) foreach `ldd $_ 2>/dev/null | grep "=>" | sed -e 's/.*=> //' -e 's/ .*//'`; } foreach (cat_("aliases")) { chomp; my ($f, $dest) = split; symlink $dest, "$tmp$f"; } _ "cp ../modules/modules.{cz*,dep} $tmp/modules"; _ "install -s kernel_read_part $tmp/sbin" if $arch =~ /i.86/; __ "$sudo strip $tmp/{lib,bin,sbin}/* $tmp/usr/{bin,sbin}/* 2>/dev/null"; exit 0 if $ARGV[0]; $size = `du -s $tmp | cut -f1` + 2048; #- add 2MB of free space commands::mkdir_("-p", $mnt) if !-e $mnt; __ "$sudo umount $rescue 2>/dev/null"; _ "dd if=/dev/zero of=$rescue bs=1k count=$size"; _ "$mke2fs $rescue"; _ "$sudo mount -t ext2 $rescue $mnt -o loop"; _ "rmdir $mnt/lost+found"; _ "$sudo chown -R root.root $tmp"; _ "$sudo cp -a $tmp/* $mnt"; _ "$sudo rm -rf $tmp"; _ "$sudo umount $rescue"; _ "rmdir $mnt"; _ "echo gzipping $rescue"; _ "gzip -f -9 $rescue"; c/MDK-10_1-update'>topic/MDK-10_1-update Mageia Installer and base platform for many utilitiesThierry Vignaud [tv]
summaryrefslogtreecommitdiffstats
path: root/perl-install/share/po
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-02-17 09:25:51 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-02-17 09:25:51 +0000
commitbedb9e58692e167ef4ac7c30b9e8f9a80720c106 (patch)
tree9afb660a56cc67fc70e95d113d87263a13f14796 /perl-install/share/po
parent22ce15b81b4495166341b52d897dbae9ddbdd119 (diff)
downloaddrakx-bedb9e58692e167ef4ac7c30b9e8f9a80720c106.tar
drakx-bedb9e58692e167ef4ac7c30b9e8f9a80720c106.tar.gz
drakx-bedb9e58692e167ef4ac7c30b9e8f9a80720c106.tar.bz2
drakx-bedb9e58692e167ef4ac7c30b9e8f9a80720c106.tar.xz
drakx-bedb9e58692e167ef4ac7c30b9e8f9a80720c106.zip
simplify translator job by propaging pixel english typo fix
Diffstat (limited to 'perl-install/share/po')