silverstripe-reports/code/CommentAdmin.php

<?php
/**
 * Comment administration system within the CMS
 * @package cms
 * @subpackage comments
 */
class CommentAdmin extends LeftAndMain {

	static $url_segment = 'comments';

	static $url_rule = '/$Action';

	static $menu_title = 'Comments';

	static $allowed_actions = array(
		'approvedmarked',
		'deleteall',
		'deletemarked',
		'hammarked',
		'showtable',
		'spammarked',
		'EditForm',
		'unmoderated'
	);
	
	/**
	 * @var int The number of comments per page for the {@link CommentTable} in this admin.
	 */
	static $comments_per_page = '20';

	public function init() {
		parent::init();

		Requirements::css(CMS_DIR . '/css/CommentAdmin.css');
	}

	public function showtable($params) {
		$form = $this->getEditForm();
		return $form->formHtmlContent();
	}

	public function Section() {
		$url = rtrim($_SERVER['REQUEST_URI'], '/');
		if(strrpos($url, '&')) {
			$url = substr($url, 0, strrpos($url, '&'));
		}
		$section = substr($url, strrpos($url, '/') + 1);

		if($section != 'approved' && $section != 'unmoderated' && $section != 'spam') {
			$section = Session::get('CommentsSection');
		}

		if($section != 'approved' && $section != 'unmoderated' && $section != 'spam') {
			$section = 'approved';
		}

		return $section;
	}

	public function getEditForm($id = null) {
		$section = $this->Section();

		if($section == 'approved') {
			$filter = "\"IsSpam\" = 0 AND \"NeedsModeration\" = 0";
			$title = "<h2>". _t('CommentAdmin.APPROVEDCOMMENTS', 'Approved Comments')."</h2>";
		} else if($section == 'unmoderated') {
			$filter = '"NeedsModeration" = 1';
			$title = "<h2>"._t('CommentAdmin.COMMENTSAWAITINGMODERATION', 'Comments Awaiting Moderation')."</h2>";
		} else {
			$filter = '"IsSpam" = 1';
			$title = "<h2>"._t('CommentAdmin.SPAM', 'Spam')."</h2>";
		}

		$filter .= ' AND "ParentID">0';

		$tableFields = array(
			"Name" => _t('CommentAdmin.AUTHOR', 'Author'),
			"Comment" => _t('CommentAdmin.COMMENT', 'Comment'),
			"Parent.Title" => _t('CommentAdmin.PAGE', 'Page'),
			"CommenterURL" => _t('CommentAdmin.COMMENTERURL', 'URL'),
			"Created" => _t('CommentAdmin.DATEPOSTED', 'Date Posted')
		);

		$popupFields = new FieldSet(
			new TextField('Name', _t('CommentAdmin.NAME', 'Name')),
			new TextField('CommenterURL', _t('CommentAdmin.COMMENTERURL', 'URL')),
			new TextareaField('Comment', _t('CommentAdmin.COMMENT', 'Comment'))
		);

		$idField = new HiddenField('ID', '', $section);
		$table = new CommentTableField($this, "Comments", "PageComment", $section, $tableFields, $popupFields, array($filter), 'Created DESC');
		
		$table->setParentClass(false);
		$table->setFieldCasting(array(
			'Created' => 'SS_Datetime->Full',
			'Comment' => array('HTMLText->LimitCharacters', 150)
		));
		
		$table->setPageSize(self::get_comments_per_page());
		$table->addSelectOptions(array('all'=>'All', 'none'=>'None'));
		$table->Markable = true;
		
		$fields = new FieldSet(
			new LiteralField("Title", $title),
			$idField,
			$table
		);

		$actions = new FieldSet();

		if($section == 'unmoderated') {
			$actions->push(new FormAction('acceptmarked', _t('CommentAdmin.ACCEPT', 'Accept')));
		}

		if($section == 'approved' || $section == 'unmoderated') {
			$actions->push(new FormAction('spammarked', _t('CommentAdmin.SPAMMARKED', 'Mark as spam')));
		}

		if($section == 'spam') {
			$actions->push(new FormAction('hammarked', _t('CommentAdmin.MARKASNOTSPAM', 'Mark as not spam')));
		}

		$actions->push(new FormAction('deletemarked', _t('CommentAdmin.DELETE', 'Delete')));

		if($section == 'spam') {
			$actions->push(new FormAction('deleteall', _t('CommentAdmin.DELETEALL', 'Delete All')));
		}

		$form = new Form($this, "EditForm", $fields, $actions);

		return $form;
	}

	function deletemarked() {
			$numComments = 0;
			$folderID = 0;
			$deleteList = '';

			if($_REQUEST['Comments']) {
				foreach($_REQUEST['Comments'] as $commentid) {
					$comment = DataObject::get_by_id('PageComment', $commentid);
					if($comment) {
						$comment->delete();
						$numComments++;
					}
				}
			} else {
				user_error("No comments in $commentList could be found!", E_USER_ERROR);
			}

			echo <<<JS
				$deleteList
				$('Form_EditForm').getPageFromServer($('Form_EditForm_ID').value);
				statusMessage("Deleted $numComments comments.");
JS;
	}

