WHERE p.id = r.package AND r.package = ?'; $row = $dbh->getAll($query, array($id)); 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++; } else { echo "<font color=\"#ff0000\">Unable to delete file " . $file . "</font>\n"; } } echo "\n" . $file_rm . " file(s) deleted\n\n"; $catid = package::info($id, 'categoryid'); $packagename = package::info($id, 'name'); $dbh->query("UPDATE categories SET npackages = npackages - 1 WHERE id = {$catid}"); foreach ($tables as $table => $field) { $query = sprintf("DELETE FROM %s WHERE %s = '%s'", $table, $field, $id); echo "Removing package information from table \"" . $table . "\": "; $dbh->query($query); echo "<b>" . $dbh->affectedRows() . "</b> rows affected.\n"; } include_once 'pear-rest.php'; $pear_rest = new pearweb_Channel_REST_Generator(PEAR_REST_PATH, $dbh); $pear_rest->deletePackageREST($packagename); echo "</pre>\nPackage " . $id . " has been deleted.\n"; } else { $pkg = package::info($id); print_package_navigation($id, $pkg['name'], '/package-delete.php?id=' . $id); echo "The package has not been deleted.\n<br /><br />\n"; } response_footer();