2009-03-03 03:27:01 +00:00
|
|
|
/*------------------------------------------------------------------
|
|
|
|
* IDNA Efuns.
|
|
|
|
*
|
|
|
|
*------------------------------------------------------------------
|
|
|
|
* This file holds the efuns interfacing with the International
|
|
|
|
* Domainname library.
|
|
|
|
*
|
|
|
|
* efun: idna_to_ascii()
|
|
|
|
* efun: idna_to_unicode()
|
|
|
|
* efun: idna_stringprep()
|
|
|
|
*------------------------------------------------------------------
|
|
|
|
*/
|
|
|
|
|
|
|
|
#include "driver.h"
|
|
|
|
|
|
|
|
#ifdef HAS_IDN
|
|
|
|
|
|
|
|
#include "pkg-idna.h"
|
|
|
|
|
|
|
|
#include <idna.h>
|
|
|
|
#include <stringprep.h>
|
|
|
|
#include <stdlib.h>
|
|
|
|
|
|
|
|
#include "typedefs.h"
|
|
|
|
|
|
|
|
#include "interpret.h"
|
|
|
|
#include "mstrings.h"
|
|
|
|
#include "simulate.h"
|
|
|
|
#include "xalloc.h"
|
|
|
|
|
|
|
|
#include "../mudlib/sys/idn.h"
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------*/
|
|
|
|
|
|
|
|
/*=========================================================================*/
|
|
|
|
|
|
|
|
/* EFUNS */
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------*/
|
|
|
|
svalue_t *
|
|
|
|
f_idna_to_ascii (svalue_t *sp)
|
|
|
|
|
|
|
|
/* EFUN idna_to_ascii()
|
|
|
|
*
|
|
|
|
* string idna_to_ascii (string name)
|
|
|
|
*
|
|
|
|
* Converts string name from utf-8 to idna representation (8z punycode)
|
|
|
|
*/
|
|
|
|
|
|
|
|
{
|
|
|
|
char *out = NULL;
|
|
|
|
int rc;
|
|
|
|
|
|
|
|
rc = idna_to_ascii_8z(get_txt(sp->u.str), &out, 0);
|
|
|
|
|
|
|
|
free_svalue(sp);
|
|
|
|
|
|
|
|
if (rc == IDNA_SUCCESS)
|
|
|
|
{
|
|
|
|
put_c_string(sp, out);
|
|
|
|
free(out);
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
put_number(sp, -1);
|
|
|
|
errorf("idna_to_ascii(): Error %s", idna_strerror(rc));
|
|
|
|
/* NOTREACHED */
|
|
|
|
}
|
|
|
|
|
|
|
|
return sp;
|
|
|
|
} /* idna_to_ascii */
|
|
|
|
|
|
|
|
/*--------------------------------------------------------------------*/
|
|
|
|
svalue_t *
|
|
|
|
f_idna_to_unicode (svalue_t *sp)
|
|
|
|
|
|
|
|
/* EFUN idna_to_unicode()
|
|
|
|
*
|
|
|
|
* string idna_to_unicode (string input)
|
|
|
|
*
|
|
|
|
* Converts string input from idna (punycode) to a utf-8 string
|
|
|
|
*/
|
|
|
|
{
|
|
|
|
char *out = NULL;
|
|
|
|
int rc;
|
|
|
|
|
|
|
|
rc = idna_to_unicode_8z8z(get_txt(sp->u.str), &out, 0);
|
|
|
|
|
|
|
|
free_svalue(sp);
|
|
|
|
|
|
|
|
if (rc == IDNA_SUCCESS)
|
|
|
|
{
|
|
|
|
put_c_string(sp, out);
|
|
|
|
free(out);
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
put_number(sp, -1);
|
|
|
|
errorf("idna_to_unicode(): Error %s", idna_strerror(rc));
|
|
|
|
/* NOTREACHED */
|
|
|
|
}
|
|
|
|
|
|
|
|
return sp;
|
|
|
|
} /* idna_to_unicode() */
|
|
|
|
|
|
|
|
/*--------------------------------------------------------------------*/
|
|
|
|
svalue_t *
|
|
|
|
f_idna_stringprep (svalue_t *sp)
|
|
|
|
|
|
|
|
/* EFUN idna_stringprep()
|
|
|
|
*
|
|
|
|
* string idna_stringprep(string str, int profile, int flags = 0)
|
|
|
|
*
|
|
|
|
* Prepare the UTF-8 string str according to the stringprep profile
|
|
|
|
* see also libidn stringprep(3)
|
|
|
|
*
|
|
|
|
* profile is one of the stringprep profiles defined in ldmuds idn.h
|
|
|
|
* str is assumed to be in utf-8 charset (see convert_charset)
|
|
|
|
* flags is one of the stringprep flags defined in LDMud's idn.h .
|
|
|
|
*/
|
|
|
|
{
|
|
|
|
char *buf;
|
|
|
|
size_t size;
|
|
|
|
int flags = 0;
|
|
|
|
int prof = 0;
|
|
|
|
int ret;
|
|
|
|
const Stringprep_profile *profile;
|
|
|
|
string_t *s;
|
|
|
|
|
|
|
|
/* Get and check the flags. */
|
|
|
|
{
|
|
|
|
p_uint argflags = (p_uint)sp->u.number;
|
2009-03-12 05:38:07 +00:00
|
|
|
sp--;
|
2009-03-03 03:27:01 +00:00
|
|
|
|
|
|
|
if (argflags > (STRINGPREP_FLAG_MAX << 1)-1
|
|
|
|
|| argflags & (STRINGPREP_NO_NFKC_FLAG | STRINGPREP_NO_BIDI_FLAG)
|
|
|
|
)
|
|
|
|
{
|
|
|
|
errorf("idna_stringprep(): Unsupported flag value %ld\n", (long)argflags);
|
|
|
|
/* NOTREACHED */
|
|
|
|
return sp;
|
|
|
|
}
|
|
|
|
|
|
|
|
flags = 0;
|
|
|
|
if (argflags & STRINGPREP_NO_NFKC_FLAG) flags |= STRINGPREP_NO_NFKC;
|
|
|
|
if (argflags & STRINGPREP_NO_BIDI_FLAG) flags |= STRINGPREP_NO_BIDI;
|
|
|
|
if (argflags & STRINGPREP_NO_UNASSIGNED_FLAG) flags |= STRINGPREP_NO_UNASSIGNED;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Get and check the profile */
|
|
|
|
prof = (int)sp->u.number;
|
2009-03-12 05:38:07 +00:00
|
|
|
sp--;
|
2009-03-03 03:27:01 +00:00
|
|
|
|
|
|
|
/* select the profile */
|
|
|
|
switch(prof)
|
|
|
|
{
|
|
|
|
case STRINGPREP_NAMEPREP:
|
|
|
|
profile = stringprep_nameprep;
|
|
|
|
break;
|
|
|
|
case STRINGPREP_SASLPREP:
|
|
|
|
profile = stringprep_saslprep;
|
|
|
|
break;
|
|
|
|
case STRINGPREP_PLAIN:
|
|
|
|
profile = stringprep_plain;
|
|
|
|
break;
|
|
|
|
case STRINGPREP_TRACE:
|
|
|
|
profile = stringprep_trace;
|
|
|
|
break;
|
|
|
|
case STRINGPREP_KERBEROS5:
|
|
|
|
profile = stringprep_kerberos5;
|
|
|
|
break;
|
|
|
|
case STRINGPREP_XMPP_NODEPREP:
|
|
|
|
profile = stringprep_xmpp_nodeprep;
|
|
|
|
break;
|
|
|
|
case STRINGPREP_XMPP_RESOURCEPREP:
|
|
|
|
profile = stringprep_xmpp_resourceprep;
|
|
|
|
break;
|
|
|
|
case STRINGPREP_ISCSI:
|
|
|
|
profile = stringprep_iscsi;
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
/* unknown profile */
|
|
|
|
errorf("stringprep(): unknown profile %d.\n", prof);
|
|
|
|
break; /* NOTREACHED */
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Get the string */
|
|
|
|
s = sp->u.str;
|
|
|
|
|
|
|
|
/* this assumes that most strings will pass stringprep unchanged */
|
|
|
|
size = mstrsize(s)+1;
|
|
|
|
memsafe(buf = xalloc(size), size, "stringprep buffer");
|
|
|
|
|
|
|
|
memcpy(buf, get_txt(s), mstrsize(s));
|
|
|
|
buf[mstrsize(s)] = 0;
|
|
|
|
|
|
|
|
ret = stringprep(buf, size, flags, profile);
|
|
|
|
while (ret == STRINGPREP_TOO_SMALL_BUFFER)
|
|
|
|
{
|
|
|
|
/* Increase the size until it fits. */
|
|
|
|
/* TODO: Same pattern as in convert_charset() - make it a utility function?
|
|
|
|
*/
|
|
|
|
size = size > 65536 ? (size + 33) : (2 * size);
|
|
|
|
memsafe(buf = rexalloc(buf, size), size, "stringprep buffer");
|
|
|
|
ret = stringprep(buf, size, flags, profile);
|
|
|
|
}
|
|
|
|
|
|
|
|
if (ret != STRINGPREP_OK)
|
|
|
|
{
|
|
|
|
errorf("stringprep(): Error %s", stringprep_strerror(ret));
|
|
|
|
/* NOTREACHED */
|
2009-11-28 12:43:46 +00:00
|
|
|
}
|
2009-03-03 03:27:01 +00:00
|
|
|
else
|
|
|
|
{
|
2009-03-12 05:38:07 +00:00
|
|
|
// free the string argument
|
|
|
|
free_svalue(sp);
|
2009-03-03 03:27:01 +00:00
|
|
|
put_c_string(sp, buf);
|
|
|
|
}
|
|
|
|
|
|
|
|
return sp;
|
|
|
|
} /* f_idna_stringprep */
|
|
|
|
|
|
|
|
/***************************************************************************/
|
|
|
|
|
|
|
|
#endif /* HAS_IDN */
|