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