#! /bin/sh
(echo terminal length 0 ; echo systat all ; /usr/bin/sleep 3 ; echo quit) | \
        /usr/ucb/telnet terminus.lcs.mit.edu 2>&1 | tr -d '\015' | \
        /bin/awk 'f>0 { next }
                /vty/ { u = 100*ni/mi;
                        printf "%d out of %d Terminus dialups busy (%4.1f%% utilization).\n", ni, mi, u;
                        if (u>70)
                                if (ni==mi) print "Dialups are completely full, guests should disconnect IMMEDIATELY.";
                                else print "The dialups are nearly full, guests should disconnect as soon as possible.";
                        f++ }
                NF<2 { next }
                /tty/ { m++ }
                m==0 { next }
                /Dialup/ { mi++ }
                length($0)<25 || substr($0, 23, 2)=="  " { next }
                /Dialup/ { ni++ }
                END{if (f<1) print "check-load: Internal failure, no vty."}