#!/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
}