End warns with newlines
[pgp-tools.git] / gpg-key2ps / gpg-key2ps
index cadcfeeee146ce8f66a8cdde90171d0c0db96fa3..fab1936a59837a806192a845baea8ddb919193c4 100755 (executable)
@@ -1,4 +1,8 @@
 #! /bin/sh
+#
+# gpg-key2ps: convert a PGP/GnuPG key into paper slips.
+#
+# $Id$
 
 set -e
 
@@ -189,7 +193,7 @@ sed -e '/^tru:/d' \
     -e 's/@split@\(.\{4,4\}\)\(.\{4,4\}\)\(.\{4,4\}\)\(.\{4,4\}\)\(.\{4,4\}\)@/\1 \2 \3 \4 \5/g' \
     -e 's/^uid:[^:r]*:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:\([^:]*\):.*/  (\1) uid/' \
     -e 's/^uid:r[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:\([^:]*\):.*/  (\1) revuid/' \
-    -e 's/^sub:[^:]*:\([^:]*\):[^:]*:.\{8,8\}\(.\{8,8\}\):\([^:]*\):[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:.*/    (\3) (\2) (g) (\1) sbk/' \
+    -e 's/^sub:[^:]*:\([^:]*\):16:.\{8,8\}\(.\{8,8\}\):\([^:]*\):[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:.*/       (\3) (\2) (g) (\1) sbk/' \
     <$TMPFILE
 cat <<EOF
 } def