friendica/mod/invite.php

<?php
/**
 * Module: invite.php
 *
 * Send email invitations to join social network
 *
 */

use Friendica\App;
use Friendica\Core\Config;
use Friendica\Core\L10n;
use Friendica\Core\PConfig;
use Friendica\Core\System;
use Friendica\Protocol\Email;
use Friendica\Util\DateTimeFormat;

function invite_post(App $a)
{
	if (! local_user()) {
		notice(L10n::t('Permission denied.') . EOL);
		return;
	}

	check_form_security_token_redirectOnErr('/', 'send_invite');

	$max_invites = intval(Config::get('system', 'max_invites'));
	if (! $max_invites) {
		$max_invites = 50;
	}

	$current_invites = intval(PConfig::get(local_user(), 'system', 'sent_invites'));
	if ($current_invites > $max_invites) {
		notice(L10n::t('Total invitation limit exceeded.') . EOL);
		return;
	}


	$recips  = ((x($_POST, 'recipients')) ? explode("\n", $_POST['recipients']) : []);
	$message = ((x($_POST, 'message'))    ? notags(trim($_POST['message']))    : '');

	$total = 0;

	if (Config::get('system', 'invitation_only')) {
		$invonly = true;
		$x = PConfig::get(local_user(), 'system', 'invites_remaining');
		if ((! $x) && (! is_site_admin())) {
			return;
		}
	}

	foreach ($recips as $recip) {
		$recip = trim($recip);

		if (! valid_email($recip)) {
			notice(L10n::t('%s : Not a valid email address.', $recip) . EOL);
			continue;
		}

		if ($invonly && ($x || is_site_admin())) {
			$code = autoname(8) . srand(1000, 9999);
			$nmessage = str_replace('$invite_code', $code, $message);

			$r = q("INSERT INTO `register` (`hash`,`created`) VALUES ('%s', '%s') ",
				dbesc($code),
				dbesc(DateTimeFormat::utcNow())
			);

			if (! is_site_admin()) {
				$x --;
				if ($x >= 0) {
					PConfig::set(local_user(), 'system', 'invites_remaining', $x);
				} else {
					return;
				}
			}
		} else {
			$nmessage = $message;
		}

		$res = mail($recip, Email::encodeHeader(L10n::t('Please join us on Friendica'), 'UTF-8'),
			$nmessage,
			"From: " . $a->user['email'] . "\n"
			. 'Content-type: text/plain; charset=UTF-8' . "\n"
			. 'Content-transfer-encoding: 8bit' );

		if ($res) {
			$total ++;
			$current_invites ++;
			PConfig::set(local_user(), 'system', 'sent_invites', $current_invites);
			if ($current_invites > $max_invites) {
				notice(L10n::t('Invitation limit exceeded. Please contact your site administrator.') . EOL);
				return;
			}
		} else {
			notice(L10n::t('%s : Message delivery failed.', $recip) . EOL);
		}

	}
	notice(L10n::tt("%d message sent.", "%d messages sent.", $total) . EOL);
	return;
}

function invite_content(App $a) {

	if (! local_user()) {
		notice(L10n::t('Permission denied.') . EOL);
		return;
	}

	$tpl = get_markup_template('invite.tpl');
	$invonly = false;

	if (Config::get('system', 'invitation_only')) {
		$invonly = true;
		$x = PConfig::get(local_user(), 'system', 'invites_remaining');
		if ((! $x) && (! is_site_admin())) {
			notice(L10n::t('You have no more invitations available') . EOL);
			return '';
		}
	}

	$dirloc = Config::get('system', 'directory');
	if (strlen($dirloc)) {
		if ($a->config['register_policy'] == REGISTER_CLOSED) {
			$linktxt = 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');
		} else {
			$linktxt = L10n::t('To accept this invitation, please visit and register at %s or any other public Friendica website.', 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. See %s for a list of alternate Friendica sites you can join.', $dirloc . '/servers');
		}
	} else { // there is no global directory URL defined
		if ($a->config['register_policy'] == REGISTER_CLOSED) {
			$o = L10n::t('Our apologies. This system is not currently configured to connect with other public sites or invite members.');
			return $o;
		} else {
			$linktxt = 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.'));
		}
	}

	$o = replace_macros($tpl, [
		'$form_security_token' => get_form_security_token("send_invite"),
		'$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
			. "\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']
			. "\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')
	]);

	return $o;
}