cvs: pearweb /public_html package-delete.php

mj Sat Jan 26 04:57:50 2002 EDT Modified files: /pearweb/public_html package-delete.php Log: * Delete release files. Index: pearweb/public_html/package-delete.php diff -u pearweb/public_html/package-delete.php:1.1 pearweb/public_html/package-delete.php:1.2 --- pearweb/public_html/package-delete.php:1.1 Sat Jan 26 04:37:35 2002 +++ pearweb/public_html/package-delete.php Sat Jan 26 04:57:50 2002 @@ -2,12 +2,9 @@ /** * Interface to delete a package. * - * $Id: package-delete.php,v 1.1 2002/01/26 09:37:35 mj Exp $ + * $Id: package-delete.php,v 1.2 2002/01/26 09:57:50 mj Exp $ */ -// XXX: This interface does *not* delete the release files on the -// harddisk yet! - auth_require(true); require_once "HTML/Form.php"; @@ -52,6 +49,30 @@ "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"; foreach ($tables as $table => $field) { $query = sprintf("DELETE FROM %s WHERE %s = '%s'",