xref: /webtrees/app/Module/UserMessagesModule.php (revision 46bb661f32cdac2ea7c60006b34b13e316578b11)
18c2e8227SGreg Roach<?php
28c2e8227SGreg Roach/**
38c2e8227SGreg Roach * webtrees: online genealogy
41062a142SGreg Roach * Copyright (C) 2018 webtrees development team
58c2e8227SGreg Roach * This program is free software: you can redistribute it and/or modify
68c2e8227SGreg Roach * it under the terms of the GNU General Public License as published by
78c2e8227SGreg Roach * the Free Software Foundation, either version 3 of the License, or
88c2e8227SGreg Roach * (at your option) any later version.
98c2e8227SGreg Roach * This program is distributed in the hope that it will be useful,
108c2e8227SGreg Roach * but WITHOUT ANY WARRANTY; without even the implied warranty of
118c2e8227SGreg Roach * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
128c2e8227SGreg Roach * GNU General Public License for more details.
138c2e8227SGreg Roach * You should have received a copy of the GNU General Public License
148c2e8227SGreg Roach * along with this program. If not, see <http://www.gnu.org/licenses/>.
158c2e8227SGreg Roach */
1676692c8bSGreg Roachnamespace Fisharebest\Webtrees\Module;
1776692c8bSGreg Roach
180e62c4b8SGreg Roachuse Fisharebest\Webtrees\Auth;
190e62c4b8SGreg Roachuse Fisharebest\Webtrees\Database;
200e62c4b8SGreg Roachuse Fisharebest\Webtrees\Filter;
213d7a8a4cSGreg Roachuse Fisharebest\Webtrees\Functions\FunctionsDate;
220e62c4b8SGreg Roachuse Fisharebest\Webtrees\I18N;
23cf700360SGreg Roachuse Fisharebest\Webtrees\Tree;
240e62c4b8SGreg Roachuse Fisharebest\Webtrees\User;
25cf700360SGreg Roachuse Symfony\Component\HttpFoundation\RedirectResponse;
26cf700360SGreg Roachuse Symfony\Component\HttpFoundation\Request;
27cf700360SGreg Roachuse Symfony\Component\HttpFoundation\Response;
288c2e8227SGreg Roach
298c2e8227SGreg Roach/**
308c2e8227SGreg Roach * Class UserMessagesModule
318c2e8227SGreg Roach */
32e2a378d3SGreg Roachclass UserMessagesModule extends AbstractModule implements ModuleBlockInterface {
338c2e8227SGreg Roach	/** {@inheritdoc} */
348c2e8227SGreg Roach	public function getTitle() {
358c2e8227SGreg Roach		return /* I18N: Name of a module */ I18N::translate('Messages');
368c2e8227SGreg Roach	}
378c2e8227SGreg Roach
388c2e8227SGreg Roach	/** {@inheritdoc} */
398c2e8227SGreg Roach	public function getDescription() {
408c2e8227SGreg Roach		return /* I18N: Description of the “Messages” module */ I18N::translate('Communicate directly with other users, using private messages.');
418c2e8227SGreg Roach	}
428c2e8227SGreg Roach
4376692c8bSGreg Roach	/**
44cf700360SGreg Roach	 * Delete one or messages belonging to a user.
452da2404eSGreg Roach	 *
46cf700360SGreg Roach	 * @param Request $request
47cf700360SGreg Roach	 *
48cf700360SGreg Roach	 * @return Response
492da2404eSGreg Roach	 */
50cf700360SGreg Roach	public function postDeleteMessageAction(Request $request): Response {
51cf700360SGreg Roach		/** @var Tree $tree */
52cf700360SGreg Roach		$tree = $request->attributes->get('tree');
53cf700360SGreg Roach
54cf700360SGreg Roach		$message_ids = (array) $request->get('message_id', []);
55cf700360SGreg Roach
562da2404eSGreg Roach		$stmt = Database::prepare("DELETE FROM `##message` WHERE user_id = :user_id AND message_id = :message_id");
572da2404eSGreg Roach
58cf700360SGreg Roach		foreach ($message_ids as $message_id) {
5913abd6f3SGreg Roach			$stmt->execute([
60cf700360SGreg Roach				'message_id' => $message_id,
612da2404eSGreg Roach				'user_id'    => Auth::id(),
6213abd6f3SGreg Roach			]);
632da2404eSGreg Roach		}
64cf700360SGreg Roach
65cf700360SGreg Roach		if ($request->get('ctype') === 'user') {
66cf700360SGreg Roach			$url = route('user-page', ['ged' => $tree->getName()]);
67cf700360SGreg Roach		} else {
68cf700360SGreg Roach			$url = route('tree-page', ['ged' => $tree->getName()]);
692da2404eSGreg Roach		}
702da2404eSGreg Roach
71cf700360SGreg Roach		return new RedirectResponse($url);
722da2404eSGreg Roach	}
732da2404eSGreg Roach
742da2404eSGreg Roach	/**
7576692c8bSGreg Roach	 * Generate the HTML content of this block.
7676692c8bSGreg Roach	 *
7776692c8bSGreg Roach	 * @param int      $block_id
7876692c8bSGreg Roach	 * @param bool     $template
79727f238cSGreg Roach	 * @param string[] $cfg
8076692c8bSGreg Roach	 *
8176692c8bSGreg Roach	 * @return string
8276692c8bSGreg Roach	 */
83a9430be8SGreg Roach	public function getBlock($block_id, $template = true, $cfg = []): string {
842da2404eSGreg Roach		global $ctype, $WT_TREE;
852da2404eSGreg Roach
868c2e8227SGreg Roach		$messages = Database::prepare("SELECT message_id, sender, subject, body, UNIX_TIMESTAMP(created) AS created FROM `##message` WHERE user_id=? ORDER BY message_id DESC")
8713abd6f3SGreg Roach			->execute([Auth::id()])
888c2e8227SGreg Roach			->fetchAll();
898c2e8227SGreg Roach
908c2e8227SGreg Roach		$count = count($messages);
918c2e8227SGreg Roach		$users = array_filter(User::all(), function (User $user) {
928c2e8227SGreg Roach			return $user->getUserId() !== Auth::id() && $user->getPreference('verified_by_admin') && $user->getPreference('contactmethod') !== 'none';
938c2e8227SGreg Roach		});
948c2e8227SGreg Roach
957bab8982SGreg Roach		$content = '';
96e92490bcSGreg Roach		if (!empty($users)) {
977bab8982SGreg Roach			$url = route('user-page', ['ged' => $WT_TREE->getName()]);
98*46bb661fSGreg Roach			$content .= '<form onsubmit="return $(&quot;#to&quot;).val() !== &quot;&quot;">';
99*46bb661fSGreg Roach			$content .= '<input type="hidden" name="route" value="message">';
100d53324c9SGreg Roach			$content .= '<input type="hidden" name="ged" value="' . e($WT_TREE->getName()) . '">';
101d53324c9SGreg Roach			$content .= '<input type="hidden" name="url" value="' . e($url) . '">';
1027bab8982SGreg Roach			$content .= '<label for="to">' . I18N::translate('Send a message') . '</label>';
1037bab8982SGreg Roach			$content .= '<select id="to" name="to">';
1048c2e8227SGreg Roach			$content .= '<option value="">' . I18N::translate('&lt;select&gt;') . '</option>';
1058c2e8227SGreg Roach			foreach ($users as $user) {
106d53324c9SGreg Roach				$content .= sprintf('<option value="%1$s">%2$s - %1$s</option>', e($user->getUserName()), e($user->getRealName()));
1078c2e8227SGreg Roach			}
1088c2e8227SGreg Roach			$content .= '</select>';
1097bab8982SGreg Roach			$content .= '<button type="submit">' . I18N::translate('Send') . '</button><br><br>';
1107bab8982SGreg Roach			$content .= '</form>';
1118c2e8227SGreg Roach		}
112cf700360SGreg Roach		$content .= '<form id="messageform" name="messageform" method="post" action="' . e(route('module', ['action' => 'DeleteMessage', 'module' => $this->getName(), 'ctype' => $ctype, 'ged' => $WT_TREE->getName()])) . '" data-confirm="' . I18N::translate('Are you sure you want to delete this message? It cannot be retrieved later.') . '" onsubmit="return confirm(this.dataset.confirm);">';
113cf700360SGreg Roach		$content .= csrf_field();
114cf700360SGreg Roach
115e92490bcSGreg Roach		if (!empty($messages)) {
116*46bb661fSGreg Roach			$content .= '<table class="list_table w-100"><tr>';
117bc6628fbSRico Sonntag			$content .= '<th class="list_label">' . I18N::translate('Delete') . '<br><a href="#" onclick="$(\'#block-' . $block_id . ' :checkbox\').prop(\'checked\', true); return false;">' . I18N::translate('All') . '</a></th>';
118e284b8e1SGreg Roach			$content .= '<th class="list_label">' . I18N::translate('Subject') . '</th>';
119e284b8e1SGreg Roach			$content .= '<th class="list_label">' . I18N::translate('Date sent') . '</th>';
120e284b8e1SGreg Roach			$content .= '<th class="list_label">' . I18N::translate('Email address') . '</th>';
1218c2e8227SGreg Roach			$content .= '</tr>';
1228c2e8227SGreg Roach			foreach ($messages as $message) {
1238c2e8227SGreg Roach				$content .= '<tr>';
124a33af35aSmakitso				$content .= '<td class="list_value_wrap center"><input type="checkbox" name="message_id[]" value="' . $message->message_id . '" id="cb_message' . $message->message_id . '"></td>';
125d53324c9SGreg Roach				$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">' . e($message->subject) . '</b></a></td>';
1263d7a8a4cSGreg Roach				$content .= '<td class="list_value_wrap">' . FunctionsDate::formatTimestamp($message->created + WT_TIMESTAMP_OFFSET) . '</td>';
1278c2e8227SGreg Roach				$content .= '<td class="list_value_wrap">';
1288c2e8227SGreg Roach				$user = User::findByIdentifier($message->sender);
1298c2e8227SGreg Roach				if ($user) {
130524c0fabSGreg Roach					$content .= $user->getRealNameHtml();
1318c2e8227SGreg Roach					$content .= '  - <span dir="auto">' . $user->getEmail() . '</span>';
1328c2e8227SGreg Roach				} else {
133d53324c9SGreg Roach					$content .= '<a href="mailto:' . e($message->sender) . '">' . e($message->sender) . '</a>';
1348c2e8227SGreg Roach				}
1358c2e8227SGreg Roach				$content .= '</td>';
1368c2e8227SGreg Roach				$content .= '</tr>';
1378c2e8227SGreg Roach				$content .= '<tr><td class="list_value_wrap" colspan="4"><div id="message' . $message->message_id . '" style="display:none;">';
138ff05914fSGreg Roach				$content .= '<div dir="auto" style="white-space: pre-wrap;">' . Filter::expandUrls($message->body, $WT_TREE) . '</div><br>';
1398c2e8227SGreg Roach				if (strpos($message->subject, /* I18N: When replying to an email, the subject becomes “RE: <subject>” */ I18N::translate('RE: ')) !== 0) {
1408c2e8227SGreg Roach					$message->subject = I18N::translate('RE: ') . $message->subject;
1418c2e8227SGreg Roach				}
142*46bb661fSGreg Roach
143*46bb661fSGreg Roach				// If this user still exists, show a reply link.
1448c2e8227SGreg Roach				if ($user) {
145*46bb661fSGreg Roach					$reply_url = route('message', ['to' => $user->getUserName(), 'subject' => $message->subject, 'ged' => $WT_TREE->getName()]);
146*46bb661fSGreg Roach					$content .= '<a class="btn btn-primary" href="' . e($reply_url) . '" title="' . I18N::translate('Reply') . '">' . I18N::translate('Reply') . '</a> ';
1478c2e8227SGreg Roach				}
148*46bb661fSGreg Roach				$content .= '<button type="button" class="btn btn-danger" data-confirm="' . I18N::translate('Are you sure you want to delete this message? It cannot be retrieved later.') . '" onclick="if (confirm(this.dataset.confirm)) {$(\'#messageform :checkbox\').prop(\'checked\', false); $(\'#cb_message' . $message->message_id . '\').prop(\'checked\', true); document.messageform.submit();}">' . I18N::translate('Delete') . '</button></div></td></tr>';
1498c2e8227SGreg Roach			}
1508c2e8227SGreg Roach			$content .= '</table>';
1512da2404eSGreg Roach			$content .= '<p><button type="submit">' . I18N::translate('Delete selected messages') . '</button></p>';
1528c2e8227SGreg Roach		}
1538c2e8227SGreg Roach		$content .= '</form>';
1548c2e8227SGreg Roach
1558c2e8227SGreg Roach		if ($template) {
156225e381fSGreg Roach			return view('blocks/template', [
1579c6524dcSGreg Roach				'block'      => str_replace('_', '-', $this->getName()),
1589c6524dcSGreg Roach				'id'         => $block_id,
1599c6524dcSGreg Roach				'config_url' => '',
160f7f4b984SGreg Roach				'title'      => I18N::plural('%s message', '%s messages', $count, I18N::number($count)),
1619c6524dcSGreg Roach				'content'    => $content,
1629c6524dcSGreg Roach			]);
1638c2e8227SGreg Roach		} else {
1648c2e8227SGreg Roach			return $content;
1658c2e8227SGreg Roach		}
1668c2e8227SGreg Roach	}
1678c2e8227SGreg Roach
1688c2e8227SGreg Roach	/** {@inheritdoc} */
169a9430be8SGreg Roach	public function loadAjax(): bool {
1708c2e8227SGreg Roach		return false;
1718c2e8227SGreg Roach	}
1728c2e8227SGreg Roach
1738c2e8227SGreg Roach	/** {@inheritdoc} */
174a9430be8SGreg Roach	public function isUserBlock(): bool {
1758c2e8227SGreg Roach		return true;
1768c2e8227SGreg Roach	}
1778c2e8227SGreg Roach
1788c2e8227SGreg Roach	/** {@inheritdoc} */
179a9430be8SGreg Roach	public function isGedcomBlock(): bool {
1808c2e8227SGreg Roach		return false;
1818c2e8227SGreg Roach	}
1828c2e8227SGreg Roach
18376692c8bSGreg Roach	/**
18476692c8bSGreg Roach	 * An HTML form to edit block settings
18576692c8bSGreg Roach	 *
18676692c8bSGreg Roach	 * @param int $block_id
187a9430be8SGreg Roach	 *
188a9430be8SGreg Roach	 * @return void
18976692c8bSGreg Roach	 */
190be9a728cSGreg Roach	public function configureBlock($block_id) {
1918c2e8227SGreg Roach	}
1928c2e8227SGreg Roach}
193