########################################################################
# Method:       list_logs
# Use:          lists all the logs the bucket is keeping
# Created:      09/2/1998 MLN
########################################################################

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

        opendir (D, "$log_dir");

	# all log files are expected to end in .log
	@logs = sort(grep(/\.log$/,readdir(D)));

	foreach $l (@logs)
	{
		print "$l\n";	
	}
	
        close (D);

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

1;