Benutzer:Rene/BlockSpammer

BlockSpammer ist eine Mediawiki Erweiterung die verhindert das unangemeldete Benutzer (IPs) externe Links in Artikel eintragen.

Beschreibung

Die Erweiterung prüft Änderungen von nicht angemeldeten Benutzern. Wenn diese einen verdächtigen Eintrag machen wird die Übername der Änderungen verweigert. Momentan prüft die Erweiterung nur auf externe Links.

BlockSpammer.php

<?php
if ( ! defined( 'MEDIAWIKI' ) )
	die();
    
/**
 * Prüfe Artikel von IP Benutzern auf Spam
 *
 * 1. IPs dürfen keine externen links anlegen
 */

$wgExtensionFunctions[] = 'wfBlockSpammer';
$wgExtensionCredits['other'][] = array(
	'name' => 'BlockSpammer',
	'author' => 'Rene Raule',
        'version' => '0.2',
	'description' => 'Nicht angemeldete Benutzer duerfen keine externen Links anlegen.',
	'descriptionmsg' => 'block_spammer_error-desc',
	'url' => 'http://www.stargate-wiki.de/wiki/Benutzer:Rene/BlockSpammer',
);

$dir = dirname(__FILE__) . '/';
$wgExtensionMessagesFiles['BlockSpammer'] = $dir . 'BlockSpammer.i18n.php';
// Welche RegEx zeigen einen Spammer
$wgBlockSpammerPatterns = array (
  "/http/i",  // externe Links
  );

$wgHooks['ArticleSave'][] = 'wfCheckBlockSpammer';

function wfBlockSpammer() {
  wfLoadExtensionMessages( 'BlockSpammer' );
}

function wfCheckBlockSpammer (&$article,&$user,&$text ) {
  global $wgBlockSpammerPatterns;
  global $wgOut;

  if($user->mId == 0) {
    $t = PHPDiff($article->mContent."\n",$text."\n",2);
    foreach ($wgBlockSpammerPatterns as $re) {
      if (preg_match($re, $t)===1) {
        $wgOut->errorpage('block_spammer_error_page_title', 'block_spammer_error' );
        return false;
      }	
    }
  }
  return true;
}

## PHPDiff returns the differences between $old and $new, formatted
## in the standard diff(1) output format. when mode=0
## mode=1 shows deleted part
## mode=2 shows added part
function PHPDiff($old,$new,$mode=0) 
{
   # split the source text into arrays of lines
   $t1 = explode("\n",$old);
   $x=array_pop($t1); 
   if ($x>'') $t1[]="$x\n\\ No newline at end of file";
   $t2 = explode("\n",$new);
   $x=array_pop($t2); 
   if ($x>'') $t2[]="$x\n\\ No newline at end of file";

   # build a reverse-index array using the line as key and line number as value
   # don't store blank lines, so they won't be targets of the shortest distance
   # search
   foreach($t1 as $i=>$x) if ($x>'') $r1[$x][]=$i;
   foreach($t2 as $i=>$x) if ($x>'') $r2[$x][]=$i;

   $a1=0; $a2=0;   # start at beginning of each list
   $actions=array();

   # walk this loop until we reach the end of one of the lists
   while ($a1<count($t1) && $a2<count($t2)) {
     # if we have a common element, save it and go to the next
     if ($t1[$a1]==$t2[$a2]) { $actions[]=4; $a1++; $a2++; continue; } 

     # otherwise, find the shortest move (Manhattan-distance) from the
     # current location
     $best1=count($t1); $best2=count($t2);
     $s1=$a1; $s2=$a2;
     while(($s1+$s2-$a1-$a2) < ($best1+$best2-$a1-$a2)) {
       $d=-1;
       foreach((array)@$r1[$t2[$s2]] as $n) 
         if ($n>=$s1) { $d=$n; break; }
       if ($d>=$s1 && ($d+$s2-$a1-$a2)<($best1+$best2-$a1-$a2))
         { $best1=$d; $best2=$s2; }
       $d=-1;
       foreach((array)@$r2[$t1[$s1]] as $n) 
         if ($n>=$s2) { $d=$n; break; }
       if ($d>=$s2 && ($s1+$d-$a1-$a2)<($best1+$best2-$a1-$a2))
         { $best1=$s1; $best2=$d; }
       $s1++; $s2++;
     }
     while ($a1<$best1) { $actions[]=1; $a1++; }  # deleted elements
     while ($a2<$best2) { $actions[]=2; $a2++; }  # added elements
  }

  # we've reached the end of one list, now walk to the end of the other
  while($a1<count($t1)) { $actions[]=1; $a1++; }  # deleted elements
  while($a2<count($t2)) { $actions[]=2; $a2++; }  # added elements

  # and this marks our ending point
  $actions[]=8;

  # now, let's follow the path we just took and report the added/deleted
  # elements into $out.
  $op = 0;
  $x0=$x1=0; $y0=$y1=0;
  $out = array(); $del = array(); $add = array();
  foreach($actions as $act) {
    if ($act==1) { $op|=$act; $x1++; continue; }
    if ($act==2) { $op|=$act; $y1++; continue; }
    if ($op>0) {
      $xstr = ($x1==($x0+1)) ? $x1 : ($x0+1).",$x1";
      $ystr = ($y1==($y0+1)) ? $y1 : ($y0+1).",$y1";
      if ($op==1) $out[] = "{$xstr}d{$y1}";
      elseif ($op==3) $out[] = "{$xstr}c{$ystr}";
      while ($x0<$x1) { $out[] = '< '.$t1[$x0]; $del[] = $t1[$x0]; $x0++; }   # deleted elems
      if ($op==2) $out[] = "{$x1}a{$ystr}";
      elseif ($op==3) $out[] = '---';
      while ($y0<$y1) { $out[] = '> '.$t2[$y0]; $add[] = $t2[$y0]; $y0++; }   # added elems
    }
    $x1++; $x0=$x1;
    $y1++; $y0=$y1;
    $op=0;
  }
  $out[] = ''; $del[] = ''; $add[] = '';
  if ($mode == 0) { return join("\n",$out); }
  if ($mode == 1) { return join("\n",$del); }
  if ($mode == 2) { return join("\n",$add); }
}

BlockSpammer.i18n.php

<?php
/**
 * Internationalisation file for extension BlockSpammer.
 *
 */

$messages = array();

/**
 * English
 */
$messages['en'] = array(
	'block_spammer_error_page_title' => 'Spam suspicion',
	'block_spammer_error-desc'       => 'IP User are not allowed to make external links',
	'block_spammer_error'            => 'Sorry, your edit seems to be spam. You must register to make this edit.',
);

/** Message documentation (Message documentation)
 * @author Purodha
 */
$messages['qqq'] = array(
	'block_spammer_error-desc' => 'Shown in [[Special:Version]]',
);


/** German (Deutsch)
 */
$messages['de'] = array(
	'block_spammer_error_page_title' => 'Spam Verdacht',
	'block_spammer_error-desc' => 'Nicht angemeldete Benutzer dürfen keine externen Links anlegen.',
	'block_spammer_error' => 'Die letzte Änderungen kann nicht gespeichert werden da der Verdacht auf Spam besteht. Änderungen dieser Art sind nur angemeldeten Benutzern erlaubt.',
);