########################################################################
# Method:  add_package
# Use:     Adds a package to an existing bucket
# Created: 08/18/98 Michael Nelson <M.L.Nelson@larc.nasa.gov>
#
########################################################################

sub add_package
{

        local($pkg_name) = $in{"pkg_name"};
        local($pkg_bib) = $in{"pkg_bib"};

        # make sure that we have ".pkg" at the end -- just a convention

        if (!($pkg_name =~ /.pkg$/))
        {
                $pkg_name = $pkg_name . ".pkg";
        }
        $pkg_name = &name_collision(".", $pkg_name);

        mkdir($pkg_name,0775);
        &append_bibfile($BIBFILE,$pkg_bib,"^END::");

	&http_header("text/plain");
	print "add_package: package $pkg_name added";

        &log("add_package","OK","package $pkg_name added");
}

1;