add /rc/bin/sysinfo

This commit is contained in:
stanley lieber 2012-05-06 21:51:12 -05:00
parent 466808d9e3
commit fb948ee521

49
rc/bin/sysinfo Executable file
View file

@ -0,0 +1,49 @@
#!/bin/rc
fn logprog{
echo % `{echo $"* | sed 's/#/''#''/g'}
$*
echo
}
fn work{
echo '% cd ''#ec''; for(i in *){echo $i ''='' `{cat $i}}'
cd '#ec'; for(i in *){echo $i '=' `{cat $i}}
echo
logprog cat '#P/archctl'
logprog cat '#P/irqalloc'
logprog cat '#P/ioalloc'
logprog cat '#c/config'
logprog cat '#c/swap'
logprog cat '#c/sysstat'
logprog awk '/^Plan 9$/{p=1}
/^init: starting/{exit}
{if(p)print}' '#c/kmesg'
logprog pci -v
logprog aux/icanhasmsi
logprog aux/pcmcia
logprog cat '#u/usb/ctl'
logprog cat '#S/sdctl'
for(i in '#S'/sd[A-Z][0-9]*/ctl)
logprog cat $i
for(i in '#l/ether'*){
logprog cat $i/addr
logprog cat $i/stats
logprog cat $i/ifstats
}
logprog cat '#v/vgactl'
echo '@{rfork n; aux/realemu; aux/vga -p}'
@{rfork n; aux/realemu; aux/vga -p}
logprog xd -x1 '#r/nvram'
logprog cat '#A/audiostat'
logprog cat '#A/volume'
logprog cat /mnt/apm/ctl
}
switch($1){
case -m
{echo Subject: `{cat '#P/cputype'}; work} >[2=1] |
upas/smtp 9front.org $user hardware@9front.org
case *
work
}