From df52dd03d51f1728f15db0d89df54532811c1870 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Mon, 11 Jun 2001 21:38:14 +0000
Subject: umount as much as possible before rebooting the rescue

---
 rescue/tree/sbin/fakeshutdown | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100755 rescue/tree/sbin/fakeshutdown

(limited to 'rescue/tree/sbin')

diff --git a/rescue/tree/sbin/fakeshutdown b/rescue/tree/sbin/fakeshutdown
new file mode 100755
index 000000000..c6d9b8440
--- /dev/null
+++ b/rescue/tree/sbin/fakeshutdown
@@ -0,0 +1,39 @@
+#!/usr/bin/perl
+
+#
+# Guillaume Cottenceau (gc@mandrakesoft.com)
+#
+# 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.
+#
+
+sub cat_ { local *F; open F, $_[0] or $_[1] ? die "cat of file $_[0] failed: $!\n" : return; 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;
-- 
cgit v1.2.1