From 58693ad81c09243227828b80c8f51d43d524d005 Mon Sep 17 00:00:00 2001
From: aiju <aiju@phicode.de>
Date: Thu, 21 Jul 2011 10:45:41 +0200
Subject: [PATCH] fshalt: really scram the local machine

---
 rc/bin/fshalt | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/rc/bin/fshalt b/rc/bin/fshalt
index 867276c2d..c6bf8c854 100755
--- a/rc/bin/fshalt
+++ b/rc/bin/fshalt
@@ -3,6 +3,7 @@
 #	and optionally reboot
 rfork e
 reboot=no
+scram=no
 switch ($#*) {
 case 0
 case 1
@@ -14,6 +15,8 @@ case *
 
 path=(/bin)
 builtin cd /
+bind -c '#s' /srv
+bind '#p' /proc
 
 unmount /mnt/consoles >[2]/dev/null
 kill consolefs | rc			# don't compete with /mnt/consoles
@@ -33,8 +36,11 @@ for (i in $k){
 	sleep 2
 }
 
-# for scram
+# for scram, don't scram other systems
 bind -b '#P' /dev
+if (test -e '#P'/apm)
+	if (! ~ $reboot yes)
+		scram=yes
 
 # halting (binaries we run can't be on the fs we're halting)
 ramfs
@@ -79,7 +85,8 @@ fn x {
 		echo rebooting...
 		echo reboot >'#c/reboot'
 	}
-	if not scram
+	if (~ $scram yes)
+		scram
 }
 
 x