	function deleteall() {
		$numComments = 0;
		$spam = DataObject::get('PageComment', '"PageComment"."IsSpam" = 1');

		if($spam) {
			$numComments = $spam->Count();

			foreach($spam as $comment) {
				$comment->delete();
			}
		}

		$msg = sprintf(_t('CommentAdmin.DELETED', 'Deleted %s comments.'), $numComments);
		echo <<<JS
				$('Form_EditForm').getPageFromServer($('Form_EditForm_ID').value);
				statusMessage("$msg");
JS;

	}

	function spammarked() {
			$numComments = 0;
			$folderID = 0;
			$deleteList = '';

			if($_REQUEST['Comments']) {
				foreach($_REQUEST['Comments'] as $commentid) {
					$comment = DataObject::get_by_id('PageComment', $commentid);
					if($comment) {
						$comment->IsSpam = true;
						$comment->NeedsModeration = false;
						$comment->write();

						if(SSAkismet::isEnabled()) {
							try {
								$akismet = new SSAkismet();
								$akismet->setCommentAuthor($comment->getField('Name'));
								$akismet->setCommentContent($comment->getField('Comment'));

								$akismet->submitSpam();
							} catch (Exception $e) {
								// Akismet didn't work, most likely the service is down.
							}
						}
						$numComments++;
					}
				}
			} else {
				user_error("No comments in $commentList could be found!", E_USER_ERROR);
			}

			$msg = sprintf(_t('CommentAdmin.MARKEDSPAM', 'Marked %s comments as spam.'), $numComments);
			echo <<<JS
				$deleteList
				$('Form_EditForm').getPageFromServer($('Form_EditForm_ID').value);
				statusMessage("$msg");
JS;
	}

	function hammarked() {
			$numComments = 0;
			$folderID = 0;
			$deleteList = '';

			if($_REQUEST['Comments']) {
				foreach($_REQUEST['Comments'] as $commentid) {
					$comment = DataObject::get_by_id('PageComment', $commentid);
					if($comment) {
						$comment->IsSpam = false;
						$comment->NeedsModeration = false;
						$comment->write();

						if(SSAkismet::isEnabled()) {
							try {
								$akismet = new SSAkismet();
								$akismet->setCommentAuthor($comment->getField('Name'));
								$akismet->setCommentContent($comment->getField('Comment'));

								$akismet->submitSpam();
							} catch (Exception $e) {
								// Akismet didn't work, most likely the service is down.
							}
						}

						$numComments++;
					}
				}
			} else {
				user_error("No comments in $commentList could be found!", E_USER_ERROR);
			}

			$msg = sprintf(_t('CommentAdmin.MARKEDNOTSPAM', 'Marked %s comments as not spam.'), $numComments);
			echo <<<JS
				$deleteList
				$('Form_EditForm').getPageFromServer($('Form_EditForm_ID').value);
				statusMessage("$msg");
JS;
	}

	function acceptmarked() {
			$numComments = 0;
			$folderID = 0;
			$deleteList = '';

			if($_REQUEST['Comments']) {
				foreach($_REQUEST['Comments'] as $commentid) {
					$comment = DataObject::get_by_id('PageComment', $commentid);
					if($comment) {
						$comment->IsSpam = false;
						$comment->NeedsModeration = false;
						$comment->write();
						$numComments++;
					}
				}
			} else {
				user_error("No comments in $commentList could be found!", E_USER_ERROR);
			}

			$msg = sprintf(_t('CommentAdmin.APPROVED', 'Accepted %s comments.'), $numComments);
			echo <<<JS
				$deleteList
				$('Form_EditForm').getPageFromServer($('Form_EditForm_ID').value);
				statusMessage("Accepted $numComments comments.");
JS;
	}

	/**
	 * Return the number of moderated comments
	 */
	function NumModerated() {
		return DB::query("SELECT COUNT(*) FROM \"PageComment\" WHERE \"IsSpam\"=0 AND \"NeedsModeration\"=0")->value();
	}

	/**
	 * Return the number of unmoderated comments
	 */
	function NumUnmoderated() {
		return DB::query("SELECT COUNT(*) FROM \"PageComment\" WHERE \"IsSpam\"=0 AND \"NeedsModeration\"=1")->value();
	}

	/**
	 * Return the number of comments marked as spam
	 */
	function NumSpam() {
		return DB::query("SELECT COUNT(*) FROM \"PageComment\" WHERE \"IsSpam\"=1")->value();
	}
	
	/**
	 * @param $num int
	 */	
	function set_comments_per_page($num){
		self::$comments_per_page = $num;
	}
	
	/**
	 * @return int
	 */
	function get_comments_per_page(){
		return self::$comments_per_page;
	}
}

?>