Yeah, this patch fixed the problem! Thank you, Eugene. (CC: DJabberd List)
2009/5/11 Eugene Mamaev [emamaev at gmail dot com]: > Hello Vladimir, > > Thursday, May 7, 2009, 11:12:23 AM, you wrote: > >> 2009/5/7 Eugene Mamaev [emamaev at gmail dot com]: >>> I was trying to subscribe to their list several times but it seems >>> does not work. I did not get list digest on my email. I found your >>> note in djd list from google. I have a guess that the problem persists >>> if roster contains non ASCII chars. How to write to their list? > >> Did you try to send mail to djabberd@lists.danga.com ? > >> There was some problem, but it fixed now: >> http://lists.danga.com/pipermail/djabberd/2009-March/000709.html > > Message is awaiting of moderator approval from may 7. Below is my fix, > please check if this helps to you. > > Index: StartTLS.pm > =================================================================== > --- StartTLS.pm > +++ StartTLS.pm > @@ -2,6 +2,7 @@ > use strict; > use base qw(DJabberd::Stanza); > use Net::SSLeay; > +use Encode qw(is_utf8 encode_utf8); > > Net::SSLeay::load_error_strings(); > Net::SSLeay::SSLeay_add_ssl_algorithms(); > @@ -84,6 +85,10 @@ > # NO LONGER RELEVANT? > # $to_write = 4096 if $to_write > 4096; > > + if (is_utf8($$bref) && length($$bref) != $to_write) { > + $$bref = encode_utf8($$bref); > + } > + > my $str = substr($$bref, $offset, $to_write); > my $written = Net::SSLeay::write($ssl, $str); > > > > -- > Best regards, > Eugene mailto:emamaev at gmail dot com > > -- Vladimir Lettiev aka crux <thec...@gmail.com>