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/>.
22 namespace Friendica\Module;
24 use Friendica\BaseModule;
25 use Friendica\Core\Renderer;
28 use Friendica\Model\User;
29 use Friendica\Network\HTTPException;
30 use Friendica\Protocol\Email;
31 use Friendica\Util\Strings;
34 * Invite people to friendica
36 class Invite extends BaseModule
38 protected function post(array $request = [])
41 throw new HTTPException\ForbiddenException(DI::l10n()->t('Permission denied.'));
44 self::checkFormSecurityTokenRedirectOnError('/', 'send_invite');
47 $config = DI::config();
49 $max_invites = intval($config->get('system', 'max_invites'));
54 $current_invites = intval(DI::pConfig()->get(local_user(), 'system', 'sent_invites'));
55 if ($current_invites > $max_invites) {
56 throw new HTTPException\ForbiddenException(DI::l10n()->t('Total invitation limit exceeded.'));
60 $recipients = !empty($_POST['recipients']) ? explode("\n", $_POST['recipients']) : [];
61 $message = !empty($_POST['message']) ? Strings::escapeHtml(trim($_POST['message'])) : '';
64 $invitation_only = false;
65 $invites_remaining = null;
67 if ($config->get('system', 'invitation_only')) {
68 $invitation_only = true;
69 $invites_remaining = DI::pConfig()->get(local_user(), 'system', 'invites_remaining');
70 if ((!$invites_remaining) && (!$app->isSiteAdmin())) {
71 throw new HTTPException\ForbiddenException();
75 $user = User::getById(local_user());
77 foreach ($recipients as $recipient) {
78 $recipient = trim($recipient);
80 if (!filter_var($recipient, FILTER_VALIDATE_EMAIL)) {
81 notice(DI::l10n()->t('%s : Not a valid email address.', $recipient));
85 if ($invitation_only && ($invites_remaining || $app->isSiteAdmin())) {
86 $code = Model\Register::createForInvitation();
87 $nmessage = str_replace('$invite_code', $code, $message);
89 if (!$app->isSiteAdmin()) {
91 if ($invites_remaining >= 0) {
92 DI::pConfig()->set(local_user(), 'system', 'invites_remaining', $invites_remaining);
101 $additional_headers = 'From: "' . $user['email'] . '" <' . DI::emailer()->getSiteEmailAddress() . ">\n"
102 . 'Content-type: text/plain; charset=UTF-8' . "\n"
103 . 'Content-transfer-encoding: 8bit';
107 Email::encodeHeader(DI::l10n()->t('Please join us on Friendica'), 'UTF-8'),
109 $additional_headers);
114 DI::pConfig()->set(local_user(), 'system', 'sent_invites', $current_invites);
115 if ($current_invites > $max_invites) {
116 notice(DI::l10n()->t('Invitation limit exceeded. Please contact your site administrator.'));
120 notice(DI::l10n()->t('%s : Message delivery failed.', $recipient));
124 info(DI::l10n()->tt('%d message sent.', '%d messages sent.', $total));
127 protected function content(array $request = []): string
130 throw new HTTPException\ForbiddenException(DI::l10n()->t('Permission denied.'));
134 $config = DI::config();
138 if ($config->get('system', 'invitation_only')) {
140 $x = DI::pConfig()->get(local_user(), 'system', 'invites_remaining');
141 if ((!$x) && (!$app->isSiteAdmin())) {
142 throw new HTTPException\ForbiddenException(DI::l10n()->t('You have no more invitations available'));
146 $dirLocation = $config->get('system', 'directory');
147 if (strlen($dirLocation)) {
148 if ($config->get('config', 'register_policy') === Register::CLOSED) {
149 $linkTxt = DI::l10n()->t('Visit %s for a list of public sites that you can join. Friendica members on other sites can all connect with each other, as well as with members of many other social networks.', $dirLocation . '/servers');
151 $linkTxt = DI::l10n()->t('To accept this invitation, please visit and register at %s or any other public Friendica website.', DI::baseUrl()->get())
152 . "\r\n" . "\r\n" . DI::l10n()->t('Friendica sites all inter-connect to create a huge privacy-enhanced social web that is owned and controlled by its members. They can also connect with many traditional social networks. See %s for a list of alternate Friendica sites you can join.', $dirLocation . '/servers');
154 } else { // there is no global directory URL defined
155 if ($config->get('config', 'register_policy') === Register::CLOSED) {
156 return DI::l10n()->t('Our apologies. This system is not currently configured to connect with other public sites or invite members.');
158 $linkTxt = DI::l10n()->t('To accept this invitation, please visit and register at %s.', DI::baseUrl()->get()
159 . "\r\n" . "\r\n" . DI::l10n()->t('Friendica sites all inter-connect to create a huge privacy-enhanced social web that is owned and controlled by its members. They can also connect with many traditional social networks.'));
163 $tpl = Renderer::getMarkupTemplate('invite.tpl');
164 return Renderer::replaceMacros($tpl, [
165 '$form_security_token' => self::getFormSecurityToken('send_invite'),
166 '$title' => DI::l10n()->t('Send invitations'),
167 '$recipients' => ['recipients', DI::l10n()->t('Enter email addresses, one per line:')],
170 DI::l10n()->t('Your message:'),
171 DI::l10n()->t('You are cordially invited to join me and other close friends on Friendica - and help us to create a better social web.') . "\r\n" . "\r\n"
173 . "\r\n" . "\r\n" . (($inviteOnly) ? DI::l10n()->t('You will need to supply this invitation code: $invite_code') . "\r\n" . "\r\n" : '') . DI::l10n()->t('Once you have registered, please connect with me via my profile page at:')
174 . "\r\n" . "\r\n" . DI::baseUrl()->get() . '/profile/' . $app->getLoggedInUserNickname()
175 . "\r\n" . "\r\n" . DI::l10n()->t('For more information about the Friendica project and why we feel it is important, please visit http://friendi.ca') . "\r\n" . "\r\n",
177 '$submit' => DI::l10n()->t('Submit')