check_output($comment->subject), "link" => ($PHP_SELF == "/admin.php" ? "admin.php?mod=comment&op=edit&id=$comment->cid" : "node.php?id=$comment->lid&cid=$comment->cid"), "user" => $comment->name, "date" => $comment->timestamp); } return $find; } function comment_perm() { return array("access comments", "post comments", "administer comments"); } function comment_link($type) { if ($type == "admin" and user_access("administer comments")) { $links[] = "comments"; } return $links ? $links : array(); } function comment_edit($id) { global $REQUEST_URI; $result = db_query("SELECT c.*, u.name, u.uid FROM comments c LEFT JOIN user u ON c.author = u.uid WHERE c.cid = '$id'"); $comment = db_fetch_object($result); $form .= form_item(t("Author"), format_name($comment)); $form .= form_textfield(t("Subject"), "subject", $comment->subject, 50, 128); $form .= form_textarea(t("Comment"), "comment", $comment->comment, 50, 10); $form .= form_submit(t("Submit")); return form($REQUEST_URI, $form); } function comment_save($id, $edit) { db_query("UPDATE comments SET subject = '". check_input($edit[subject]) ."', comment = '". check_input($edit[comment]) ."' WHERE cid = '$id'"); watchdog("special", "comment: modified '$edit[subject]'"); } function comment_overview() { $result = db_query("SELECT c.*, u.name, u.uid FROM comments c LEFT JOIN user u ON u.uid = c.author ORDER BY timestamp DESC LIMIT 50"); $output .= "\n"; $output .= " \n"; while ($comment = db_fetch_object($result)) { $output .= " \n"; } $output .= "

subject	author	date	operations
lid&cid=$comment->cid&pid=$comment->pid#$comment->cid\">". check_output($comment->subject) ."	". format_name($comment) ."	". format_date($comment->timestamp, "small") ."	cid\">edit comment	cid\">delete comment

\n"; return $output; } function comment_delete($id) { db_query("DELETE FROM comments WHERE cid = '$id'"); watchdog("special", "comment: deleted '$id'"); } function comment_admin() { global $op, $id, $edit, $mod, $keys, $order; if (user_access("administer comments")) { print "overview | search comment

---

\n"; switch ($op) { case "edit": print comment_edit($id); break; case "search": print search_form($keys); print search_data($keys, $mod); break; case "delete": print comment_delete(check_input($id)); print comment_overview(); break; case t("Submit"): print status(comment_save(check_input($id), $edit)); print comment_overview(); break; default: print comment_overview(); } } else { print message_access(); } } ?>