KSURi,
Откапал я лог, пару дней давности. Тогда еще не очень обратил внимание, очень интересно эскейпится сам xml, мои подозрения оправдываются  (По понятным причинам, некоторые данные пришлось изменить на 'my' )
Вот что делает с xml модуль HTTP::Lite, после того как крепишь его в контент
| Код |
...
$VAR1 = [
'content-done',
undef,
bless( {
'headers' => {
'user-agent' => 'HTTP::Lite/2.1.6',
'connection' => 'close',
'accept' => '*/*',
'Content-Type' => 'application/x-www-form-urlencoded',
'host' => 'my.ru'
},
'error-message' => undef,
'HTTP11' => 0,
'status' => undef,
'content' => '%3Cmyxml%3E%3Chash%3Ea06efeb7584466917bf31b37269%3C%2Fhash%3E%3Cdate_begin%3E20080501%3C%2Fdate_begin%3E%3Cdate_end%3E20080731%3C%2Fdate_end%3E%3C%2Fmyxml%3E=',
'resp-protocol' => undef,
'body' => undef,
'timeout' => 120,
'HTTPReadBuffer' => '',
'callback_params' => [
\*{'::$handle'}
],
'callback_function' => sub { "DUMMY" },
'method' => 'POST',
'DEBUG' => 0,
'request' => undef,
'resp-headers' => undef,
'header_at_once' => 0,
'CBARGS' => undef,
'headermap' => {
'user-agent' => 'User-Agent',
'connection' => 'Connection',
'accept' => 'Accept',
'host' => 'Host'
},
'holdback' => 0,
'proxyport' => undef,
'proxy' => undef
}, 'HTTP::Lite' )
];
$VAR1 = [
'data',
\'<?xml version="1.0" encoding="windows-1251"?><myxml>
<retval>-1</retval>
<retdesc>отсутствует или неверно задан параметр hash</retdesc>
</myxml>',
bless( {
'headers' => {
'user-agent' => 'HTTP::Lite/2.1.6',
'connection' => 'close',
'accept' => '*/*',
'Content-Type' => 'application/x-www-form-urlencoded',
'host' => 'my.ru'
},
'error-message' => 'OK
',
'HTTP11' => 0,
'status' => '200',
'content' => '%3Cmyxml%3E%3Chash%3Ea06efeb7584466917bf31b37269%3C%2Fhash%3E%3Cdate_begin%3E20080501%3C%2Fdate_begin%3E%3Cdate_end%3E20080731%3C%2Fdate_end%3E%3C%2Fmyxml%3E=',
'resp-protocol' => 'HTTP/1.0',
'body' => undef,
'timeout' => 120,
'HTTPReadBuffer' => '',
'callback_params' => [
\*{'::$handle'}
],
'callback_function' => sub { "DUMMY" },
'method' => 'POST',
'DEBUG' => 0,
'request' => undef,
'resp-headers' => {
'Server' => [
'Microsoft-IIS/6.0'
],
'Proxy-Connection' => [
'close'
],
'Via' => [
'1.0 litr.internal.gate (squid/3.0.STABLE4)'
],
'X-Powered-By' => [
'ASP.NET'
],
'Date' => [
'Wed, 09 Jul 2008 11:10:54 GMT'
],
'Content-Length' => [
'175'
],
'Cache-Control' => [
'private'
],
'Content-Type' => [
'text/xml; charset=windows-1251'
],
'Set-Cookie' => [
'ASPSESSIONIDCQQBSBCS=MNHAJKPBHAHPCJJLHCMOKHEG; path=/'
],
'X-Cache' => [
'MISS from my.internal.gate'
],
'Expires' => [
'Wed, 09 Jul 2008 11:10:54 GMT'
]
},
'header_at_once' => 0,
'CBARGS' => undef,
'headermap' => {
'user-agent' => 'User-Agent',
'connection' => 'Connection',
'accept' => 'Accept',
'host' => 'Host'
},
'holdback' => 0,
'proxyport' => undef,
'proxy' => undef
}, 'HTTP::Lite' )
];
$VAR1 = [
'done',
undef,
bless( {
'headers' => {
'user-agent' => 'HTTP::Lite/2.1.6',
'connection' => 'close',
'accept' => '*/*',
'Content-Type' => 'application/x-www-form-urlencoded',
'host' => 'my.ru'
},
'error-message' => 'OK
',
'HTTP11' => 0,
'status' => '200',
'content' => '%3Cmyxml%3E%3Chash%3Ea06efeb7584466917bf31b37269%3C%2Fhash%3E%3Cdate_begin%3E20080501%3C%2Fdate_begin%3E%3Cdate_end%3E20080731%3C%2Fdate_end%3E%3C%2Fmyxml%3E=',
'resp-protocol' => 'HTTP/1.0',
'body' => undef,
'timeout' => 120,
'HTTPReadBuffer' => '',
'callback_params' => [
\*{'::$handle'}
],
'callback_function' => sub { "DUMMY" },
'method' => 'POST',
'DEBUG' => 0,
'request' => undef,
'resp-headers' => {
'Server' => [
'Microsoft-IIS/6.0'
],
'Proxy-Connection' => [
'close'
],
'Via' => [
'1.0 my.internal.gate (squid/3.0.STABLE4)'
],
'X-Powered-By' => [
'ASP.NET'
],
'Date' => [
'Wed, 09 Jul 2008 11:10:54 GMT'
],
'Content-Length' => [
'175'
],
'Cache-Control' => [
'private'
],
'Content-Type' => [
'text/xml; charset=windows-1251'
],
'Set-Cookie' => [
'ASPSESSIONIDCQQBSBCS=MNHAJKPBHAHPCJJLHCMOKHEG; path=/'
],
'X-Cache' => [
'MISS from my.internal.gate'
],
'Expires' => [
'Wed, 09 Jul 2008 11:10:54 GMT'
]
},
'header_at_once' => 0,
'CBARGS' => undef,
'headermap' => {
'user-agent' => 'User-Agent',
'connection' => 'Connection',
'accept' => 'Accept',
'host' => 'Host'
},
'holdback' => 0,
'proxyport' => undef,
'proxy' => undef
}, 'HTTP::Lite' )
];
|
С LWP::UA XML остается в том же виде:
| Код |
<myxml>
<hash>myhash</hash>
<date_begin>DateBegin</date_begin>
<date_end>DateEnd</date_end>
</myxml>
|
|
