[Pkg-sks-commit] r71 - sks/trunk/sks/debian/patches

[chrism at alioth.debian.org]

Author: chrism
Date: 2008-06-19 14:49:57 +0000 (Thu, 19 Jun 2008)
New Revision: 71

Added:
   sks/trunk/sks/debian/patches/504_key_types
Log:
[project @ 72]
Add type (rsa, dsa, ..) to key output

Original author: weasel
Date: 2003-12-06 23:39:44.579602+00:00

Added: sks/trunk/sks/debian/patches/504_key_types
===================================================================
--- sks/trunk/sks/debian/patches/504_key_types	                        (rev 0)
+++ sks/trunk/sks/debian/patches/504_key_types	2008-06-19 14:49:57 UTC (rev 71)
@@ -0,0 +1,23 @@
+--- sks-1.0.6/htmlTemplates.ml.orig	Sun Dec  7 00:30:06 2003
++++ sks-1.0.6/htmlTemplates.ml	Sun Dec  7 00:30:39 2003
+@@ -69,9 +69,18 @@
+ 
+ let keyinfo_pks pki ~keyid ~link ~userids = 
+   let tm = gmtime (Int64.to_float pki.pk_ctime) in
++  let algo = match pki.pk_alg with
++       1 -> "R"  (* RSA sign and encrypt *)
++    |  2 -> "r"  (* RSA encrypt *)
++    |  3 -> "s"  (* RSA sign *)
++    | 16 -> "g"  (* ElGamal encrypt *)
++    | 20 -> "G"  (* ElGamal sign and encrypt *)
++    | 17 -> "D"  (* DSA *)
++    | _  -> "?"  (* NoClue *)
++    in
+   let base = 
+-    sprintf "pub  %4d/<a href=\"%s\">%8s</a> %4d/%02d/%02d "
+-      pki.pk_keylen link keyid 
++    sprintf "pub  %4d%s/<a href=\"%s\">%8s</a> %4d/%02d/%02d "
++      pki.pk_keylen algo link keyid 
+       (1900 + tm.tm_year) 
+       (tm.tm_mon + 1) 
+       tm.tm_mday