XML-интрфейсы обменной биржи

function GetAnswer($url, $method, $content) {
  if($method=="GET") {
    $curl = curl_init();
    curl_setopt($curl, CURLOPT_URL, $url);
  } elseif($method=="POST") {
    $curl = curl_init($url);
    curl_setopt($curl, CURLOPT_POST,1);
    curl_setopt($curl, CURLOPT_POSTFIELDS, $content);
  }
  curl_setopt($curl, CURLOPT_HEADER, 0);
  curl_setopt($curl, CURLOPT_SSL_VERIFYPEER, FALSE);
  curl_setopt($curl, CURLOPT_RETURNTRANSFER,true);
  $out = curl_exec($curl);
  curl_close($curl);
  return $out;
}

function GetOrders($direction) {
  $url = "https://wm.exchanger.ru/asp/XMLWMList.asp?exchtype=".$direction;
  $content = GetAnswer($url, "GET", "");
  $xmlres = simplexml_load_string($content);
  if($xmlres) {
    foreach ($xmlres->WMExchnagerQuerys->query as $item) {
      $Id=strval($item->attributes()->id);
      $AmountIn=strval($item->attributes()->amountin);
      $AmountIn=str_replace(",",".",$amountIn);
      $AmountOut=strval($item->attributes()->amountout);
      $AmountOut=str_replace(",",".",$AmountOut);
      $OrderDate=strval($item->attributes()->querydate);
      $DirectRate=round($AmountIn/$AmountOut,8);
      $ReverseRate=round($AmountOut/$AmountIn,8);
      $Arr[$Id] = Array($AmountIn, $AmountOut, $OrderDate, $DirectRate, $ReverseRate);
  }
}

Интерфейс 8. Выставление своей заявки

function _GetSign($inStr) { 
  $Path_Folder = "/path/to/kwm/";
  $Path_Signer = "/path/to/wmsigner/wmsigner";
  $MyWMID = "XXXXXXXXXXXX";
  chdir($Path_Folder);
  $descriptorspec = array(
  0 => array("pipe", "r"),
  1 => array("pipe", "w"),
  2 => array("pipe", "r") );
  $command=$Path_Signer." -i ".$MyWMID.".ini";
  $process = proc_open($command, $descriptorspec, $pipes);
  fwrite($pipes[0], "$inStr\004\r\n");
  fclose($pipes[0]);
  $s = fgets($pipes[1], 133);
  fclose($pipes[1]);
  $return_value = proc_close($process);
  return $s;
}

function SetOrder($frompurse, $topurse, $fromamount, $toamount) {
  $MyWMID = "XXXXXXXXXXXX";
  $sign = _GetSign($MyWMID.$frompurse.$topurse.$fromamount.$toamount);
  $xml = "
    <wm.exchanger.request>
    <wmid>$MyWMID</wmid>
    <signstr>$sign</signstr>
    <inpurse>$frompurse</inpurse>
    <outpurse>$topurse</outpurse>
    <inamount>$fromamount</inamount>
    <outamount>$toamount</outamount>
    </wm.exchanger.request>";
  $resxml = GetAnswer("https://wm.exchanger.ru/asp/XMLTrustPay.asp", "POST", $xml);
  $xmlres = simplexml_load_string($resxml);
  $result['retval'] = strval($xmlres->retval);
  $result['retdesc'] = iconv("UTF-8", "CP1251", strval($xmlres->retdesc));
  $result['operid'] = strval($xmlres->retval->attributes()->operid);
  $result['wmtransid'] = strval($xmlres->retval->attributes()->wmtransid);
  return $result;
}

Интерфейс 9. Покупка чужой заявки из своей заявки

function BuyOrder($myid, $id, $orderdateStamp) {
  $MyWMID = "XXXXXXXXXXXX";
  $sign=_GetSign($MyWMID.$myid.$id);
  $xml="
    <wm.exchanger.request>
    <wmid>$MyWMID</wmid>
    <signstr>$sign</signstr>
    <isxtrid>$myid</isxtrid>
    <desttrid>$id</desttrid>
    <deststamp>$orderdateStamp</deststamp>
    </wm.exchanger.request>";
  $resxml=_GetAnswer("https://wm.exchanger.ru/asp/XMLQrFromTrIns.asp", "POST", $xml);
  $xmlres = simplexml_load_string($resxml);
  $result['retval']=strval($xmlres->retval);
  $result['retdesc']=iconv("UTF-8", "CP1251", strval($xmlres->retdesc));
  return $result;
}

$OrderDate = полученная из функции GetOrders() дата нужной нам заявки;
$OrderDate=substr($OrderDate, -8); $OrderDate_expl=explode(":", $OrderDate);
$orderateStamp=$OrderDate_expl[0]+$OrderDate_expl[1]+$OrderDate_expl[2];