How to build SKS-Keyserver on Ubuntu 18.04 LTS

sks-build.md

mkdir -p /var/src/
cd /var/src/
hg clone https://bitbucket.org/skskeyserver/sks-keyserver
cd sks-keyserver
eval $(opam config env)
cp Makefile.local.unused Makefile.local
sed -i 's/-ldb-4.6/-ldb-5.3/g' Makefile.local
curl -L https://gist.githubusercontent.com/mattrude/5c331f76c02060301874b376f3248774/raw/sks-keyserver_-_change_download_type_to_text.patch -o sks-keyserver_-_change_download_type_to_text.patch -s
curl -L https://gist.githubusercontent.com/mattrude/5c331f76c02060301874b376f3248774/raw/sks-keyserver_-_update_stats_page.patch -o sks-keyserver_-_update_stats_page.patch -s
patch -p1 < sks-keyserver_-_change_download_type_to_text.patch
patch -p1 < sks-keyserver_-_change_download_type_to_text.patch
make dep
make all
make install

sks-keyserver_-_change_download_type_to_text.patch

diff -r 0106ba2f6abc wserver.ml
--- a/wserver.ml        Sun Jul 09 16:54:40 2017 +0200
+++ b/wserver.ml        Mon Aug 13 20:47:43 2018 +0000
@@ -304,7 +304,7 @@
    * Hack to force content-disposition for machine readable get request.
    * This should probably be passed down in the request itself.
    *)
-  if content_type = "application/pgp-keys; charset=UTF-8" then
+  if content_type = "application/text; charset=UTF-8" then
     fprintf cout "Content-disposition: attachment; filename=gpgkey.asc\r\n";
   (*
    * Allow access from Javascript code on other sites.

sks-keyserver_-_update_stats_page.patch

diff -r 0106ba2f6abc stats.ml
--- a/stats.ml  Sun Jul 09 16:54:40 2017 +0200
+++ b/stats.ml  Mon Aug 13 20:57:18 2018 +0000
@@ -124,7 +124,7 @@
   let table_entries =
     List.map ~f:hist_entry_to_table_entry (Array.to_list histogram)
   in
-  "<table summary=\"Statistics\" border=\"1\">\n" ^
+  "<table summary=\"Statistics\" border=\"1\" class=\"statistics\">\n" ^
   "<tr><td>Time</td><td>New Keys</td><td>Updated Keys</td></tr>\n" ^
   String.concat "\n" table_entries ^
   "\n</table>\n"
@@ -139,7 +139,7 @@
      <table summary=\"Keyserver Settings\">
      <tr><td>Hostname:</td><td>%s</td></tr>
      <tr><td>Nodename:</td><td>%s</td></tr>
-     <tr><td>Version:</td><td>%s%s</td></tr>
+     <tr><td>SKS Version:</td><td>%s%s</td></tr>
      <tr><td>Server contact:</td><td>%s</td></tr>
      <tr><td>HTTP port:</td><td>%d</td></tr>
      <tr><td>Recon port:</td><td>%d</td></tr>
@@ -160,7 +160,7 @@
       with Failure "No partners specified" -> []
     in
     let peers = List.map ~f:(fun s -> sprintf "<tr><td>%s</td></tr>\n" s) peers in
-    sprintf "<h2>Outgoing Mailsync Peers</h2>\n<table summary=\"Mailsync Peers\">\n%s</table>"
+    sprintf "%s"
       (String.concat ~sep:"" peers)
   in
   sprintf "%s\n\n<table summary=\"Keyserver Peers\" width=\"100%%\">
@@ -172,6 +172,7 @@
     settings gossip_peers mail_peers


+(*    sprintf "<h2>Outgoing Mailsync Peers</h2>\n<table summary=\"Mailsync Peers\">\n%s</table>"  *)
 (************************************************************)

 let generate_html_stats_page log size =
@@ -180,7 +181,7 @@
   let num_keys = sprintf "<p>Total number of keys: %d</p>\n" size  in
   let title =
     sprintf
-      "SKS OpenPGP Keyserver statistics<br />Taken at %s"
+      "OpenPGP Keyserver statistics<br />Taken at %s"
       (time_to_tz_string now)
   in
   if Array.length log = 0 then