#!/bin/rc # Generate web page from our /who information. if (~ $1 -d) { while(;){ $0 >/usr/web/who/index.html.new mv /usr/web/who/index.html.new /usr/web/who/index.html sleep 30 } exit '' } rfork ne test -d /who || { echo who2web: no /who >'#c/cons' ; exit who } cd /who users=`{echo * | sed 's/none|c0//'} fn firstfour { echo $* | awk -F' ' '{print $1, $2, $3, $4, $5, $6}' } fn skipfour { echo $* | sed 's/[a-z0-9A-Z_]+( |$)//' | sed 's/[a-z0-9A-Z_]+( |$)//' | sed 's/[a-z0-9A-Z_]+( |$)//' | sed 's/[a-z0-9A-Z_]+( |$)//' | sed 's/[a-z0-9A-Z_]+( |$)//' | sed 's/[a-z0-9A-Z_]+( |$)//' } fn outface { if (test -e /who/$1/face.gif) echo ' '$1'' if not echo ' '$1'' } fn outuser { echo ' ' if (! ~ $#* 0){ if (test -e /who/$1/status) sts=`{cat /who/$1/status} if not sts=unknown if (test -e /who/$1/where) loc=`{cat /who/$1/where} if not loc=none mail=`{cat /who/$1/letters} if (! ~ $#mail 0 && ~ $mail Mail) mail=yes if not mail=no echo ' ' echo ' ' echo ' ' echo ' ' echo ' ' echo '
' outface $1 echo ' ' echo ' ' echo ' sts:' $sts '
' if (~ $loc none) echo ' loc:' $loc '
' if not echo ' loc:' $loc '
' echo ' s-mail:' $mail '
' echo ' ' echo '
' echo ' ' if ( test -e /usr/web/usr/$1) echo ' ' if not echo ' ' echo ' ' `{echo $1 | sed 's/(........).*/\1/'} '' echo ' ' echo ' ' if (~ $sts online) echo ' ' if (~ $sts busy) echo ' ' if (~ $mail yes) echo ' ' echo '
' } echo ' ' } cat < Who is at the Laboratorio de Sistemas Environment

Who is at the Laboratorio de Sistemas Environment.

The user name is a link to the user web page.
sts=status; loc=location; s-mail: has real world mail in the mail room;
! while (! ~ $#users 0){ u=`{firstfour $users} users=`{skipfour $users} echo '' outuser $u(1) ; outuser $u(2) ; outuser $u(3) ; outuser $u(4) ; outuser $u(5); outuser $u(6) echo '' } cat <

As of $date !