1 /*************************************************
2 * Exim - an Internet mail transport agent *
3 *************************************************/
5 /* Copyright (c) Jeremy Harris 2015, 2016 */
6 /* See the file NOTICE for conditions of use and distribution. */
13 #ifdef SUPPORT_I18N_2008
20 #include <stringprep.h>
23 string_localpart_alabel_to_utf8_(const uschar
* alabel
, uschar
** err
);
25 /**************************************************/
28 string_is_utf8(const uschar
* s
)
31 if (s
) while ((c
= *s
++)) if (c
& 0x80) return TRUE
;
36 string_is_alabel(const uschar
* s
)
38 return s
[0] == 'x' && s
[1] == 'n' && s
[2] == '-' && s
[3] == '-';
41 /**************************************************/
42 /* Domain conversions.
43 The *err string pointer should be null before the call
45 Return NULL for error, with optional errstr pointer filled in
49 string_domain_utf8_to_alabel(const uschar
* utf8
, uschar
** err
)
54 #ifdef SUPPORT_I18N_2008
55 /* Avoid lowercasing plain-ascii domains */
56 if (!string_is_utf8(utf8
))
57 return string_copy(utf8
);
59 /* Only lowercase is accepted by the library call. A pity since we lose
60 any mixed-case annotation. This does not really matter for a domain. */
63 for (s1
= s
= US utf8
; (c
= *s1
); s1
++) if (!(c
& 0x80) && isupper(c
))
65 s
= string_copy(utf8
);
66 for (s1
= s
+ (s1
- utf8
); (c
= *s1
); s1
++) if (!(c
& 0x80) && isupper(c
))
71 if ((rc
= idn2_lookup_u8(CCS s
, &s1
, IDN2_NFC_INPUT
)) != IDN2_OK
)
73 if (err
) *err
= US
idn2_strerror(rc
);
77 s
= US
stringprep_utf8_nfkc_normalize(CCS utf8
, -1);
78 if ( (rc
= idna_to_ascii_8z(CCS s
, CSS
&s1
, IDNA_ALLOW_UNASSIGNED
))
82 if (err
) *err
= US
idna_strerror(rc
);
95 string_domain_alabel_to_utf8(const uschar
* alabel
, uschar
** err
)
97 #ifdef SUPPORT_I18N_2008
101 int size
= 0, len
= 0;
103 while (label
= string_nextinlist(&alabel
, &sep
, NULL
, 0))
104 if ( string_is_alabel(label
)
105 && !(label
= string_localpart_alabel_to_utf8_(label
, err
))
109 s
= string_append_listele(s
, &size
, &len
, '.', label
);
117 if ( (rc
= idna_to_unicode_8z8z(CCS alabel
, CSS
&s1
, IDNA_USE_STD3_ASCII_RULES
))
120 if (err
) *err
= US
idna_strerror(rc
);
129 /**************************************************/
130 /* localpart conversions */
131 /* the *err string pointer should be null before the call */
135 string_localpart_utf8_to_alabel(const uschar
* utf8
, uschar
** err
)
143 if (!string_is_utf8(utf8
)) return string_copy(utf8
);
145 p
= (punycode_uint
*) stringprep_utf8_to_ucs4(CCS utf8
, -1, &ucs4_len
);
146 p_len
= ucs4_len
*4; /* this multiplier is pure guesswork */
147 res
= store_get(p_len
+5);
149 res
[0] = 'x'; res
[1] = 'n'; res
[2] = res
[3] = '-';
151 if ((rc
= punycode_encode(ucs4_len
, p
, NULL
, &p_len
, CS res
+4)) != PUNYCODE_SUCCESS
)
153 DEBUG(D_expand
) debug_printf("l_u2a: bad '%s'\n", punycode_strerror(rc
));
155 if (err
) *err
= US
punycode_strerror(rc
);
166 string_localpart_alabel_to_utf8_(const uschar
* alabel
, uschar
** err
)
173 DEBUG(D_expand
) debug_printf("l_a2u: '%s'\n", alabel
);
175 p_len
= Ustrlen(alabel
);
176 p
= (punycode_uint
*) store_get((p_len
+1) * sizeof(*p
));
178 if ((rc
= punycode_decode(p_len
, CCS alabel
, &p_len
, p
, NULL
)) != PUNYCODE_SUCCESS
)
180 if (err
) *err
= US
punycode_strerror(rc
);
184 s
= US
stringprep_ucs4_to_utf8(p
, p_len
, NULL
, &p_len
);
185 res
= string_copyn(s
, p_len
);
192 string_localpart_alabel_to_utf8(const uschar
* alabel
, uschar
** err
)
194 if (string_is_alabel(alabel
))
195 return string_localpart_alabel_to_utf8_(alabel
, err
);
197 if (err
) *err
= US
"bad alabel prefix";
202 /**************************************************/
203 /* Whole address conversion.
204 The *err string pointer should be null before the call.
206 Return NULL on error, with (optional) errstring pointer filled in
210 string_address_utf8_to_alabel(const uschar
* utf8
, uschar
** err
)
216 if (!*utf8
) return string_copy(utf8
);
218 DEBUG(D_expand
) debug_printf("addr from utf8 <%s>", utf8
);
220 for (s
= utf8
; *s
; s
++)
223 l
= string_copyn(utf8
, s
- utf8
);
224 if ( !(l
= string_localpart_utf8_to_alabel(l
, err
))
225 || !(d
= string_domain_utf8_to_alabel(++s
, err
))
228 l
= string_sprintf("%s@%s", l
, d
);
229 DEBUG(D_expand
) debug_printf(" -> <%s>\n", l
);
233 l
= string_localpart_utf8_to_alabel(utf8
, err
);
234 DEBUG(D_expand
) debug_printf(" -> <%s>\n", l
);
240 /*************************************************
241 * Report the library versions. *
242 *************************************************/
244 /* See a description in tls-openssl.c for an explanation of why this exists.
246 Arguments: a FILE* to print the results to
251 utf8_version_report(FILE *f
)
253 #ifdef SUPPORT_I18N_2008
254 fprintf(f
, "Library version: IDN2: Compile: %s\n"
257 idn2_check_version(NULL
));
258 fprintf(f
, "Library version: Stringprep: Compile: %s\n"
261 stringprep_check_version(NULL
));
263 fprintf(f
, "Library version: IDN: Compile: %s\n"
266 stringprep_check_version(NULL
));
270 #endif /* whole file */