#!/bin/sh
#
# who-short.sh prints a short form of who with only users which are really
#              active
#
# (c) 1996-2001 Peter_Hanssen@writeme.com

who -ul | awk '$6 !~ /old/ {printf("%s %s %s\n", $6,$1,$8 )}' | sort | \
 awk '$1 < 1 {printf("%8s %4s %s\n", $2,$1,$3 )}' | uniq