3 * @copyright Copyright (C) 2010-2022, the Friendica project
5 * @license GNU AGPL version 3 or any later version
7 * This program is free software: you can redistribute it and/or modify
8 * it under the terms of the GNU Affero General Public License as
9 * published by the Free Software Foundation, either version 3 of the
10 * License, or (at your option) any later version.
12 * This program is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 * GNU Affero General Public License for more details.
17 * You should have received a copy of the GNU Affero General Public License
18 * along with this program. If not, see <https://www.gnu.org/licenses/>.
23 use Friendica\Core\Logger;
24 use Friendica\Core\Renderer;
25 use Friendica\Database\DBA;
27 use Friendica\Model\Mail;
28 use Friendica\Model\Profile;
29 use Friendica\Model\User;
30 use Friendica\Util\DateTimeFormat;
31 use Friendica\Util\Strings;
33 function wallmessage_post(App $a) {
35 $replyto = Profile::getMyURL();
37 notice(DI::l10n()->t('Permission denied.'));
41 $subject = trim($_REQUEST['subject'] ?? '');
42 $body = Strings::escapeHtml(trim($_REQUEST['body'] ?? ''));
44 $recipient = ((DI::args()->getArgc() > 1) ? DI::args()->getArgv()[1] : '');
45 if ((! $recipient) || (! $body)) {
49 $user = User::getByNickname($recipient);
51 Logger::notice('wallmessage: no recipient');
55 if (!$user['unkmail']) {
56 notice(DI::l10n()->t('Permission denied.'));
60 $total = DBA::count('mail', ["`uid` = ? AND `created` > ? AND `unknown`", $user['uid'], DateTimeFormat::utc('now - 1 day')]);
61 if ($total > $user['cntunkmail']) {
62 notice(DI::l10n()->t('Number of daily wall messages for %s exceeded. Message failed.', $user['username']));
66 $ret = Mail::sendWall($user, $body, $subject, $replyto);
70 notice(DI::l10n()->t('No recipient selected.'));
73 notice(DI::l10n()->t('Unable to check your home location.'));
76 notice(DI::l10n()->t('Message could not be sent.'));
79 notice(DI::l10n()->t('Message collection failure.'));
83 DI::baseUrl()->redirect('profile/'.$user['nickname']);
87 function wallmessage_content(App $a) {
89 if (!Profile::getMyURL()) {
90 notice(DI::l10n()->t('Permission denied.'));
94 $recipient = ((DI::args()->getArgc() > 1) ? DI::args()->getArgv()[1] : '');
97 notice(DI::l10n()->t('No recipient.'));
101 $user = User::getByNickname($recipient);
104 notice(DI::l10n()->t('No recipient.'));
105 Logger::notice('wallmessage: no recipient');
109 if (!$user['unkmail']) {
110 notice(DI::l10n()->t('Permission denied.'));
114 $total = DBA::count('mail', ["`uid` = ? AND `created` > ? AND `unknown`", $user['uid'], DateTimeFormat::utc('now - 1 day')]);
115 if ($total > $user['cntunkmail']) {
116 notice(DI::l10n()->t('Number of daily wall messages for %s exceeded. Message failed.', $user['username']));
120 $tpl = Renderer::getMarkupTemplate('wallmsg-header.tpl');
121 DI::page()['htmlhead'] .= Renderer::replaceMacros($tpl, [
122 '$baseurl' => DI::baseUrl()->get(true),
123 '$nickname' => $user['nickname'],
124 '$linkurl' => DI::l10n()->t('Please enter a link URL:')
127 $tpl = Renderer::getMarkupTemplate('wallmessage.tpl');
128 $o = Renderer::replaceMacros($tpl, [
129 '$header' => DI::l10n()->t('Send Private Message'),
130 '$subheader' => DI::l10n()->t('If you wish for %s to respond, please check that the privacy settings on your site allow private mail from unknown senders.', $user['username']),
131 '$to' => DI::l10n()->t('To:'),
132 '$subject' => DI::l10n()->t('Subject:'),
133 '$recipname' => $user['username'],
134 '$nickname' => $user['nickname'],
135 '$subjtxt' => $_REQUEST['subject'] ?? '',
136 '$text' => $_REQUEST['body'] ?? '',
138 '$yourmessage'=> DI::l10n()->t('Your message:'),
140 '$upload' => DI::l10n()->t('Upload photo'),
141 '$insert' => DI::l10n()->t('Insert web link'),
142 '$wait' => DI::l10n()->t('Please wait')