1
0
Fork 0
mirror of git://git.psyced.org/git/psyced synced 2024-08-15 03:25:10 +00:00
psyced/world/net/library/profiles.c

121 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;
}