Your message dated Sat, 17 Mar 2007 14:17:04 +0000
with message-id <[EMAIL PROTECTED]>
and subject line Bug#393204: fixed in libfrontier-rpc-perl 0.07b4-4
has caused the attached Bug report to be marked as done.
This means that you claim that the problem has been dealt with.
If this is not the case it is now your responsibility to reopen the
Bug report if necessary, and/or fix the problem forthwith.
(NB: If you are a system administrator and have no idea what I am
talking about this indicates a serious mail system misconfiguration
somewhere. Please contact me immediately.)
Debian bug tracking system administrator
(administrator, Debian Bugs database)
--- Begin Message ---
Package: libfrontier-rpc-perl
Severity: important
Version: 0.07b4-3
libfrontier-rpc-perl is not very compliant with unicode and utf8 .
I wrote in php a little client to interract with a daemon in perl .
I propose this patch , for encoding all unicode character in
numerical entities , it is for me the simple way to solve the problem .
In attachement :
- a little daemon in perl using libfrontier-rpc-perl
- a little client in php for testing
- a dump each http reponse made with tcpflow ( tcpflow -ilo src port 9000 )
- a simple patch for /usr/share/perl5/Frontier/RPC2.pm
--
____________________________________________________________
/ Erwan MAS /\
| mailto:[EMAIL PROTECTED] |_/
___|________________________________________________________ |
\___________________________________________________________\__/
--- /usr/share/perl5/Frontier/RPC2.pm.orig 2002-08-03 02:48:06.000000000
+0200
+++ /usr/share/perl5/Frontier/RPC2.pm 2006-10-15 16:19:39.418894676 +0200
@@ -234,6 +234,7 @@
return ("<value><double>$value</double></value>");
} else {
$value =~ s/([&<>\"])/$char_entities{$1}/ge;
+ $value =~ s/([\x{80}-\x{FFFF}])/'&#' . ord($1) . ';'/gse;
return ("<value><string>$value</string></value>");
}
}
#!/usr/bin/perl
#----------------------------------------------------------------------------------------------
use strict ;
#----------------------------------------------------------------------------------------------
use Frontier::Daemon ;
#----------------------------------------------------------------------------------------------
new Frontier::Daemon
LocalPort => 9000 ,
LocalAddr => '127.0.0.1' ,
encoding => 'UTF-8' ,
methods => {
'badstr' => \&ReturnBadString
};
#----------------------------------------------------------------------------------------------
sub ReturnBadString {
my $n=shift ;
my $m=shift ;
#------------
return sprintf("The 'copyright symbol' by %d is '%s' \nThe 'euro symbol' by %d is '%s'\n",
$n,chr(169)x$n,$m,chr(0x20ac)x$m) ;
#------------
}
#----------------------------------------------------------------------------------------------
HTTP/1.1 200 OK
Date: Sun, 15 Oct 2006 14:27:24 GMT
Server: libwww-perl-daemon/1.36
Content-Length: 188
Content-Type: text/xml
<?xml version="1.0"?>
<methodResponse>
<params>
<param><value><string>The 'copyright symbol' by 0 is ''
The 'euro symbol' by 0 is ''
</string></value></param>
</params>
</methodResponse>
HTTP/1.1 200 OK
Date: Sun, 15 Oct 2006 14:27:24 GMT
Server: libwww-perl-daemon/1.36
Content-Length: 209
Content-Type: text/xml
<?xml version="1.0"?>
<methodResponse>
<params>
<param><value><string>The 'copyright symbol' by 20 is '????????????????????'
The 'euro symbol' by 0 is ''
</string></value></param>
</params>
</methodResponse>
HTTP/1.1 200 OK
Date: Sun, 15 Oct 2006 14:27:24 GMT
Server: libwww-perl-daemon/1.36
Content-Length: 209
Content-Type: text/xml
<?xml version="1.0"?>
<methodResponse>
<params>
<param><value><string>The 'copyright symbol' by 0 is ''
The 'euro symbol' by 20 is
'????????????????????????????????????????????????????????????'
</string></value></param>
</params>
</methodResponse>
HTTP/1.1 200 OK
Date: Sun, 15 Oct 2006 14:27:24 GMT
Server: libwww-perl-daemon/1.36
Content-Length: 230
Content-Type: text/xml
<?xml version="1.0"?>
<methodResponse>
<params>
<param><value><string>The 'copyright symbol' by 20 is
'????????????????????????????????????????'
The 'euro symbol' by 20 is
'????????????????????????????????????????????????????????????'
</string></value></param>
</params>
</methodResponse>
php-client.php
Description: application/httpd-php
--- End Message ---
--- Begin Message ---
Source: libfrontier-rpc-perl
Source-Version: 0.07b4-4
We believe that the bug you reported is fixed in the latest version of
libfrontier-rpc-perl, which is due to be installed in the Debian FTP archive:
libfrontier-rpc-perl_0.07b4-4.diff.gz
to pool/main/libf/libfrontier-rpc-perl/libfrontier-rpc-perl_0.07b4-4.diff.gz
libfrontier-rpc-perl_0.07b4-4.dsc
to pool/main/libf/libfrontier-rpc-perl/libfrontier-rpc-perl_0.07b4-4.dsc
libfrontier-rpc-perl_0.07b4-4_all.deb
to pool/main/libf/libfrontier-rpc-perl/libfrontier-rpc-perl_0.07b4-4_all.deb
A summary of the changes between this version and the previous one is
attached.
Thank you for reporting the bug, which will now be closed. If you
have further comments please address them to [EMAIL PROTECTED],
and the maintainer will reopen the bug report if appropriate.
Debian distribution maintenance software
pp.
Maurizio Lemmo (Tannoiser) <[EMAIL PROTECTED]> (supplier of updated
libfrontier-rpc-perl package)
(This message was generated automatically at their request; if you
believe that there is a problem with it please contact the archive
administrators by mailing [EMAIL PROTECTED])
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
Format: 1.7
Date: Sat, 17 Mar 2007 15:04:15 +0100
Source: libfrontier-rpc-perl
Binary: libfrontier-rpc-perl
Architecture: source all
Version: 0.07b4-4
Distribution: unstable
Urgency: low
Maintainer: Maurizio Lemmo (Tannoiser) <[EMAIL PROTECTED]>
Changed-By: Maurizio Lemmo (Tannoiser) <[EMAIL PROTECTED]>
Description:
libfrontier-rpc-perl - Perl module to implement RPC calls using XML requests
Closes: 393204
Changes:
libfrontier-rpc-perl (0.07b4-4) unstable; urgency=low
.
* Changed Maintainer field.
* added patches/10_fix-utf8.dpatch. Fixing utf8 compliance, thanks to Erwan
MAS <[EMAIL PROTECTED]> (Closes: #393204).
* added dpatch in Build-Depends because use it, modified debian/rules for
using dpatch.
* Bumped Standards-Version to 3.7.2.2, no changes required.
* Moved debhelper to Build-Depends. (Policy Violation 7.6).
Files:
f1384b5ac4bd79c2a9bf6e8601a95926 709 perl optional
libfrontier-rpc-perl_0.07b4-4.dsc
ab41285e90bd808093c3d2051c24a2ce 2755 perl optional
libfrontier-rpc-perl_0.07b4-4.diff.gz
39617f653f02394acb1656cdef0f5b29 38280 perl optional
libfrontier-rpc-perl_0.07b4-4_all.deb
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.6 (GNU/Linux)
iD8DBQFF+/dq6XQ1KDE+o6YRAmMaAJ9zwPtFB1A6kcbNEsh1wf39w+sEZgCgqpQv
Rb89HArFp0Sj80VI+kSU31A=
=R63h
-----END PGP SIGNATURE-----
--- End Message ---
