/* Copyright (C) 2014 J.F.Dockes
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the
* Free Software Foundation, Inc.,
* 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*/
#include "config.h"
#include <iostream>
using namespace std;
#include "soaphelp.hxx"
/* Example Soap XML doc passed by libupnp is like:
<ns0:SetMute>
<InstanceID>0</InstanceID>
<Channel>Master</Channel>
<DesiredMute>False</DesiredMute>
</ns0:SetMute>
As the top node name is qualified by a namespace, it's easier to just use
action name passed in the libupnp action callback.
*/
bool decodeSoapBody(const char *callnm, IXML_Document *actReq,
SoapDecodeOutput *res)
{
bool ret = false;
IXML_NodeList* nl = 0;
IXML_Node* topNode =
ixmlNode_getFirstChild((IXML_Node *)actReq);
if (topNode == 0) {
cerr << "decodeSoap: Empty Action request (no topNode) ??" << endl;
return false;
}
// cerr << "decodeSoap: top node name: " << ixmlNode_getNodeName(topNode)
// << endl;
nl = ixmlNode_getChildNodes(topNode);
if (nl == 0) {
// cerr << "decodeSoap: empty Action request (no childs)" << endl;
// Ok actually, there are no args
return true;
}
// cerr << "decodeSoap: childnodes list length: " << ixmlNodeList_length(nl)
// << endl;
for (unsigned long i = 0; i < ixmlNodeList_length(nl); i++) {
IXML_Node *cld = ixmlNodeList_item(nl, i);
if (cld == 0) {
// cerr << "decodeSoap: got null node from nodelist at index " <<
// i << " ??" << endl;
// Seems to happen with empty arg list?? This looks like a bug,
// should we not get an empty node instead?
if (i == 0) {
ret = true;
}
goto out;
}
const char *name = ixmlNode_getNodeName(cld);
if (cld == 0) {
DOMString pnode = ixmlPrintNode(cld);
cerr << "decodeSoap: got null name ??:" << pnode << endl;
ixmlFreeDOMString(pnode);
goto out;
}
IXML_Node *txtnode = ixmlNode_getFirstChild(cld);
const char *value = "";
if (txtnode != 0) {
value = ixmlNode_getNodeValue(txtnode);
}
// Can we get an empty value here ?
if (value == 0)
value = "";
res->args[name] = value;
}
res->name = callnm;
ret = true;
out:
if (nl)
ixmlNodeList_free(nl);
return ret;
}
bool SoapDecodeOutput::getBool(const char *nm, bool *value) const
{
map<string, string>::const_iterator it = args.find(nm);
if (it == args.end() || it->second.empty()) {
return false;
}
if (it->second[0] == 'F' || it->second[0] == 'f' ||
it->second[0] == 'N' || it->second[0] == 'n' ||
it->second[0] == '0') {
*value = false;
} else if (it->second[0] == 'T' || it->second[0] == 't' ||
it->second[0] == 'Y' || it->second[0] == 'y' ||
it->second[0] == '1') {
*value = true;
} else {
return false;
}
return true;
}
bool SoapDecodeOutput::getInt(const char *nm, int *value) const
{
map<string, string>::const_iterator it = args.find(nm);
if (it == args.end() || it->second.empty()) {
return false;
}
*value = atoi(it->second.c_str());
return true;
}
bool SoapDecodeOutput::getString(const char *nm, string *value) const
{
map<string, string>::const_iterator it = args.find(nm);
if (it == args.end() || it->second.empty()) {
return false;
}
*value = it->second;
return true;
}
string SoapDecodeOutput::xmlQuote(const string& in)
{
string out;
for (unsigned int i = 0; i < in.size(); i++) {
switch(in[i]) {
case '"': out += """;break;
case '&': out += "&";break;
case '<': out += "<";break;
case '>': out += ">";break;
case '\'': out += "'";break;
default: out += in[i];
}
}
return out;
}
// Yes inefficient. whatever...
string SoapDecodeOutput::i2s(int val)
{
char cbuf[30];
sprintf(cbuf, "%d", val);
return string(cbuf);
}
string SoapEncodeInput::i2s(int val)
{
char cbuf[30];
sprintf(cbuf, "%d", val);
return string(cbuf);
}
IXML_Document *buildSoapBody(const SoapEncodeInput& data, bool isResponse)
{
IXML_Document *doc = ixmlDocument_createDocument();
if (doc == 0) {
cerr << "buildSoapResponse: out of memory" << endl;
return 0;
}
string topname = string("u:") + data.name;
if (isResponse)
topname += "Response";
IXML_Element *top =
ixmlDocument_createElementNS(doc, data.serviceType.c_str(),
topname.c_str());
ixmlElement_setAttribute(top, "xmlns:u", data.serviceType.c_str());
for (unsigned i = 0; i < data.data.size(); i++) {
IXML_Element *elt =
ixmlDocument_createElement(doc, data.data[i].first.c_str());
IXML_Node* textnode =
ixmlDocument_createTextNode(doc, data.data[i].second.c_str());
ixmlNode_appendChild((IXML_Node*)elt,(IXML_Node*)textnode);
ixmlNode_appendChild((IXML_Node*)top,(IXML_Node*)elt);
}
ixmlNode_appendChild((IXML_Node*)doc,(IXML_Node*)top);
return doc;
}