diff options
author | Colin Guthrie <colin@mageia.org> | 2013-12-01 20:57:39 +0000 |
---|---|---|
committer | Colin Guthrie <colin@mageia.org> | 2013-12-07 17:16:59 +0000 |
commit | 645e6932216fddd154865a9bebb0fd0e3beed301 (patch) | |
tree | 9cd5e48aefcfdba197b83a321d8d1478befb2b86 /rescue/tree/sbin/fakeshutdown | |
parent | c0ccdccb16f6d9211ad5c8e13e3fd67f0562623a (diff) | |
download | drakx-645e6932216fddd154865a9bebb0fd0e3beed301.tar drakx-645e6932216fddd154865a9bebb0fd0e3beed301.tar.gz drakx-645e6932216fddd154865a9bebb0fd0e3beed301.tar.bz2 drakx-645e6932216fddd154865a9bebb0fd0e3beed301.tar.xz drakx-645e6932216fddd154865a9bebb0fd0e3beed301.zip |
rescue: Avoid having to run dracut convertfs script by setting up the tree.
We can easily avoid post processing the tree simply by moving the tree around
and ensuring we set it up correctly (with the compat symlinks) early in the
process.
Diffstat (limited to 'rescue/tree/sbin/fakeshutdown')
-rwxr-xr-x | rescue/tree/sbin/fakeshutdown | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/rescue/tree/sbin/fakeshutdown b/rescue/tree/sbin/fakeshutdown deleted file mode 100755 index 309f26c6c..000000000 --- a/rescue/tree/sbin/fakeshutdown +++ /dev/null @@ -1,39 +0,0 @@ -#!/usr/bin/perl - -# -# Guillaume Cottenceau (gc) -# -# Copyright 2001 Mandrakesoft -# -# This software may be freely redistributed under the terms of the GNU -# public license. -# -# 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., 675 Mass Ave, Cambridge, MA 02139, USA. -# - -# From MDK::Common: -sub cat_ { open(my $F, '<', $_[0]) or die "cat of file $_[0] failed: $!\n"; my @l = <$F>; wantarray() ? @l : join '', @l } -print "\n"; - - -#- try to umount as much as possible; uses Pixel's ultra optimized algo (let you guess how it works..) -print "Umounting:\n"; -my @mounts = cat_('/proc/mounts'); -my $something_moved; -do { - $something_moved = 0; - foreach (@mounts) { - my $where = (split)[1]; - next if $where eq '/'; #- ouch! umounting the ramdisk on / always succeeds, and makes it becoming ro :-( - if (!system("umount $where 2>/dev/null")) { - print "\t$where\n"; - $something_moved++; - } - } -} while $something_moved; - - -#- shutdown with init -exec '/sbin/init', 6; |