site/htdocs/netfraggle.php

<?php
/*------------------------------------------------------------------------------
--- www.netfrag.org
--- NetFraggle client link page.
--------------------------------------------------------------------------------
--- rabit, 01:28 24.08.2004
--- joko, 04:05 30.08.2004
--- $Id: netfraggle.php,v 1.14 2004/09/21 12:04:45 xabbu Exp $
------------------------------------------------------------------------------*/

include('inc/common/common.php.inc');

//------------------------------------------------------------------------------

// ...NetFraggle interconnection code...
// by now using XML-RPC, see API-Documentation at:
// http://pear.php.net/manual/en/package.webservices.xml-rpc.api.php

$type = 'XMLRPC';

switch ($type) {
  case 'XMLRPC':
    include('libs/XML/Server.php');
    $s = new XML_RPC_Server(array(
      "query" => array(
          "function" => "nfo_query"
      ),
      "getContent" => array(
        "function" => "nfo_get_content", 
        "signature" => array(array('struct', 'string')),
      ),
      "listTopics" => array(
        "function" => "nfo_list_topics",
        "signature" => array(array('struct', 'struct')),
      ),
      "authenticate" => array(
        "function" => "nfo_authenticate",
        "signature" => array(array('boolean', 'struct')),
      ),
      "listContents" => array("function" => "nfo_list_contents"),
      "listUsers" => array("function" => "nfo_list_users"),
    ));
    break;
  default:
    break;
}
      #"getContent" => array("function" => "nfo_get_content"),
        #"signature" => array(array($xmlrpcStruct, $xmlrpcString))
        #"signature" => array($XML_RPC_Struct, $XML_RPC_String)

function nfo_query($params) {
  
  $querytxt = $params->getParam(0);
  $nqlquery = $querytxt->getval();
  #nfo_debug_clean();
  #nfo_debug_write($params);
  #nfo_debug_write($nqlquery);
  $result = array();
  cms_query($nqlquery,&$result);
  #nfo_debug_write($result);

  $structinfo = array();
  $structcontent = array();
  $structfields = array();
  
  foreach ($result[0] as $key => $value) {
   $datall = array();
   if ($key == 'all'){
    #nfo_debug_write($value);
    foreach ($result[0][$key] as $keyall => $valall) {
     $datall2 = array();
     if ($keyall == 'fieldlist'){
        foreach ($result[0][$key][$keyall] as $fieldkey => $fieldval)
        {
          $datall2[$fieldkey] = new XML_RPC_Value($fieldval,"string"); 
        }
        $datall[$keyall] = new XML_RPC_Value($datall2,"struct"); 
     }elseif($keyall == 'with'){
           //nothing yet
     }else{
       $datall[$keyall] = new XML_RPC_Value($valall,"string");
          } 
    }

    $structinfo[$key] = new XML_RPC_Value($datall,"struct");
    
    }else{
       $structinfo[$key] = new XML_RPC_Value($value,"string");
     }
    }
 
   foreach ($result[1] as $key => $value)  {
        $cdata = array();
        foreach($value as $item => $data) {
            $data = utf8_encode($data);
            $cdata[$item] = new XML_RPC_Value($data,"string");
        }
     $structcontent[$key] = new XML_RPC_Value($cdata,"struct");  
   }
   
  foreach ($result[2] as $key => $value) {
   $structfields[$key] = new XML_RPC_Value($value,"string");
  }
  
  $struct = array();
  $struct[0] = new XML_RPC_Value($structinfo,"struct");
  $struct[1] = new XML_RPC_Value($structcontent,"struct");
  $struct[2] = new XML_RPC_Value($structfields,"struct");
  
  $xmldoc = new XML_RPC_Response(new XML_RPC_Value($struct, "struct"));
  #nfo_debug_write($xmldoc);
  #nfo_debug_write($xmldoc->serialize());

return $xmldoc;
  
}


function nfo_get_content($params) {
  $ck = $params->getParam(0);
  $ck = $ck->scalarval();
  #nfo_debug_clean();
  #nfo_debug_write($ck);
  $content = cms_getcontent('xmlpage', $ck);
  #nfo_debug_write($content);
  #return new XML_RPC_Response(new XML_RPC_Value("content", "string"));
  $struct = array();
  foreach ($content as $key => $value) {
    $struct[$key] = new XML_RPC_Value($value, "string");
  }
  $xmldoc = new XML_RPC_Response(new XML_RPC_Value($struct, "struct"));
  return $xmldoc;
}

function nfo_list_topics($params) {
  nfo_debug_clean();
  nfo_debug_write($params);
  nfo_debug_write("list_topics");
  $meta = $params->getParam(0);
  nfo_debug_write($meta);
  $type = $meta->structmem('type');
  $type = $type->scalarval();
  #nfo_debug_write("$type");
  $res = cms_getindex($type);
  #nfo_debug_write($res);
  $newentries = array();
  $tmp = new XML_RPC_Value();
  foreach ($res as $entry) {
    $newentry = array();
    foreach ($entry as $key => $value) {
       $newvalue = new XML_RPC_Value($value, 'string');
       $newentry[$key] = $newvalue;
    }
    #$tmp->addStruct($newentry);
    array_push($newentries, new XML_RPC_Value($newentry, 'struct'));
  }
  $final = new XML_RPC_Value($newentries, 'array');
  #$final->addArray($tmp);
  #nfo_debug_write($final);
  #$res = array('key' => new XML_RPC_Value('value', 'string'));
  $msg = new XML_RPC_Response($final);
  #nfo_debug_write($msg);
  return $msg;
}

