cvs: pearweb /public_html package-delete.php

mj Mon Jan 28 10:57:53 2002 EDT Modified files: /pearweb/public_html package-delete.php Log: * Allow deleting packages for administrators only. Index: pearweb/public_html/package-delete.php diff -u pearweb/public_html/package-delete.php:1.5 pearweb/public_html/package-delete.php:1.6 --- pearweb/public_html/package-delete.php:1.5 Sun Jan 27 06:54:17 2002 +++ pearweb/public_html/package-delete.php Mon Jan 28 10:57:49 2002 @@ -2,10 +2,10 @@ /** * Interface to delete a package. * - * $Id: package-delete.php,v 1.5 2002/01/27 11:54:17 mj Exp $ + * $Id: package-delete.php,v 1.6 2002/01/28 15:57:49 mj Exp $ */ -auth_require(); +auth_require(true); require_once "HTML/Form.php"; @@ -14,20 +14,6 @@ if (!isset($_GET['id'])) { PEAR::raiseError("No package ID specified."); - response_footer(); - exit(); -} - -/** - * The user has to be either a lead developer of the package or - * a PEAR administrator. - */ -$lead = in_array($PHP_AUTH_USER, maintainer::get($_GET['id'], true)); -$admin = user::isAdmin($PHP_AUTH_USER); - -if (!$lead && !$admin) { - PEAR::raiseError("Only the lead maintainer of the package or PEAR - administrators can delete the package."); response_footer(); exit(); }