From: Richard C. <ric...@us...> - 2008-10-24 13:33:31
|
Update of /cvsroot/jungerl/jungerl/lib/xmlrpc/src In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv24460/src Modified Files: xmlrpc_encode.erl Log Message: applied patch by happi at Kreditor, originally dated 2006-02-22 Index: xmlrpc_encode.erl =================================================================== RCS file: /cvsroot/jungerl/jungerl/lib/xmlrpc/src/xmlrpc_encode.erl,v retrieving revision 1.4 retrieving revision 1.5 diff -u -d -r1.4 -r1.5 --- xmlrpc_encode.erl 24 Oct 2008 13:05:46 -0000 1.4 +++ xmlrpc_encode.erl 24 Oct 2008 13:33:27 -0000 1.5 @@ -35,7 +35,7 @@ {error, Reason} -> {error, Reason}; EncodedParams -> EncodedPayload = - ["<?xml version=\"1.0\" encoding=\"iso_8859-1\"?><methodCall><methodName>", + ["<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?><methodCall><methodName>", atom_to_list(Name), "</methodName>", EncodedParams, "</methodCall>"], {ok, EncodedPayload} @@ -44,7 +44,7 @@ case xmlrpc_util:is_string(String) of yes -> EncodedPayload = - ["<?xml version=\"1.0\" encoding=\"iso_8859-1\"?><methodResponse><fault>" + ["<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?><methodResponse><fault>" "<value><struct><member><name>faultCode</name><value><int>", integer_to_list(Code), "</int></value></member><member><name>" "faultString</name><value><string>", escape_string(String), @@ -59,7 +59,7 @@ case encode_params([Param]) of {error, Reason} -> {error, Reason}; EncodedParam -> - {ok, ["<?xml version=\"1.0\"?><methodResponse>", EncodedParam, + {ok, ["<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?><methodResponse>", EncodedParam, "</methodResponse>"]} end; payload(Payload) -> {error, {bad_payload, Payload}}. @@ -98,7 +98,7 @@ ["<base64>", Base64, "</base64>"]; encode(Value) -> case xmlrpc_util:is_string(Value) of - yes -> escape_string(Value); + yes -> ["<string>", escape_string(Value), "</string>"]; no -> {error, {bad_value, Value}} end. |