Dotclear

source: admin/comments.php @ 3263:a2e2eabd0f86

Revision 3263:a2e2eabd0f86, 9.0 KB checked in by franck <carnet.franck.paul@…>, 9 years ago (diff)

Add email and web site filters on comments list (admin), closes #995
Line 
1<?php
2# -- BEGIN LICENSE BLOCK ---------------------------------------
3#
4# This file is part of Dotclear 2.
5#
6# Copyright (c) 2003-2013 Olivier Meunier & Association Dotclear
7# Licensed under the GPL version 2.0 license.
8# See LICENSE file or
9# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html
10#
11# -- END LICENSE BLOCK -----------------------------------------
12
13require dirname(__FILE__).'/../inc/admin/prepend.php';
14
15dcPage::check('usage,contentadmin');
16
17if (!empty($_POST['delete_all_spam']))
18{
19     try {
20          $core->blog->delJunkComments();
21          $_SESSION['comments_del_spam'] = true;
22          $core->adminurl->redirect("admin.comments");
23     } catch (Exception $e) {
24          $core->error->add($e->getMessage());
25     }
26}
27
28# Creating filter combo boxes
29# Filter form we'll put in html_block
30$status_combo = array_merge(
31     array('-' => ''),
32     dcAdminCombos::getCommentStatusescombo()
33);
34
35
36$type_combo = array(
37'-' => '',
38__('Comment') => 'co',
39__('Trackback') => 'tb'
40);
41
42$sortby_combo = array(
43__('Date') => 'comment_dt',
44__('Entry title') => 'post_title',
45__('Author') => 'comment_author',
46__('Status') => 'comment_status'
47);
48
49$order_combo = array(
50__('Descending') => 'desc',
51__('Ascending') => 'asc'
52);
53
54/* Get comments
55-------------------------------------------------------- */
56$author = isset($_GET['author']) ? $_GET['author'] : '';
57$status = isset($_GET['status']) ? $_GET['status'] : '';
58$type   = !empty($_GET['type']) ? $_GET['type'] : '';
59$sortby = !empty($_GET['sortby']) ? $_GET['sortby'] : 'comment_dt';
60$order  = !empty($_GET['order']) ? $_GET['order'] : 'desc';
61$ip     = !empty($_GET['ip']) ? $_GET['ip'] : '';
62$email  = !empty($_GET['email']) ? $_GET['email'] : '';
63$site   = !empty($_GET['site']) ? $_GET['site'] : '';
64
65$with_spam = $author || $status || $type || $sortby != 'comment_dt' || $order != 'desc' || $ip;
66
67$show_filters = false;
68
69$page = !empty($_GET['page']) ? max(1,(integer) $_GET['page']) : 1;
70$nb_per_page =  30;
71
72if (!empty($_GET['nb']) && (integer) $_GET['nb'] > 0) {
73     if ($nb_per_page != $_GET['nb']) {
74          $show_filters = true;
75     }
76     $nb_per_page = (integer) $_GET['nb'];
77}
78
79$params['limit'] = array((($page-1)*$nb_per_page),$nb_per_page);
80$params['no_content'] = true;
81
82# Author filter
83if ($author !== '') {
84     $params['q_author'] = $author;
85     $show_filters = true;
86} else {
87     $author='';
88}
89
90# - Type filter
91if ($type == 'tb' || $type == 'co') {
92     $params['comment_trackback'] = ($type == 'tb');
93     $show_filters = true;
94} else {
95     $type='';
96}
97
98# - Status filter
99if ($status !== '' && in_array($status,$status_combo)) {
100     $params['comment_status'] = $status;
101     $show_filters = true;
102} elseif (!$with_spam) {
103     $params['comment_status_not'] = -2;
104     $status='';
105} else {
106     $status='';
107}
108
109# - IP filter
110if ($ip) {
111     $params['comment_ip'] = $ip;
112     $show_filters = true;
113}
114
115# - email filter
116if ($email) {
117     $params['comment_email'] = $email;
118     $show_filters = true;
119}
120
121# - site filter
122if ($site) {
123     $params['comment_site'] = $site;
124     $show_filters = true;
125}
126
127// Add some sort order if spams displayed
128if ($with_spam || ($status == -2)) {
129     $sortby_combo[__('IP')] = 'comment_ip';
130     $sortby_combo[__('Spam filter')] = 'comment_spam_filter';
131}
132
133# Sortby and order filter
134if ($sortby !== '' && in_array($sortby,$sortby_combo)) {
135     if ($order !== '' && in_array($order,$order_combo)) {
136          $params['order'] = $sortby.' '.$order;
137     } else {
138          $order = 'desc';
139     }
140
141     if ($sortby != 'comment_dt' || $order != 'desc') {
142          $show_filters = true;
143     }
144} else {
145     $sortby = 'comment_dt';
146     $order = 'desc';
147}
148
149# Actions combo box
150$combo_action = array();
151$default = '';
152if ($core->auth->check('delete,contentadmin',$core->blog->id) && $status == -2)
153{
154     $default = 'delete';
155}
156
157$comments_actions_page = new dcCommentsActionsPage($core,$core->adminurl->get("admin.comments"));
158
159if ($comments_actions_page->process()) {
160     return;
161}
162
163/* Get comments
164-------------------------------------------------------- */
165try {
166     $comments = $core->blog->getComments($params);
167     $counter = $core->blog->getComments($params,true);
168     $comment_list = new adminCommentList($core,$comments,$counter->f(0));
169} catch (Exception $e) {
170     $core->error->add($e->getMessage());
171}
172
173/* DISPLAY
174-------------------------------------------------------- */
175
176$form_filter_title = __('Show filters and display options');
177$starting_script  = dcPage::jsLoad('js/_comments.js');
178$starting_script .= dcPage::jsLoad('js/filter-controls.js');
179$starting_script .=
180     '<script type="text/javascript">'."\n".
181     "//<![CDATA["."\n".
182     dcPage::jsVar('dotclear.msg.show_filters', $show_filters ? 'true':'false')."\n".
183     dcPage::jsVar('dotclear.msg.filter_posts_list',$form_filter_title)."\n".
184     dcPage::jsVar('dotclear.msg.cancel_the_filter',__('Cancel filters and display options'))."\n".
185     "//]]>".
186     "</script>";
187
188dcPage::open(__('Comments and trackbacks'),$starting_script,
189     dcPage::breadcrumb(
190          array(
191               html::escapeHTML($core->blog->name) => '',
192               __('Comments and trackbacks') => ''
193          ))
194);
195if (!empty($_GET['upd'])) {
196     dcPage::success(__('Selected comments have been successfully updated.'));
197} elseif (!empty($_GET['del'])) {
198     dcPage::success(__('Selected comments have been successfully deleted.'));
199}
200
201if (!$core->error->flag())
202{
203     if (isset($_SESSION['comments_del_spam'])) {
204          dcPage::message(__('Spam comments have been successfully deleted.'));
205          unset($_SESSION['comments_del_spam']);
206     }
207
208     $spam_count = $core->blog->getComments(array('comment_status'=>-2),true)->f(0);
209     if ($spam_count > 0) {
210
211          echo
212               '<form action="'.$core->adminurl->get("admin.comments").'" method="post" class="fieldset">';
213
214          if (!$with_spam || ($status != -2)) {
215               if ($spam_count == 1) {
216                    echo '<p>'.sprintf(__('You have one spam comment.'),'<strong>'.$spam_count.'</strong>').' '.
217                    '<a href="'.$core->adminurl->get("admin.comments",array('status' => -2)).'">'.__('Show it.').'</a></p>';
218               } elseif ($spam_count > 1) {
219                    echo '<p>'.sprintf(__('You have %s spam comments.'),'<strong>'.$spam_count.'</strong>').' '.
220                    '<a href="'.$core->adminurl->get("admin.comments",array('status' => -2)).'">'.__('Show them.').'</a></p>';
221               }
222          }
223
224          echo
225               '<p>'.
226               $core->formNonce().
227               '<input name="delete_all_spam" class="delete" type="submit" value="'.__('Delete all spams').'" /></p>';
228
229          # --BEHAVIOR-- adminCommentsSpamForm
230          $core->callBehavior('adminCommentsSpamForm',$core);
231
232          echo '</form>';
233     }
234
235     echo
236     '<form action="'.$core->adminurl->get("admin.comments").'" method="get" id="filters-form">'.
237     '<h3 class="hidden">'.__('Filter comments and trackbacks list').'</h3>'.
238     '<div class="table">'.
239
240     '<div class="cell">'.
241     '<h4>'.__('Filters').'</h4>'.
242     '<p><label for="type" class="ib">'.__('Type:').'</label> '.
243     form::combo('type',$type_combo,$type).'</p> '.
244     '<p><label for="status" class="ib">'.__('Status:').'</label> '.
245     form::combo('status',$status_combo,$status).'</p>'.
246     '</div>'.
247
248     '<div class="cell filters-sibling-cell">'.
249     '<p><label for="author" class="ib">'.__('Author:').'</label> '.
250     form::field('author',20,255,html::escapeHTML($author)).'</p>'.
251     '<p><label for="ip" class="ib">'.__('IP address:').'</label> '.
252     form::field('ip',20,39,html::escapeHTML($ip)).'</p>'.
253     '<p><label for="email" class="ib">'.__('Email:').'</label> '.
254     form::field('email',20,255,html::escapeHTML($email)).'</p>'.
255     '<p><label for="site" class="ib">'.__('Web site:').'</label> '.
256     form::field('site',20,255,html::escapeHTML($site)).'</p>'.
257     '</div>'.
258
259     '<div class="cell filters-options">'.
260     '<h4>'.__('Display options').'</h4>'.
261     '<p><label for="sortby" class="ib">'.__('Order by:').'</label> '.
262     form::combo('sortby',$sortby_combo,$sortby).'</p>'.
263     '<p><label for="order" class="ib">'.__('Sort:').'</label> '.
264     form::combo('order',$order_combo,$order).'</p>'.
265     '<p><span class="label ib">'.__('Show').'</span> <label for="nb" class="classic">'.
266     form::field('nb',3,3,$nb_per_page).' '.
267     __('comments per page').'</label></p>'.
268     '</div>'.
269
270     '</div>'.
271     '<p><input type="submit" value="'.__('Apply filters and display options').'" />'.
272     '<br class="clear" /></p>'. //Opera sucks
273     '</form>';
274
275     # Show comments
276     $comment_list->display($page,$nb_per_page,
277     '<form action="'.$core->adminurl->get("admin.comments").'" method="post" id="form-comments">'.
278
279     '%s'.
280
281     '<div class="two-cols">'.
282     '<p class="col checkboxes-helpers"></p>'.
283
284     '<p class="col right"><label for="action" class="classic">'.__('Selected comments action:').'</label> '.
285     form::combo('action',$comments_actions_page->getCombo(),$default,'','','','title="'.__('Actions').'"').
286     $core->formNonce().
287     '<input id="do-action" type="submit" value="'.__('ok').'" /></p>'.
288     form::hidden(array('type'),$type).
289     form::hidden(array('sortby'),$sortby).
290     form::hidden(array('order'),$order).
291     form::hidden(array('author'),html::escapeHTML(preg_replace('/%/','%%',$author))).
292     form::hidden(array('status'),$status).
293     form::hidden(array('ip'),preg_replace('/%/','%%',$ip)).
294     form::hidden(array('page'),$page).
295     form::hidden(array('nb'),$nb_per_page).
296     form::hidden(array('email'),html::escapeHTML(preg_replace('/%/','%%',$email))).
297     form::hidden(array('site'),html::escapeHTML(preg_replace('/%/','%%',$site))).
298     '</div>'.
299
300     '</form>',
301     $show_filters,
302     ($with_spam || ($status == -2))
303     );
304}
305
306dcPage::helpBlock('core_comments');
307dcPage::close();
Note: See TracBrowser for help on using the repository browser.

Sites map