Automatically moderated Drupal comments

Posted Wed, 18/05/2011 - 6:10pm by DrupalD

This CodeLets alllow anonymous users to post comments withough approval if his/her previous comment has been approved by the moderator. Thus this CodeLet makes it easy for moderators to moderate only those comments which are posted by users who has posted the comment for first time.
This module works out of the box and presents a list of white listed anaomyous users with email id. The moderator can remove emails from the list and those will have to be moderated next time.

<?php
//$Id$

/**
 * @file 
 * 
 * Allow white listed anonymous users to post comments without approval
 * 
 * @author Drupal Developer <http://twitter.com/DrupalD>
 */


/**
 * Implementation of hook_menu
 * 
 * @author Drupal Developer <http://twitter.com/DrupalD>
 */
function whitelist_comment_menu() {
    $item = array();
    $item['admin/content/comment/whitelist'] = array(
      'type' => MENU_LOCAL_TASK,
      'title' => t('White list'),
      'page callback' => 'whitelist_comment_list',
      'access arguments' => array('administer comments'),
      'weight' => 0,
    );
    
    $item['whitelist/%/delete'] = array(
      'type' => MENU_CALLBACK,
      'page callback' => 'drupal_get_form',
      'page arguments' => array('whitelist_comment_confirm_form', 1),
      'access arguments' => array('administer comments'),
    );
    return $item;
}


/**
 * Implementation of hook_form_FORM_ID_alter
 * 
 * @param unknown_type $form
 * @param unknown_type $form_values
 * @author Bhvain H. Joshi <bhavinjosi@joshics.in>
 */
function whitelist_comment_form_comment_form_alter(&$form, $form_values) {
    //unset the name field value on comment form
    $form['name']['#default_value'] = ''; 
}


/**
 * Implementation of hook_comment
 * 
 * @param $a1
 * @param $op
 * @author Drupal Developer <http://twitter.com/DrupalD>
 */
function whitelist_comment_comment(&$a1, $op) {
    switch ($op) {
        case 'publish':
            if ($a1->uid == 0) {
                $ss__email = db_result(db_query("SELECT mail FROM {whitelist_comment} WHERE mail = '%s'", $a1->mail));
                if (empty($ss__email)) {
                  db_query("INSERT INTO {whitelist_comment} VALUES (whitelist_id, '%s')", $a1->mail);
                }
            }
            break;
        case 'insert':
            global $user;
            if ($user->uid == 0) {
                $ss__email = db_result(db_query("SELECT mail FROM {whitelist_comment} WHERE mail = '%s'", $a1['mail']));
          if (!empty($ss__email)) {
            db_query("UPDATE {comments} SET status = 0 WHERE mail = '%s'", $ss__email);
          }
            }
            break;    
    }
}


/**
 * whitelist_comment_list
 * 
 * List all the whitelisted emails
 * 
 * @author Drupal Developer <http://twitter.com/DrupalD>
 */
function whitelist_comment_list() {
    drupal_set_title(t('White list'));
    $header = array(t('Email'), t('Operation'));
    $r__result = db_query("SELECT * FROM {whitelist_comment}");
    while ($om__result = db_fetch_object($r__result)) {
        $row[] = array(
          $om__result->mail,
          l(t('Remove'), 'whitelist/'. $om__result->whitelist_id .'/delete'),
        );
    }
    return theme('table', $header, $row);
}



/**
 * whitelist_comment_confirm_form
 * 
 * Display a confirmation form to remove the whitelisted email
 * 
 * @param $form_values
 * @param $sn__whitelist_id
 * @author Bhavin H. Joshi <bhvinjosi@joshics.in>
 */
function whitelist_comment_confirm_form($form_values = NULL, $sn__whitelist_id) {
    $form['#submit'] = array('whitelist_comment_confirm_remove');
    $form['whitelist_id'] = array(
      '#type' => 'hidden',
      '#default_value' => $sn__whitelist_id,
    );
    $ss__email = db_result(db_query("SELECT mail FROM {whitelist_comment} WHERE whitelist_id = %d", $sn__whitelist_id));
    $question = t('Are you sure you want to remove white listed email %email?', array('%email' => $ss__email));
    $path = 'admin/content/comment/whitelist';
    $yes = t('Remove');
    return confirm_form($form, $question, $path, NULL, $yes);
}


/**
 * whitelist_comment_confirm_remove
 * 
 * Remove the email after it has been confirmed
 * 
 * @param unknown_type $form
 * @param unknown_type $form_values
 * @author Drupal Developer <http://twitter.com/DrupalD>
 */
function whitelist_comment_confirm_remove($form, $form_values) {
    db_query("DELETE FROM {whitelist_comment} WHERE whitelist_id = %d", $form_values['values']['whitelist_id']);
    drupal_set_message(t('White listed email has been removed successfully'));
    drupal_goto('admin/content/comment/whitelist');
}
?>