mirror of git://git.psyced.org/git/psyced
122 lines
2.8 KiB
C
122 lines
2.8 KiB
C
#include <net.h>
|
|
#include <xml.h>
|
|
|
|
#include "profiles.i"
|
|
|
|
// convert a setting name from source format to target format, null == psyc
|
|
varargs string convert_setting(string name, string sf, string tf) {
|
|
switch (sf) {
|
|
case "set":
|
|
name = set2psyc[name];
|
|
break;
|
|
case "jCard":
|
|
name = jCard2psyc[name];
|
|
break;
|
|
case "vCard":
|
|
name = vCard2psyc[name];
|
|
break;
|
|
case "LDAP":
|
|
name = ldap2psyc[name];
|
|
break;
|
|
case 0:
|
|
break;
|
|
default:
|
|
return 0;
|
|
}
|
|
unless (name) return 0;
|
|
|
|
switch (tf) {
|
|
case "set":
|
|
name = psyc2set[name];
|
|
break;
|
|
case "jProf":
|
|
name = psyc2jProf[name];
|
|
break;
|
|
case "jCard":
|
|
name = psyc2jCard[name];
|
|
break;
|
|
case "vCard":
|
|
name = psyc2vCard[name];
|
|
break;
|
|
case "LDAP":
|
|
name = psyc2ldap[name];
|
|
break;
|
|
case 0:
|
|
break;
|
|
default:
|
|
return 0;
|
|
}
|
|
return name;
|
|
}
|
|
|
|
// convert a profile from source format to target format, null == psyc
|
|
varargs mixed convert_profile(mixed p, string sf, string tf) {
|
|
string k, vc, t, t2;
|
|
XMLNode n, n2;
|
|
mixed val;
|
|
mapping vars = ([ ]);
|
|
|
|
// could also create arrays, but not sure if that's useful to anyone
|
|
#define append(v, nu) if (stringp(nu)) v = stringp(v) ? (v +" "+ nu) : nu;
|
|
|
|
// first convert source format to psyc vars
|
|
switch (sf) {
|
|
case "jCard":
|
|
P3(("debug jCard2psyc with p = %O\n", p))
|
|
foreach( k,vc : jCard2psyc) {
|
|
if (sscanf(k, "%s/%s", t, t2) && (n = p["/" + t])
|
|
&& !nodelistp(n) && (n2 = n["/" + t2])) {
|
|
append(vars[vc], n2[Cdata]);
|
|
} else if ((n = p["/" + k]) && !nodelistp(n)) {
|
|
append(vars[vc], n[Cdata]);
|
|
}
|
|
}
|
|
break;
|
|
case "set":
|
|
foreach( k,val : p ) {
|
|
t = set2psyc[k];
|
|
if (t) vars[t] = val;
|
|
else D(k +" can't be set2psyc? never mind.\n");
|
|
}
|
|
break;
|
|
default: // no source format, p contains the vars
|
|
vars = p;
|
|
break;
|
|
}
|
|
|
|
// then convert psyc vars to target format
|
|
switch (tf) {
|
|
case "jCard":
|
|
// am i allowed to add newlines?
|
|
t = "<vCard xmlns='vcard-temp'>";
|
|
foreach( vc,k : psyc2jCard) {
|
|
// should be able to render ints too meguess
|
|
if (stringp(vars[vc])) t += sprintf(k, vars[vc]);
|
|
}
|
|
return t + "</vCard>";
|
|
case "jProf":
|
|
// see discussion in wiki:
|
|
// http://about.psyc.eu/Jabber#JEP_0154
|
|
t = "<field var='FORM_TYPE' type='hidden'>"
|
|
"<value>http://jabber.org/protocol/profile</value>"
|
|
"</field>";
|
|
foreach( vc,k : psyc2jProf) t += "<field var='"+ k +"'><value>"
|
|
+ vars[vc] +"</value></field>";
|
|
return t; // no wrapper?
|
|
case "set":
|
|
p = ([]);
|
|
foreach( k,val : vars ) {
|
|
t = psyc2set[k];
|
|
if (t) p[t] = val;
|
|
else D(k +" can't be psyc2set? never mind.\n");
|
|
}
|
|
return p;
|
|
default: // no target format, return the psyc vars
|
|
return vars;
|
|
}
|
|
|
|
// other cases not supported yet
|
|
raise_error("cannot convert from "+sf+" to "+tf+" (yet)\n");
|
|
return 0;
|
|
}
|