[0001] [0002] [0003] [0004] [0005] [0006] [0007] [0008] [0009] [0010] [0011] [0012] [0013] [0014] [0015] [0016] [0017] [0018] [0019] [0020] [0021] [0022] [0023] [0024] [0025] [0026] [0027] [0028] [0029] [0030] [0031] [0032] [0033] [0034] [0035] [0036] [0037] [0038] [0039] [0040] [0041] [0042] [0043] [0044] [0045] [0046] [0047] [0048] [0049] [0050] [0051] [0052] [0053] [0054] [0055] [0056] [0057] [0058] [0059] [0060] [0061] [0062] [0063] [0064] [0065] [0066] [0067] [0068] [0069] [0070] [0071] [0072] [0073] [0074] [0075] [0076] [0077] [0078] [0079] [0080] [0081] [0082] [0083] [0084] [0085] [0086] [0087] [0088] [0089] [0090] [0091] [0092] [0093] [0094] [0095] [0096] [0097] [0098] [0099] [0100] [0101] [0102] [0103] [0104] [0105] [0106] [0107] [0108] [0109] [0110] [0111] [0112] [0113] [0114] [0115] [0116] [0117] [0118] [0119] [0120] [0121] [0122] [0123] [0124] [0125] [0126] [0127] [0128] [0129] [0130] [0131] [0132] [0133] [0134] [0135] [0136] [0137] [0138] [0139] [0140] [0141] [0142] [0143] [0144] [0145] [0146] [0147] [0148] [0149] [0150] [0151] [0152] [0153] [0154] [0155] [0156] [0157] [0158] [0159] [0160] [0161] [0162] [0163] [0164] [0165] [0166] [0167] [0168] [0169] [0170] [0171] [0172] [0173] [0174] [0175] [0176] [0177] [0178] [0179] [0180] [0181] [0182] [0183] [0184] [0185] [0186] [0187] [0188] [0189] [0190] [0191] [0192] [0193] [0194] [0195] [0196] [0197] [0198] [0199] [0200] [0201] [0202] [0203] [0204] [0205] [0206] [0207] [0208] [0209] [0210] [0211] [0212] [0213] [0214] [0215] [0216] [0217] [0218] [0219] [0220] [0221] [0222] [0223] [0224] [0225] [0226] [0227] [0228] [0229] [0230] [0231] [0232] [0233] [0234] [0235] [0236] [0237] [0238] [0239] [0240] [0241] [0242] [0243] [0244] [0245] [0246] [0247] [0248] [0249] [0250] [0251] [0252] [0253] [0254] [0255] [0256] [0257] [0258] [0259] [0260] [0261] [0262] [0263] [0264] [0265] [0266] [0267] [0268] [0269] [0270] [0271] [0272] [0273] [0274] [0275] [0276] [0277] [0278] [0279] [0280] [0281] [0282] [0283] [0284] [0285] [0286] [0287] [0288] [0289] [0290] [0291] [0292] [0293] [0294] [0295] [0296] [0297] [0298] [0299] [0300] [0301] [0302] [0303] [0304] [0305] [0306] [0307] [0308] [0309] [0310] [0311] [0312] [0313] [0314] [0315] [0316] [0317] [0318] [0319] [0320] [0321] [0322] [0323] [0324] [0325] [0326] [0327] [0328] [0329] [0330] [0331] [0332] [0333] [0334] [0335] [0336] [0337] [0338] [0339] [0340] [0341] [0342] [0343] [0344] [0345] [0346] [0347] [0348] [0349] [0350] [0351] [0352] [0353] [0354] [0355] [0356] [0357] [0358] [0359] [0360] [0361] [0362] [0363] [0364] [0365] [0366] [0367] [0368] [0369] [0370] [0371] [0372] [0373] [0374] [0375] [0376] [0377] [0378] [0379] [0380] [0381] [0382] [0383] [0384] [0385] [0386] [0387] [0388] [0389] [0390] [0391] [0392] [0393] [0394] [0395] [0396] [0397] [0398] [0399] [0400] [0401] [0402] [0403] [0404] [0405] [0406] [0407] [0408] [0409] [0410] [0411] [0412] [0413] [0414] [0415] [0416] [0417] [0418] [0419] [0420] [0421] [0422] [0423] [0424] [0425] [0426] [0427] [0428] [0429] [0430] [0431] [0432] [0433] [0434] [0435] [0436] [0437] [0438] [0439] [0440] [0441] [0442] [0443] [0444] [0445] [0446] [0447] [0448] [0449] [0450] [0451] [0452] [0453] [0454] [0455] [0456] [0457] [0458] [0459] [0460] [0461] [0462] [0463] [0464] [0465] [0466] [0467] [0468] [0469] [0470] [0471] [0472] [0473] [0474] [0475] [0476] [0477] [0478] [0479] [0480] [0481] [0482] [0483] [0484] [0485] [0486] [0487] [0488] [0489] [0490] [0491] [0492] [0493] [0494] [0495] [0496] [0497] [0498] [0499] [0500] [0501] [0502] [0503] [0504] [0505] [0506] [0507] [0508] [0509] [0510] [0511] [0512] [0513] [0514] [0515] [0516] [0517] [0518] [0519] [0520] [0521] [0522] [0523] [0524] [0525] [0526] [0527] [0528] [0529] [0530] [0531] [0532] [0533] [0534] [0535] [0536] [0537] [0538] [0539] [0540] [0541] [0542] [0543] [0544] [0545] [0546] [0547] [0548] [0549] [0550] [0551] [0552] [0553] [0554] [0555] [0556] [0557] [0558] [0559] [0560] [0561] [0562] [0563] [0564] [0565] [0566] [0567] [0568] [0569] [0570] [0571] [0572] [0573] [0574] [0575] [0576] [0577] [0578] [0579] [0580] [0581] [0582] [0583] [0584] [0585] [0586] [0587] [0588] [0589] [0590] [0591] [0592] [0593] [0594] [0595] [0596] [0597] [0598] [0599] [0600] [0601] [0602] [0603] [0604] [0605] [0606] [0607] [0608] [0609] [0610] [0611] [0612] [0613] [0614] [0615] [0616] [0617] [0618] [0619] [0620] [0621] [0622] [0623] [0624] [0625] [0626] [0627] [0628] [0629] [0630] [0631] [0632] [0633] [0634] [0635] [0636] [0637] [0638] [0639] [0640] [0641] [0642] [0643] [0644] [0645] [0646] [0647] [0648] [0649] [0650] [0651] [0652] [0653] [0654] [0655] [0656] [0657] [0658] [0659] [0660] [0661] [0662] [0663] [0664] [0665] [0666] [0667] [0668] [0669] [0670] [0671] [0672] [0673] [0674] [0675] [0676] [0677] [0678] [0679] [0680] [0681] [0682] [0683] [0684] [0685] [0686] [0687] [0688] [0689] [0690] [0691] [0692] [0693] [0694] [0695] [0696] [0697] [0698] [0699] [0700] [0701] [0702] [0703] [0704] [0705] [0706] [0707] [0708] [0709] [0710] [0711] [0712] [0713] [0714] [0715] [0716] [0717] [0718] [0719] [0720] [0721] [0722] [0723] [0724] [0725] [0726] [0727] [0728] [0729] [0730] [0731] [0732] [0733] [0734] [0735] [0736] [0737] [0738] [0739] [0740] [0741] [0742] [0743] [0744] [0745] [0746] [0747] [0748] [0749] [0750] [0751] [0752] [0753] [0754] [0755] [0756] [0757] [0758] [0759] [0760] [0761] [0762] [0763] [0764] [0765] [0766] [0767] [0768] [0769] [0770] [0771] [0772] [0773] [0774] [0775] [0776] [0777] [0778] [0779] [0780] [0781] [0782] [0783] [0784] [0785] [0786] [0787]
/*****************************************************************************/ /* MapCon.c Mapping conditional processing. See MAPURL.C for description of "Mapping Conditionals". VERSION HISTORY --------------- 07-OCT-2004 MGD unbundled from MAPURL.C */ /*****************************************************************************/ #ifdef WASD_VMS_V7 #undef _VMS__V6__SOURCE #define _VMS__V6__SOURCE #undef __VMS_VER #undef __VMS_VER #undef __CRTL_VER #define __CRTL_VER 70000000 #endif /* application header */ #include "wasd.h" #define WASD_MODULE "MAPCON" /********************/ /* external storage */ /********************/ extern WATCH_STRUCT Watch; /*****************************************************************************/ /* Scan the conditional string evaluating the conditions! Return true or false. Anything it cannot understand it ignores! */ BOOL MapConString ( REQUEST_STRUCT *rqptr, MAP_RULE_META *mrptr, REQUEST_PATHSET *rqpsptr ) { BOOL NegateThisCondition, NegateEntireConditional, Result, SoFarSoGood; int idx, status, ConditionalCount, WatchThisOne; char *cptr, *sptr, *tptr, *zptr, *CurrentPtr; char Scratch [2048]; DICT_ENTRY_STRUCT *denptr; /*********/ /* begin */ /*********/ if (WATCHMOD (rqptr, WATCH_MOD_MAPURL)) WatchThis (WATCHITM(rqptr), WATCH_MOD_MAPURL, "MapConString() !&Z", mrptr->ConditionalPtr); if (WATCHING (rqptr, WATCH_MAPPING)) WatchThisOne = WATCH_MAPPING; else WatchThisOne = 0; CurrentPtr = NULL; ConditionalCount = 0; NegateEntireConditional = NegateThisCondition = SoFarSoGood = false; cptr = mrptr->ConditionalPtr; if (WATCH_CAT && WatchThisOne) WatchDataFormatted ("conditional !AZ\n", cptr); while (*cptr) { while (ISLWS(*cptr)) cptr++; if (!*cptr) break; if (*cptr == '[' || SAME2(cptr,'![')) { if (*cptr == '!') { NegateEntireConditional = true; cptr++; } else NegateEntireConditional = false; cptr++; ConditionalCount = 0; SoFarSoGood = false; continue; } if (*cptr == ']') { cptr++; if (NegateEntireConditional) { SoFarSoGood = !SoFarSoGood; NegateEntireConditional = false; } if (ConditionalCount && !SoFarSoGood) { cptr = ""; break; } continue; } if (SoFarSoGood) { if (NegateEntireConditional) { SoFarSoGood = !SoFarSoGood; NegateEntireConditional = false; } /* at least one OK, skip to the end of the conditional */ while (*cptr && *cptr != ']') cptr++; /* remember, there may be more than one per line */ if (*cptr) continue; break; } CurrentPtr = cptr; NegateThisCondition = Result = false; zptr = (sptr = Scratch) + sizeof(Scratch)-1; if (*cptr == '!') { cptr++; NegateThisCondition = true; } switch (*(USHORTPTR)cptr) { case 'AC' : /*************/ /* "Accept:" */ /*************/ ConditionalCount++; cptr += 3; while (*cptr && !ISLWS(*cptr) && *cptr != ']' && sptr < zptr) { if (*cptr == '\\') cptr++; if (*cptr) *sptr++ = *cptr++; } *sptr = '\0'; if (rqptr->rqHeader.AcceptPtr) Result = MapConList (rqptr, Scratch, rqptr->rqHeader.AcceptPtr); break; case 'AL' : /**********************/ /* "Accept-Language:" */ /**********************/ ConditionalCount++; cptr += 3; while (*cptr && !ISLWS(*cptr) && *cptr != ']' && sptr < zptr) { if (*cptr == '\\') cptr++; if (*cptr) *sptr++ = *cptr++; } *sptr = '\0'; Result = MapConList (rqptr, Scratch, rqptr->rqHeader.AcceptLangPtr); break; case 'AS' : /*********************/ /* "Accept-Charset:" */ /*********************/ ConditionalCount++; cptr += 3; while (*cptr && !ISLWS(*cptr) && *cptr != ']' && sptr < zptr) { if (*cptr == '\\') cptr++; if (*cptr) *sptr++ = *cptr++; } *sptr = '\0'; Result = MapConList (rqptr, Scratch, rqptr->rqHeader.AcceptCharsetPtr); break; case 'CA' : /************/ /* callout? */ /************/ ConditionalCount++; cptr += 3; while (*cptr && !ISLWS(*cptr) && *cptr != ']') cptr++; Result = rqptr->rqCgi.CalloutInProgress; break; case 'CK' : /**********/ /* cookie */ /**********/ ConditionalCount++; cptr += 3; while (*cptr && !ISLWS(*cptr) && *cptr != ']' && sptr < zptr) { if (*cptr == '\\') cptr++; if (*cptr) *sptr++ = *cptr++; } *sptr = '\0'; Result = StringMatchGreedyRegex (rqptr, rqptr->rqHeader.CookiePtr, Scratch); break; case 'DR' : /*****************/ /* document root */ /*****************/ /* map=root=<string> */ ConditionalCount++; cptr += 3; while (*cptr && !ISLWS(*cptr) && *cptr != ']' && sptr < zptr) { if (*cptr == '\\') cptr++; if (*cptr) *sptr++ = *cptr++; } *sptr = '\0'; if (rqpsptr->MapRootPtr) Result = StringMatchGreedyRegex (rqptr, rqpsptr->MapRootPtr, Scratch); else Result = false; break; case 'EX' : /**********************/ /* extended file path */ /**********************/ ConditionalCount++; cptr += 3; while (*cptr && !ISLWS(*cptr) && *cptr != ']') cptr++; Result = rqptr->PathOdsExtended; break; case 'HM' : /****************************/ /* client host network mask */ /****************************/ ConditionalCount++; cptr += 3; while (*cptr && !ISLWS(*cptr) && *cptr != ']' && sptr < zptr) { if (*cptr == '\\') cptr++; if (*cptr) *sptr++ = *cptr++; } *sptr = '\0'; tptr = Scratch; /* preserve string address using ptr */ status = TcpIpNetMask (rqptr, WATCH_MAPPING, &tptr, &rqptr->ClientPtr->IpAddress); /* if there's a problem with the mask then just fail it */ if (VMSnok(status) && status != SS$_UNREACHABLE) return (false); Result = (status == SS$_NORMAL); break; case 'HO' : /****************************/ /* client host name/address */ /****************************/ ConditionalCount++; cptr += 3; while (*cptr && !ISLWS(*cptr) && *cptr != ']' && sptr < zptr) { if (*cptr == '\\') cptr++; if (*cptr) *sptr++ = *cptr++; } *sptr = '\0'; for (sptr = Scratch; *sptr && !isalnum(*sptr); sptr++); if (isdigit(*sptr)) sptr = &rqptr->ClientPtr->IpAddressString; else sptr = rqptr->ClientPtr->Lookup.HostName; Result = StringMatchGreedyRegex (rqptr, sptr, Scratch); break; case 'FO' : /*******************/ /* proxy forwarded */ /*******************/ ConditionalCount++; cptr += 3; while (*cptr && !ISLWS(*cptr) && *cptr != ']' && sptr < zptr) { if (*cptr == '\\') cptr++; if (*cptr) *sptr++ = *cptr++; } *sptr = '\0'; /* it's unlikely we'll have any of this header field */ if (rqptr->rqHeader.ForwardedPtr) Result = MapConList (rqptr, Scratch, rqptr->rqHeader.ForwardedPtr); break; case 'ME' : /***************/ /* HTTP method */ /***************/ ConditionalCount++; cptr += 3; while (*cptr && !ISLWS(*cptr) && *cptr != ']' && sptr < zptr) { if (*cptr == '\\') cptr++; if (*cptr) *sptr++ = *cptr++; } *sptr = '\0'; if (Scratch[0] == '?') Result = (rqptr->rqHeader.Method == HTTP_METHOD_EXTENSION); else Result = StringMatchGreedyRegex (rqptr, rqptr->rqHeader.MethodName, Scratch); break; case 'MP' : /*********************/ /* being mapped path */ /*********************/ /* path remaining after script/exec rule, or after a 'map' rule */ ConditionalCount++; cptr += 3; while (*cptr && !ISLWS(*cptr) && *cptr != ']' && sptr < zptr) { if (*cptr == '\\') cptr++; if (*cptr) *sptr++ = *cptr++; } *sptr = '\0'; if (rqptr->MetaConMappedPtr) Result = StringMatchGreedyRegex (rqptr, rqptr->MetaConMappedPtr, Scratch); else Result = false; break; case 'NO' : /***********/ /* notepad */ /***********/ ConditionalCount++; cptr += 3; while (*cptr && !ISLWS(*cptr) && *cptr != ']' && sptr < zptr) { if (*cptr == '\\') cptr++; if (*cptr) *sptr++ = *cptr++; } *sptr = '\0'; if (rqptr->NotePadPtr) Result = StringMatchGreedyRegex (rqptr, rqptr->NotePadPtr, Scratch); else Result = false; break; case 'PA' : /********/ /* pass */ /********/ ConditionalCount++; cptr += 3; while (*cptr && !ISLWS(*cptr) && *cptr != ']' && sptr < zptr) { if (*cptr == '\\') cptr++; if (*cptr) *sptr++ = *cptr++; } *sptr = '\0'; Result = (Scratch[0] - '0' == rqptr->MetaConPass); break; case 'PI' : /*************/ /* path-info */ /*************/ ConditionalCount++; cptr += 3; while (*cptr && !ISLWS(*cptr) && *cptr != ']' && sptr < zptr) { if (*cptr == '\\') cptr++; if (*cptr) *sptr++ = *cptr++; } *sptr = '\0'; Result = StringMatchGreedyRegex (rqptr, rqptr->rqHeader.PathInfoPtr, Scratch); break; case 'QS' : /****************/ /* query string */ /****************/ ConditionalCount++; cptr += 3; while (*cptr && !ISLWS(*cptr) && *cptr != ']' && sptr < zptr) { if (*cptr == '\\') cptr++; if (*cptr) *sptr++ = *cptr++; } *sptr = '\0'; Result = StringMatchGreedyRegex (rqptr, rqptr->rqHeader.QueryStringPtr, Scratch); break; case 'RC' : /********************/ /* redirected count */ /********************/ ConditionalCount++; cptr += 3; while (*cptr && !ISLWS(*cptr) && *cptr != ']' && sptr < zptr) { if (*cptr == '\\') cptr++; if (*cptr) *sptr++ = *cptr++; } *sptr = '\0'; if (Scratch[0]) Result = (Scratch[0] - '0' == rqptr->RedirectCount); else Result = rqptr->RedirectCount; break; case 'RF' : /****************/ /* refering URL */ /****************/ ConditionalCount++; cptr += 3; while (*cptr && !ISLWS(*cptr) && *cptr != ']' && sptr < zptr) { if (*cptr == '\\') cptr++; if (*cptr) *sptr++ = *cptr++; } *sptr = '\0'; Result = StringMatchGreedyRegex (rqptr, rqptr->rqHeader.RefererPtr, Scratch); break; case 'RQ' : /****************4*/ /* request field */ /*****************/ ConditionalCount++; cptr += 3; while (*cptr && !ISLWS(*cptr) && \ *cptr != ':' && *cptr != ']' && sptr < zptr) { if (*cptr == '\\') cptr++; if (*cptr) *sptr++ = *cptr++; } *sptr = '\0'; if (denptr = DictLookup (rqptr->rqDictPtr, DICT_TYPE_REQUEST, Scratch, sptr - Scratch)) { if (*sptr == ':') { sptr++; while (*cptr && !ISLWS(*cptr) && *cptr != ']' && sptr < zptr) { if (*cptr == '\\') cptr++; if (*cptr) *sptr++ = *cptr++; } *sptr = '\0'; Result = StringMatchGreedyRegex (rqptr, sptr, Scratch); } else Result = true; if (Result) break; } break; case 'RU' : /***************/ /* request URI */ /***************/ ConditionalCount++; cptr += 3; while (*cptr && !ISLWS(*cptr) && *cptr != ']' && sptr < zptr) { if (*cptr == '\\') cptr++; if (*cptr) *sptr++ = *cptr++; } *sptr = '\0'; Result = StringMatchGreedyRegex (rqptr, rqptr->rqHeader.RequestUriPtr, Scratch); break; case 'SC' : /****************************************/ /* request scheme ("http:" or "https:") */ /****************************************/ ConditionalCount++; cptr += 3; /* also ignore any trailing colon on the scheme string */ while (*cptr && !ISLWS(*cptr) && *cptr != ':' && *cptr != ']' && sptr < zptr) { if (*cptr == '\\') cptr++; if (*cptr) *sptr++ = *cptr++; } *sptr = '\0'; if (*cptr == ':') cptr++; /* any trailing colon has been stripped */ if (strsame (Scratch, "https", -1) && rqptr->ServicePtr->RequestScheme == SCHEME_HTTPS) Result = true; else if (strsame (Scratch, "http", -1) && rqptr->ServicePtr->RequestScheme == SCHEME_HTTP) Result = true; else Result = false; break; case 'SN' : /***************/ /* server name */ /***************/ ConditionalCount++; cptr += 3; while (*cptr && !ISLWS(*cptr) && *cptr != ']' && sptr < zptr) { if (*cptr == '\\') cptr++; if (*cptr) *sptr++ = *cptr++; } *sptr = '\0'; Result = StringMatchGreedyRegex (rqptr, rqptr->ServicePtr->ServerHostName, Scratch); break; case 'SP' : /***************/ /* server port */ /***************/ ConditionalCount++; cptr += 3; while (*cptr && !ISLWS(*cptr) && *cptr != ']' && sptr < zptr) { if (*cptr == '\\') cptr++; if (*cptr) *sptr++ = *cptr++; } *sptr = '\0'; Result = StringMatchGreedyRegex (rqptr, rqptr->ServicePtr->ServerPortString, Scratch); break; case 'ST' : /***************/ /* script name */ /***************/ ConditionalCount++; cptr += 3; while (*cptr && !ISLWS(*cptr) && *cptr != ']' && sptr < zptr) { if (*cptr == '\\') cptr++; if (*cptr) *sptr++ = *cptr++; } *sptr = '\0'; if (sptr = rqptr->MetaConScriptPtr) { if (*sptr == '+') { /* CGIplus indicator */ *sptr = '/'; Result = StringMatchGreedyRegex (rqptr, sptr, Scratch); *sptr = '+'; } else Result = StringMatchGreedyRegex (rqptr, sptr, Scratch); } else Result = false; break; case 'UA' : /*****************/ /* "User-Agent:" */ /*****************/ ConditionalCount++; cptr += 3; while (*cptr && !ISLWS(*cptr) && *cptr != ']' && sptr < zptr) { if (*cptr == '\\') cptr++; if (*cptr) *sptr++ = *cptr++; } *sptr = '\0'; Result = StringMatchGreedyRegex (rqptr, rqptr->rqHeader.UserAgentPtr, Scratch); break; case 'VS' : case 'HH' : /* backward compatibility */ /******************************************/ /* virtual service ("Host:") name/address */ /******************************************/ ConditionalCount++; cptr += 3; while (*cptr && !ISLWS(*cptr) && *cptr != ']' && sptr < zptr) { if (*cptr == '\\') cptr++; if (*cptr) *sptr++ = *cptr++; } *sptr = '\0'; Result = StringMatchGreedyRegex (rqptr, rqptr->rqHeader.HostPtr, Scratch); break; case 'XF' : /*******************/ /* x-forwarded-for */ /*******************/ ConditionalCount++; cptr += 3; while (*cptr && !ISLWS(*cptr) && *cptr != ']' && sptr < zptr) { if (*cptr == '\\') cptr++; if (*cptr) *sptr++ = *cptr++; } *sptr = '\0'; Result = StringMatchGreedyRegex (rqptr, rqptr->rqHeader.XForwardedForPtr, Scratch); break; default : /*******************/ /* unknown, ignore */ /*******************/ /* should never occur due to basic check in MapUrl_ConfigLoad()! */ if (WATCH_CAT && WatchThisOne) WatchDataFormatted ("IGNORE !AZ\n", CurrentPtr); while (*cptr && !ISLWS(*cptr) && *cptr != ']') cptr++; continue; } if (NegateThisCondition) SoFarSoGood = SoFarSoGood || !Result; else SoFarSoGood = SoFarSoGood || Result; if (WATCH_CAT && WatchThisOne) WatchDataFormatted ("!AZ !AZ\n", SoFarSoGood ? "MATCH" : "NOMATCH", CurrentPtr); } if (!ConditionalCount) SoFarSoGood = true; else if (NegateEntireConditional) SoFarSoGood = !SoFarSoGood; if (WATCH_CAT && WatchThisOne) WatchDataFormatted ("!AZ conditional\n", SoFarSoGood ? "PASSED" : "FAILED"); return (SoFarSoGood); } /*****************************************************************************/ /* Compare single "??:" conditional string to each of a comma-separated list in the form "item" or "item1, item2, item3", etc. String may contain '*' and '%' wildcards. We can munge the list string like this because we're operating at AST-delivery level and cannot be preempted! */ BOOL MapConList ( REQUEST_STRUCT *rqptr, char *String, char *List ) { char ch; char *cptr, *lptr; /*********/ /* begin */ /*********/ if (WATCHMOD (rqptr, WATCH_MOD_MAPURL)) WatchThis (WATCHITM(rqptr), WATCH_MOD_MAPURL, "MapConList() !&Z !&Z", String, List); if (!(lptr = List)) return (false); if (!String) return (false); while (*lptr) { /* spaces and commas are element separators, step over */ while (ISLWS(*lptr) || *lptr == ',') lptr++; /* if end of list (or empty) then finished */ if (!*lptr) return (false); /* find end of this element, save next character, terminate element */ for (cptr = lptr; *lptr && !ISLWS(*lptr) && *lptr != ','; lptr++); ch = *lptr; *lptr = '\0'; /* look for what we want */ if (StringMatchGreedyRegex (rqptr, cptr, String)) { /* restore list */ *lptr = ch; return (true); } /* restore list */ *lptr = ch; } /* ran out of list elements, so it can't be a match! */ return (false); } /*****************************************************************************/