From b69f548065e78d14afcdc91548d73539762f8d93 Mon Sep 17 00:00:00 2001
From: Lukas Fleischer <archlinux@cryptocrack.de>
Date: Wed, 2 Feb 2011 18:03:09 +0100
Subject: Add a package name blacklist.

Can be used to blacklist package names for normal users. TUs and
developers are not affected. This is especially useful if used together
with a cron job that updates the blacklist periodically, e.g. to reject
packages which are available in the binary repos (FS#12902).

Signed-off-by: Lukas Fleischer <archlinux@cryptocrack.de>
---
 web/lib/pkgfuncs.inc | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

(limited to 'web/lib')

diff --git a/web/lib/pkgfuncs.inc b/web/lib/pkgfuncs.inc
index 28211f9..2f69321 100644
--- a/web/lib/pkgfuncs.inc
+++ b/web/lib/pkgfuncs.inc
@@ -64,6 +64,18 @@ function canManagePackage($uid=0,$AURMUID=0, $MUID=0, $SUID=0, $managed=0) {
 	return 0;
 }
 
+# Check if the current user can submit blacklisted packages.
+#
+function canSubmitBlacklisted($atype = "") {
+	if ($atype == "Trusted User" || $atype == "Developer") {
+		# Only TUs/Devs can submit blacklisted packages.
+		return TRUE;
+	}
+	else {
+		return FALSE;
+	}
+}
+
 # grab the current list of PackageCategories
 #
 function pkgCategories() {
@@ -286,6 +298,17 @@ function pkgname_from_id($id="") {
 	return $id;
 }
 
+# Check if a package name is blacklisted.
+#
+function pkgname_is_blacklisted($name) {
+	$dbh = db_connect();
+	$q = "SELECT COUNT(*) FROM PackageBlacklist WHERE Name = '" . mysql_real_escape_string($name) . "'";
+	$result = db_query($q, $dbh);
+
+	if (!$result) return false;
+	return (mysql_result($result, 0) > 0);
+}
+
 # display package details
 #
 function package_details($id=0, $SID="") {
-- 
cgit v1.2.3-54-g00ecf