friendica/mod/invite.php

155 lines
5.3 KiB
PHP
Raw Normal View History

2010-07-28 19:28:39 -04:00
<?php
2010-12-10 07:04:35 -05:00
/**
2017-12-01 18:13:39 -05:00
* Module: invite.php
2010-12-10 07:04:35 -05:00
*
2017-12-01 18:13:39 -05:00
* Send email invitations to join social network
2010-12-10 07:04:35 -05:00
*
*/
use Friendica\App;
use Friendica\Core\Config;
2018-01-21 13:33:59 -05:00
use Friendica\Core\L10n;
use Friendica\Core\PConfig;
2017-08-26 02:04:21 -04:00
use Friendica\Core\System;
use Friendica\Protocol\Email;
2013-01-04 18:47:29 -05:00
function invite_post(App $a) {
2010-12-10 07:04:35 -05:00
if (! local_user()) {
2018-01-21 13:33:59 -05:00
notice(L10n::t('Permission denied.') . EOL);
2010-07-28 19:28:39 -04:00
return;
}
check_form_security_token_redirectOnErr('/', 'send_invite');
2018-01-22 09:16:25 -05:00
$max_invites = intval(Config::get('system', 'max_invites'));
if (! $max_invites) {
$max_invites = 50;
}
2018-01-22 09:16:25 -05:00
$current_invites = intval(PConfig::get(local_user(), 'system', 'sent_invites'));
if ($current_invites > $max_invites) {
2018-01-21 13:33:59 -05:00
notice(L10n::t('Total invitation limit exceeded.') . EOL);
return;
}
2010-07-28 19:28:39 -04:00
2018-01-22 09:16:25 -05:00
$recips = ((x($_POST, 'recipients')) ? explode("\n", $_POST['recipients']) : []);
$message = ((x($_POST, 'message')) ? notags(trim($_POST['message'])) : '');
2010-07-28 19:28:39 -04:00
$total = 0;
2018-01-22 09:16:25 -05:00
if (Config::get('system', 'invitation_only')) {
2011-07-17 19:08:47 -04:00
$invonly = true;
2018-01-22 09:16:25 -05:00
$x = PConfig::get(local_user(), 'system', 'invites_remaining');
if ((! $x) && (! is_site_admin())) {
2011-07-17 19:08:47 -04:00
return;
}
2011-07-17 19:08:47 -04:00
}
foreach ($recips as $recip) {
2010-07-28 19:28:39 -04:00
$recip = trim($recip);
if (! valid_email($recip)) {
2018-01-22 09:16:25 -05:00
notice(sprintf(L10n::t('%s : Not a valid email address.'), $recip) . EOL);
2010-07-28 19:28:39 -04:00
continue;
}
if ($invonly && ($x || is_site_admin())) {
2018-01-22 09:16:25 -05:00
$code = autoname(8) . srand(1000, 9999);
$nmessage = str_replace('$invite_code', $code, $message);
2011-07-18 00:12:31 -04:00
$r = q("INSERT INTO `register` (`hash`,`created`) VALUES ('%s', '%s') ",
dbesc($code),
dbesc(datetime_convert())
);
2011-07-17 19:08:47 -04:00
if (! is_site_admin()) {
2011-07-17 19:08:47 -04:00
$x --;
if ($x >= 0) {
2018-01-22 09:16:25 -05:00
PConfig::set(local_user(), 'system', 'invites_remaining', $x);
} else {
2011-07-17 19:08:47 -04:00
return;
}
2011-07-17 19:08:47 -04:00
}
} else {
2011-07-17 19:08:47 -04:00
$nmessage = $message;
}
2010-07-28 19:28:39 -04:00
2018-01-22 09:16:25 -05:00
$res = mail($recip, Email::encodeHeader(L10n::t('Please join us on Friendica'), 'UTF-8'),
$nmessage,
2011-04-14 20:13:13 -04:00
"From: " . $a->user['email'] . "\n"
. 'Content-type: text/plain; charset=UTF-8' . "\n"
. 'Content-transfer-encoding: 8bit' );
if ($res) {
2010-07-28 19:28:39 -04:00
$total ++;
$current_invites ++;
2018-01-22 09:16:25 -05:00
PConfig::set(local_user(), 'system', 'sent_invites', $current_invites);
if ($current_invites > $max_invites) {
2018-01-21 13:33:59 -05:00
notice(L10n::t('Invitation limit exceeded. Please contact your site administrator.') . EOL);
return;
}
} else {
notice(sprintf(L10n::t('%s : Message delivery failed.'), $recip) . EOL);
2010-07-28 19:28:39 -04:00
}
}
notice(sprintf(L10n::tt("%d message sent.", "%d messages sent.", $total), $total) . EOL);
2010-09-08 23:14:17 -04:00
return;
2010-07-28 19:28:39 -04:00
}
function invite_content(App $a) {
2010-12-10 07:04:35 -05:00
if (! local_user()) {
2018-01-21 13:33:59 -05:00
notice(L10n::t('Permission denied.') . EOL);
2010-07-28 19:28:39 -04:00
return;
}
2011-05-11 07:37:13 -04:00
$tpl = get_markup_template('invite.tpl');
2011-07-17 19:08:47 -04:00
$invonly = false;
2018-01-22 09:16:25 -05:00
if (Config::get('system', 'invitation_only')) {
2011-07-17 19:08:47 -04:00
$invonly = true;
2018-01-22 09:16:25 -05:00
$x = PConfig::get(local_user(), 'system', 'invites_remaining');
if ((! $x) && (! is_site_admin())) {
2018-01-21 13:33:59 -05:00
notice(L10n::t('You have no more invitations available') . EOL);
2011-07-17 19:08:47 -04:00
return '';
}
}
2011-07-17 19:08:47 -04:00
2018-01-22 09:16:25 -05:00
$dirloc = Config::get('system', 'directory');
if (strlen($dirloc)) {
if ($a->config['register_policy'] == REGISTER_CLOSED) {
2018-01-22 09:16:25 -05:00
$linktxt = sprintf(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.'), $dirloc . '/servers');
2017-08-03 01:23:05 -04:00
} else {
2018-01-22 09:16:25 -05:00
$linktxt = sprintf(L10n::t('To accept this invitation, please visit and register at %s or any other public Friendica website.'), System::baseUrl())
. "\r\n" . "\r\n" . sprintf(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.'), $dirloc . '/servers');
}
2017-08-03 01:22:29 -04:00
} else { // there is no global directory URL defined
if ($a->config['register_policy'] == REGISTER_CLOSED) {
2018-01-22 09:16:25 -05:00
$o = L10n::t('Our apologies. This system is not currently configured to connect with other public sites or invite members.');
2017-08-03 01:22:29 -04:00
return $o;
} else {
2018-01-22 09:16:25 -05:00
$linktxt = sprintf(L10n::t('To accept this invitation, please visit and register at %s.'), System::baseUrl()
. "\r\n" . "\r\n" . 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.'));
2017-08-03 01:22:29 -04:00
}
}
2011-07-17 19:08:47 -04:00
$o = replace_macros($tpl, [
'$form_security_token' => get_form_security_token("send_invite"),
2018-01-22 09:16:25 -05:00
'$invite' => L10n::t('Send invitations'),
'$addr_text' => L10n::t('Enter email addresses, one per line:'),
'$msg_text' => L10n::t('Your message:'),
'$default_message' => 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"
. $linktxt
2018-01-22 09:16:25 -05:00
. "\r\n" . "\r\n" . (($invonly) ? L10n::t('You will need to supply this invitation code: $invite_code') . "\r\n" . "\r\n" : '') .L10n::t('Once you have registered, please connect with me via my profile page at:')
. "\r\n" . "\r\n" . System::baseUrl() . '/profile/' . $a->user['nickname']
2018-01-22 09:16:25 -05:00
. "\r\n" . "\r\n" . 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" ,
'$submit' => L10n::t('Submit')
]);
2010-07-28 19:28:39 -04:00
return $o;
}