Send patches - preferably formatted by git format-patch - to patches at archlinux32 dot org.
summaryrefslogtreecommitdiff
path: root/web-scripts/dependencies.php
blob: 66221bd00742506f97f83f77630423992bc152c0 (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
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
<?php

$mysql = new mysqli("localhost", "webserver", "empty", "buildmaster");
if ($mysql->connect_error) {
  die("Connection failed: " . $mysql->connect_error);
}

$match = "";

if (isset($_GET["a"]))
  $match .= " AND `architectures`.`name`=from_base64(\"" . base64_encode($_GET["a"]) . "\")";
if (isset($_GET["p"]))
  $match .= " AND `binary_packages`.`pkgname`=from_base64(\"" . base64_encode($_GET["p"]) . "\")";
if (isset($_GET["r"]))
  $match .= " AND `repositories`.`name`=from_base64(\"" . base64_encode($_GET["r"]) . "\")";

$ignore_install_targets = " AND NOT `install_targets`.`name` IN (\"base\",\"base-devel\")";

if (! $result = $mysql -> query(
  "CREATE TEMPORARY TABLE `cons` (" .
    "`dep` BIGINT, " .
    "`itp` BIGINT, " .
    "UNIQUE KEY `content` (`dep`,`itp`)" .
  ")"))
  die($mysql->error);

if (! $result = $mysql -> query(
  "INSERT IGNORE INTO `cons` (`dep`,`itp`)" .
  " SELECT `dependencies`.`id`,`install_target_providers`.`id`".
  " FROM `binary_packages`" .
  " JOIN `repositories` ON `binary_packages`.`repository`=`repositories`.`id`" .
  " JOIN `architectures` ON `binary_packages`.`architecture`=`architectures`.`id`" .
  $match .
  " JOIN `dependencies` ON `dependencies`.`dependent`=`binary_packages`.`id`" .
  " JOIN `install_targets` ON `dependencies`.`depending_on`=`install_targets`.`id`" .
  $ignore_install_targets .
  " JOIN `install_target_providers` ON `install_target_providers`.`install_target`=`dependencies`.`depending_on`"
  ))
  die($mysql->error);

if (! $result = $mysql -> query(
  "INSERT IGNORE INTO `cons` (`dep`,`itp`)" .
  " SELECT `dependencies`.`id`,`install_target_providers`.`id`".
  " FROM `binary_packages`" .
  " JOIN `repositories` ON `binary_packages`.`repository`=`repositories`.`id`" .
  " JOIN `architectures` ON `binary_packages`.`architecture`=`architectures`.`id`" .
  $match .
  " JOIN `install_target_providers` ON `install_target_providers`.`package`=`binary_packages`.`id`" .
  " JOIN `dependencies` ON `install_target_providers`.`install_target`=`dependencies`.`depending_on`"
  ))
  die($mysql->error);

unset($knots);
unset($edges);

if (! $result = $mysql -> query(
  "SELECT DISTINCT `install_target_providers`.`install_target`,`install_target_providers`.`package`" .
  " FROM `cons`" .
  " JOIN `install_target_providers` ON `cons`.`itp`=`install_target_providers`.`id`"
  ))
  die($mysql->error);

if ($result -> num_rows > 0)
  while ($row = $result->fetch_assoc())
    $edges .= "\"p" . $row["package"] . "\" -> \"i" . $row["install_target"] . "\" [color = \"#000080\"];\n";

if (! $result = $mysql -> query(
  "SELECT DISTINCT `dependencies`.`dependent`,`dependencies`.`depending_on`,`dependency_types`.`name`" .
  " FROM `cons`" .
  " JOIN `dependencies` ON `cons`.`dep`=`dependencies`.`id`" .
  " JOIN `dependency_types` ON `dependencies`.`dependency_type`=`dependency_types`.`id`"
  ))
  die($mysql->error);

if ($result -> num_rows > 0)
  while ($row = $result->fetch_assoc())
    $edges .= "\"i" . $row["depending_on"] . "\" -> \"p" . $row["dependent"] . "\" [taillabel = \"" . $row["name"] . "\"];\n";

if (! $result = $mysql -> query(
  "SELECT DISTINCT `install_targets`.`id`,`install_targets`.`name`" .
  " FROM `cons`" .
  " JOIN `dependencies` ON `cons`.`dep`=`dependencies`.`id`" .
  " JOIN `install_targets` ON `dependencies`.`depending_on`=`install_targets`.`id`"
  ))
  die($mysql->error);

if ($result -> num_rows > 0)
  while ($row = $result->fetch_assoc())
    $knots .= "\"i" . $row["id"] . "\" [label = \"" . $row["name"] . "\", fontcolor=\"#000080\"];\n";

$pkgfile_query =
  "CONCAT(".
    "`repositories`.`name`,\"/\"," .
    "`binary_packages`.`pkgname`,\"-\"," .
    "IF(`binary_packages`.`epoch`=0,\"\",CONCAT(`binary_packages`.`epoch`,\":\"))," .
    "`binary_packages`.`pkgver`,\"-\"," .
    "`binary_packages`.`pkgrel`,\".\"," .
    "`binary_packages`.`sub_pkgrel`,\"-\"," .
    "`architectures`.`name`" .
  ") AS `filename`";

if (! $result = $mysql -> query(
  "SELECT DISTINCT `binary_packages`.`id`," . $pkgfile_query .
  " FROM `cons`" .
  " JOIN `dependencies` ON `cons`.`dep`=`dependencies`.`id`" .
  " JOIN `binary_packages` ON `dependencies`.`dependent`=`binary_packages`.`id`" .
  " JOIN `architectures` ON `architectures`.`id`=`binary_packages`.`architecture`" .
  " JOIN `repositories` ON `repositories`.`id`=`binary_packages`.`repository`"
  ))
  die($mysql->error);

if ($result -> num_rows > 0)
  while ($row = $result->fetch_assoc())
    $knots .= "\"p" . $row["id"] . "\" [label = \"" . $row["filename"] . "\"];\n";

if (! $result = $mysql -> query(
  "SELECT DISTINCT `binary_packages`.`id`," . $pkgfile_query .
  " FROM `cons`" .
  " JOIN `install_target_providers` ON `cons`.`itp`=`install_target_providers`.`id`" .
  " JOIN `binary_packages` ON `install_target_providers`.`package`=`binary_packages`.`id`" .
  " JOIN `architectures` ON `architectures`.`id`=`binary_packages`.`architecture`" .
  " JOIN `repositories` ON `repositories`.`id`=`binary_packages`.`repository`"
  ))
  die($mysql->error);

if ($result -> num_rows > 0)
  while ($row = $result->fetch_assoc())
    $knots .= "\"p" . $row["id"] . "\" [label = \"" . $row["filename"] . "\"];\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"
);

?>