########################################################################
# Method:  delete_package
# Use:     Deletes a package from an existing bucket
#
#       New:  assume that permissions were already granted if this
#               routine is called -- mln
#
#       delete_package is equivalent to a "rm -rf"
#
# Created: 08/04/1997  Del Croom (d.r.croom@larc.nasa.gov)
# Updated: 07/27/1998 MLN
# Updated: 09/03/1998 MLN
########################################################################

sub delete_package
{
        local ($pkg_name) = $in{"pkg_name"};
	require "$method_dir/delete_element.pl";       # to get &rm_element 

        opendir(P,"$pkg_name");
        @elements = grep(!/^\.\.?$/, readdir(P));
        closedir(P);

        # delete all the elements in the dir...
	# some elements may be dirs themselves
	foreach $e (@elements)
	{
		&rm_element($pkg_name,$e);
	}	

        # then delete the dir
        rmdir($pkg_name);

        &shorten_bibfile($BIBFILE,"PACKAGE",$pkg_name);

        &http_header("text/plain");
        print "delete_package: package $pkg_name deleted\n";

        &log("delete_package","OK","package $pkg_name deleted");
}

1;