Send patches - preferably formatted by git format-patch - to patches at archlinux32 dot org.
summaryrefslogtreecommitdiff
path: root/buildmaster/build-list-links.php
blob: 24c0bc3a3ee5637b8a5625b541e280e9c88242fb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
<?php

include "lib/mysql.php";

$edges = "";
$knots = "";

mysql_run_query(
  "CREATE TEMPORARY TABLE `ba` (" .
    "`id` BIGINT, " .
    "UNIQUE KEY `id` (`id`)" .
  ")"
);

mysql_run_query(
  "INSERT IGNORE INTO `ba` (`id`)" .
  " SELECT `build_assignments`.`id`" .
  " FROM `binary_packages_in_repositories`" .
  " JOIN `binary_packages` ON `binary_packages_in_repositories`.`package`=`binary_packages`.`id`" .
  " JOIN `repositories` ON `binary_packages_in_repositories`.`repository`=`repositories`.`id`" .
  " JOIN `build_assignments` ON `binary_packages`.`build_assignment`=`build_assignments`.`id`" .
  " WHERE `repositories`.`name`=\"build-list\""
);

mysql_run_query(
  "CREATE TEMPORARY TABLE `ba_copy` (" .
    "`id` BIGINT, " .
    "UNIQUE KEY `id` (`id`)" .
  ")"
);

mysql_run_query(
  "INSERT IGNORE INTO `ba_copy` (`id`)" .
  " SELECT `ba`.`id`" .
  " FROM `ba`"
);

$result = mysql_run_query(
  "SELECT `build_assignments`.`id`," .
  "`architectures`.`name` AS `arch`," .
  "`package_sources`.`pkgbase`," .
  " IF(`build_assignments`.`is_broken`,\"#ff0000\",IF(`build_assignments`.`is_blocked` IS NULL,\"#000000\",\"#800000\")) AS `color`" .
  " FROM `ba`" .
  " JOIN `build_assignments` ON `ba`.`id`=`build_assignments`.`id`" .
  " JOIN `package_sources` ON `build_assignments`.`package_source`=`package_sources`.`id`" .
  " JOIN `architectures` ON `build_assignments`.`architecture`=`architectures`.`id`"
);

while ($row = $result->fetch_assoc())
  $knots .=
    "\"ba" .
    $row["id"] .
    "\" [label = \"" .
    $row["arch"] .
    "/" .
    $row["pkgbase"] .
    "\",
    fontcolor = \"" .
    $row["color"] .
    "\"];\n";

$result = mysql_run_query(
  "SELECT DISTINCT `d_bp`.`build_assignment` AS `dependent`," .
  "`dependency_types`.`name` AS `dep_type`," .
  "`i_bp`.`build_assignment` AS `depending_on`" .
  " FROM `ba`" .
  " JOIN `binary_packages` AS `d_bp` ON `d_bp`.`build_assignment`=`ba`.`id`" .
  " JOIN `dependencies` 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 `binary_packages` AS `i_bp` ON `i_bp`.`id`=`install_target_providers`.`package`" .
  " JOIN `ba_copy` ON `i_bp`.`build_assignment`=`ba_copy`.`id`" .
  " WHERE `dependencies`.`dependent`!=`install_target_providers`.`package`"
);

while ($row = $result->fetch_assoc()) {
  $edges .=
    "\"b" .
    $row["depending_on"] .
    "\" -> \"b" .
    $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";
}

$input_file = tempnam("/tmp", "build-list-links.");

$handle = fopen($input_file,"w");
fwrite($handle, 
  "digraph dependencies {\n" .
  "rankdir=LR;\n" .
  "fontname=dejavu;\n" .
  $knots .
  $edges .
  "}\n"
);
fclose($handle);

header ("Content-type: image/png");
passthru(
  "dot -Tpng -o/dev/stdout " . $input_file
);

unlink($input_file);