xref: /webtrees/app/Module/UserMessagesModule.php (revision c9aedfee207b0d58d8f5f9c94605a95e3542b9de)
1<?php
2/**
3 * webtrees: online genealogy
4 * Copyright (C) 2016 webtrees development team
5 * This program is free software: you can redistribute it and/or modify
6 * it under the terms of the GNU General Public License as published by
7 * the Free Software Foundation, either version 3 of the License, or
8 * (at your option) any later version.
9 * This program is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 * GNU General Public License for more details.
13 * You should have received a copy of the GNU General Public License
14 * along with this program. If not, see <http://www.gnu.org/licenses/>.
15 */
16namespace Fisharebest\Webtrees\Module;
17
18use Fisharebest\Webtrees\Auth;
19use Fisharebest\Webtrees\Database;
20use Fisharebest\Webtrees\Filter;
21use Fisharebest\Webtrees\Functions\FunctionsDate;
22use Fisharebest\Webtrees\Functions\FunctionsEdit;
23use Fisharebest\Webtrees\I18N;
24use Fisharebest\Webtrees\Theme;
25use Fisharebest\Webtrees\User;
26
27/**
28 * Class UserMessagesModule
29 */
30class UserMessagesModule extends AbstractModule implements ModuleBlockInterface {
31	/** {@inheritdoc} */
32	public function getTitle() {
33		return /* I18N: Name of a module */ I18N::translate('Messages');
34	}
35
36	/** {@inheritdoc} */
37	public function getDescription() {
38		return /* I18N: Description of the “Messages” module */ I18N::translate('Communicate directly with other users, using private messages.');
39	}
40
41	/**
42	 * This is a general purpose hook, allowing modules to respond to routes
43	 * of the form module.php?mod=FOO&mod_action=BAR
44	 *
45	 * @param string $mod_action
46	 */
47	public function modAction($mod_action) {
48		switch ($mod_action) {
49		case 'delete':
50			$stmt = Database::prepare("DELETE FROM `##message` WHERE user_id = :user_id AND message_id = :message_id");
51
52			foreach (Filter::postArray('message_id') as $id) {
53				$stmt->execute([
54					'message_id' => $id,
55					'user_id'    => Auth::id(),
56				]);
57			}
58		}
59
60		$ged   = Filter::post('ged');
61		$ctype = Filter::post('ctype', 'user|gedcom', 'user');
62
63		header('Location: ' . WT_BASE_URL . 'index.php?ged=' . Filter::escapeUrl($ged) . '&ctype=' . $ctype);
64	}
65
66	/**
67	 * Generate the HTML content of this block.
68	 *
69	 * @param int      $block_id
70	 * @param bool     $template
71	 * @param string[] $cfg
72	 *
73	 * @return string
74	 */
75	public function getBlock($block_id, $template = true, $cfg = []) {
76		global $ctype, $WT_TREE;
77
78		$block = $this->getBlockSetting($block_id, 'block', '1');
79		foreach (['block'] as $name) {
80			if (array_key_exists($name, $cfg)) {
81				$$name = $cfg[$name];
82			}
83		}
84		$messages = Database::prepare("SELECT message_id, sender, subject, body, UNIX_TIMESTAMP(created) AS created FROM `##message` WHERE user_id=? ORDER BY message_id DESC")
85			->execute([Auth::id()])
86			->fetchAll();
87
88		$count = count($messages);
89		$id    = $this->getName() . $block_id;
90		$class = $this->getName() . '_block';
91		$title = I18N::plural('%s message', '%s messages', $count, I18N::number($count));
92		$users = array_filter(User::all(), function (User $user) {
93			return $user->getUserId() !== Auth::id() && $user->getPreference('verified_by_admin') && $user->getPreference('contactmethod') !== 'none';
94		});
95
96		$content = '<form id="messageform" name="messageform" method="post" action="module.php?mod=user_messages&mod_action=delete" onsubmit="return confirm(\'' . I18N::translate('Are you sure you want to delete this message? It cannot be retrieved later.') . '\');">';
97		$content .= '<input type="hidden" name="ged" value="' . $ctype . '">';
98		$content .= '<input type="hidden" name="ctype" value="' . $WT_TREE->getNameHtml() . '">';
99		if ($users) {
100			$content .= '<label for="touser">' . I18N::translate('Send a message') . '</label>';
101			$content .= '<select id="touser" name="touser">';
102			$content .= '<option value="">' . I18N::translate('&lt;select&gt;') . '</option>';
103			foreach ($users as $user) {
104				$content .= sprintf('<option value="%1$s">%2$s - %1$s</option>', Filter::escapeHtml($user->getUserName()), Filter::escapeHtml($user->getRealName()));
105			}
106			$content .= '</select>';
107			$content .= '<input type="button" value="' . I18N::translate('Send') . '" onclick="return message(document.messageform.touser.options[document.messageform.touser.selectedIndex].value, \'messaging2\', \'\');"><br><br>';
108		}
109		if ($messages) {
110			$content .= '<table class="list_table"><tr>';
111			$content .= '<th class="list_label">' . I18N::translate('Delete') . '<br><a href="#" onclick="jQuery(\'#' . $this->getName() . $block_id . ' :checkbox\').prop(\'checked\', true); return false;">' . I18N::translate('All') . '</a></th>';
112			$content .= '<th class="list_label">' . I18N::translate('Subject') . '</th>';
113			$content .= '<th class="list_label">' . I18N::translate('Date sent') . '</th>';
114			$content .= '<th class="list_label">' . I18N::translate('Email address') . '</th>';
115			$content .= '</tr>';
116			foreach ($messages as $message) {
117				$content .= '<tr>';
118				$content .= '<td class="list_value_wrap"><input type="checkbox" name="message_id[]" value="' . $message->message_id . '" id="cb_message' . $message->message_id . '"></td>';
119				$content .= '<td class="list_value_wrap"><a href="#" onclick="return expand_layer(\'message' . $message->message_id . '\');"><i id="message' . $message->message_id . '_img" class="icon-plus"></i> <b dir="auto">' . Filter::escapeHtml($message->subject) . '</b></a></td>';
120				$content .= '<td class="list_value_wrap">' . FunctionsDate::formatTimestamp($message->created + WT_TIMESTAMP_OFFSET) . '</td>';
121				$content .= '<td class="list_value_wrap">';
122				$user = User::findByIdentifier($message->sender);
123				if ($user) {
124					$content .= $user->getRealNameHtml();
125					$content .= '  - <span dir="auto">' . $user->getEmail() . '</span>';
126				} else {
127					$content .= '<a href="mailto:' . Filter::escapeHtml($message->sender) . '">' . Filter::escapeHtml($message->sender) . '</a>';
128				}
129				$content .= '</td>';
130				$content .= '</tr>';
131				$content .= '<tr><td class="list_value_wrap" colspan="4"><div id="message' . $message->message_id . '" style="display:none;">';
132				$content .= '<div dir="auto" style="white-space: pre-wrap;">' . Filter::expandUrls($message->body) . '</div><br>';
133				if (strpos($message->subject, /* I18N: When replying to an email, the subject becomes “RE: <subject>” */ I18N::translate('RE: ')) !== 0) {
134					$message->subject = I18N::translate('RE: ') . $message->subject;
135				}
136				if ($user) {
137					$content .= '<button type="button" onclick="reply(\'' . Filter::escapeJs($message->sender) . '\', \'' . Filter::escapeJs($message->subject) . '\'); return false;">' . I18N::translate('Reply') . '</button> ';
138				}
139				$content .= '<button type="button" onclick="if (confirm(\'' . I18N::translate('Are you sure you want to delete this message? It cannot be retrieved later.') . '\')) {jQuery(\'#messageform :checkbox\').prop(\'checked\', false); jQuery(\'#cb_message' . $message->message_id . '\').prop(\'checked\', true); document.messageform.submit();}">' . I18N::translate('Delete') . '</button></div></td></tr>';
140			}
141			$content .= '</table>';
142			$content .= '<p><button type="submit">' . I18N::translate('Delete selected messages') . '</button></p>';
143		}
144		$content .= '</form>';
145
146		if ($template) {
147			if ($block) {
148				$class .= ' small_inner_block';
149			}
150
151			return Theme::theme()->formatBlock($id, $title, $class, $content);
152		} else {
153			return $content;
154		}
155	}
156
157	/** {@inheritdoc} */
158	public function loadAjax() {
159		return false;
160	}
161
162	/** {@inheritdoc} */
163	public function isUserBlock() {
164		return true;
165	}
166
167	/** {@inheritdoc} */
168	public function isGedcomBlock() {
169		return false;
170	}
171
172	/**
173	 * An HTML form to edit block settings
174	 *
175	 * @param int $block_id
176	 */
177	public function configureBlock($block_id) {
178		if (Filter::postBool('save') && Filter::checkCsrf()) {
179			$this->setBlockSetting($block_id, 'block', Filter::postBool('block'));
180		}
181
182		$block = $this->getBlockSetting($block_id, 'block', '1');
183		echo '<tr><td class="descriptionbox wrap width33">';
184		echo /* I18N: label for a yes/no option */ I18N::translate('Add a scrollbar when block contents grow');
185		echo '</td><td class="optionbox">';
186		echo FunctionsEdit::editFieldYesNo('block', $block);
187		echo '</td></tr>';
188	}
189}
190