Pustaka XML-RPC yang ditemukan di Internet sangat berguna untuk mengembangkan antarmuka komunikasi eksternal kecil. Simpan kode ini sebagai xml-rpc.inc.php
<?php
/*
Pustaka XML-RPC yang ditemukan di Internet sangat berguna untuk mengembangkan antarmuka komunikasi eksternal kecil.
*/
fungsi & XML_serialize($data, $level = 0, $prior_key = NULL){
#mengasumsikan hash, kunci adalah nama variabel
$xml_serial_string = "";
while(daftar($kunci, $nilai) = masing-masing($data)){
$sebaris = salah;
$numerik_array = salah;
$atribut = "";
#echo "Kunci saya saat ini adalah '$key', dipanggil dengan kunci sebelumnya '$prior_key'<br>";
if(!strstr($key, " attr")){ #jika itu bukan atribut
if(array_key_exists("$kunci attr", $data)){
while(list($attr_name, $attr_value) = masing-masing($data["$key attr"])){
#echo "Ditemukan atribut $attribute_name dengan nilai $attribute_value<br>";
$attr_value = &htmlkarakter khusus($attr_value, ENT_QUOTES);
$atribut .= " $attr_name="$attr_value"";
}
}
if(is_numerik($kunci)){
#echo "Kunci saya saat ini ($key) adalah numerik. Kunci induk saya adalah '$prior_key'<br>";
$kunci = $kunci_sebelumnya;
}kalau tidak{
#Anda tidak dapat memiliki tombol angka pada dua level berturut-turut, jadi tidak masalah
#echo "Memeriksa apakah ada kunci numerik dalam data.";
if(is_array($nilai) dan array_key_exists(0, $nilai)){
# echo "Ya! Memanggil diriku sendiri sebagai hasil dari array numerik.<br>";
$numerik_array = benar;
$xml_serialized_string .= XML_serialize($nilai, $level, $kunci);
}
#gema "<br>";
}
if(!$numerik_array){
$xml_serialized_string .= str_repeat("t", $level) "<$kunci$atribut>";
jika(is_array($nilai)){
$xml_serialized_string .= "rn" .XML_serialize($nilai, $level+1);
}kalau tidak{
$sebaris = benar;
$xml_serialized_string .= htmlkarakter khusus($nilai);
}
$xml_serialized_string .= (!$inline ? str_repeat("t", $level) : "") .
}
}kalau tidak{
#echo "Melewati catatan atribut untuk kunci $key<bR>";
}
}
jika($tingkat == 0){
$xml_serialized_string = "<?xml versi="1.0" ?>rn" .
kembalikan $xml_serialized_string;
}kalau tidak{
kembalikan $xml_serialized_string;
}
}
kelas XML {
var $parser; #referensi ke pengurai XML
var $document; #seluruh struktur XML yang dibangun sejauh ini
var $current; #a penunjuk ke item saat ini - apa ini
var $parent; #a pointer ke induk saat ini - induknya akan berupa array
var $parents; #array induk terbaru di setiap level
var $tag_terakhir_dibuka;
fungsi XML($data=null){
$ini->parser = xml_parser_create();
xml_parser_set_option ($ini->parser, XML_OPTION_CASE_FOLDING, 0);
xml_set_object($ini->parser, $ini);
xml_set_element_handler($ini->parser, "buka", "tutup");
xml_set_character_data_handler($ini->parser, "data");
# register_shutdown_function(array($this, 'destruct'));
}
fungsi penghancuran(){
xml_parser_free($ini->parser);
}
fungsi mengurai($data){
$ini->dokumen = array();
$ini->induk = $ini->dokumen;
$ini->orang tua = array();
$ini->last_opened_tag = NULL;
xml_parse($ini->parser, $data);
kembalikan $ini->dokumen;
}
fungsi terbuka($parser, $tag, $atribut){
#echo "Tag pembuka $tag<br>n";
$ini->data = "";
$ini->last_opened_tag = $tag; #tag adalah string
if(array_key_exists($tag, $ini->induk)){
#echo "Sudah ada instance '$tag' pada level saat ini ($level)<br>n";
if(is_array($this->parent[$tag]) dan array_key_exists(0, $this->parent[$tag])){ #jika kuncinya berupa angka
#perlu memastikan angkanya (perhitungkan atribut)
$kunci = count_numeric_items($ini->induk[$tag]);
#echo "Ada contoh $key: kuncinya berupa angka.<br>n";
}kalau tidak{
#echo "Hanya ada satu kejadian. Menggeser segalanya<br>n";
$temp = $ini->induk[$tag];
tidak disetel($ini->induk[$tag]);
$ini->induk[$tag][0] = $temp;
if(array_key_exists("$tag attr", $ini->induk)){
#geser juga atributnya jika ada
$temp = $ini->induk["$tag attr"];
unset($ini->induk["$tag attr"]);
$ini->induk[$tag]["0 attr"] = $temp;
}
$kunci = 1;
}
$ini->induk = $ini->induk[$tag];
}kalau tidak{
$kunci = $tag;
}
jika($atribut){
$ini->induk["$kunci attr"] = $atribut;
}
$ini->induk[$kunci] = array();
$ini->induk = $ini->induk[$kunci];
array_unshift($ini->orang tua, $ini->induk);
}
fungsi data($pengurai, $data){
#echo "Data adalah '", htmlspecialchars($data), "'<br>n";
if($ini->last_opened_tag != NULL){
$ini->data .= $data;
}
}
fungsi tutup($parser, $tag){
#echo "Tutup tag $tag<br>n";
if($ini->last_opened_tag == $tag){
$ini->induk = $ini->data;
$ini->last_opened_tag = NULL;
}
array_shift($ini->orang tua);
$ini->orang tua = $ini->orang tua[0];
}
}
fungsi & XML_unserialize($xml){
$xml_parser = XML baru();
$data = $xml_parser->parse($xml);
$xml_parser->menghancurkan();
kembalikan $data;
}
fungsi & XMLRPC_parse($permintaan){
if(didefinisikan('XMLRPC_DEBUG') dan XMLRPC_DEBUG){
XMLRPC_debug('XMLRPC_parse', "<p>Menerima permintaan mentah berikut:</p>" . XMLRPC_show($request, 'print_r', true));
}
$data = &XML_unserialize($permintaan);
if(didefinisikan('XMLRPC_DEBUG') dan XMLRPC_DEBUG){
XMLRPC_debug('XMLRPC_parse', "<p>Mengembalikan permintaan yang telah diurai berikut:</p>" . XMLRPC_show($data, 'print_r', true));
}
kembalikan $data;
}
fungsi & XMLRPC_prepare($data, $type = NULL){
jika(is_array($data)){
$num_elements = hitungan($data);
if((array_key_exists(0, $data) atau !$num_elements) dan $type != 'struct'){ #itu adalah array
if(!$num_elements){ #jika array kosongkosong
$returnvalue = array('array' => array('data' => NULL));
}kalau tidak{
$returnvalue['array']['data']['value'] = array();
$temp = $returnvalue['array']['data']['value'];
$hitungan = hitungan_numerik_item($data);
untuk($n=0; $n<$hitungan; $n++){
$tipe = BATAL;
if(array_key_exists("$n ketik", $data)){
$tipe = $data["$n tipe"];
}
$temp[$n] = XMLRPC_prepare($data[$n], $type);
}
}
}else{ #itu adalah sebuah struct
if(!$num_elements){ #jika struct kosongkosong
$returnvalue = array('struct' => NULL);
}kalau tidak{
$returnvalue['struct']['member'] = array();
$temp = $returnvalue['struct']['member'];
while(daftar($kunci, $nilai) = masing-masing($data)){
if(substr($key, -5) != ' type'){ #if itu bukan penentu tipe
$tipe = BATAL;
if(array_key_exists("$tipe kunci", $data)){
$tipe = $data["$tipe kunci"];
}
$temp[] = array('nama' => $kunci, 'nilai' => XMLRPC_prepare($nilai, $tipe));
}
}
}
}
}else{ #itu skalar
jika(!$tipe){
jika(is_int($data)){
$returnvalue['int'] = $data;
kembalikan $nilai kembalian;
}elseif(is_float($data)){
$returnvalue['double'] = $data;
kembalikan $nilai kembalian;
}elseif(is_bool($data)){
$returnvalue['boolean'] = ($data ? 1 : 0);
kembalikan $nilai kembalian;
}elseif(preg_match('/^d{8}Td{2}:d{2}:d{2}$/', $data, $matches)){ #ini kencan
$returnvalue['dateTime.iso8601'] = $data;
kembalikan $nilai kembalian;
}elseif(is_string($data)){
$returnvalue['string'] = htmlspecialchars($data);
kembalikan $nilai kembalian;
}
}kalau tidak{
$returnvalue[$type] = htmlspecialchars($data);
}
}
kembalikan $nilai kembalian;
}
fungsi & XMLRPC_adjustValue($current_node){
if(is_array($current_node)){
if(isset($current_node['array'])){
if(!is_array($current_node['array']['data'])){
#Jika tidak ada elemen, kembalikan array kosong
kembalikan susunan();
}kalau tidak{
#echo "Menghilangkan array -> data -> nilai<br>n";
$temp = $current_node['array']['data']['value'];
if(is_array($temp) dan array_key_exists(0, $temp)){
$hitungan = hitungan($temp);
untuk($n=0;$n<$hitungan;$n++){
$temp2[$n] = &XMLRPC_adjustValue($temp[$n]);
}
$temp = $temp2;
}kalau tidak{
$temp2 = &XMLRPC_adjustValue($temp);
$temp = array($temp2);
#Saya mengerjakan tugas sementara karena menghindari penyalinan,
# karena saya dapat memasukkan referensi ke dalam array
#Model referensi PHP agak konyol, dan saya tidak bisa mengatakan:
# $temp = array(&XMLRPC_adjustValue($temp));
}
}
}elseif(isset($current_node['struct'])){
if(!is_array($current_node['struct'])){
#Jika tidak ada anggota, kembalikan array kosong
kembalikan susunan();
}kalau tidak{
#echo "Menghilangkan struct -> member<br>n";
$temp = $current_node['struct']['member'];
if(is_array($temp) dan array_key_exists(0, $temp)){
$hitungan = hitungan($temp);
untuk($n=0;$n<$hitungan;$n++){
#echo "Melalui nama {$temp[$n][nama]}. Nilainya adalah: " .show($temp[$n][nilai], var_dump, true) .
$temp2[$temp[$n]['nama']] = &XMLRPC_adjustValue($temp[$n]['nilai']);
#echo "adjustValue(): Setelah ditetapkan, nilainya adalah " . show($temp2[$temp[$n]['name']], var_dump, true) "<br>n";
}
}kalau tidak{
#echo "Melalui nama $temp[nama]<br>n";
$temp2[$temp['nama']] = &XMLRPC_adjustValue($temp['nilai']);
}
$temp = $temp2;
}
}kalau tidak{
$types = array('string', 'int', 'i4', 'double', 'dateTime.iso8601', 'base64', 'boolean');
$jatuh_melalui = benar;
foreach($tipe sebagai $tipe){
if(array_key_exists($type, $current_node)){
#echo "Menghilangkan '$type'<br>n";
$temp = $node_saat ini[$tipe];
#echo "adjustValue(): Node saat ini disetel dengan tipe $type<br>n";
$jatuh_melalui = salah;
merusak;
}
}
jika($jatuh_melalui){
$tipe = 'string';
#echo "Gagal! Tipenya adalah $type<br>n";
}
saklar ($tipe){
kasus 'int': kasus 'i4': $temp = (int)$temp;
kasus 'string': $temp = (string)$temp;
kasus 'ganda': $temp = (ganda)$temp;
kasus 'boolean': $temp = (bool)$temp;
}
}
}kalau tidak{
$temp = (string)$node_saat ini;
}
kembalikan $temp;
}
fungsi XMLRPC_getParams($permintaan){
if(!is_array($request['methodCall']['params'])){
#Jika tidak ada parameter, kembalikan array kosong
kembalikan susunan();
}kalau tidak{
#echo "Menghilangkan methodCall -> params -> param<br>n";
$temp = $request['methodCall']['params']['param'];
if(is_array($temp) dan array_key_exists(0, $temp)){
$hitungan = hitungan($temp);
untuk($n = 0; $n < $hitungan; $n++){
#echo "Serialisasi parameter $n<br>";
$temp2[$n] = &XMLRPC_adjustValue($temp[$n]['nilai']);
}
}kalau tidak{
$temp2[0] = &XMLRPC_adjustValue($temp['nilai']);
}
$temp = $temp2;
kembalikan $temp;
}
}
fungsi XMLRPC_getMethodName($methodCall){
#mengembalikan nama metode
kembalikan $methodCall['methodCall']['methodName'];
}
fungsi XMLRPC_request($situs, $lokasi, $metodeNama, $params = NULL, $user_agent = NULL){
$situs = meledak(':', $situs);
if(isset($situs[1]) dan is_numerik($situs[1])){
$port = $situs[1];
}kalau tidak{
$pelabuhan = 80;
}
$situs = $situs[0];
$data["methodCall"]["methodName"] = $methodName;
$param_count = hitungan($params);
jika(!$param_count){
$data["methodCall"]["params"] = NULL;
}kalau tidak{
untuk($n = 0; $n<$param_count; $n++){
$data["methodCall"]["params"]["param"][$n]["nilai"] = $params[$n];
}
}
$data = XML_serialisasi($data);
if(didefinisikan('XMLRPC_DEBUG') dan XMLRPC_DEBUG){
XMLRPC_debug('XMLRPC_request', "<p>Menerima daftar parameter berikut untuk dikirim:</p>" . XMLRPC_show($params, 'print_r', true));
}
$conn = fsockopen ($situs, $port); #buka koneksi
if(!$conn){ #jika koneksi tidak berhasil dibuka
if(didefinisikan('XMLRPC_DEBUG') dan XMLRPC_DEBUG){
XMLRPC_debug('XMLRPC_request', "<p>Koneksi gagal: Tidak dapat membuat koneksi ke $site.</p>");
}
return array(false, array('faultCode'=>10532, 'faultString'=>"Koneksi gagal: Tidak dapat membuat koneksi ke $site."));
}kalau tidak{
$header =
"POSTING $lokasi HTTP/1.0rn" .
"Host: $situsrn" .
"Koneksi: tutuprn" .
($user_agent ? "Agen-Pengguna: $user_agentrn" : '') .
"Tipe Konten: text/xmlrn" .
"Panjang Konten: " . strlen($data) "rnrn";
fputs($sambungan, "$header");
fputs($sambungan, $data);
if(didefinisikan('XMLRPC_DEBUG') dan XMLRPC_DEBUG){
XMLRPC_debug('XMLRPC_request', "<p>Mengirim permintaan berikut:</p>nn" . XMLRPC_show($headers .$data, 'print_r', true));
}
#socket_set_blocking ($sambungan, salah);
$respon = "";
while(!feof($sambungan)){
$respon .= kesalahan($sambungan, 1024);
}
fclose($sambungan);
#hapus header dari respons
$data = XML_unserialize(substr($response, strpos($response, "rnrn")+4));
if(didefinisikan('XMLRPC_DEBUG') dan XMLRPC_DEBUG){
XMLRPC_debug('XMLRPC_request', "<p>Menerima respons berikut:</p>nn" . XMLRPC_show($response, 'print_r', true) . "<p>Yang diserialkan menjadi data berikut:< /p>nn" .XMLRPC_show($data, 'print_r', benar));
}
if(isset($data['methodResponse']['fault'])){
$return = array(false, XMLRPC_adjustValue($data['methodResponse']['fault']['value']));
if(didefinisikan('XMLRPC_DEBUG') dan XMLRPC_DEBUG){
XMLRPC_debug('XMLRPC_request', "<p>Kembali:</p>nn" . XMLRPC_show($return, 'var_dump', true));
}
kembali $kembali;
}kalau tidak{
$return = array(true, XMLRPC_adjustValue($data['methodResponse']['params']['param']['value']));
if(didefinisikan('XMLRPC_DEBUG') dan XMLRPC_DEBUG){
XMLRPC_debug('XMLRPC_request', "<p>Kembali:</p>nn" . XMLRPC_show($return, 'var_dump', true));
}
kembali $kembali;
}
}
}
fungsi XMLRPC_response($return_value, $server = NULL){
$data["methodResponse"]["params"]["param"]["nilai"] = $return_value;
$kembali = XML_serialize($data);
if(didefinisikan('XMLRPC_DEBUG') dan XMLRPC_DEBUG){
XMLRPC_debug('XMLRPC_response', "<p>Menerima data berikut untuk dikembalikan:</p>nn" . XMLRPC_show($return_value, 'print_r', true));
}
header("Koneksi: tutup");
header("Panjang Konten: " .strlen($return));
header("Tipe Konten: teks/xml");
header("Tanggal: " .date("r"));
jika($server){
header("Server: $server");
}
if(didefinisikan('XMLRPC_DEBUG') dan XMLRPC_DEBUG){
XMLRPC_debug('XMLRPC_response', "<p>Mengirim tanggapan berikut:</p>nn" . XMLRPC_show($return, 'print_r', true));
}
gema $kembali;
}
fungsi XMLRPC_error($faultCode, $faultString, $server = NULL){
$array["methodResponse"]["fault"]["value"]["struct"]["member"] = array();
$temp = $array["methodResponse"]["fault"]["value"]["struct"]["member"];
$temp[0]["nama"] = "Kode kesalahan";
$temp[0]["nilai"]["int"] = $kode kesalahan;
$temp[1]["nama"] = "faultString";
$temp[1]["nilai"]["string"] = $faultString;
$kembali = XML_serialize($array);
header("Koneksi: tutup");
header("Panjang Konten: " .strlen($return));
header("Tipe Konten: teks/xml");
header("Tanggal: " .date("r"));
jika($server){
header("Server: $server");
}
if(didefinisikan('XMLRPC_DEBUG') dan XMLRPC_DEBUG){
XMLRPC_debug('XMLRPC_error', "<p>Mengirim respons kesalahan berikut:</p>nn" . XMLRPC_show($return, 'print_r', true));
}
gema $kembali;
}
fungsi XMLRPC_convert_timestamp_to_iso8601($cap waktu){
#mengambil stempel waktu unix dan mengubahnya menjadi iso8601 yang dibutuhkan oleh XMLRPC
#contoh tanggal waktu iso8601 adalah "20010822T03:14:33"
tanggal kembali("YmdTH:i:s", $cap waktu);
}
fungsi XMLRPC_convert_iso8601_to_timestamp($iso8601){
return strtotime($iso8601);
}
fungsi count_numeric_items($array){
kembalikan is_array($array) ? hitungan(array_filter(array_keys($array), 'is_numerik')) : 0;
}
fungsi XMLRPC_debug($nama_fungsi, $debug_pesan){
$GLOBALS['XMLRPC_DEBUG_INFO'][] = array($nama_fungsi, $debug_message);
}
fungsi XMLRPC_debug_print(){
if($GLOBALS['XMLRPC_DEBUG_INFO']){
echo "<batas tabel="1" lebar="100%">n";
foreach($GLOBALS['XMLRPC_DEBUG_INFO'] sebagai $debug){
echo "<tr><th style="vertical-align: top">$debug[0]</th><td>$debug[1]</td></tr>n";
}
gema "</tabel>n";
tidak disetel($GLOBALS['XMLRPC_DEBUG_INFO']);
}kalau tidak{
echo "<p>Belum ada informasi debug yang tersedia.</p>";
}
}
fungsi XMLRPC_show($data, $func = "print_r", $return_str = false){
ob_start();
$fungsi($data);
$keluaran = ob_get_contents();
ob_end_clean();
jika($return_str){
kembalikan "<pre>" .htmlkarakter khusus($output) .
}kalau tidak{
echo "<pre>", htmlspecialchars($output), "</pre>n";
}
}
?>
Contoh program server, server.php
<?
sertakan 'xml-rpc.inc.php';
//Tentukan metode yang dapat dipanggil dari jarak jauh
$xmlrpc_methods=array();
$xmlrpc_methods['insertRecords']='insertRecords';
//Dapatkan nama metode dan parameter yang diteruskan oleh pengguna
$xmlrpc_request = XMLRPC_parse($HTTP_RAW_POST_DATA);
$methodName = XMLRPC_getMethodName($xmlrpc_request);
$params = XMLRPC_getParams($xmlrpc_request);
if (!isset($xmlrpc_methods[$methodName])){
XMLRPC_error('1',"Metode yang Anda panggil tidak ada");
}kalau tidak {
$xmlrpc_methods[$methodName]($params);
}
fungsi insertRecords($params){
if (kosong($params)){
XMLRPC_error('2',"Kesalahan parameter");
}
XMLRPC_response(XMLRPC_prepare('http://www.emtit.com'));
}
?>
Contoh metode pemanggilan server klien PHP
<?php
include_once 'xml-rpc.inc';
$params=array(2,3);
$result=XMLRPC_request("127.0.0.1","/services/server.php","insertRecords",$params);//File server ditempatkan di folder layanan
print_r($hasil);
?>