#!/bin/rc
rfork e
-
fn logprog{
echo % `{echo $"* | sed 's/#/''#''/g'}
$*
echo
}
-
fn print{
echo '% cd ''#ec''; for(i in *){echo $i ''='' `{cat $i}}'
cd '#ec'; for(i in *){echo $i '=' `{cat $i}}
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}
+ logprog cat '#ΒΆ/swap'
+ logprog awk '/^Plan 9/{p=1}
/^init: starting/{exit}
{if(p)print}' '#c/kmesg'
logprog pci -v
+ logprog aux/cpuid
logprog aux/icanhasmsi
+ logprog aux/icanhasvmx -v
logprog aux/pcmcia
logprog cat '#u/usb/ctl'
logprog cat '#S/sdctl'
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'
+ if(test -e '#v/vgactl'){
+ logprog cat '#v/vgactl'
+ echo '@{rfork n; aux/realemu; aux/vga -p}'
+ @{rfork n; aux/realemu; aux/vga -p}
+ }
+ if(~ $cputype 386 amd64)
+ logprog xd -x1 '#r/nvram'
logprog cat '#A/audiostat'
logprog cat '#A/volume'
logprog cat /mnt/apm/ctl
}
-
fn post{
file=/tmp/sysinfo.$user.$pid
- print >$file >[2=1]
+ if(! ~ $#e 0)
+ echo $e >$file
+ print >>$file >[2=1]
@{
rfork n
webfs
hpost -u http://sysinfo.9front.org -p / a_body@$file submit:submit fake:fake a_func:add_post url: |
grep -e '\/body\"' |
- sed 1q | sed 's/^.*href=\"//g; s/body\".*$/body/g; s/^/http:\/\/sysinfo.9front.org/g'
+ sed 1q | sed 's/^.*href=\"//g; s/body\".*$/body/g'
rm -f $file
}
}
-
-switch($1){
-case -p
+argv0=$0
+fn usage {
+ echo usage: $argv0 '[ -e e-mail ] [ -p ]' >[1=2]
+ exit usage
+}
+e=()
+p=()
+while(~ $1 -*){
+ switch($1){
+ case -e
+ e=$2
+ shift
+ case -p
+ p=1
+ shift
+ case *
+ usage
+ }
+ shift
+}
+if(~ $p 1)
post
-case *
+if not
print
-}