includes/LinkFilter.php

   1 <?php
   2
   3 /**
   4  * Some functions to help implement an external link filter for spam control.
   5  *
   6  * TODO: implement the filter. Currently these are just some functions to help
   7  * maintenance/cleanupSpam.php remove links to a single specified domain. The
   8  * next thing is to implement functions for checking a given page against a big
   9  * list of domains.
  10  *
  11  * Another cool thing to do would be a web interface for fast spam removal.
  12  */
  13 class LinkFilter {
  14         /**
  15          * @static
  16          */
  17         function matchEntry( $text, $filterEntry ) {
  18                 $regex = LinkFilter::makeRegex( $filterEntry );
  19                 return preg_match( $regex, $text );
  20         }
  21
  22         /**
  23          * @static
  24          */
  25         function makeRegex( $filterEntry ) {
  26                 $regex = '!http://';
  27                 if ( substr( $filterEntry, 0, 2 ) == '*.' ) {
  28                         $regex .= '([A-Za-z0-9.-]+\.|)';
  29                         $filterEntry = substr( $filterEntry, 2 );
  30                 }
  31                 $regex .= preg_quote( $filterEntry, '!' ) . '!Si';
  32                 return $regex;
  33         }
  34
  35         /**
  36          * Make a string to go after an SQL LIKE, which will match the specified
  37          * string. There are several kinds of filter entry:
  38          *     *.domain.com    -  Produces http://com.domain.%, matches domain.com
  39          *                        and www.domain.com
  40          *     domain.com      -  Produces http://com.domain./%, matches domain.com
  41          *                        or domain.com/ but not www.domain.com
  42          *     *.domain.com/x  -  Produces http://com.domain.%/x%, matches
  43          *                        www.domain.com/xy
  44          *     domain.com/x    -  Produces http://com.domain./x%, matches
  45          *                        domain.com/xy but not www.domain.com/xy
  46          *
  47          * Asterisks in any other location are considered invalid.
  48          *
  49          * @static
  50          * @param $filterEntry String: domainparts
  51          * @param $prot        String: protocol
  52          */
  53         function makeLike( $filterEntry , $prot = 'http' ) {
  54                 if ( substr( $filterEntry, 0, 2 ) == '*.' ) {
  55                         $subdomains = true;
  56                         $filterEntry = substr( $filterEntry, 2 );
  57                         if ( $filterEntry == '' ) {
  58                                 // We don't want to make a clause that will match everything,
  59                                 // that could be dangerous
  60                                 return false;
  61                         }
  62                 } else {
  63                         $subdomains = false;
  64                 }
  65                 // No stray asterisks, that could cause confusion
  66                 // It's not simple or efficient to handle it properly so we don't
  67                 // handle it at all.
  68                 if ( strpos( $filterEntry, '*' ) !== false ) {
  69                         return false;
  70                 }
  71                 $slash = strpos( $filterEntry, '/' );
  72                 if ( $slash !== false ) {
  73                         $path = substr( $filterEntry, $slash );
  74                         $host = substr( $filterEntry, 0, $slash );
  75                 } else {
  76                         $path = '/';
  77                         $host = $filterEntry;
  78                 }
  79                 $host = strtolower( implode( '.', array_reverse( explode( '.', $host ) ) ) );
  80                 if ( substr( $host, -1, 1 ) !== '.' ) {
  81                         $host .= '.';
  82                 }
  83                 $like = "$prot://$host";
  84
  85                 if ( $subdomains ) {
  86                         $like .= '%';
  87                 }
  88                 if ( !$subdomains || $path !== '/' ) {
  89                         $like .= $path . '%';
  90                 }
  91                 return $like;
  92         }
  93 }
  94 ?>