comment.module 25.5 KB
Newer Older
1
<?php
2
// $Id$
Dries Buytaert's avatar
 
Dries Buytaert committed
3

Dries Buytaert's avatar
   
Dries Buytaert committed
4
$GLOBALS["cmodes"] = array(1 => "Flat list - collapsed", 2 => "Flat list - expanded", 3 => "Threaded list - collapsed", 4 => "Threaded list - expanded");
Dries Buytaert's avatar
   
Dries Buytaert committed
5
$GLOBALS["corder"] = array(1 => "Date - newest first", 2 => "Date - oldest first");
Dries Buytaert's avatar
   
Dries Buytaert committed
6

Dries Buytaert's avatar
   
Dries Buytaert committed
7
8
9
10
11
12
13
14
15
function comment_help() {
  $output .= "<p>The comment module enables users to submit posts that are directly associated with a piece of content.  These associated posts are called <i>comments</i>.  Comments may be <i>threaded</i>, which means that Drupal keeps track of multiple subconversations around a piece of content.  Threading helps to keep the comment conversation more organized.  Users are presented with several ways to view the comment conversation, and if desired, users may easily choose a <i>flat</i> presentation of comments instead of threaded.  Further, users may choose to order their comments view by <i>newest first</i> or by <i>oldest first</i>.  Finally, users may view a folded list or an expanded list of comments.  Folded limits the comment display to <i>subject</i> only.  Drupal remembers the comment view preference of each user whenever he changes a view setting.</p>";
  $output .= "<p>Since a busy site generates lots of comments, Drupal takes care to present a personalized view of comments for each user.  The home page lists displays the number of read and unread comments for a given post for the current user.  Also, the tracker module (when installed) displays all recent comments on the site.  Finally, comments which the user has not yet read are highlighted with a red star (this graphic may depend on the current theme).</p>";
  $output .= "<p>Comments behave like other user submissions in Drupal.  Specifically, <a href=\"admin.php?mod=system&type=filter\">filters</a> like smileys and HTML work fine if the administrator has enabled them.  Also, throttles are usually enabled to prevent a single user from spamming the web site with too many comments in a short period of time.</p>";
  $output .= "<p>Administrators may control which persons are allowed to submit and administer comments.  These controls appear in the <a href=\"admin.php?mod=user&op=permission\"></a>user permissions</a> administration page.  Additionally, administrators may edit or search through comments on the <a href=\"admin.php?mod=comment\">comments admininistration page<a>, as well as set the default display view for new users.</p>";

  return $output;
}

Dries Buytaert's avatar
   
Dries Buytaert committed
16
function comment_settings($mode, $order, $threshold) {
Dries Buytaert's avatar
   
Dries Buytaert committed
17
18
  global $user;

Dries Buytaert's avatar
   
Dries Buytaert committed
19
20
  if ($user->uid) {
    $user = user_save($user, array("mode" => $mode, "sort" => $order, "threshold" => $threshold));
Dries Buytaert's avatar
   
Dries Buytaert committed
21
22
23
  }
}

Dries Buytaert's avatar
   
Dries Buytaert committed
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
function comment_num_all($nid) {
  $comment = db_fetch_object(db_query("SELECT COUNT(c.nid) AS number FROM node n LEFT JOIN comments c ON n.nid = c.nid WHERE n.nid = '$nid' GROUP BY n.nid"));
  return $comment->number ? $comment->number : 0;
}

function comment_num_new($nid) {
  global $user;

  if ($user->uid) {

    /*
    ** Retrieve the timestamp at which the current user last viewed
    ** the specified node and use this timestamp to find the number
    ** of new comments.
    */

    $history = db_fetch_object(db_query("SELECT timestamp FROM history WHERE uid = '$user->uid' AND nid = '$nid'"));
    $comment = db_fetch_object(db_query("SELECT COUNT(c.nid) AS number FROM node n LEFT JOIN comments c ON n.nid = c.nid WHERE n.nid = '$nid' AND timestamp > '". ($history->timestamp ? $history->timestamp : 0) ."' GROUP BY n.nid"));

    return $comment->number ? $comment->number : 0;
  }
  else {
    return 0;
  }

}

function comment_tag_new($nid) {
  global $user;

  if ($user->uid) {
Dries Buytaert's avatar
   
Dries Buytaert committed
55
56
    $nid = check_query($nid);

Dries Buytaert's avatar
   
Dries Buytaert committed
57
58
59
60
61
62
63
64
65
66
    $result = db_query("SELECT timestamp FROM history WHERE uid = '$user->uid' AND nid = '$nid'");
    if (db_fetch_object($result)) {
      db_query("UPDATE history SET timestamp = '". time() ."' WHERE uid = '$user->uid' AND nid = '$nid'");
    }
    else {
      db_query("INSERT INTO history (uid, nid, timestamp) VALUES ('$user->uid', '$nid', '". time() ."')");
    }
  }
}

Dries Buytaert's avatar
   
Dries Buytaert committed
67
68
69
function comment_is_new($comment) {
  global $user;
  static $date;
Dries Buytaert's avatar
   
Dries Buytaert committed
70

Dries Buytaert's avatar
   
Dries Buytaert committed
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
  if (!$date) {
    if ($user->uid) {
      $history = db_fetch_object(db_query("SELECT timestamp FROM history WHERE uid = '$user->uid' AND nid = '$comment->nid'"));
      $date = $history->timestamp ? $history->timestamp : 0;
    }
    else {
      $date = time();
    }
  }

  if ($comment->timestamp > $date) {
    return 1;
  }
  else {
    return 0;
  }
}

