/w $w def
/h $h def
-/Times-Roman findfont 9 scalefont setfont
+/reencode {
+ exch findfont
+ dup length dict
+ begin {
+ 1 index /FID eq
+ { pop pop }
+ { def } ifelse
+ } forall
+ /Encoding ISOLatin1Encoding def
+ currentdict
+ end
+ definefont
+} bind def
+
+/Times-Roman /trlatin1 reencode 9 scalefont setfont
/newline {
/y y 10 sub def
}
# user ids
s/\\x([0-9a-f][0-9a-f])/ chr(hex($1)) /gie;
- $_ = `echo "$_" | iconv -ct latin1`;
+ $_ = `echo "$_" | iconv -c -f utf-8 -t latin1`;
s/^uid:[^:r]*:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:([^:]*):.*/ ($1) uid/;
# revoked user id
if (s/^uid:r[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:([^:]*):.*/ ($1) revuid/) {