[BACK]Return to oxcgi.hh CVS log [TXT][DIR] Up to [local] / OpenXM / src / kan96xx / plugin

Annotation of OpenXM/src/kan96xx/plugin/oxcgi.hh, Revision 1.2

1.2     ! takayama    1: /* $OpenXM: OpenXM/src/kan96xx/plugin/oxcgi.hh,v 1.1 2004/09/21 12:52:01 takayama Exp $ */
        !             2: else if (strcmp(key,"cgiUrlEncodingToKeyValuePair") == 0) {
        !             3:   if (size != 2) errorKan1("%s\n","[(cgiUrlEncodingToKeyValuePair)  obj] extension kv-pair.");
        !             4:   obj1 = getoa(obj,1);
        !             5:   if (obj1.tag != Sdollar) errorKan1("%s\n","cgiUrlEncodingTOKeyValuePair: argument must be a string.");
        !             6:   rob = cgiUrlEncodingToKeyValuePair(KopString(obj1));
        !             7: }
        !             8: else if (strcmp(key,"cgiKeyValuePairToHttpString") == 0) {
        !             9:   if (size != 2) errorKan1("%s\n","[(cgiKeyValuePairToHttpString) kv-pair] extension sobj");
        !            10:   obj1= getoa(obj,1);
        !            11:   rob = cgiKeyValuePairToHttpString(obj1);
        !            12: }
        !            13: else if (strcmp(key,"cgiKeyValuePairToUrlEncodingString") == 0) {
        !            14:   if (size != 2) errorKan1("%s\n","[(cgiKeyValuePairToUrlEncodingString)  kv-pair] extension sobj.");
        !            15:   obj1 = getoa(obj,1);
        !            16:   rob = cgiKeyValuePairToUrlEncodingString(obj1);
        !            17: }
        !            18: else if (strcmp(key,"cgiHttpToKeyValuePair") == 0) {
        !            19:   if (size != 2) errorKan1("%s\n","[(cgiHttpToKeyValuePair) sobj] extension kv-pair");
        !            20:   obj1= getoa(obj,1);
        !            21:   if (obj1.tag == Sdollar) {
        !            22:          rob = cgiHttpToKeyValuePair(KopString(obj1),strlen(KopString(obj1)));
        !            23:   }else if (obj1.tag == SbyteArray) {
        !            24:          rob = cgiHttpToKeyValuePair(KopByteArray(obj1),getByteArraySize(obj1));
        !            25:   }else errorKan1("%s\n","cgiHttpToKeyValuePair: argument must be a string or a byte aray.");
        !            26: }

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>