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
|
open Printf
open Tyxml.Html
let a_link url text = a ~a:[ a_href (uri_of_string url) ] [ txt text ]
let page ~title ~subtitle ~headers ~body ~footer =
let headers =
meta ~a:[ a_charset "utf-8" ] ()
:: link ~rel:[ `Stylesheet ] ~href:"media/revamp.css" ()
:: link ~rel:[ `Stylesheet ] ~href:"media/styles.css" ()
:: headers
in
html
~a:[ a_xmlns `W3_org_1999_xhtml ]
(head (Tyxml.Html.title (txt title)) headers)
(Tyxml.Html.body
~a:[ a_class [ "debian" ] ]
[
h1
~a:[ a_id "title" ]
[ a_link "https://release.debian.org/" "Debian Release Management" ];
h2 ~a:[ a_id "subtitle" ] subtitle;
div ~a:[ a_id "body" ] body;
div ~a:[ a_id "footer" ] footer;
])
open Ben.Template
let () =
Ben_frontends.Templates.register_template
{
name = "Debian";
page;
intro =
[
b
[
a_link "https://wiki.debian.org/Teams/ReleaseTeam/Transitions"
"Transition documentation";
];
br ();
b
[
a_link
"https://bugs.debian.org/cgi-bin/pkgreport.cgi?users=release.debian.org@packages.debian.org;tag=transition"
"Bugs tagged \"transition\"";
];
br ();
br ();
];
pts = (fun ~src -> sprintf "https://tracker.debian.org/%s" src);
changelog =
(fun ~letter:_ ~src ~ver:_ ->
sprintf "https://packages.debian.org/changelog:%s" src);
buildd =
(fun ~src ~ver:_ ->
sprintf "https://buildd.debian.org/status/package.php?p=%s" src);
buildds =
(fun ~srcs ->
let srcs = String.concat "," srcs in
Some
(sprintf
"https://buildd.debian.org/status/package.php?p=%s&compact=compact"
srcs));
bugs = (fun ~src -> sprintf "https://bugs.debian.org/%s" src);
critical_bugs =
(fun ~srcs ->
let srcs = String.concat ";src=" srcs in
Some
(sprintf
"https://bugs.debian.org/cgi-bin/pkgreport.cgi?sev-inc=serious;sev-inc=grave;sev-inc=critical;src=%s"
srcs));
msg_id = (fun ~mid -> sprintf "https://lists.debian.org/%s" mid);
}
|
