GetRequestArguments($url,$arguments);
$arguments["RequestMethod"]="POST";
$arguments["Headers"]["SoapAction"]="";
$arguments["Headers"]["EndPointURL"]="http://www.atlaz.net/webservices/GetCurrencyExchange.php";
$arguments["Headers"]["Content-Type"]="text/xml; charset=\"utf-8\"";
$arguments["Body"]="
1000
GBP
JPY
";
echo "- Opening connection to:\n
",HtmlEntities($arguments["HostName"]),"
\n";
flush();
$error=$http->Open($arguments);
if($error=="")
{
$error=$http->SendRequest($arguments);
if($error=="")
{
echo " - Request:\n
\n".HtmlEntities($http->request)."
\n";
echo " - Request headers:\n
\n";
for(Reset($http->request_headers),$header=0;$headerrequest_headers);Next($http->request_headers),$header++)
{
$header_name=Key($http->request_headers);
if(GetType($http->request_headers[$header_name])=="array")
{
for($header_value=0;$header_valuerequest_headers[$header_name]);$header_value++)
echo $header_name.": ".$http->request_headers[$header_name][$header_value],"\r\n";
}
else
echo $header_name.": ".$http->request_headers[$header_name],"\r\n";
}
echo "
\n";
echo " - Request body:\n
\n".HtmlEntities($http->request_body)."
\n";
flush();
$headers=array();
$error=$http->ReadReplyHeaders($headers);
if($error=="")
{
echo "Response headers:
\n\n";
for(Reset($headers),$header=0;$header\nResponse body:
\n\n";
for(;;)
{
$error=$http->ReadReplyBody($body,1000);
if($error!=""
|| strlen($body)==0)
break;
echo HtmlSpecialChars($body);
}
echo "\n
\n";
}
}
$http->Close();
}
if(strcmp($error,""))
echo "