function nfo_authenticate($params) {
  global $common_sessiondata;
  #nfo_debug_clean();
  #nfo_debug_write($params);
  $meta = $params->getParam(0);
  $user = $meta->structmem('user');
  $user = $user->scalarval();
  $pass = $meta->structmem('pass');
  $pass = $pass->scalarval();
  $common_sessiondata['userdata']['name'] = $user;
  $common_sessiondata['userdata']['password'] = $pass;
  #nfo_debug_write($common_sessiondata);
  $retval = common_checkauthorisation();
  return new XML_RPC_Response(new XML_RPC_Value($retval, 'boolean'));
}

function nfo_list_contents() {
}

function nfo_list_users() {
}

function nfo_debug_clean() {
  `rm dump`;
}

function nfo_debug_write($data) {
  ob_start();
  print_r($data);
  $data = ob_get_clean();
  $f = fopen('dump', 'a');
  fputs($f, $data . "\n");
  fclose($f);
}

//------------------------------------------------------------------------------

?>
1	rabit	1.2	<?php
2			/*------------------------------------------------------------------------------
3			--- www.netfrag.org
4			--- NetFraggle client link page.
5			--------------------------------------------------------------------------------
6			--- rabit, 01:28 24.08.2004
7	joko	1.4	--- joko, 04:05 30.08.2004
8	xabbu	1.15	--- $Id: netfraggle.php,v 1.14 2004/09/21 12:04:45 xabbu Exp $
9	rabit	1.2	------------------------------------------------------------------------------*/
10
11	joko	1.4	include('inc/common/common.php.inc');
12	rabit	1.2
13			//------------------------------------------------------------------------------
14
15			// ...NetFraggle interconnection code...
16	joko	1.4	// by now using XML-RPC, see API-Documentation at:
17			// http://pear.php.net/manual/en/package.webservices.xml-rpc.api.php
18
19			$type = 'XMLRPC';
20
21			switch ($type) {
22			case 'XMLRPC':
23	joko	1.5	include('libs/XML/Server.php');
24	joko	1.4	$s = new XML_RPC_Server(array(
25	xabbu	1.8	"query" => array(
26	xabbu	1.10	"function" => "nfo_query"
27	xabbu	1.8	),
28	joko	1.6	"getContent" => array(
29			"function" => "nfo_get_content",
30			"signature" => array(array('struct', 'string')),
31			),
32			"listTopics" => array(
33			"function" => "nfo_list_topics",
34			"signature" => array(array('struct', 'struct')),
35			),
36			"authenticate" => array(
37			"function" => "nfo_authenticate",
38			"signature" => array(array('boolean', 'struct')),
39			),
40	joko	1.5	"listContents" => array("function" => "nfo_list_contents"),
41			"listUsers" => array("function" => "nfo_list_users"),
42	joko	1.4	));
43			break;
44	joko	1.5	default:
45	joko	1.4	break;
46			}
47	joko	1.6	#"getContent" => array("function" => "nfo_get_content"),
48			#"signature" => array(array($xmlrpcStruct, $xmlrpcString))
49			#"signature" => array($XML_RPC_Struct, $XML_RPC_String)
50	joko	1.4
51	xabbu	1.8	function nfo_query($params) {
52
53			$querytxt = $params->getParam(0);
54			$nqlquery = $querytxt->getval();
55	xabbu	1.14	#nfo_debug_clean();
56	xabbu	1.8	#nfo_debug_write($params);
57			#nfo_debug_write($nqlquery);
58			$result = array();
59			cms_query($nqlquery,&$result);
60	xabbu	1.14	#nfo_debug_write($result);
61	xabbu	1.8
62			$structinfo = array();
63			$structcontent = array();
64			$structfields = array();
65
66			foreach ($result[0] as $key => $value) {
67	xabbu	1.14	$datall = array();
68	xabbu	1.12	if ($key == 'all'){
69	xabbu	1.14	#nfo_debug_write($value);
70	xabbu	1.12	foreach ($result[0][$key] as $keyall => $valall) {
71	xabbu	1.14	$datall2 = array();
72			if ($keyall == 'fieldlist'){
73			foreach ($result[0][$key][$keyall] as $fieldkey => $fieldval)
74			{
75			$datall2[$fieldkey] = new XML_RPC_Value($fieldval,"string");
76	xabbu	1.12	}
77	xabbu	1.14	$datall[$keyall] = new XML_RPC_Value($datall2,"struct");
78			}elseif($keyall == 'with'){
79			//nothing yet
80			}else{
81			$datall[$keyall] = new XML_RPC_Value($valall,"string");
82			}
83			}
84
85	xabbu	1.12	$structinfo[$key] = new XML_RPC_Value($datall,"struct");
86	xabbu	1.14
87	xabbu	1.12	}else{
88			$structinfo[$key] = new XML_RPC_Value($value,"string");
89			}
90	xabbu	1.14	}
91
92	xabbu	1.11	foreach ($result[1] as $key => $value) {
93			$cdata = array();
94			foreach($value as $item => $data) {
95	xabbu	1.15	$data = utf8_encode($data);
96			$cdata[$item] = new XML_RPC_Value($data,"string");
97	xabbu	1.11	}
98			$structcontent[$key] = new XML_RPC_Value($cdata,"struct");
99			}
100
101	xabbu	1.8	foreach ($result[2] as $key => $value) {
102			$structfields[$key] = new XML_RPC_Value($value,"string");
103	xabbu	1.14	}
104
105	xabbu	1.8	$struct = array();
106			$struct[0] = new XML_RPC_Value($structinfo,"struct");
107			$struct[1] = new XML_RPC_Value($structcontent,"struct");
108			$struct[2] = new XML_RPC_Value($structfields,"struct");
109
110			$xmldoc = new XML_RPC_Response(new XML_RPC_Value($struct, "struct"));
111	xabbu	1.14	#nfo_debug_write($xmldoc);
112	xabbu	1.8	#nfo_debug_write($xmldoc->serialize());
113
114			return $xmldoc;
115
116			}
117
118	joko	1.4
119	joko	1.6	function nfo_get_content($params) {
120			$ck = $params->getParam(0);
121			$ck = $ck->scalarval();
122	joko	1.5	#nfo_debug_clean();
123	joko	1.6	#nfo_debug_write($ck);
124	joko	1.5	$content = cms_getcontent('xmlpage', $ck);
125	joko	1.6	#nfo_debug_write($content);
126	joko	1.5	#return new XML_RPC_Response(new XML_RPC_Value("content", "string"));
127			$struct = array();
128			foreach ($content as $key => $value) {
129			$struct[$key] = new XML_RPC_Value($value, "string");
130			}
131			$xmldoc = new XML_RPC_Response(new XML_RPC_Value($struct, "struct"));
132			return $xmldoc;
133	joko	1.4	}
134	joko	1.6
135			function nfo_list_topics($params) {
136	xabbu	1.8	nfo_debug_clean();
137			nfo_debug_write($params);
138			nfo_debug_write("list_topics");
139	joko	1.6	$meta = $params->getParam(0);
140	xabbu	1.8	nfo_debug_write($meta);
141	joko	1.6	$type = $meta->structmem('type');
142			$type = $type->scalarval();
143			#nfo_debug_write("$type");
144			$res = cms_getindex($type);
145	joko	1.7	#nfo_debug_write($res);
146	joko	1.6	$newentries = array();
147			$tmp = new XML_RPC_Value();
148			foreach ($res as $entry) {
149			$newentry = array();
150			foreach ($entry as $key => $value) {
151			$newvalue = new XML_RPC_Value($value, 'string');
152			$newentry[$key] = $newvalue;
153			}
154			#$tmp->addStruct($newentry);
155			array_push($newentries, new XML_RPC_Value($newentry, 'struct'));
156			}
157			$final = new XML_RPC_Value($newentries, 'array');
158			#$final->addArray($tmp);
159			#nfo_debug_write($final);
160			#$res = array('key' => new XML_RPC_Value('value', 'string'));
161			$msg = new XML_RPC_Response($final);
162			#nfo_debug_write($msg);
163			return $msg;
164			}
165
166			function nfo_authenticate($params) {
167			global $common_sessiondata;
168			#nfo_debug_clean();
169			#nfo_debug_write($params);
170			$meta = $params->getParam(0);
171			$user = $meta->structmem('user');
172			$user = $user->scalarval();
173			$pass = $meta->structmem('pass');
174			$pass = $pass->scalarval();
175			$common_sessiondata['userdata']['name'] = $user;
176			$common_sessiondata['userdata']['password'] = $pass;
177	joko	1.7	#nfo_debug_write($common_sessiondata);
178	joko	1.6	$retval = common_checkauthorisation();
179			return new XML_RPC_Response(new XML_RPC_Value($retval, 'boolean'));
180			}
181
182			function nfo_list_contents() {
183			}
184
185	joko	1.4	function nfo_list_users() {
186	joko	1.5	}
187
188			function nfo_debug_clean() {
189	joko	1.6	`rm dump`;
190	joko	1.5	}
191
192			function nfo_debug_write($data) {
193			ob_start();
194			print_r($data);
195			$data = ob_get_clean();
196	joko	1.6	$f = fopen('dump', 'a');
197			fputs($f, $data . "\n");
198	joko	1.5	fclose($f);
199	joko	1.4	}
200	rabit	1.2
201			//------------------------------------------------------------------------------
202
203			?>
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26