-
--- 0.9.1/media/revamp.css 2020-09-27 09:40:02.000000000 +0000
+++ 0.9.1ubuntu3/media/revamp.css 2020-09-27 15:16:02.000000000 +0000
@@ -16,7 +16,7 @@ body {
}
body.debian {
- background: #fff url('debian.png') no-repeat 10px 7px;
+ background: #fff url('ubuntu.png') no-repeat 10px 7px;
}
a:link { color: #0755d7; text-decoration: underline; }
-
--- 0.9.1/debian/control 2020-09-27 09:40:02.000000000 +0000
+++ 0.9.1ubuntu3/debian/control 2020-09-27 15:16:01.000000000 +0000
@@ -1,6 +1,7 @@
Source: ben
Priority: optional
-Maintainer: Debian OCaml Maintainers <debian-ocaml-maint@lists.debian.org>
+Maintainer: Ubuntu Developers <ubuntu-devel-discuss@lists.ubuntu.com>
+XSBC-Original-Maintainer: Debian OCaml Maintainers <debian-ocaml-maint@lists.debian.org>
Uploaders:
Stéphane Glondu <glondu@debian.org>,
Mehdi Dogguy <mehdi@debian.org>
@@ -30,8 +31,8 @@ Standards-Version: 4.5.0
Rules-Requires-Root: no
Section: devel
Homepage: https://ben.debian.net
-Vcs-Browser: https://salsa.debian.org/debian/ben
-Vcs-Git: https://salsa.debian.org/debian/ben.git
+Vcs-Browser: https://code.launchpad.net/~ubuntu-transition-trackers/ubuntu-transition-tracker/ben
+Vcs-Bzr: http://bazaar.launchpad.net/~ubuntu-transition-trackers/ubuntu-transition-tracker/ben
Package: libben-ocaml-dev
Section: ocaml
-
--- 0.9.1/frontends/ben_monitor.ml 2020-09-27 09:40:02.000000000 +0000
+++ 0.9.1ubuntu3/frontends/ben_monitor.ml 2020-09-27 15:16:01.000000000 +0000
@@ -26,7 +26,7 @@ open Benl_compat.Html
let use_colors = ref false
let output_file = ref None
let input_source = ref Benl_types.NoSource
-let baseurl = ref "file:///.."
+let baseurl = ref "https://people.canonical.com/~ubuntu-archive/transitions/"
type output_format = Text | Xhtml | Levels | Json
let output_format = ref Levels
@@ -309,7 +309,9 @@ let generated_on_text () =
[ pcdata "Page generated by ";
a_link ben_webpage "Ben ";
pcdata Benl_version.version;
- pcdata (Printf.sprintf " on %s" (Benl_core.get_rfc2822_date ()))
+ pcdata (Printf.sprintf " on %s" (Benl_core.get_rfc2822_date ()));
+ pcdata "; bzr branch ";
+ a_link "https://code.launchpad.net/+branch/ubuntu-transition-tracker" "lp:ubuntu-transition-tracker"
]
let overrall_state l =
-
--- 0.9.1/lib/query.ml 2020-09-27 09:40:02.000000000 +0000
+++ 0.9.1ubuntu3/lib/query.ml 2020-09-27 15:16:01.000000000 +0000
@@ -78,7 +78,7 @@ let rec to_string_b ?(escape = true) las
| EMatch (f, ERegexp r) ->
sprintf ".%s ~ %s" f (string_of_regexp r)
| ENot e ->
- sprintf "!%s" (to_string_b "!" e)
+ sprintf "!%s" (to_string_b last_op e)
| Etrue -> sprintf "true"
| Efalse -> sprintf "false"
| EAnd (e1, e2) ->
-
--- 0.9.1/.gitignore 2020-09-27 09:40:02.000000000 +0000
+++ 0.9.1ubuntu3/.gitignore 1970-01-01 00:00:00.000000000 +0000
@@ -1,6 +0,0 @@
-_build
-ben
-*~
-modules.png
-doc/ben.1
-doc/refman.html
-
--- 0.9.1/frontends/ben_tracker.ml 2020-09-27 09:40:02.000000000 +0000
+++ 0.9.1ubuntu3/frontends/ben_tracker.ml 2020-09-28 08:32:51.000000000 +0000
@@ -34,6 +34,7 @@ let lock = ref "ben.lock"
let clean = ref true
let tconfig = ref None
let output_formats = ref [Ben_monitor.Xhtml]
+let redownload = ref true
open Benl_types
open Benl_modules
@@ -85,6 +86,8 @@ let read_global_config () =
output_formats :=
to_string_l "output-formats" formats
|> List.map Ben_monitor.format_of_string
+ | "redownload", Efalse ->
+ redownload := false
| item, _ ->
warn (Unknown_configuration_item item)
)
@@ -150,7 +153,7 @@ let is_packages_file name =
let clear_cache () =
let cached = !cache_dir in
let cachef = !cache_file in
- let test_cond = Or (Basename_is cachef, Custom is_packages_file) in
+ let test_cond = Basename_is cachef in
let pkgs = find test_cond cached (fun x y -> y ::x) [] in
rm ~force:Force pkgs
@@ -161,7 +164,7 @@ let update_test () =
let read_cache architectures =
if update_test () then begin
- if not !Benl_data.use_projectb then begin
+ if !redownload && not !Benl_data.use_projectb then begin
clear_cache ();
Ben_download.download_all architectures;
end;
-
--- 0.9.1/templates/ubuntu.ml 1970-01-01 00:00:00.000000000 +0000
+++ 0.9.1ubuntu3/templates/ubuntu.ml 2020-09-28 08:32:52.000000000 +0000
@@ -0,0 +1,48 @@
+open Printf
+open Tyxml.Html
+open Benl_compat.Html
+
+let href uri =
+ a_href (uri_of_string uri)
+
+let a_link url text =
+ a ~a:[a_href (uri_of_string url)] [pcdata 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 (pcdata title))
+ headers
+ )
+ (Tyxml.Html.body ~a:[a_class ["debian"]] [
+ h1 ~a:[a_id "title"] [pcdata "Ubuntu Release Management"];
+ h2 ~a:[a_id "subtitle"] subtitle;
+ div ~a:[a_id "body"] body;
+ div ~a:[a_id "footer"] footer
+ ])
+
+open Template
+
+let () =
+ Benl_templates.register_template {
+ name = "Ubuntu";
+ page;
+ intro = [];
+ pts = (fun ~src -> sprintf "https://launchpad.net/ubuntu/+source/%s" src);
+ changelog = (fun ~letter ~src ~ver -> sprintf "https://changelogs.ubuntu.com/changelogs/%s/%s_%s/changelog" letter src ver);
+ buildd = (fun ~src ~ver -> sprintf "https://launchpad.net/ubuntu/+source/%s/%s" src ver);
+ buildds = (fun ~srcs -> None);
+ bugs = (fun ~src -> sprintf "https://bugs.launchpad.net/ubuntu/+source/%s" src);
+ critical_bugs = (fun ~srcs -> None);
+ msg_id = (fun ~mid -> sprintf "http://mid.gmane.org/%s" mid);
+ }
