Send patches - preferably formatted by git format-patch - to patches at archlinux32 dot org.
summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorErich Eckner <git@eckner.net>2018-05-22 11:03:41 +0200
committerErich Eckner <git@eckner.net>2018-05-22 11:03:52 +0200
commit34171753594049c776a53a812706938e025b67f6 (patch)
tree02dc90141096e07f6e30e4cd7d2be82b6970a670
parent46cb0d7a2f743092d5834fb96972befff29fe2a7 (diff)
buildmaster/deletion-links.php new
-rw-r--r--buildmaster/deletion-links.php135
1 files changed, 135 insertions, 0 deletions
diff --git a/buildmaster/deletion-links.php b/buildmaster/deletion-links.php
new file mode 100644
index 0000000..f6e3222
--- /dev/null
+++ b/buildmaster/deletion-links.php
@@ -0,0 +1,135 @@
+<?php
+
+include "lib/mysql.php";
+
+$edges = "";
+$knots = "";
+
+mysql_run_query(
+ "CREATE TEMPORARY TABLE `d_bp` (" .
+ "`id` BIGINT, " .
+ "UNIQUE KEY `id` (`id`)" .
+ ")"
+);
+
+mysql_run_query(
+ "INSERT IGNORE INTO `d_bp` (`id`)" .
+ " SELECT `binary_packages`.`id`" .
+ " FROM `binary_packages`" .
+ " WHERE `binary_packages`.`is_to_be_deleted`" .
+ " AND `binary_packages`.`pkgname` NOT LIKE \"lib32-%\""
+);
+
+mysql_run_query(
+ "CREATE TEMPORARY TABLE `d_bp_copy` (" .
+ "`id` BIGINT, " .
+ "UNIQUE KEY `id` (`id`)" .
+ ")"
+);
+
+mysql_run_query(
+ "INSERT IGNORE INTO `d_bp_copy` (`id`)" .
+ " SELECT `d_bp`.`id`" .
+ " FROM `d_bp`"
+);
+
+mysql_run_query(
+ "CREATE TEMPORARY TABLE `d_it` (" .
+ "`id` BIGINT, " .
+ "UNIQUE KEY `id` (`id`)" .
+ ")"
+);
+
+mysql_run_query(
+ "INSERT IGNORE INTO `d_it` (`id`)" .
+ " SELECT `install_target_providers`.`install_target`" .
+ " FROM `install_target_providers`" .
+ " JOIN `d_bp` ON `d_bp`.`id`=`install_target_providers`.`package`" .
+ " WHERE NOT EXISTS (" .
+ "SELECT 1 FROM `install_target_providers` AS `subst_itp`" .
+ " JOIN `binary_packages` AS `subst_bp` ON `subst_itp`.`package`=`subst_bp`.`id`" .
+ " WHERE NOT `subst_bp`.`is_to_be_deleted`" .
+ " AND `subst_itp`.`install_target`=`install_target_providers`.`install_target`" .
+ ")"
+);
+
+$result = mysql_run_query(
+ "SELECT `binary_packages`.`id`," .
+ "`binary_packages`.`pkgname`," .
+ "`repositories`.`name` AS `repo`," .
+ "IF(`build_assignments`.`is_black_listed` IS NULL,\"#800000\",\"#ff0000\") AS `color`" .
+ " FROM `binary_packages`" .
+ " JOIN `d_bp` ON `d_bp`.`id`=`binary_packages`.`id`" .
+ " JOIN `build_assignments` ON `binary_packages`.`build_assignment`=`build_assignments`.`id`" .
+ " JOIN `repositories` ON `binary_packages`.`repository`=`repositories`.`id`"
+);
+
+while ($row = $result->fetch_assoc())
+ $knots .=
+ "\"p" .
+ $row["id"] .
+ "\" [label = \"" .
+ $row["repo"] .
+ "/" .
+ $row["pkgname"] .
+ "\",
+ fontcolor = \"" .
+ $row["color"] .
+ "\"];\n";
+
+$result = mysql_run_query(
+ "SELECT `dependencies`.`dependent`," .
+ "`dependency_types`.`name` AS `dep_type`," .
+ "`install_target_providers`.`package` AS `depending_on`" .
+ " FROM `dependencies`" .
+ " JOIN `d_bp` ON `d_bp`.`id`=`dependencies`.`dependent`" .
+ " JOIN `dependency_types` ON `dependencies`.`dependency_type`=`dependency_types`.`id`" .
+ " JOIN `install_target_providers` ON `install_target_providers`.`install_target`=`dependencies`.`depending_on`" .
+ " JOIN `d_it` ON `d_it`.`id`=`install_target_providers`.`install_target`" .
+ " WHERE `dependencies`.`dependent`!=`install_target_providers`.`package`"
+);
+
+while ($row = $result->fetch_assoc()) {
+ $edges .=
+ "\"p" .
+ $row["depending_on"] .
+ "\" -> \"p" .
+ $row["dependent"] .
+ "\" [color = \"";
+ switch ($row["dep_type"]) {
+ case "run":
+ $edges .= "#000000";
+ break;
+ case "make":
+ $edges .= "#0000ff";
+ break;
+ case "link":
+ $edges .= "#008000";
+ break;
+ case "check":
+ $edges .= "#000080";
+ break;
+ default:
+ $edges .= "#ff00ff";
+ }
+ $edges .=
+ "#000080";
+ $edges .=
+ "\"];\n";
+}
+
+$knots = str_replace("\$","\\\$",$knots);
+$edges = str_replace("\$","\\\$",$edges);
+
+
+header ("Content-type: image/png");
+passthru(
+ "dot -Tpng -o/dev/stdout /dev/stdin <<EOF\n" .
+ "digraph dependencies {\n" .
+ "rankdir=LR;\n" .
+ "fontname=dejavu;\n" .
+ $knots .
+ $edges .
+ "}\n" .
+ "EOF\n"
+);