Application/RPC/Remote.php

<?
##    --------------------------------------------------------------------------
##    $Id: Remote.php,v 1.5 2002/12/22 13:24:09 jonen Exp $
##    --------------------------------------------------------------------------
##    $Log: Remote.php,v $
##    Revision 1.5  2002/12/22 13:24:09  jonen
##    + added utf8 encoding at 'send()' toggled by option
##
##    Revision 1.4  2002/12/19 02:02:25  jonen
##    + minor changes
##
##    Revision 1.3  2002/12/19 01:59:37  jonen
##    + minor changes: coment debug prints
##
##    Revision 1.2  2002/12/05 21:45:31  joko
##    + debugging
##
##    Revision 1.1  2002/12/01 17:23:58  joko
##    + initial check-in
##
##    Revision 1.3  2002/12/01 06:22:57  cvsjoko
##    + minor update: now can use config defaults or given args
##
##    Revision 1.2  2002/10/29 19:14:45  cvsjoko
##    - bugfix: dont' do utf8-encoding here
##
##    Revision 1.1  2002/10/09 00:51:39  cvsjoko
##    + new
##
##
##    -------------------------------------------------------------------------

class Remote {
  
  function Remote($args = array()) {
    global $cfg;
    //print "new Remote<br>";
    $this->host = $cfg[rpcinfo][Host];
    $this->port = $cfg[rpcinfo][Port];
    if ($args['Host']) { $this->host = $args['Host']; }
    if ($args['Port']) { $this->port = $args['Port']; }
  }

  function send($command, $data = "", $options = array()) {
    // do 'encode' here and ...
    if ($options[utf8]) {
      $encoder = new TextEncode($data);
      $encoder->toUTF8();
    }
    // call '_call' with 'decode'
    return $this->_call($command, $data, $options);
  }

  function _call($command, $data = "", $options = array() ) {

   //print "call: $command<hr>";
 
// print Dumper($data);

    // data
      $data_enc = XML_RPC_encode($data);

    // message - request
      $msg = new XML_RPC_Message($command);
      $msg->addParam($data_enc);
//print htmlentities($msg->serialize());
    // remote procedure call
      $rpc = new XML_RPC_Client("/", $this->host, $this->port);
      $rpc->setDebug(0);
      if ( !$msg_response = $rpc->send($msg) ) {
        // TODO: redirect this error elsewhere!
        print "RPC-error!<br>";
        return;
      }
    // message - response
      $response_enc = $msg_response->value();

      // TODO: what's this? prematurely returning here should not be considered "stable"....
      return $this->decodeData($response_enc, $options);
  }
  
  function &decodeData(&$payload, $options = array() ) {
    //if (!is_object($payload)) { return; }
      if ($payload) {
    // data
        $data = XML_RPC_decode($payload);
        //print "data: " . dumpVar($response);

        //  decode UTF8 to ISO if wanted
        if($options[utf8]) {
          $encoder = new TextEncode($data);
          $encoder->toISO();
        }

        return $data;
      } else {
        //print "ERROR!<br>";
        return 0;
      }
  }
  
}

?>
1	joko	1.1	<?
2			## --------------------------------------------------------------------------
3	jonen	1.6	## $Id: Remote.php,v 1.5 2002/12/22 13:24:09 jonen Exp $
4	joko	1.1	## --------------------------------------------------------------------------
5	joko	1.2	## $Log: Remote.php,v $
6	jonen	1.6	## Revision 1.5 2002/12/22 13:24:09 jonen
7			## + added utf8 encoding at 'send()' toggled by option
8			##
9	jonen	1.5	## Revision 1.4 2002/12/19 02:02:25 jonen
10			## + minor changes
11			##
12	jonen	1.4	## Revision 1.3 2002/12/19 01:59:37 jonen
13			## + minor changes: coment debug prints
14			##
15	jonen	1.3	## Revision 1.2 2002/12/05 21:45:31 joko
16			## + debugging
17			##
18	joko	1.2	## Revision 1.1 2002/12/01 17:23:58 joko
19			## + initial check-in
20			##
21	joko	1.1	## Revision 1.3 2002/12/01 06:22:57 cvsjoko
22			## + minor update: now can use config defaults or given args
23			##
24			## Revision 1.2 2002/10/29 19:14:45 cvsjoko
25			## - bugfix: dont' do utf8-encoding here
26			##
27			## Revision 1.1 2002/10/09 00:51:39 cvsjoko
28			## + new
29			##
30			##
31			## -------------------------------------------------------------------------
32
33			class Remote {
34
35			function Remote($args = array()) {
36			global $cfg;
37	joko	1.2	//print "new Remote<br>";
38	joko	1.1	$this->host = $cfg[rpcinfo][Host];
39			$this->port = $cfg[rpcinfo][Port];
40			if ($args['Host']) { $this->host = $args['Host']; }
41			if ($args['Port']) { $this->port = $args['Port']; }
42			}
43
44	jonen	1.5	function send($command, $data = "", $options = array()) {
45			// do 'encode' here and ...
46			if ($options[utf8]) {
47			$encoder = new TextEncode($data);
48			$encoder->toUTF8();
49			}
50			// call '_call' with 'decode'
51	jonen	1.6	return $this->_call($command, $data, $options);
52	joko	1.1	}
53
54	jonen	1.6	function _call($command, $data = "", $options = array() ) {
55	joko	1.2
56	jonen	1.5	//print "call: $command<hr>";
57
58			// print Dumper($data);
59	joko	1.1
60			// data
61			$data_enc = XML_RPC_encode($data);
62
63			// message - request
64			$msg = new XML_RPC_Message($command);
65			$msg->addParam($data_enc);
66	jonen	1.5	//print htmlentities($msg->serialize());
67	joko	1.1	// remote procedure call
68			$rpc = new XML_RPC_Client("/", $this->host, $this->port);
69			$rpc->setDebug(0);
70			if ( !$msg_response = $rpc->send($msg) ) {
71	joko	1.2	// TODO: redirect this error elsewhere!
72	jonen	1.3	print "RPC-error!<br>";
73	joko	1.1	return;
74			}
75			// message - response
76			$response_enc = $msg_response->value();
77
78			// TODO: what's this? prematurely returning here should not be considered "stable"....
79	jonen	1.6	return $this->decodeData($response_enc, $options);
80	joko	1.1	}
81
82	jonen	1.6	function &decodeData(&$payload, $options = array() ) {
83	joko	1.1	//if (!is_object($payload)) { return; }
84			if ($payload) {
85			// data
86			$data = XML_RPC_decode($payload);
87			//print "data: " . dumpVar($response);
88	jonen	1.6
89			// decode UTF8 to ISO if wanted
90			if($options[utf8]) {
91			$encoder = new TextEncode($data);
92			$encoder->toISO();
93			}
94
95	joko	1.1	return $data;
96			} else {
97			//print "ERROR!<br>";
98			return 0;
99			}
100			}
101
102			}
103
104			?>
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26