########################################################################
# Method:       list_methods
# Use:          lists all the public methods this bucket understands.
# Created:      07/28/1998 MLN
########################################################################

sub list_methods
{
        &http_header("text/plain");

        opendir (D, "$method_dir");

	# for the moment, only perl (.pl) files are expected here
	@methods = sort(grep(/\.pl$/,readdir(D)));

	foreach $m (@methods)
	{
		$m =~ s/\.pl$//;
		print "$m\n";	
	}
	
        close (D);

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

1;