Fallback to UTF-8 encoding for sending IRC lines, as that's a no-op f…

…rom Tcl.

eggdrop.conf

@@ -61,6 +61,7 @@ set offset "5"
 # that are not representable in the target encoding.
 # You can append //IGNORE to the encoding to ignore characters,
 # that are not representable in the target encoding.
+# If this fails, everything is sent from Tcl as-is (UTF-8).
 #set out-encoding "utf-8"
 
 # If you're using virtual hosting (your machine has more than 1 IP), you

src/tcl.c

@@ -169,18 +169,24 @@ static size_t convert_encoding(iconv_t conversion, char *src, size_t len, char *
 size_t convert_out_encoding(char *msg, size_t len, char *buf, size_t bufsize)
 {
   static int initialized;
+  static iconv_t enc_utf8_utf8 = (iconv_t)(-1);
   size_t i;
 
   if (!initialized) {
     initialized = 1;
     reopen_encoding(&enc_utf8_out, out_encoding, "utf-8");
+    reopen_encoding(&enc_utf8_utf8, "utf-8", "utf-8");
   }
 
   i = convert_encoding(enc_utf8_out, msg, len, buf, bufsize);
   if (i != -1)
     return i;
 
-  /* Output encoding conversion failed, fallback to strcpy. */
+  i = convert_encoding(enc_utf8_utf8, msg, len, buf, bufsize);
+  if (i != -1)
+    return i;
+
+  /* Output encoding conversion failed, very unlikely, fallback to strcpy. */
   size_t tocopy = min(len, bufsize);
   strncpy(msg, buf, tocopy);
   return bufsize - tocopy;