########################################################################
# Method:       list_principals
# Use:          Returns the bucket's principals 
# Notes:        We don't read in principal information at startup under the
#               theory that most methods won't require to know who are
#               principals.  Read only when needed.
# Created:      07/28/1998 MLN
########################################################################

sub list_principals
{
	# we don't treat this as a regular element b/c we don't want to
	# list the encrypted passwds

        &http_header("text/plain");

        open(P,"$principal_file");
        while (<P>)
        {
		$line = $_;
		@p = split(/:/,$line);	
                print "$p[0]\n";
        }
	close (P);

        &log("list_principals", "OK","-");
}

1;