simpleblacklist.plugin.php

<?php

class SimpleBlacklist extends Plugin
{
	public function action_init()
	{
		$this->load_text_domain( 'simpleblacklist' );
	}
	
	public function configure()
	{
		$ui = new FormUI( strtolower( get_class( $this ) ) );
		$blacklist = $ui->append( 'textarea', 'blacklist', 'option:simpleblacklist__blacklist', _t( 'Items to blacklist (words, IP addresses, URLs, etc):', 'simpleblacklist' ) );
		$blacklist->rows = 8;
		$blacklist->class[] = 'resizable';
		$frequency = $ui->append('checkbox', 'frequency', 'option:simpleblacklist__frequency', _t( 'Bypass blacklist for frequent commenters:', 'simpleblacklist' ) );
		$keep = $ui->append('checkbox', 'keepcomments', 'option:simpleblacklist__keepcomments', _t( 'Keep comments (only mark them as spam):', 'simpleblacklist' ) );
		$ui->append('fieldset', 'learning', _t('Learning from spam', 'simpleblacklist'));
		$ui->learning->append('checkbox', 'blacklistauthor', 'option:simpleblacklist__blacklistauthor', _t( 'Auto-blacklist author', 'simpleblacklist' ) );
		$ui->learning->append('checkbox', 'blacklistmail', 'option:simpleblacklist__blacklistmail', _t( 'Auto-blacklist mail', 'simpleblacklist' ) );
		$ui->learning->append('checkbox', 'blacklisturl', 'option:simpleblacklist__blacklisturl', _t( 'Auto-blacklist url', 'simpleblacklist' ) );
		$ui->learning->append('checkbox', 'blacklistip', 'option:simpleblacklist__blacklistip', _t( 'Auto-blacklist ip', 'simpleblacklist' ) );
		$ui->on_success( array( $this, 'updated_config' ) );
		$ui->append( 'submit', 'save', _t( 'Save', 'simpleblacklist' ) );
		return $ui;
	}

	public function updated_config( FormUI $ui )
	{
		$blacklist = explode( "\n", $ui->blacklist->value );
		$blacklist = array_unique( $blacklist );
		natsort( $blacklist );
		$_POST[$ui->blacklist->field] =  implode( "\n", $blacklist );

		Session::notice( _t( 'Blacklist saved.' , 'simpleblacklist' ) );
		$ui->save();
	}

	public function filter_comment_insert_allow( $allow, $comment )
	{
		// Don't discard comments at all when the user disabled that (action_comment_insert_before will mark them as spam then)
		if(Options::get( 'simpleblacklist__keepcomments' )) { return true; }
		
		return $this->check_comment( $comment );
	}
	
	public function action_comment_insert_before ( $comment )
	{
		if( $comment->type == Comment::COMMENT && $comment->status != Comment::STATUS_SPAM)
		{
			if( $this->check_comment( $comment ) === false )
			{
				$comment->status = Comment::STATUS_SPAM;
				EventLog::log( sprintf(_t("Comment by %s automatically marked as spam", 'simpleblacklist'), $comment->name), 'info', 'Simple Blacklist', 'plugin' );
			}
		}
		return $comment;
	}
	
	function check_comment( $comment )
	{
		// don't blacklist logged-in users: they can speak freely
		if ( User::identify()->loggedin ) { return true; }

		// and if the person has more than 5 comments approved,
		// they're likely not a spammer, so don't blacklist them
		$bypass = Options::get( 'simpleblacklist__frequency', false );
		if ( $bypass ) {
			$comments = Comments::get( array( 'email' => $comment->email,
			'name' => $comment->name, 
			'url' => $comment->url,
			'status' => Comment::STATUS_APPROVED )
			);
			if ( $comments->count >= 5 ) {
				return true;
			}
		}

		$allow = true;
		$reason = "";
		$blacklist = explode( "\n", Options::get( 'simpleblacklist__blacklist' ) );
		foreach ( $blacklist as $item ) {
			$item = trim( strtolower( $item ) );
			if ( '' == $item ) { continue; }
			// check against the commenter name
			if ( false !== strpos( strtolower( $comment->name ), $item ) ) {
				$allow = false;
			}
			// check against the commenter email
			if ( false !== strpos( strtolower( $comment->email ), $item ) ) {
				$allow = false;
			}
			// check against the commenter URL
			if ( false !== strpos( strtolower( $comment->url ), $item ) ) {
				$allow = false;
			}
			// check against the commenter IP address
			if ( (strpos($comment->ip, '.') > 0 ? $comment->ip : long2ip( $comment->ip )) == $item ) {
				$allow = false;
			}
			// now check the body of the comment
			if ( false !== strpos( strtolower( $comment->content ), $item ) ) {
				$allow = false;
			}
			if( $allow === false ) {
				 break;
			}
		}
		
		return $allow;
	}
	
	function action_comment_update_status ($comment, $status, $value)
	{
		// This is semi-optimal because field changes are always invoked so this applies to every comment and not only to comments marked as spam manually. Doesn't matter but costs resources. There's no other way, so do it.
		
		if( $value == Comment::STATUS_SPAM )
		{
			$blacklistauthor = Options::get( 'simpleblacklist__blacklistauthor', false );
			$blacklistmail = Options::get( 'simpleblacklist__blacklistmail', false );
			$blacklisturl = Options::get( 'simpleblacklist__blacklisturl', false );
			$blacklistip = Options::get( 'simpleblacklist__blacklistip', false );
			$blacklist = Options::get( 'simpleblacklist__blacklist', "");
			$newblacklist = explode( "\n", $blacklist );
			if ( $blacklistauthor ) {
				$newblacklist[] = $comment->author;
			}
			if ( $blacklistmail ) {
				$newblacklist[] = $comment->email;
			}
			if ( $blacklisturl ) {
				$newblacklist[] = $comment->url;
			}
			if ( $blacklistip ) {
				$newblacklist[] = (strpos($comment->ip, '.') > 0 ? $comment->ip : long2ip( $comment->ip ));
			}
			$newblacklist = array_unique( $newblacklist );
			natsort( $newblacklist );
			Options::set( 'simpleblacklist__blacklist', implode( "\n", $newblacklist ));
		}
	}
}
?>