#!/bin/sh -
PATH=/usr/vice/bin:$PATH; export PATH

# listacls - display AFS `fs listacl` file information in short format
# Steve Kinzler, kinzler@cs.indiana.edu, Sep 00
# http://www.cs.indiana.edu/~kinzler/home.html#unix

fs listacl ${1+"$@"} 2>&1 | perl -ne '
	die "'"$0"': fs command is font server, not AFS\n"
		if $. == 1 && /\[-cf /;
	chop;
	$n && print("\n"), $n = 0, next if /^\s*$/;
	$n++, print, next if s/^Access\s*list\s*for (.*) is/$1:\t/i;
	$n && print("\n"), $n = 0,
		s/^File '\''(.*)'\'' /$1:\t/i, print("$_\n"), next
			if s/^fs:\s*//;
	next if /^Normal\s*rights/i;
	s/^  //;
	s/^system:/sys:/;
	s/:members /:m /;
	s/:administrators /:adm /;
	s/:anyuser /:any /;
	s/^/, / if $n++ > 1;
	print;
	END { $n && print "\n" }
'