Dries Buytaert's avatar
   
Dries Buytaert committed
89
function comment_access($op, $comment) {
Dries Buytaert's avatar
   
Dries Buytaert committed
90
91
  global $user;

Dries Buytaert's avatar
   
Dries Buytaert committed
92
93
94
95
96
97
98
99
100
101
102
  if ($op == "edit") {

    /*
    ** Authenticated users can edit their comments as long they have
    ** not been replied to.  This, in order to avoid people changing
    ** or revising their statements based on the replies their posts
    ** got. Furthermore, users can't reply to their own comments and
    ** are encouraged to extend their original comment.
    */

    return $user->uid && $user->uid == $comment->uid && comment_num_replies($comment->cid) == 0;
Dries Buytaert's avatar
   
Dries Buytaert committed
103
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
104

Dries Buytaert's avatar
   
Dries Buytaert committed
105
106
107
108
109
110
111
112
113
114
115
}

function comment_form($edit) {
  global $user;

  $form .= "<a name=\"comment\"></a>\n";

  // name field:
  $form .= form_item(t("Your name"), format_name($user));

  // subject field:
Dries Buytaert's avatar
   
Dries Buytaert committed
116
  $form .= form_textfield(t("Subject"), "subject", $edit["subject"], 50, 64);
Dries Buytaert's avatar
   
Dries Buytaert committed
117
118

  // comment field:
Dries Buytaert's avatar
   
Dries Buytaert committed
119
  $form .= form_textarea(t("Comment"), "comment", $edit["comment"] ? $edit["comment"] : $user->signature, 70, 10, t("Allowed HTML tags") .": ". htmlspecialchars(variable_get("allowed_html", "")));
Dries Buytaert's avatar
   
Dries Buytaert committed
120
121

  // preview button:
Dries Buytaert's avatar
   
Dries Buytaert committed
122
  $form .= form_hidden("cid", $edit["cid"]);
Dries Buytaert's avatar
   
Dries Buytaert committed
123
  $form .= form_hidden("pid", $edit["pid"]);
Dries Buytaert's avatar
   
Dries Buytaert committed
124
  $form .= form_hidden("nid", $edit["nid"]);
Dries Buytaert's avatar
   
Dries Buytaert committed
125

Dries Buytaert's avatar
   
Dries Buytaert committed
126
  if (!$edit["comment"]) {
Dries Buytaert's avatar
   
Dries Buytaert committed
127
128
129
130
131
132
133
134
135
136
    $form .= form_submit(t("Preview comment"));
  }
  else {
    $form .= form_submit(t("Preview comment"));
    $form .= form_submit(t("Post comment"));
  }

  return form($form);
}

Dries Buytaert's avatar
   
Dries Buytaert committed
137
138
139
140
141
142
143
144
145
146
147
function comment_edit($cid) {
  global $user;

  $comment = db_fetch_object(db_query("SELECT c.*, u.name, u.uid FROM comments c LEFT JOIN users u ON c.uid = u.uid WHERE c.cid = '$cid'"));

  if (comment_access("edit", $comment)) {
    comment_preview(object2array($comment));
  }
}

function comment_reply($pid, $nid) {
Dries Buytaert's avatar
   
Dries Buytaert committed
148
149
150
  global $theme;

  if ($pid) {
Dries Buytaert's avatar
   
Dries Buytaert committed
151
152
    $comment = db_fetch_object(db_query("SELECT c.*, u.uid, u.name FROM comments c LEFT JOIN users u ON c.uid = u.uid WHERE c.cid = '$pid'"));
    comment_view($comment, t("reply to this comment"));
Dries Buytaert's avatar
   
Dries Buytaert committed
153
154
  }
  else {
Dries Buytaert's avatar
   
Dries Buytaert committed
155
    node_view(node_load(array("nid" => $nid)));
Dries Buytaert's avatar
   
Dries Buytaert committed
156
157
158
159
    $pid = 0;
  }

  if (user_access("post comments")) {
Dries Buytaert's avatar
   
Dries Buytaert committed
160
    $theme->box(t("Reply"), comment_form(array("pid" => $pid, "nid" => $nid)));
Dries Buytaert's avatar
   
Dries Buytaert committed
161
162
163
164
165
166
167
168
169
  }
  else {
    $theme->box(t("Reply"), t("You are not authorized to post comments."));
  }
}

function comment_preview($edit) {
  global $theme, $user;

Dries Buytaert's avatar
   
Dries Buytaert committed
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
  foreach ($edit as $key => $value) {
    $comment->$key = filter($value);
  }

  /*
  ** Attach the user information:
  */

  $comment->uid = $user->uid;
  $comment->name = $user->name;

  /*
  ** Attach the time:
  */

  $comment->timestamp = time();

  /*
  ** Preview the comment:
  */

  comment_view($comment, t("reply to this comment"));
Dries Buytaert's avatar
   
Dries Buytaert committed
192
193

  $theme->box(t("Reply"), comment_form($edit));
Kjartan Mannes's avatar
Kjartan Mannes committed
194
195
196
197
198
199
200
201
202

  if ($edit["pid"]) {
    $comment = db_fetch_object(db_query("SELECT c.*, u.uid, u.name FROM comments c LEFT JOIN users u ON c.uid = u.uid WHERE c.cid = '$edit[pid]'"));
    comment_view($comment, t("reply to this comment"));
  }
  else {
    node_view(node_load(array("nid" => $edit["nid"])));
    $edit["pid"] = 0;
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
203
204
205
206
207
208
209
}

function comment_post($edit) {
  global $theme, $user;

  if (user_access("post comments")) {

Dries Buytaert's avatar
   
Dries Buytaert committed
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
    /*
    ** Validate the comment's subject.  If not specified, extract
    ** one from the comment's body.
    */

    $edit["subject"] = strip_tags(($edit["subject"] ? $edit["subject"] : substr($edit["comment"], 0, 29)));

    /*
    ** Validate the comment's body.
    */

    $edit["comment"] = filter($edit["comment"]);

    /*
    ** Check for duplicate comments.  Note that we have to use the
    ** validated/filtered data to perform such check.
    */

Dries Buytaert's avatar
   
Dries Buytaert committed
228
    $duplicate = db_result(db_query("SELECT COUNT(cid) FROM comments WHERE pid = '". check_query($edit["pid"]) ."' AND nid = '". check_query($edit["nid"]) ."' AND subject = '". check_query($edit["subject"]) ."' AND comment = '". check_query($edit["comment"]) ."'"), 0);
Dries Buytaert's avatar
   
Dries Buytaert committed
229
230

    if ($duplicate != 0) {
Dries Buytaert's avatar
   
Dries Buytaert committed
231
      watchdog("warning", "comment: duplicate '". $edit["subject"] ."'");
Dries Buytaert's avatar
   
Dries Buytaert committed
232
233
234
    }
    else {

Dries Buytaert's avatar
   
Dries Buytaert committed
235
      if ($edit["cid"]) {
Dries Buytaert's avatar
   
Dries Buytaert committed
236

Dries Buytaert's avatar
   
Dries Buytaert committed
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
        /*
        ** Update the comment in the database.  Note that the update
        ** query will fail if the comment isn't owned by the current
        ** user.
        */

        db_query("UPDATE comments SET subject = '". check_query($edit["subject"]) ."', comment = '". check_query($edit["comment"]) ."' WHERE cid = '". check_query($edit["cid"]) ."' AND uid = '$user->uid'");

        /*
        ** Add entry to the watchdog log:
        */

        watchdog("special", "comment: updated '". $edit["subject"] ."'");
      }
      else {
        /*
        ** Check the user's comment submission rate.  If exceeded,
        ** throttle() will bail out.
        */

        throttle("post comment", variable_get("max_comment_rate", 60));

        /*
        ** Add the comment to database:
        */

        db_query("INSERT INTO comments (nid, pid, uid, subject, comment, hostname, timestamp) VALUES ('". check_query($edit["nid"]) ."', '". check_query($edit["pid"]) ."', '$user->uid', '". check_query($edit["subject"]) ."', '". check_query($edit["comment"]) ."', '". getenv("REMOTE_ADDR") ."', '". time() ."')");

        /*
        ** Add entry to the watchdog log:
        */
Dries Buytaert's avatar
   
Dries Buytaert committed
268

Dries Buytaert's avatar
   
Dries Buytaert committed
269
270
        watchdog("special", "comment: added '". $edit["subject"] ."'");
      }
Dries Buytaert's avatar
   
Dries Buytaert committed
271
272
273
274

      /*
      ** Clear the cache:
      */
Dries Buytaert's avatar
   
Dries Buytaert committed
275
276

      cache_clear();
Dries Buytaert's avatar
   
Dries Buytaert committed
277

Dries Buytaert's avatar
   
Dries Buytaert committed
278
279
    }
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
280
281
282
283
284
285
286
287

  /*
  ** Redirect the user the node he commented on:
  */

  $url = "node.php?id=". $edit["nid"];
  drupal_goto($url);

Dries Buytaert's avatar
   
Dries Buytaert committed
288
289
}

Dries Buytaert's avatar
   
Dries Buytaert committed
290
function comment_num_replies($id) {
Dries Buytaert's avatar
   
Dries Buytaert committed
291
292
293
294
295
296
297
298
299

  $result = db_query("SELECT COUNT(cid) FROM comments WHERE pid = '$id'");
  return ($result) ? db_result($result, 0) : 0;

}

function comment_moderation($comment) {
  global $user;

Dries Buytaert's avatar
   
Dries Buytaert committed
300
301
302
  // XXX: disabled for now
  return "";

Dries Buytaert's avatar
   
Dries Buytaert committed
303
  $values = array("--", "1", "2", "3", "4", "5");
Dries Buytaert's avatar
   
Dries Buytaert committed
304
305
306
307
308
309
310

  $moderate = db_fetch_object(db_query("SELECT * FROM moderate WHERE cid = '$comment->cid' AND uid = '$user->uid'"));

  foreach ($values as $key => $value) {
    $options .= " <option value=\"$key\"". ($moderate->score == $key ? " selected=\"selected\"" : "") .">$value</option>\n";
  }

Dries Buytaert's avatar
   
Dries Buytaert committed
311
  $output .= "<select name=\"moderate[comment][$comment->cid]\">$options</select><br />". ($comment->score ? $comment->score : "--") ." / $comment->votes";
Dries Buytaert's avatar
   
Dries Buytaert committed
312
313
314
315
316

  return $output;
}

function comment_threshold($threshold) {
Dries Buytaert's avatar
   
Dries Buytaert committed
317
318
319
  // XXX: disabled for now
  return "";

Dries Buytaert's avatar
   
Dries Buytaert committed
320
  for ($i = 0; $i < 6; $i++) $options .= " <option value=\"$i\"". ($threshold == $i ? " selected=\"selected\"" : "") .">". t("Visibility") ." - $i</option>";
Dries Buytaert's avatar
   
Dries Buytaert committed
321
322
323
324
325
326
  return "<select name=\"threshold\">$options</select>\n";
}

function comment_mode($mode) {
  global $cmodes;

Dries Buytaert's avatar
   
Dries Buytaert committed
327
  foreach ($cmodes as $key => $value) $options .= " <option value=\"$key\"". ($mode == $key ? " selected=\"selected\"" : "") .">$value</option>\n";
Dries Buytaert's avatar
   
Dries Buytaert committed
328
329
330
331
332
333
  return "<select name=\"mode\">$options</select>\n";
}

function comment_order($order) {
  global $corder;

Dries Buytaert's avatar
   
Dries Buytaert committed
334
  foreach ($corder as $key=>$value) $options .= " <option value=\"$key\"". ($order == $key ? " selected=\"selected\"" : "") .">$value</option>\n";
Dries Buytaert's avatar
   
Dries Buytaert committed
335
336
337
  return "<select name=\"order\">$options</select>\n";
}

Dries Buytaert's avatar
   
Dries Buytaert committed
338
function comment_query($nid, $order, $pid = -1) {
Dries Buytaert's avatar
   
Dries Buytaert committed
339

Dries Buytaert's avatar
   
Dries Buytaert committed
340
  $query .= "SELECT c.cid, c.pid, c.nid, c.subject, c.comment, c.timestamp, u.uid, u.name FROM comments c LEFT JOIN users u ON c.uid = u.uid WHERE c.nid = '$nid'";
Dries Buytaert's avatar
   
Dries Buytaert committed
341
342
343
344
345

  if ($pid >= 0) {
    $query .= " AND pid = '$pid'";
  }

Dries Buytaert's avatar
   
Dries Buytaert committed
346
  $query .= " GROUP BY c.cid, c.pid, c.nid, c.subject, c.comment, c.timestamp, u.uid, u.name";
Dries Buytaert's avatar
   
Dries Buytaert committed
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368

  if ($order == 1) {
    $query .= " ORDER BY c.timestamp DESC";
  }
  else if ($order == 2) {
    $query .= " ORDER BY c.timestamp";
  }

  return db_query($query);

}

function comment_visible($comment, $threshold = 0) {
  if ($comment->votes == 0 || $comment->score >= $threshold) {
    return 1;
  }
  else {
    return 0;
  }
}

function comment_links($comment, $return = 1) {
Dries Buytaert's avatar
   
Dries Buytaert committed
369
  global $user, $theme;
Dries Buytaert's avatar
   
Dries Buytaert committed
370

Dries Buytaert's avatar
   
Dries Buytaert committed
371
372
  $links = array();

Dries Buytaert's avatar
   
Dries Buytaert committed
373
  if ($return) {
Dries Buytaert's avatar
   
Dries Buytaert committed
374
    $links[] = "<a href=\"node.php?id=$comment->nid#$comment->cid\"><span style=\"color: $theme->type;\">". t("return") ."</span></a>";
Dries Buytaert's avatar
   
Dries Buytaert committed
375
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
376
377

  if (user_access("administer comments")) {
Dries Buytaert's avatar
   
Dries Buytaert committed
378
    $links[] = "<a href=\"admin.php?mod=comment&op=edit&id=$comment->cid\" title=\"". t("Administer this comment.") ."\"><span style=\"color: $theme->type;\">". t("administer") ."</span></a>";
Dries Buytaert's avatar
   
Dries Buytaert committed
379
380
381
  }

  if (user_access("post comments")) {
Dries Buytaert's avatar
   
Dries Buytaert committed
382
    if (comment_access("edit", $comment)) {
Dries Buytaert's avatar
   
Dries Buytaert committed
383
      $links[] = "<a href=\"module.php?mod=comment&op=edit&id=$comment->cid\" title=\"". t("Make changes to your comment.") ."\"><span style=\"color: $theme->type\">". t("edit your comment") ."</span></a>";
Dries Buytaert's avatar
   
Dries Buytaert committed
384
385
    }
    else {
Dries Buytaert's avatar
   
Dries Buytaert committed
386
      $links[] = "<a href=\"module.php?mod=comment&op=reply&id=$comment->nid&pid=$comment->cid\" title=\"". t("Reply to this comment.") ."\"><span style=\"color: $theme->type;\">". t("reply to this comment") ."</span></a>";
Dries Buytaert's avatar
   
Dries Buytaert committed
387
    }
Dries Buytaert's avatar
   
Dries Buytaert committed
388
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
389

Dries Buytaert's avatar
   
Dries Buytaert committed
390

Dries Buytaert's avatar
   
Dries Buytaert committed
391
  return $theme->links($links);
Dries Buytaert's avatar
   
Dries Buytaert committed
392
393
394
}

function comment_view($comment, $folded = 0) {
Dries Buytaert's avatar
   
Dries Buytaert committed
395
396
397
  global $theme, $id;

  if (comment_is_new($comment)) {
Dries Buytaert's avatar
   
Dries Buytaert committed
398
    $comment->subject = "$comment->subject <span style=\"color: red;\">*</span>";
Dries Buytaert's avatar
   
Dries Buytaert committed
399
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
400
401
402
403
404

  if ($folded) {
    $theme->comment($comment, $folded);
  }
  else {
Dries Buytaert's avatar
   
Dries Buytaert committed
405
    print "<a href=\"node.php?id=$comment->nid&cid=$comment->cid#$comment->cid\">". check_output($comment->subject) ."</a> by ". format_name($comment) ."</small><p />";
Dries Buytaert's avatar
   
Dries Buytaert committed
406
407
408
  }
}

Dries Buytaert's avatar
   
Dries Buytaert committed
409
function comment_thread_min($comments, $threshold, $pid = 0) {
Dries Buytaert's avatar
   
Dries Buytaert committed
410
411
  global $user;

Dries Buytaert's avatar
   
Dries Buytaert committed
412
413
414
415
416
417
418
  foreach ($comments as $comment) {
    if ($comment->pid == $pid) {
      print "<ul>";
      print comment_view($comment);
      comment_thread_min($comments, $threshold, $comment->cid);
      print "</ul>";
    }
Dries Buytaert's avatar
   
Dries Buytaert committed
419
420
421
  }
}

Dries Buytaert's avatar
   
Dries Buytaert committed
422
function comment_thread_max($comments, $threshold, $pid = 0, $level = 0) {
Dries Buytaert's avatar
   
Dries Buytaert committed
423
424
425
426
427
428
429
430
431
432
433
  global $user;

  /*
  ** We had quite a few browser specific issues: expanded comments below
  ** the top level got truncated on the right hand side.  A range of
  ** solutions have been proposed and tried but either the right margins of
  ** the comments didn't line up well, or the heavily nested tables made
  ** for slow rendering and cluttered HTML.  This is the best work-around
  ** in terms of speed and size.
  */

Dries Buytaert's avatar
   
Dries Buytaert committed
434
435
436
  foreach ($comments as $comment) {
    if ($comment->pid == $pid) {
      print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td width=\"". ($level * 25) ."\">&nbsp;</td><td>\n";
Dries Buytaert's avatar
   
Dries Buytaert committed
437
      comment_view($comment, comment_links($comment, 0));
Dries Buytaert's avatar
   
Dries Buytaert committed
438
      print "</td></tr></table>\n";
Dries Buytaert's avatar
   
Dries Buytaert committed
439

Dries Buytaert's avatar
   
Dries Buytaert committed
440
441
      comment_thread_max($comments, $threshold, $comment->cid, $level + 1);
    }
Dries Buytaert's avatar
   
Dries Buytaert committed
442
443
444
445
  }

}

Dries Buytaert's avatar
   
Dries Buytaert committed
446
function comment_render($nid, $cid) {
Dries Buytaert's avatar
   
Dries Buytaert committed
447
448
449
450
451
452
453
454
  global $user, $theme, $mode, $order, $threshold, $REQUEST_URI;

  if (user_access("access comments")) {

    /*
    ** Pre-process variables:
    */

Dries Buytaert's avatar
   
Dries Buytaert committed
455
456
    if (empty($nid)) {
      $nid = 0;
Dries Buytaert's avatar
   
Dries Buytaert committed
457
458
459
460
461
462
463
    }

    if (empty($cid)) {
      $cid = 0;
    }

    if (empty($mode)) {
Dries Buytaert's avatar
   
Dries Buytaert committed
464
      $mode = $user->uid ? $user->mode : variable_get("default_comment_mode", 4);
Dries Buytaert's avatar
   
Dries Buytaert committed
465
466
467
    }

    if (empty($order)) {
Dries Buytaert's avatar
   
Dries Buytaert committed
468
      $order = $user->uid ? $user->sort : variable_get("default_comment_order", 1);
Dries Buytaert's avatar
   
Dries Buytaert committed
469
470
471
    }

    if (empty($threshold)) {
Dries Buytaert's avatar
   
Dries Buytaert committed
472
473
      // $threshold = $user->uid ? $user->threshold : variable_get("default_comment_threshold", 3);
      $threshold = 0;
Dries Buytaert's avatar
   
Dries Buytaert committed
474
475
476
477
478
479
480
481
482
483
484
485
    }

    print "<a name=\"comment\"></a>\n";
    print "<form method=\"post\" action=\"$REQUEST_URI\">\n";

    /*
    ** Render control panel:
    */

    $theme->box(t("Control panel"), $theme->comment_controls($threshold, $mode, $order));

    if ($cid > 0) {
Dries Buytaert's avatar
   
Dries Buytaert committed
486
      $result = db_query("SELECT c.cid, c.pid, c.nid, c.subject, c.comment, c.timestamp, u.uid, u.name FROM comments c LEFT JOIN users u ON c.uid = u.uid WHERE c.cid = '$cid' GROUP BY c.cid, c.pid, c.nid, c.subject, c.comment, c.timestamp, u.uid, u.name");
Dries Buytaert's avatar
   
Dries Buytaert committed
487
488
489
490
491
492
      if ($comment = db_fetch_object($result)) {
        comment_view($comment, comment_links($comment));
      }
    }
    else {
      if ($mode == 1) {
Dries Buytaert's avatar
   
Dries Buytaert committed
493
        $result = comment_query($nid, $order);
Dries Buytaert's avatar
   
Dries Buytaert committed
494
495
496
497
        print "<table border=\"0\" cellpadding=\"2\" cellspacing=\"2\">\n";
        print " <tr><th>Subject</th><th>Author</th><th>Date</th><th>Score</th></tr>\n";
        while ($comment = db_fetch_object($result)) {
          if (comment_visible($comment, $threshold)) {
Dries Buytaert's avatar
   
Dries Buytaert committed
498
            print " <tr><td><a href=\"node.php?id=$comment->nid&cid=$comment->cid#$comment->cid\">". check_output($comment->subject) ."</a></td><td>". format_name($comment) ."</td><td>". format_date($comment->timestamp, "small") ."</td><td>$comment->score</td></tr>\n";
Dries Buytaert's avatar
   
Dries Buytaert committed
499
500
501
502
503
          }
        }
        print "</table>\n";
      }
      else if ($mode == 2) {
Dries Buytaert's avatar
   
Dries Buytaert committed
504
        $result = comment_query($nid, $order);
Dries Buytaert's avatar
   
Dries Buytaert committed
505
506
507
508
509
        while ($comment = db_fetch_object($result)) {
          comment_view($comment, (comment_visible($comment, $threshold) ? comment_links($comment, 0) : 0));
        }
      }
      else if ($mode == 3) {
Dries Buytaert's avatar
   
Dries Buytaert committed
510
        $result = comment_query($nid, $order);
Dries Buytaert's avatar
   
Dries Buytaert committed
511
        while ($comment = db_fetch_object($result)) {
Dries Buytaert's avatar
   
Dries Buytaert committed
512
513
514
515
          $comments[] = $comment;
        }

        if ($comments) {
Dries Buytaert's avatar
   
Dries Buytaert committed
516
          comment_thread_min($comments, $threshold);
Dries Buytaert's avatar
   
Dries Buytaert committed
517
518
519
        }
      }
      else {
Dries Buytaert's avatar
   
Dries Buytaert committed
520
        $result = comment_query($nid, $order);
Dries Buytaert's avatar
   
Dries Buytaert committed
521
        while ($comment = db_fetch_object($result)) {
Dries Buytaert's avatar
   
Dries Buytaert committed
522
523
524
525
          $comments[] = $comment;
        }

        if ($comments) {
Dries Buytaert's avatar
   
Dries Buytaert committed
526
          comment_thread_max($comments, $threshold);
Dries Buytaert's avatar
   
Dries Buytaert committed
527
528
529
530
531
532
        }
      }
    }

    print "</form>";

Dries Buytaert's avatar
   
Dries Buytaert committed
533
534
535
536
537
    /*
    ** Tag the node's comments as being read:
    */

    comment_tag_new($nid);
Dries Buytaert's avatar
   
Dries Buytaert committed
538
539
540
  }
}

Dries Buytaert's avatar
   
Dries Buytaert committed
541
function comment_search($keys) {
Dries Buytaert's avatar
   
Dries Buytaert committed
542
  global $PHP_SELF;
Kjartan Mannes's avatar
Kjartan Mannes committed
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567

  // Return the results of performing a search using the indexed search
  // for this particular type of node.
  //
  // Pass an array to the "do_search" function which dictates what it
  // will search through, and what it will search for
  //
  // "keys"'s value is the keywords entered by the user
  //
  // "type"'s value is used to identify the node type in the search
  // index.
  //
  // "select"'s value is used to relate the data from the specific nodes
  // table to the data that the search_index table has in it, and the the 
  // do_search functino will rank it.
  //
  // The select must always provide the following fields - lno, title, 
  // created, uid, name, count
  //
  // The select statement may optionally provide "nid", which is a secondary
  // identifier which is currently used byt the comment module.
  //
  $find = do_search(array("keys" => $keys,
                          "type" => "comment",
                          "select" => "select s.lno as lno, c.nid as nid, c.subject as title, c.timestamp as created, u.uid as uid, u.name as name, s.count as count FROM search_index s, comments c LEFT JOIN users u ON c.uid = u.uid WHERE s.lno = c.cid AND s.type = 'comment' AND s.word like '%'"));
568
  
Dries Buytaert's avatar
   
Dries Buytaert committed
569
570
  return $find;
}
Dries Buytaert's avatar
 
Dries Buytaert committed
571

Dries Buytaert's avatar
   
Dries Buytaert committed
572
function comment_perm() {
Dries Buytaert's avatar
   
Dries Buytaert committed
573
574
575
  return array("access comments", "post comments", "administer comments");
}

Dries Buytaert's avatar
   
Dries Buytaert committed
576
function comment_link($type, $node = 0, $main = 0) {
Dries Buytaert's avatar
   
Dries Buytaert committed
577

Dries Buytaert's avatar
   
Dries Buytaert committed
578
  if ($type == "admin" && user_access("administer comments")) {
Dries Buytaert's avatar
   
Dries Buytaert committed
579
580
581
    $links[] = "<a href=\"admin.php?mod=comment\">comments</a>";
  }

Dries Buytaert's avatar
   
Dries Buytaert committed
582
  if ($type == "node" && $node->comment) {
Dries Buytaert's avatar
   
Dries Buytaert committed
583
584
585
586
587
588
589
590

    if ($main) {

      /*
      ** Main page: display the number of comments that have been posted.
      */

      if (user_access("access comments")) {
Dries Buytaert's avatar
   
Dries Buytaert committed
591
592
593
        $all = comment_num_all($node->nid);
        $new = comment_num_new($node->nid);

Dries Buytaert's avatar
   
Dries Buytaert committed
594
        $links[] = "<a href=\"node.php?id=$node->nid#comment\" title=\"". t("View this posting and all of its comments.") ."\">". format_plural($all, "comment", "comments") . ($new ? ", $new ". t("new") : "") ."</a>";
Dries Buytaert's avatar
   
Dries Buytaert committed
595
596
597
598
599
600
601
602
603
      }
    }
    else {
      /*
      ** Node page: add a "post comment" link if the user is allowed to
      ** post comments.
      */

      if (user_access("post comments")) {
Dries Buytaert's avatar
   
Dries Buytaert committed
604
        $links[] = "<a href=\"module.php?mod=comment&op=reply&id=$node->nid#comment\" title=\"". t("Share your thoughts and opinions related to this posting.") ."\">". t("add new comment") ."</a>";
Dries Buytaert's avatar
   
Dries Buytaert committed
605
606
607
608
      }
    }
  }

Dries Buytaert's avatar
   
Dries Buytaert committed
609
  return $links ? $links : array();
Dries Buytaert's avatar
   
Dries Buytaert committed
610
611
}

Dries Buytaert's avatar
   
Dries Buytaert committed
612
613
function comment_node_link($node) {

Dries Buytaert's avatar
Dries Buytaert committed
614
  if (user_access("administer comments") && comment_num_all($node->nid)) {
Dries Buytaert's avatar
   
Dries Buytaert committed
615

Dries Buytaert's avatar
   
Dries Buytaert committed
616
617
618
    /*
    ** Edit comments:
    */
Dries Buytaert's avatar
   
Dries Buytaert committed
619

Dries Buytaert's avatar
   
Dries Buytaert committed
620
    $result = db_query("SELECT c.cid, c.subject, u.uid, u.name FROM comments c LEFT JOIN users u ON u.uid = c.uid WHERE nid = '$node->nid' ORDER BY c.timestamp");
Dries Buytaert's avatar
   
Dries Buytaert committed
621

Dries Buytaert's avatar
   
Dries Buytaert committed
622
623
624
625
626
627
628
629
630
631
632
633
    $output .= "<h3>". t("Edit comments") ."</h3>";
    $output .= "<table border=\"1\" cellpadding=\"2\" cellspacing=\"2\">";
    $output .= " <tr><th>title</th><th>author</th><th colspan=\"3\">operations</th></tr>";

    while ($comment = db_fetch_object($result)) {
      $output .= "<tr><td><a href=\"node.php?id=$node->nid&cid=$comment->cid#$comment->cid\">$comment->subject</a></td><td>". format_name($comment) ."</td><td><a href=\"node.php?id=$node->nid&cid=$comment->cid#$comment->cid\">". t("view comment") ."</a></td><td><a href=\"admin.php?mod=comment&op=edit&id=$comment->cid\">". t("edit comment") ."</a></td><td><a href=\"admin.php?mod=comment&op=delete&id=$comment->cid\">". t("delete comment") ."</a></td></tr>";
    }

    $output .= "</table>";

    return $output;
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
634
635
}

Dries Buytaert's avatar
   
Dries Buytaert committed
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671

function comment_save($id, $edit) {
  db_query("UPDATE comments SET subject = '". check_query(filter($edit["subject"])) ."', comment = '". check_query(filter($edit["comment"])) ."' WHERE cid = '$id'");
  watchdog("special", "comment: modified '". $edit["subject"] ."'");
}

function comment_page() {
  global $theme, $op, $edit, $id, $pid, $cid;

  switch ($op) {
    case "edit":
      $theme->header();
      comment_edit(check_query($id));
      $theme->footer();
      break;
    case "reply":
      $theme->header();
      comment_reply(check_query($pid), check_query($id));
      $theme->footer();
      break;
    case t("Preview comment"):
      $theme->header();
      comment_preview($edit);
      $theme->footer();
      break;
    case t("Post comment"):
      comment_post($edit);
      break;
    case t("Update settings"):
      comment_settings(check_query($mode), check_query($order), check_query($threshold));
      break;
    default:
  }
}

function comment_admin_edit($id) {
Dries Buytaert's avatar
   
Dries Buytaert committed
672

Dries Buytaert's avatar
   
Dries Buytaert committed
673
  $result = db_query("SELECT c.*, u.name, u.uid FROM comments c LEFT JOIN users u ON c.uid = u.uid WHERE c.cid = '$id'");
Dries Buytaert's avatar
 
Dries Buytaert committed
674
675
  $comment = db_fetch_object($result);

Dries Buytaert's avatar
   
Dries Buytaert committed
676
  $form .= form_item(t("Author"), format_name($comment));
Dries Buytaert's avatar
   
Dries Buytaert committed
677
678
  $form .= form_textfield(t("Subject"), "subject", $comment->subject, 70, 128);
  $form .= form_textarea(t("Comment"), "comment", $comment->comment, 70, 15);
Dries Buytaert's avatar
   
Dries Buytaert committed
679
  $form .= form_hidden("cid", $id);
Dries Buytaert's avatar
   
Dries Buytaert committed
680
  $form .= form_submit(t("Submit"));
Dries Buytaert's avatar
   
Dries Buytaert committed
681
  $form .= form_submit(t("Delete"));
Dries Buytaert's avatar
 
Dries Buytaert committed
682

Dries Buytaert's avatar
   
Dries Buytaert committed
683
  return form($form);
Dries Buytaert's avatar
 
Dries Buytaert committed
684
685
}

Dries Buytaert's avatar
   
Dries Buytaert committed
686
function comment_admin_overview() {
Dries Buytaert's avatar
   
Dries Buytaert committed
687
  $result = db_query("SELECT c.*, u.name, u.uid FROM comments c LEFT JOIN users u ON u.uid = c.uid ORDER BY timestamp DESC LIMIT 50");
Dries Buytaert's avatar
   
Dries Buytaert committed
688

Dries Buytaert's avatar
   
Dries Buytaert committed
689
690
  $output .= "<table border=\"1\" cellpadding=\"2\" cellspacing=\"2\">\n";
  $output .= " <tr><th>subject</th><th>author</th><th>date</th><th colspan=\"2\">operations</th></tr>\n";
Dries Buytaert's avatar
 
Dries Buytaert committed
691
  while ($comment = db_fetch_object($result)) {
Dries Buytaert's avatar
   
Dries Buytaert committed
692
    $output .= " <tr><td><a href=\"node.php?id=$comment->nid&cid=$comment->cid&pid=$comment->pid#$comment->cid\">". check_output($comment->subject) ."</a></td><td>". format_name($comment) ."</td><td>". format_date($comment->timestamp, "small") ."</td><td><a href=\"admin.php?mod=comment&op=edit&id=$comment->cid\">edit comment</a></td><td><a href=\"admin.php?mod=comment&op=delete&id=$comment->cid\">delete comment</a></td></tr>\n";
Dries Buytaert's avatar
 
Dries Buytaert committed
693
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
694
  $output .= "</table>\n";
Dries Buytaert's avatar
   
Dries Buytaert committed
695

Dries Buytaert's avatar
   
Dries Buytaert committed
696
  return $output;
Dries Buytaert's avatar
 
Dries Buytaert committed
697
698
}

Dries Buytaert's avatar
   
Dries Buytaert committed
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
function comment_delete($edit) {

  if ($edit["confirm"]) {
    db_query("DELETE FROM comments WHERE cid = '". check_query($edit["cid"]) ."'");
    watchdog("special", "comment: deleted comment #". $edit["cid"]);
  }
  else {
    $output .= form_item(t("Confirm deletion"), "");
    $output .= form_hidden("cid", $edit["cid"]);
    $output .= form_hidden("confirm", 1);
    $output .= form_submit(t("Delete"));
    $output = form($output);
  }

  return $output;
Dries Buytaert's avatar
   
Dries Buytaert committed
714
715
}

Dries Buytaert's avatar
 
Dries Buytaert committed
716
function comment_admin() {
Dries Buytaert's avatar
   
Dries Buytaert committed
717
  global $op, $id, $edit, $mod, $keys, $order;
Dries Buytaert's avatar
 
Dries Buytaert committed
718

Dries Buytaert's avatar
   
Dries Buytaert committed
719
  if (user_access("administer comments")) {
Dries Buytaert's avatar
   
Dries Buytaert committed
720

Dries Buytaert's avatar
   
Dries Buytaert committed
721
    print "<small><a href=\"admin.php?mod=comment\">overview</a> | <a href=\"admin.php?mod=comment&op=search\">search comment</a></small><hr />\n";
Dries Buytaert's avatar
   
Dries Buytaert committed
722
723
724

    switch ($op) {
      case "edit":
Dries Buytaert's avatar
   
Dries Buytaert committed
725
        print comment_admin_edit($id);
Dries Buytaert's avatar
   
Dries Buytaert committed
726
727
        break;
      case "search":
Dries Buytaert's avatar
   
Dries Buytaert committed
728
        print search_type("comment", "admin.php?mod=comment&op=search");
Dries Buytaert's avatar
   
Dries Buytaert committed
729
        break;
Dries Buytaert's avatar
   
Dries Buytaert committed
730
      case "delete":
Dries Buytaert's avatar
   
Dries Buytaert committed
731
732
733
734
        print comment_delete(array("cid" => $id));
        break;
      case t("Delete"):
        print comment_delete($edit);
Dries Buytaert's avatar
   
Dries Buytaert committed
735
        break;
Dries Buytaert's avatar
   
Dries Buytaert committed
736
      case t("Submit"):
Dries Buytaert's avatar
   
Dries Buytaert committed
737
        print status(comment_save(check_query($id), $edit));
Dries Buytaert's avatar
   
Dries Buytaert committed
738
        print comment_admin_overview();
Dries Buytaert's avatar
   
Dries Buytaert committed
739
740
        break;
      default:
Dries Buytaert's avatar
   
Dries Buytaert committed
741
        print comment_admin_overview();
Dries Buytaert's avatar
   
Dries Buytaert committed
742
743
744
745
    }
  }
  else {
    print message_access();
Dries Buytaert's avatar
 
Dries Buytaert committed
746
747
  }
}
Dries Buytaert's avatar
   
Dries Buytaert committed
748

Kjartan Mannes's avatar
Kjartan Mannes committed
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
function comment_update_index() {

  // Return an array of values to dictate how to update the search index
  // for this particular type of node.
  //
  // "last_update"'s value is used with variable_set to set the 
  // last time this node type (comment) had an index update run.
  //
  // "node_type"'s value is used to identify the node type in the search
  // index (commentt in this case).
  //
  // "select"'s value is used to select the node id and text fields from
  // the table we are indexing. In this case, we also check against the 
  // last run date for the comments update.
  return array("last_update" => "comment_cron_last",
764
765
         "node_type" => "comment",
         "select" => "SELECT c.cid as lno, c.subject as text1, c.comment as text2 FROM comments c WHERE timestamp > ". variable_get("comment_cron_last", 1));
Kjartan Mannes's avatar
Kjartan Mannes committed
766
767
}

Dries Buytaert's avatar
   
Dries Buytaert committed
768
?>