ref: ae16de57e6157c784d2857813c400c7a7dcb857b
dir: /bin/nopedog/
#!/bin/rc
rfork n
if(! test -f '#s'/acpi)
aux/acpi -s acpi || exit
mount '#s'/acpi /mnt/pm || exit
if(! test -f /mnt/pm/battery)
exit no battery to hand
# safer to assume that if one battery has dipped very low and we're not charging,
# either it has to be removed or replaced, or we're in a danger zone
# total capacity is taken from design capacity and ratio will be lower, as a
# precaution
awk -v 'sys='^$sysname -v 'bat='-1 '
function alert(){
wcmd = "\''label alert; " \
"echo FAILURE IS IMMINENT; " \
"while() play /lib/m/mamb/pripyat.evacuation.audio.opus\''"
print "master 100" >"#A/volume"
if("ls \''#s\''/riowctl.*" | getline x > 0)
system("wctl=" x " window -dx 120 -dy 200 -minx 0 -miny 0 " wcmd)
}
NR == 1{ bat = $1; left = $3; cap = $4; chg = $12 == "charging" }
NR > 1{ bat = $1 > bat ? $1 : bat; left += $3; cap += $4; chg = chg || $12 == "charging" }
END{
if(bat < 0 || chg)
exit
rem = left / cap
if(NR > 1 && rem < 0.10 || NR == 1 && bat < 5)
system("fshalt")
else if(NR > 1 && rem < 0.16 || NR == 1 && bat < 10)
alert()
}
' /mnt/pm/battery