rc/bin/sysinfo

   1 #!/bin/rc
   2 rfork e
   3
   4 fn logprog{
   5         echo % `{echo $"* | sed 's/#/''#''/g'}
   6         $*
   7         echo
   8 }
   9
  10 fn work{
  11         echo '% cd ''#ec''; for(i in *){echo $i ''='' `{cat $i}}'
  12         cd '#ec'; for(i in *){echo $i '=' `{cat $i}}
  13         echo
  14         logprog cat '#P/archctl'
  15         logprog cat '#P/irqalloc'
  16         logprog cat '#P/ioalloc'
  17         logprog cat '#c/config'
  18         logprog cat '#c/swap'
  19         logprog cat '#c/sysstat'
  20         logprog awk '/^Plan 9$/{p=1}
  21 /^init: starting/{exit}
  22 {if(p)print}' '#c/kmesg'
  23         logprog pci -v
  24         logprog aux/icanhasmsi
  25         logprog aux/pcmcia
  26         logprog cat '#u/usb/ctl'
  27         logprog cat '#S/sdctl'
  28         for(i in '#S'/sd[A-Z][0-9]*/ctl)
  29                 logprog cat $i
  30         for(i in '#l0/ether0' '#l1/ether1' '#l2/ether2' '#l3/ether3'){
  31                 if(test -e $i){
  32                         logprog cat $i/addr
  33                         logprog cat $i/stats
  34                         logprog cat $i/ifstats
  35                 }
  36         }
  37         logprog cat '#v/vgactl'
  38         echo '@{rfork n; aux/realemu; aux/vga -p}'
  39         @{rfork n; aux/realemu; aux/vga -p}
  40         logprog xd -x1 '#r/nvram'
  41         logprog cat '#A/audiostat'
  42         logprog cat '#A/volume'
  43         logprog cat /mnt/apm/ctl
  44 }
  45
  46 switch($1){
  47 case -m
  48         {echo Subject: `{cat '#P/cputype'}; work} >[2=1] |
  49                 user=/dev/null upas/smtp 9front.org $user hardware@9front.org
  50 case *
  51         work
  52 }