1. Kristian Fiskerstrand
  2. sks-keyserver-patches

Commits

Kristian Fiskerstrand  committed 2765d31

further

  • Participants
  • Parent commits 001dc24
  • Branches default

Comments (0)

Files changed (1)

File Use Long KeyID

View file
  • Ignore whitespace
 
 diff -r e2d4ec6c2147 index.ml
 --- a/index.ml	Fri Aug 10 20:50:24 2012 +0200
-+++ b/index.ml	Tue Aug 14 22:21:23 2012 +0200
++++ b/index.ml	Tue Aug 14 22:29:22 2012 +0200
 @@ -295,13 +295,12 @@
  
    let keyid_string = match siginfo.keyid with
      | None ->
          "no keyid"
    in
+@@ -395,16 +394,14 @@
+             datestr_of_int64 time
+   in
+   let keyid = keyid in
+-  let keyid_short = Fingerprint.keyid_to_string ~short:true keyid in
+   let keyid_long = Fingerprint.keyid_to_string ~short:false keyid in
+-
+   let keyid_string =
+-    if is_subkey then sprintf "%8s" keyid_short
++    if is_subkey then sprintf "%16s" keyid_long
+     else
+-      sprintf "<a href=\"%s\">%8s</a>"
++      sprintf "<a href=\"%s\">%16s</a>"
+         (HtmlTemplates.link ~op:"get" ~hash:false ~fingerprint:false
+-           ~keyid:keyid_long )
+-        keyid_short
++           ~keyid:keyid_long)
++        keyid_long
+   in
+   let algo = pk_alg_to_ident pki.pk_alg in
+   let line = sprintf "%s  %4d%s/%s %s %s "
 diff -r e2d4ec6c2147 mRindex.ml
 --- a/mRindex.ml	Fri Aug 10 20:50:24 2012 +0200
-+++ b/mRindex.ml	Tue Aug 14 22:21:23 2012 +0200
++++ b/mRindex.ml	Tue Aug 14 22:29:22 2012 +0200
 @@ -99,7 +99,7 @@
  
  let key_to_lines key =