mirror of
https://github.com/php/web-pecl.git
synced 2026-03-24 07:12:15 +01:00
123 lines
4.0 KiB
PHP
Executable File
123 lines
4.0 KiB
PHP
Executable File
<?php
|
|
/*
|
|
+----------------------------------------------------------------------+
|
|
| PEAR Web site version 1.0 |
|
|
+----------------------------------------------------------------------+
|
|
| Copyright (c) 2001-2005 The PHP Group |
|
|
+----------------------------------------------------------------------+
|
|
| This source file is subject to version 2.02 of the PHP license, |
|
|
| that is bundled with this package in the file LICENSE, and is |
|
|
| available at through the world-wide-web at |
|
|
| http://www.php.net/license/2_02.txt. |
|
|
| If you did not receive a copy of the PHP license and are unable to |
|
|
| obtain it through the world-wide-web, please send a note to |
|
|
| license@php.net so we can mail you a copy immediately. |
|
|
+----------------------------------------------------------------------+
|
|
| Authors: |
|
|
+----------------------------------------------------------------------+
|
|
$Id: package-delete.php -1 $
|
|
*/
|
|
|
|
/**
|
|
* Interface to delete a package.
|
|
*/
|
|
|
|
auth_require();
|
|
|
|
response_header('Delete Package');
|
|
echo '<h1>Delete Package</h1>';
|
|
|
|
require_once "HTML/Form.php";
|
|
|
|
if (!isset($_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
|
|
the package will remove all package information and all
|
|
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
|
|
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++;
|
|
} else {
|
|
echo "<font color=\"#ff0000\">Unable to delete file " . $file . "</font>\n";
|
|
}
|
|
}
|
|
|
|
echo "\n" . $file_rm . " file(s) deleted\n\n";
|
|
|
|
$catid = package::info($_GET['id'], 'categoryid');
|
|
$catname = package::info($_GET['id'], 'category');
|
|
$packagename = package::info($_GET['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,
|
|
$_GET['id']
|
|
);
|
|
|
|
echo "Removing package information from table \"" . $table . "\": ";
|
|
$dbh->query($query);
|
|
|
|
echo "<b>" . $dbh->affectedRows() . "</b> rows affected.\n";
|
|
}
|
|
|
|
$pear_rest->deletePackageREST($packagename);
|
|
$pear_rest->savePackagesCategoryREST($catname);
|
|
echo "</pre>\nPackage " . $_GET['id'] . " has been deleted.\n";
|
|
|
|
} else if ($_POST['confirm'] == "no") {
|
|
echo "The package has not been deleted.\n<br /><br />\n";
|
|
echo "Go back to the " . make_link("/package-info.php?pacid=" . $_GET['id'], "package details") . ".";
|
|
}
|
|
|
|
response_footer();
|
|
?>
|