########################################################################
# Method:  metadata
# Use:     Returns the bucket's metadata in its native form
# Created: 07/30/1997 Del Croom  (d.r.croom@larc.nasa.gov)
# Updated: 07/25/1998 MLN
########################################################################

sub metadata
{
        local($format) = $in{"format"};

        &http_header("text/plain");

        if ( ($format =~ /rfc1807/i) || ($format eq "") )
        {
                # then dump the contents of @BIBFILE

                foreach (@BIBFILE) {
                        print $_;
                }
                &log("metadata","OK","-");
        }
        else {
                # hooks to Steve's code will go here - mln
                print "format $format not supported yet\n";
                &log("metadata","ERR","$format not supported");
        }
}


1;