require_once "HTML/Form.php"; if (!isset($_GET['id']) || !is_numeric($_GET['id'])) { report_error('No package ID specified.'); response_footer(); exit; } $form = new HTML_Form("/package-delete.php?id=" . $_GET['id'], "POST"); if (!isset($_POST['confirm'])) { $bb = new Borderbox("Confirmation"); $form->start(); echo "Are you sure that you want to delete the package?<br /><br />"; $form->displaySubmit("yes", "confirm"); echo " "; $form->displaySubmit("no", "confirm"); echo "<br /><br /><font color=\"#ff0000\"><b>Warning:</b> Deleting\n the package will remove all package information and all\n releases!</font>"; $form->end(); $bb->end(); } else { if ($_POST['confirm'] == "yes") { // XXX: Implement backup functionality // make_backup($_GET['id']); $tables = array("releases" => "package", "maintains" => "package", "deps" => "package", "files" => "package", "packages" => "id"); echo "<pre>\n"; $file_rm = 0; $query = "SELECT p.name, r.version FROM packages p, releases r\n WHERE p.id = r.package AND r.package = '" . $_GET['id'] . "'"; $row = $dbh->getAll($query); foreach ($row as $value) { $file = sprintf("%s/%s-%s.tgz", PEAR_TARBALL_DIR, $value[0], $value[1]); if (@unlink($file)) { echo "Deleting release archive \"" . $file . "\"\n"; $file_rm++;