Return to oxcgi.hh CVS log

Up to [local] / OpenXM / src / kan96xx / plugin

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

1.3     ! takayama    1: /* $OpenXM: OpenXM/src/kan96xx/plugin/oxcgi.hh,v 1.2 2004/09/24 08:35:47 takayama Exp $ */
1.2       takayama    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);
1.3     ! takayama   17: }
        !            18: else if (strcmp(key,"cgiStringToUrlEncoding") == 0) {
        !            19:   if (size != 2) errorKan1("%s\n","[(cgiStringToUrlEncoding)  s] extension sobj.");
        !            20:   obj1 = getoa(obj,1);
        !            21:   rob = KooStringToUrlEncoding(obj1);
        !            22: }
        !            23: else if (strcmp(key,"cgiUrlEncodedStringToObj") == 0) {
        !            24:   if (size != 2) errorKan1("%s\n","[(cgiUrlEncodedStringToObj)  s] extension sobj.");
        !            25:   obj1 = getoa(obj,1);
        !            26:   rob = KooUrlEncodedStringToObj(obj1);
1.2       takayama   27: }
                     28: else if (strcmp(key,"cgiHttpToKeyValuePair") == 0) {
                     29:   if (size != 2) errorKan1("%s\n","[(cgiHttpToKeyValuePair) sobj] extension kv-pair");
                     30:   obj1= getoa(obj,1);
                     31:   if (obj1.tag == Sdollar) {
                     32:          rob = cgiHttpToKeyValuePair(KopString(obj1),strlen(KopString(obj1)));
                     33:   }else if (obj1.tag == SbyteArray) {
                     34:          rob = cgiHttpToKeyValuePair(KopByteArray(obj1),getByteArraySize(obj1));
                     35:   }else errorKan1("%s\n","cgiHttpToKeyValuePair: argument must be a string or a byte aray.");
                     36: }