=================================================================== RCS file: /home/cvs/OpenXM/src/kan96xx/plugin/oxcgi.hh,v retrieving revision 1.1 retrieving revision 1.2 diff -u -p -r1.1 -r1.2 --- OpenXM/src/kan96xx/plugin/oxcgi.hh 2004/09/21 12:52:01 1.1 +++ OpenXM/src/kan96xx/plugin/oxcgi.hh 2004/09/24 08:35:47 1.2 @@ -1,2 +1,26 @@ -/* $OpenXM$ */ - +/* $OpenXM: OpenXM/src/kan96xx/plugin/oxcgi.hh,v 1.1 2004/09/21 12:52:01 takayama Exp $ */ +else if (strcmp(key,"cgiUrlEncodingToKeyValuePair") == 0) { + if (size != 2) errorKan1("%s\n","[(cgiUrlEncodingToKeyValuePair) obj] extension kv-pair."); + obj1 = getoa(obj,1); + if (obj1.tag != Sdollar) errorKan1("%s\n","cgiUrlEncodingTOKeyValuePair: argument must be a string."); + rob = cgiUrlEncodingToKeyValuePair(KopString(obj1)); +} +else if (strcmp(key,"cgiKeyValuePairToHttpString") == 0) { + if (size != 2) errorKan1("%s\n","[(cgiKeyValuePairToHttpString) kv-pair] extension sobj"); + obj1= getoa(obj,1); + rob = cgiKeyValuePairToHttpString(obj1); +} +else if (strcmp(key,"cgiKeyValuePairToUrlEncodingString") == 0) { + if (size != 2) errorKan1("%s\n","[(cgiKeyValuePairToUrlEncodingString) kv-pair] extension sobj."); + obj1 = getoa(obj,1); + rob = cgiKeyValuePairToUrlEncodingString(obj1); +} +else if (strcmp(key,"cgiHttpToKeyValuePair") == 0) { + if (size != 2) errorKan1("%s\n","[(cgiHttpToKeyValuePair) sobj] extension kv-pair"); + obj1= getoa(obj,1); + if (obj1.tag == Sdollar) { + rob = cgiHttpToKeyValuePair(KopString(obj1),strlen(KopString(obj1))); + }else if (obj1.tag == SbyteArray) { + rob = cgiHttpToKeyValuePair(KopByteArray(obj1),getByteArraySize(obj1)); + }else errorKan1("%s\n","cgiHttpToKeyValuePair: argument must be a string or a byte aray."); +}