1*9a747e4fSDavid du Colombier#!/bin/rc 2*9a747e4fSDavid du Colombier 3*9a747e4fSDavid du Colombierfn time { date | sed 's/.........$//'} 4*9a747e4fSDavid du Colombier 5*9a747e4fSDavid du Colombierrm -f /srv/log 6*9a747e4fSDavid du Colombier 7*9a747e4fSDavid du Colombierif(~ $#* 2) { 8*9a747e4fSDavid du Colombier wid=$1 9*9a747e4fSDavid du Colombier ht=$2 10*9a747e4fSDavid du Colombier} 11*9a747e4fSDavid du Colombierif not { 12*9a747e4fSDavid du Colombier scr=(`{cat /dev/draw/new >[2]/dev/null || status=''}) 13*9a747e4fSDavid du Colombier wid=$scr(7) 14*9a747e4fSDavid du Colombier ht=$scr(8) 15*9a747e4fSDavid du Colombier} 16*9a747e4fSDavid du Colombier 17*9a747e4fSDavid du Colombierif(test $ht -gt 800) 18*9a747e4fSDavid du Colombier ht=800 19*9a747e4fSDavid du Colombier 20*9a747e4fSDavid du Colombierif(test $wid -gt 800) 21*9a747e4fSDavid du Colombier wid=800 22*9a747e4fSDavid du Colombier 23*9a747e4fSDavid du Colombierstatwid=`{hoc -e $wid^'*.2'} 24*9a747e4fSDavid du Colombierif(test $statwid -lt 180) 25*9a747e4fSDavid du Colombier statwid=180 26*9a747e4fSDavid du Colombierif(test $statwid -gt 300) 27*9a747e4fSDavid du Colombier statwid=300 28*9a747e4fSDavid du Colombier 29*9a747e4fSDavid du Colombierlogwid=`{hoc -e $wid^-$statwid} 30*9a747e4fSDavid du Colombierif(test $logwid -gt 1000) 31*9a747e4fSDavid du Colombier logwid=1000 32*9a747e4fSDavid du Colombier 33*9a747e4fSDavid du Colombierloght=`{hoc -e $ht^'*.25'} 34*9a747e4fSDavid du Colombierif(test $loght -lt 130) 35*9a747e4fSDavid du Colombier loght=130 36*9a747e4fSDavid du Colombier 37*9a747e4fSDavid du Colombiertextht=`{hoc -e $ht^-$loght} 38*9a747e4fSDavid du Colombier 39*9a747e4fSDavid du Colombierwindow 0,$textht,$statwid,$ht stats -lmisce 40*9a747e4fSDavid du Colombierwindow $statwid,$textht,^`{hoc -e $logwid+$statwid}^,$ht tailfsrv 41*9a747e4fSDavid du Colombierwindow 0,0,^`{hoc -e $logwid+$statwid}^,$textht inst/mainloop 42*9a747e4fSDavid du Colombier 43*9a747e4fSDavid du Colombierwhile(! test -f /srv/log) 44*9a747e4fSDavid du Colombier sleep 1 45*9a747e4fSDavid du Colombier 46*9a747e4fSDavid du Colombierlog `{time} Installation process started 47