#!/bin/sh
# $Id: ghst,v 1.8 1998/04/06 19:26:59 nathanw Exp $
# MODIFIED (4/11/98) golem@mit.edu
# MODIFIED (9/21/98) golem@mit.edu and name changed to "glom"

match() {
	expr "$1" : "$2" > /dev/null
}

if [ $# -gt 1 ]; then
   echo "Usage: glom [user]"
   exit 1
fi

if [ -n "$1" ]; then
	user=$1
else
	user=$USER
fi

if [ -x /usr/bin/nawk ]; then 
	AWK=nawk # Damn Solaris.
else
	AWK=awk
fi

mrtest <<END \
 | perl -ne 'chomp; s/moira:  //g; s/[0-9]* tuples$//;
	next if !$_; @_ = split /\s*,\s*/;
	printf "%-30s%s%s%s%s%s\n", $_[0],
			$_[1] ? "   active" : " inactive",
			$_[2] ? "  public"  : " private",
			$_[3] ? "  hidden"  : " visible",
			$_[4] ? " maillist" : "",
			$_[5] ? " group"    : ""           ;'
connect
auth
query get_lists_of_member ruser $user
quit
END