urlmatch.c

   1 const char urlmatch_rcs[] = "$Id: urlmatch.c,v 1.8 2002/04/03 23:32:47 jongfoster Exp $";
   2 /*********************************************************************
   3  *
   4  * File        :  $Source: /cvsroot/ijbswa/current/urlmatch.c,v $
   5  *
   6  * Purpose     :  Declares functions to match URLs against URL
   7  *                patterns.
   8  *
   9  * Copyright   :  Written by and Copyright (C) 2001 the SourceForge
  10  *                Privoxy team. http://www.privoxy.org/
  11  *
  12  *                Based on the Internet Junkbuster originally written
  13  *                by and Copyright (C) 1997 Anonymous Coders and
  14  *                Junkbusters Corporation.  http://www.junkbusters.com
  15  *
  16  *                This program is free software; you can redistribute it
  17  *                and/or modify it under the terms of the GNU General
  18  *                Public License as published by the Free Software
  19  *                Foundation; either version 2 of the License, or (at
  20  *                your option) any later version.
  21  *
  22  *                This program is distributed in the hope that it will
  23  *                be useful, but WITHOUT ANY WARRANTY; without even the
  24  *                implied warranty of MERCHANTABILITY or FITNESS FOR A
  25  *                PARTICULAR PURPOSE.  See the GNU General Public
  26  *                License for more details.
  27  *
  28  *                The GNU General Public License should be included with
  29  *                this file.  If not, you can view it at
  30  *                http://www.gnu.org/copyleft/gpl.html
  31  *                or write to the Free Software Foundation, Inc., 59
  32  *                Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  33  *
  34  * Revisions   :
  35  *    $Log: urlmatch.c,v $
  36  *    Revision 1.8  2002/04/03 23:32:47  jongfoster
  37  *    Fixing memory leak on error
  38  *
  39  *    Revision 1.7  2002/03/26 22:29:55  swa
  40  *    we have a new homepage!
  41  *
  42  *    Revision 1.6  2002/03/24 13:25:43  swa
  43  *    name change related issues
  44  *
  45  *    Revision 1.5  2002/03/13 00:27:05  jongfoster
  46  *    Killing warnings
  47  *
  48  *    Revision 1.4  2002/03/07 03:46:17  oes
  49  *    Fixed compiler warnings
  50  *
  51  *    Revision 1.3  2002/03/03 14:51:11  oes
  52  *    Fixed CLF logging: Added ocmd member for client's request to struct http_request
  53  *
  54  *    Revision 1.2  2002/01/21 00:14:09  jongfoster
  55  *    Correcting comment style
  56  *    Fixing an uninitialized memory bug in create_url_spec()
  57  *
  58  *    Revision 1.1  2002/01/17 20:53:46  jongfoster
  59  *    Moving all our URL and URL pattern parsing code to the same file - it
  60  *    was scattered around in filters.c, loaders.c and parsers.c.
  61  *
  62  *    Providing a single, simple url_match(pattern,url) function - rather than
  63  *    the 3-line match routine which was repeated all over the place.
  64  *
  65  *    Renaming free_url to free_url_spec, since it frees a struct url_spec.
  66  *
  67  *    Providing parse_http_url() so that URLs can be parsed without faking a
  68  *    HTTP request line for parse_http_request() or repeating the parsing
  69  *    code (both of which were techniques that were actually in use).
  70  *
  71  *    Standardizing that struct http_request is used to represent a URL, and
  72  *    struct url_spec is used to represent a URL pattern.  (Before, URLs were
  73  *    represented as seperate variables and a partially-filled-in url_spec).
  74  *
  75  *
  76  *********************************************************************/
  77 \f
  78
  79 #include "config.h"
  80
  81 #ifndef _WIN32
  82 #include <stdio.h>
  83 #include <sys/types.h>
  84 #endif
  85
  86 #include <stdlib.h>
  87 #include <ctype.h>
  88 #include <assert.h>
  89 #include <string.h>
  90
  91 #if !defined(_WIN32) && !defined(__OS2__)
  92 #include <unistd.h>
  93 #endif
  94
  95 #include "project.h"
  96 #include "urlmatch.h"
  97 #include "ssplit.h"
  98 #include "miscutil.h"
  99 #include "errlog.h"
 100
 101 const char urlmatch_h_rcs[] = URLMATCH_H_VERSION;
 102
 103 /* Fix a problem with Solaris.  There should be no effect on other
 104  * platforms.
 105  * Solaris's isspace() is a macro which uses it's argument directly
 106  * as an array index.  Therefore we need to make sure that high-bit
 107  * characters generate +ve values, and ideally we also want to make
 108  * the argument match the declared parameter type of "int".
 109  *
 110  * Why did they write a character function that can't take a simple
 111  * "char" argument?  Doh!
 112  */
 113 #define ijb_isupper(__X) isupper((int)(unsigned char)(__X))
 114 #define ijb_tolower(__X) tolower((int)(unsigned char)(__X))
 115
 116
 117 /*********************************************************************
 118  *
 119  * Function    :  free_http_request
 120  *
 121  * Description :  Freez a http_request structure
 122  *
 123  * Parameters  :
 124  *          1  :  http = points to a http_request structure to free
 125  *
 126  * Returns     :  N/A
 127  *
 128  *********************************************************************/
 129 void free_http_request(struct http_request *http)
 130 {
 131    assert(http);
 132
 133    freez(http->cmd);
 134    freez(http->ocmd);
 135    freez(http->gpc);
 136    freez(http->host);
 137    freez(http->url);
 138    freez(http->hostport);
 139    freez(http->path);
 140    freez(http->ver);
 141    freez(http->host_ip_addr_str);
 142    freez(http->dbuffer);
 143    freez(http->dvec);
 144    http->dcount = 0;
 145 }
 146
 147
 148 /*********************************************************************
 149  *
 150  * Function    :  parse_http_url
 151  *
 152  * Description :  Parse out the host and port from the URL.  Find the
 153  *                hostname & path, port (if ':'), and/or password (if '@')
 154  *
 155  * Parameters  :
 156  *          1  :  url = URL (or is it URI?) to break down
 157  *          2  :  http = pointer to the http structure to hold elements.
 158  *                       Will be zeroed before use.  Note that this
 159  *                       function sets the http->gpc and http->ver
 160  *                       members to NULL.
 161  *          3  :  csp = Current client state (buffers, headers, etc...)
 162  *
 163  * Returns     :  JB_ERR_OK on success
 164  *                JB_ERR_MEMORY on out of memory
 165  *                JB_ERR_CGI_PARAMS on malformed command/URL
 166  *                                  or >100 domains deep.
 167  *
 168  *********************************************************************/
 169 jb_err parse_http_url(const char * url,
 170                       struct http_request *http,
 171                       struct client_state *csp)
 172 {
 173    /*
 174     * Zero out the results structure
 175     */
 176    memset(http, '\0', sizeof(*http));
 177
 178
 179    /*
 180     * Save our initial URL
 181     */
 182    http->url = strdup(url);
 183    if (http->url == NULL)
 184    {
 185       return JB_ERR_MEMORY;
 186    }
 187
 188
 189    /*
 190     * Split URL into protocol,hostport,path.
 191     */
 192    {
 193       char *buf;
 194       char *url_noproto;
 195       char *url_path;
 196
 197       buf = strdup(url);
 198       if (buf == NULL)
 199       {
 200          return JB_ERR_MEMORY;
 201       }
 202
 203       /* Find the start of the URL in our scratch space */
 204       url_noproto = buf;
 205       if (strncmpic(url_noproto, "http://",  7) == 0)
 206       {
 207          url_noproto += 7;
 208          http->ssl = 0;
 209       }
 210       else if (strncmpic(url_noproto, "https://", 8) == 0)
 211       {
 212          url_noproto += 8;
 213          http->ssl = 1;
 214       }
 215       else
 216       {
 217          http->ssl = 0;
 218       }
 219
 220       url_path = strchr(url_noproto, '/');
 221       if (url_path != NULL)
 222       {
 223          /*
 224           * Got a path.
 225           *
 226           * NOTE: The following line ignores the path for HTTPS URLS.
 227           * This means that you get consistent behaviour if you type a
 228           * https URL in and it's parsed by the function.  (When the
 229           * URL is actually retrieved, SSL hides the path part).
 230           */
 231          http->path = strdup(http->ssl ? "/" : url_path);
 232          *url_path = '\0';
 233          http->hostport = strdup(url_noproto);
 234       }
 235       else
 236       {
 237          /*
 238           * Repair broken HTTP requests that don't contain a path,
 239           * or CONNECT requests
 240           */
 241          http->path = strdup("/");
 242          http->hostport = strdup(url_noproto);
 243       }
 244
 245       free(buf);
 246
 247       if ( (http->path == NULL)
 248         || (http->hostport == NULL))
 249       {
 250          free(buf);
 251          free_http_request(http);
 252          return JB_ERR_MEMORY;
 253       }
 254    }
 255
 256
 257    /*
 258     * Split hostport into user/password (ignored), host, port.
 259     */
 260    {
 261       char *buf;
 262       char *host;
 263       char *port;
 264
 265       buf = strdup(http->hostport);
 266       if (buf == NULL)
 267       {
 268          free_http_request(http);
 269          return JB_ERR_MEMORY;
 270       }
 271
 272       /* check if url contains username and/or password */
 273       host = strchr(buf, '@');
 274       if (host != NULL)
 275       {
 276          /* Contains username/password, skip it and the @ sign. */
 277          host++;
 278       }
 279       else
 280       {
 281          /* No username or password. */
 282          host = buf;
 283       }
 284
 285       /* check if url contains port */
 286       port = strchr(host, ':');
 287       if (port != NULL)
 288       {
 289          /* Contains port */
 290          /* Terminate hostname and point to start of port string */
 291          *port++ = '\0';
 292          http->port = atoi(port);
 293       }
 294       else
 295       {
 296          /* No port specified. */
 297          http->port = (http->ssl ? 143 : 80);
 298       }
 299
 300       http->host = strdup(host);
 301
 302       free(buf);
 303
 304       if (http->host == NULL)
 305       {
 306          free_http_request(http);
 307          return JB_ERR_MEMORY;
 308       }
 309    }
 310
 311
 312    /*
 313     * Split domain name so we can compare it against wildcards
 314     */
 315    {
 316       char *vec[BUFFER_SIZE];
 317       size_t size;
 318       char *p;
 319
 320       http->dbuffer = strdup(http->host);
 321       if (NULL == http->dbuffer)
 322       {
 323          free_http_request(http);
 324          return JB_ERR_MEMORY;
 325       }
 326
 327       /* map to lower case */
 328       for (p = http->dbuffer; *p ; p++)
 329       {
 330          *p = tolower((int)(unsigned char)*p);
 331       }
 332
 333       /* split the domain name into components */
 334       http->dcount = ssplit(http->dbuffer, ".", vec, SZ(vec), 1, 1);
 335
 336       if (http->dcount <= 0)
 337       {
 338          /*
 339           * Error: More than SZ(vec) components in domain
 340           *    or: no components in domain
 341           */
 342          free_http_request(http);
 343          return JB_ERR_PARSE;
 344       }
 345
 346       /* save a copy of the pointers in dvec */
 347       size = http->dcount * sizeof(*http->dvec);
 348
 349       http->dvec = (char **)malloc(size);
 350       if (NULL == http->dvec)
 351       {
 352          free_http_request(http);
 353          return JB_ERR_MEMORY;
 354       }
 355
 356       memcpy(http->dvec, vec, size);
 357    }
 358
 359
 360    return JB_ERR_OK;
 361 }
 362
 363
 364 /*********************************************************************
 365  *
 366  * Function    :  parse_http_request
 367  *
 368  * Description :  Parse out the host and port from the URL.  Find the
 369  *                hostname & path, port (if ':'), and/or password (if '@')
 370  *
 371  * Parameters  :
 372  *          1  :  req = HTTP request line to break down
 373  *          2  :  http = pointer to the http structure to hold elements
 374  *          3  :  csp = Current client state (buffers, headers, etc...)
 375  *
 376  * Returns     :  JB_ERR_OK on success
 377  *                JB_ERR_MEMORY on out of memory
 378  *                JB_ERR_CGI_PARAMS on malformed command/URL
 379  *                                  or >100 domains deep.
 380  *
 381  *********************************************************************/
 382 jb_err parse_http_request(const char *req,
 383                           struct http_request *http,
 384                           struct client_state *csp)
 385 {
 386    char *buf;
 387    char *v[10];
 388    int n;
 389    jb_err err;
 390    int is_connect = 0;
 391
 392    memset(http, '\0', sizeof(*http));
 393
 394    buf = strdup(req);
 395    if (buf == NULL)
 396    {
 397       return JB_ERR_MEMORY;
 398    }
 399
 400    n = ssplit(buf, " \r\n", v, SZ(v), 1, 1);
 401    if (n != 3)
 402    {
 403       free(buf);
 404       return JB_ERR_PARSE;
 405    }
 406
 407    /* this could be a CONNECT request */
 408    if (strcmpic(v[0], "connect") == 0)
 409    {
 410       /* Secure */
 411       is_connect = 1;
 412    }
 413    /* or it could be any other basic HTTP request type */
 414    else if ((0 == strcmpic(v[0], "get"))
 415          || (0 == strcmpic(v[0], "head"))
 416          || (0 == strcmpic(v[0], "post"))
 417          || (0 == strcmpic(v[0], "put"))
 418          || (0 == strcmpic(v[0], "delete"))
 419
 420          /* or a webDAV extension (RFC2518) */
 421          || (0 == strcmpic(v[0], "propfind"))
 422          || (0 == strcmpic(v[0], "proppatch"))
 423          || (0 == strcmpic(v[0], "move"))
 424          || (0 == strcmpic(v[0], "copy"))
 425          || (0 == strcmpic(v[0], "mkcol"))
 426          || (0 == strcmpic(v[0], "lock"))
 427          || (0 == strcmpic(v[0], "unlock"))
 428          )
 429    {
 430       /* Normal */
 431       is_connect = 0;
 432    }
 433    else
 434    {
 435       /* Unknown HTTP method */
 436       free(buf);
 437       return JB_ERR_PARSE;
 438    }
 439
 440    err = parse_http_url(v[1], http, csp);
 441    if (err)
 442    {
 443       free(buf);
 444       return err;
 445    }
 446
 447    /*
 448     * Copy the details into the structure
 449     */
 450    http->ssl = is_connect;
 451    http->cmd = strdup(req);
 452    http->gpc = strdup(v[0]);
 453    http->ver = strdup(v[2]);
 454
 455    if ( (http->cmd == NULL)
 456      || (http->gpc == NULL)
 457      || (http->ver == NULL) )
 458    {
 459       free(buf);
 460       free_http_request(http);
 461       return JB_ERR_MEMORY;
 462    }
 463
 464    return JB_ERR_OK;
 465 }
 466
 467
 468 /*********************************************************************
 469  *
 470  * Function    :  simple_domaincmp
 471  *
 472  * Description :  Domain-wise Compare fqdn's.  The comparison is
 473  *                both left- and right-anchored.  The individual
 474  *                domain names are compared with simplematch().
 475  *                This is only used by domain_match.
 476  *
 477  * Parameters  :
 478  *          1  :  pv = array of patterns to compare
 479  *          2  :  fv = array of domain components to compare
 480  *          3  :  len = length of the arrays (both arrays are the
 481  *                      same length - if they weren't, it couldn't
 482  *                      possibly be a match).
 483  *
 484  * Returns     :  0 => domains are equivalent, else no match.
 485  *
 486  *********************************************************************/
 487 static int simple_domaincmp(char **pv, char **fv, int len)
 488 {
 489    int n;
 490
 491    for (n = 0; n < len; n++)
 492    {
 493       if (simplematch(pv[n], fv[n]))
 494       {
 495          return 1;
 496       }
 497    }
 498
 499    return 0;
 500
 501 }
 502
 503
 504 /*********************************************************************
 505  *
 506  * Function    :  domain_match
 507  *
 508  * Description :  Domain-wise Compare fqdn's. Governed by the bimap in
 509  *                pattern->unachored, the comparison is un-, left-,
 510  *                right-anchored, or both.
 511  *                The individual domain names are compared with
 512  *                simplematch().
 513  *
 514  * Parameters  :
 515  *          1  :  pattern = a domain that may contain a '*' as a wildcard.
 516  *          2  :  fqdn = domain name against which the patterns are compared.
 517  *
 518  * Returns     :  0 => domains are equivalent, else no match.
 519  *
 520  *********************************************************************/
 521 static int domain_match(const struct url_spec *pattern, const struct http_request *fqdn)
 522 {
 523    char **pv, **fv;  /* vectors  */
 524    int    plen, flen;
 525    int unanchored = pattern->unanchored & (ANCHOR_RIGHT | ANCHOR_LEFT);
 526
 527    plen = pattern->dcount;
 528    flen = fqdn->dcount;
 529
 530    if (flen < plen)
 531    {
 532       /* fqdn is too short to match this pattern */
 533       return 1;
 534    }
 535
 536    pv   = pattern->dvec;
 537    fv   = fqdn->dvec;
 538
 539    if (unanchored == ANCHOR_LEFT)
 540    {
 541       /*
 542        * Right anchored.
 543        *
 544        * Convert this into a fully anchored pattern with
 545        * the fqdn and pattern the same length
 546        */
 547       fv += (flen - plen); /* flen - plen >= 0 due to check above */
 548       return simple_domaincmp(pv, fv, plen);
 549    }
 550    else if (unanchored == 0)
 551    {
 552       /* Fully anchored, check length */
 553       if (flen != plen)
 554       {
 555          return 1;
 556       }
 557       return simple_domaincmp(pv, fv, plen);
 558    }
 559    else if (unanchored == ANCHOR_RIGHT)
 560    {
 561       /* Left anchored, ignore all extra in fqdn */
 562       return simple_domaincmp(pv, fv, plen);
 563    }
 564    else
 565    {
 566       /* Unanchored */
 567       int n;
 568       int maxn = flen - plen;
 569       for (n = 0; n <= maxn; n++)
 570       {
 571          if (!simple_domaincmp(pv, fv, plen))
 572          {
 573             return 0;
 574          }
 575          /*
 576           * Doesn't match from start of fqdn
 577           * Try skipping first part of fqdn
 578           */
 579          fv++;
 580       }
 581       return 1;
 582    }
 583
 584 }
 585
 586
 587 /*********************************************************************
 588  *
 589  * Function    :  create_url_spec
 590  *
 591  * Description :  Creates a "url_spec" structure from a string.
 592  *                When finished, free with unload_url().
 593  *
 594  * Parameters  :
 595  *          1  :  url = Target url_spec to be filled in.  Will be
 596  *                      zeroed before use.
 597  *          2  :  buf = Source pattern, null terminated.  NOTE: The
 598  *                      contents of this buffer are destroyed by this
 599  *                      function.  If this function succeeds, the
 600  *                      buffer is copied to url->spec.  If this
 601  *                      function fails, the contents of the buffer
 602  *                      are lost forever.
 603  *
 604  * Returns     :  JB_ERR_OK - Success
 605  *                JB_ERR_MEMORY - Out of memory
 606  *                JB_ERR_PARSE - Cannot parse regex (Detailed message
 607  *                               written to system log)
 608  *
 609  *********************************************************************/
 610 jb_err create_url_spec(struct url_spec * url, const char * buf)
 611 {
 612    char *p;
 613
 614    assert(url);
 615    assert(buf);
 616
 617    /* Zero memory */
 618    memset(url, '\0', sizeof(*url));
 619
 620    /* save a copy of the orignal specification */
 621    if ((url->spec = strdup(buf)) == NULL)
 622    {
 623       return JB_ERR_MEMORY;
 624    }
 625
 626    if ((p = strchr(buf, '/')) != NULL)
 627    {
 628       if (NULL == (url->path = strdup(p)))
 629       {
 630          freez(url->spec);
 631          return JB_ERR_MEMORY;
 632       }
 633       url->pathlen = strlen(url->path);
 634       *p = '\0';
 635    }
 636    else
 637    {
 638       url->path    = NULL;
 639       url->pathlen = 0;
 640    }
 641    if (url->path)
 642    {
 643       int errcode;
 644       char rebuf[BUFFER_SIZE];
 645
 646       if (NULL == (url->preg = zalloc(sizeof(*url->preg))))
 647       {
 648          freez(url->spec);
 649          freez(url->path);
 650          return JB_ERR_MEMORY;
 651       }
 652
 653       sprintf(rebuf, "^(%s)", url->path);
 654
 655       errcode = regcomp(url->preg, rebuf,
 656             (REG_EXTENDED|REG_NOSUB|REG_ICASE));
 657       if (errcode)
 658       {
 659          size_t errlen = regerror(errcode,
 660             url->preg, rebuf, sizeof(rebuf));
 661
 662          if (errlen > (sizeof(rebuf) - (size_t)1))
 663          {
 664             errlen = sizeof(rebuf) - (size_t)1;
 665          }
 666          rebuf[errlen] = '\0';
 667
 668          log_error(LOG_LEVEL_ERROR, "error compiling %s: %s",
 669             url->spec, rebuf);
 670
 671          freez(url->spec);
 672          freez(url->path);
 673          regfree(url->preg);
 674          freez(url->preg);
 675
 676          return JB_ERR_PARSE;
 677       }
 678    }
 679    if ((p = strchr(buf, ':')) == NULL)
 680    {
 681       url->port = 0;
 682    }
 683    else
 684    {
 685       *p++ = '\0';
 686       url->port = atoi(p);
 687    }
 688
 689    if (buf[0] != '\0')
 690    {
 691       char *v[150];
 692       size_t size;
 693
 694       /* Parse domain part */
 695       if (buf[strlen(buf) - 1] == '.')
 696       {
 697          url->unanchored |= ANCHOR_RIGHT;
 698       }
 699       if (buf[0] == '.')
 700       {
 701          url->unanchored |= ANCHOR_LEFT;
 702       }
 703
 704       /* split domain into components */
 705
 706       url->dbuffer = strdup(buf);
 707       if (NULL == url->dbuffer)
 708       {
 709          freez(url->spec);
 710          freez(url->path);
 711          regfree(url->preg);
 712          freez(url->preg);
 713          return JB_ERR_MEMORY;
 714       }
 715
 716       /* map to lower case */
 717       for (p = url->dbuffer; *p ; p++)
 718       {
 719          *p = tolower((int)(unsigned char)*p);
 720       }
 721
 722       /* split the domain name into components */
 723       url->dcount = ssplit(url->dbuffer, ".", v, SZ(v), 1, 1);
 724
 725       if (url->dcount < 0)
 726       {
 727          freez(url->spec);
 728          freez(url->path);
 729          regfree(url->preg);
 730          freez(url->preg);
 731          freez(url->dbuffer);
 732          url->dcount = 0;
 733          return JB_ERR_MEMORY;
 734       }
 735       else if (url->dcount != 0)
 736       {
 737
 738          /* save a copy of the pointers in dvec */
 739          size = url->dcount * sizeof(*url->dvec);
 740
 741          url->dvec = (char **)malloc(size);
 742          if (NULL == url->dvec)
 743          {
 744             freez(url->spec);
 745             freez(url->path);
 746             regfree(url->preg);
 747             freez(url->preg);
 748             freez(url->dbuffer);
 749             url->dcount = 0;
 750             return JB_ERR_MEMORY;
 751          }
 752
 753          memcpy(url->dvec, v, size);
 754       }
 755    }
 756
 757    return JB_ERR_OK;
 758
 759 }
 760
 761
 762 /*********************************************************************
 763  *
 764  * Function    :  free_url_spec
 765  *
 766  * Description :  Called from the "unloaders".  Freez the url
 767  *                structure elements.
 768  *
 769  * Parameters  :
 770  *          1  :  url = pointer to a url_spec structure.
 771  *
 772  * Returns     :  N/A
 773  *
 774  *********************************************************************/
 775 void free_url_spec(struct url_spec *url)
 776 {
 777    if (url == NULL) return;
 778
 779    freez(url->spec);
 780    freez(url->dbuffer);
 781    freez(url->dvec);
 782    freez(url->path);
 783    if (url->preg)
 784    {
 785       regfree(url->preg);
 786       freez(url->preg);
 787    }
 788 }
 789
 790
 791 /*********************************************************************
 792  *
 793  * Function    :  url_match
 794  *
 795  * Description :  Compare a URL against a URL pattern.
 796  *
 797  * Parameters  :
 798  *          1  :  pattern = a URL pattern
 799  *          2  :  url = URL to match
 800  *
 801  * Returns     :  0 iff the URL matches the pattern, else nonzero.
 802  *
 803  *********************************************************************/
 804 int url_match(const struct url_spec *pattern,
 805               const struct http_request *url)
 806 {
 807    return ((pattern->port == 0) || (pattern->port == url->port))
 808        && ((pattern->dbuffer == NULL) || (domain_match(pattern, url) == 0))
 809        && ((pattern->path == NULL) ||
 810             (regexec(pattern->preg, url->path, 0, NULL, 0) == 0)
 811       );
 812 }
 813
 814
 815 /*
 816   Local Variables:
 817   tab-width: 3
 818   end:
 819 */