2019-05-04 18:32:31 +00:00
< ? php
2020-02-09 14:45:36 +00:00
/**
2021-03-29 06:40:20 +00:00
* @ copyright Copyright ( C ) 2010 - 2021 , the Friendica project
2020-02-09 14:45:36 +00:00
*
* @ license GNU AGPL version 3 or any later version
*
* This program is free software : you can redistribute it and / or modify
* it under the terms of the GNU Affero General Public License as
* published by the Free Software Foundation , either version 3 of the
* License , or ( at your option ) any later version .
*
* This program is distributed in the hope that it will be useful ,
* but WITHOUT ANY WARRANTY ; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE . See the
* GNU Affero General Public License for more details .
*
* You should have received a copy of the GNU Affero General Public License
* along with this program . If not , see < https :// www . gnu . org / licenses />.
*
*/
2019-05-04 18:32:31 +00:00
namespace Friendica\Module ;
use Friendica\BaseModule ;
use Friendica\Core\Renderer ;
2019-12-15 21:34:11 +00:00
use Friendica\DI ;
2019-05-04 18:32:31 +00:00
use Friendica\Model ;
2021-08-08 19:30:21 +00:00
use Friendica\Model\User ;
2019-05-04 18:32:31 +00:00
use Friendica\Network\HTTPException ;
use Friendica\Protocol\Email ;
use Friendica\Util\Strings ;
/**
* Invite people to friendica
*/
class Invite extends BaseModule
{
2019-11-05 21:48:54 +00:00
public static function post ( array $parameters = [])
2019-05-04 18:32:31 +00:00
{
if ( ! local_user ()) {
2020-01-18 19:52:34 +00:00
throw new HTTPException\ForbiddenException ( DI :: l10n () -> t ( 'Permission denied.' ));
2019-05-04 18:32:31 +00:00
}
self :: checkFormSecurityTokenRedirectOnError ( '/' , 'send_invite' );
2019-12-15 21:34:11 +00:00
$app = DI :: app ();
2019-12-15 22:44:33 +00:00
$config = DI :: config ();
2019-05-04 18:32:31 +00:00
$max_invites = intval ( $config -> get ( 'system' , 'max_invites' ));
if ( ! $max_invites ) {
$max_invites = 50 ;
}
2020-01-18 15:50:57 +00:00
$current_invites = intval ( DI :: pConfig () -> get ( local_user (), 'system' , 'sent_invites' ));
2019-05-04 18:32:31 +00:00
if ( $current_invites > $max_invites ) {
2020-01-18 19:52:34 +00:00
throw new HTTPException\ForbiddenException ( DI :: l10n () -> t ( 'Total invitation limit exceeded.' ));
2019-05-04 18:32:31 +00:00
}
2019-05-04 19:25:16 +00:00
$recipients = ! empty ( $_POST [ 'recipients' ]) ? explode ( " \n " , $_POST [ 'recipients' ]) : [];
2019-05-04 18:32:31 +00:00
$message = ! empty ( $_POST [ 'message' ]) ? Strings :: escapeTags ( trim ( $_POST [ 'message' ])) : '' ;
$total = 0 ;
$invitation_only = false ;
$invites_remaining = null ;
if ( $config -> get ( 'system' , 'invitation_only' )) {
$invitation_only = true ;
2020-01-18 15:50:57 +00:00
$invites_remaining = DI :: pConfig () -> get ( local_user (), 'system' , 'invites_remaining' );
2019-05-04 18:32:31 +00:00
if (( ! $invites_remaining ) && ( ! is_site_admin ())) {
throw new HTTPException\ForbiddenException ();
}
}
2021-08-08 19:30:21 +00:00
$user = User :: getById ( local_user ());
2019-05-04 18:32:31 +00:00
foreach ( $recipients as $recipient ) {
$recipient = trim ( $recipient );
if ( ! filter_var ( $recipient , FILTER_VALIDATE_EMAIL )) {
2020-07-23 06:25:01 +00:00
notice ( DI :: l10n () -> t ( '%s : Not a valid email address.' , $recipient ));
2019-05-04 18:32:31 +00:00
continue ;
}
if ( $invitation_only && ( $invites_remaining || is_site_admin ())) {
$code = Model\Register :: createForInvitation ();
$nmessage = str_replace ( '$invite_code' , $code , $message );
if ( ! is_site_admin ()) {
$invites_remaining -- ;
if ( $invites_remaining >= 0 ) {
2020-01-18 15:54:50 +00:00
DI :: pConfig () -> set ( local_user (), 'system' , 'invites_remaining' , $invites_remaining );
2019-05-04 18:32:31 +00:00
} else {
return ;
}
}
} else {
$nmessage = $message ;
}
2021-08-08 19:30:21 +00:00
$additional_headers = 'From: "' . $user [ 'email' ] . '" <' . DI :: emailer () -> getSiteEmailAddress () . " > \n "
2019-05-04 18:32:31 +00:00
. 'Content-type: text/plain; charset=UTF-8' . " \n "
. 'Content-transfer-encoding: 8bit' ;
$res = mail (
$recipient ,
2020-01-18 19:52:34 +00:00
Email :: encodeHeader ( DI :: l10n () -> t ( 'Please join us on Friendica' ), 'UTF-8' ),
2019-05-04 18:32:31 +00:00
$nmessage ,
$additional_headers );
if ( $res ) {
$total ++ ;
$current_invites ++ ;
2020-01-18 15:54:50 +00:00
DI :: pConfig () -> set ( local_user (), 'system' , 'sent_invites' , $current_invites );
2019-05-04 18:32:31 +00:00
if ( $current_invites > $max_invites ) {
2020-07-23 06:25:01 +00:00
notice ( DI :: l10n () -> t ( 'Invitation limit exceeded. Please contact your site administrator.' ));
2019-05-04 18:32:31 +00:00
return ;
}
} else {
2020-07-23 06:25:01 +00:00
notice ( DI :: l10n () -> t ( '%s : Message delivery failed.' , $recipient ));
2019-05-04 18:32:31 +00:00
}
}
2020-09-07 10:17:42 +00:00
info ( DI :: l10n () -> tt ( '%d message sent.' , '%d messages sent.' , $total ));
2019-05-04 18:32:31 +00:00
}
2019-11-05 21:48:54 +00:00
public static function content ( array $parameters = [])
2019-05-04 18:32:31 +00:00
{
if ( ! local_user ()) {
2020-01-18 19:52:34 +00:00
throw new HTTPException\ForbiddenException ( DI :: l10n () -> t ( 'Permission denied.' ));
2019-05-04 18:32:31 +00:00
}
2019-12-15 21:34:11 +00:00
$app = DI :: app ();
2019-12-15 22:44:33 +00:00
$config = DI :: config ();
2019-05-04 18:32:31 +00:00
$inviteOnly = false ;
if ( $config -> get ( 'system' , 'invitation_only' )) {
$inviteOnly = true ;
2020-01-18 15:50:57 +00:00
$x = DI :: pConfig () -> get ( local_user (), 'system' , 'invites_remaining' );
2019-05-04 18:32:31 +00:00
if (( ! $x ) && ( ! is_site_admin ())) {
2020-01-18 19:52:34 +00:00
throw new HTTPException\ForbiddenException ( DI :: l10n () -> t ( 'You have no more invitations available' ));
2019-05-04 18:32:31 +00:00
}
}
$dirLocation = $config -> get ( 'system' , 'directory' );
if ( strlen ( $dirLocation )) {
if ( $config -> get ( 'config' , 'register_policy' ) === Register :: CLOSED ) {
2020-01-18 19:52:34 +00:00
$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' );
2019-05-04 18:32:31 +00:00
} else {
2020-01-18 19:52:34 +00:00
$linkTxt = DI :: l10n () -> t ( 'To accept this invitation, please visit and register at %s or any other public Friendica website.' , DI :: baseUrl () -> get ())
. " \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' );
2019-05-04 18:32:31 +00:00
}
} else { // there is no global directory URL defined
if ( $config -> get ( 'config' , 'register_policy' ) === Register :: CLOSED ) {
2020-01-18 19:52:34 +00:00
return DI :: l10n () -> t ( 'Our apologies. This system is not currently configured to connect with other public sites or invite members.' );
2019-05-04 18:32:31 +00:00
} else {
2020-01-18 19:52:34 +00:00
$linkTxt = DI :: l10n () -> t ( 'To accept this invitation, please visit and register at %s.' , DI :: baseUrl () -> get ()
. " \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.' ));
2019-05-04 18:32:31 +00:00
}
}
$tpl = Renderer :: getMarkupTemplate ( 'invite.tpl' );
return Renderer :: replaceMacros ( $tpl , [
2019-05-04 19:25:16 +00:00
'$form_security_token' => self :: getFormSecurityToken ( 'send_invite' ),
2020-01-18 19:52:34 +00:00
'$title' => DI :: l10n () -> t ( 'Send invitations' ),
'$recipients' => [ 'recipients' , DI :: l10n () -> t ( 'Enter email addresses, one per line:' )],
2019-05-04 18:32:31 +00:00
'$message' => [
'message' ,
2020-01-18 19:52:34 +00:00
DI :: l10n () -> t ( 'Your message:' ),
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 "
2019-05-04 18:32:31 +00:00
. $linkTxt
2020-01-18 19:52:34 +00:00
. " \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:' )
2021-08-08 10:14:56 +00:00
. " \r \n " . " \r \n " . DI :: baseUrl () -> get () . '/profile/' . $app -> getNickname ()
2020-01-18 19:52:34 +00:00
. " \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 " ,
2019-05-04 18:32:31 +00:00
],
2020-01-18 19:52:34 +00:00
'$submit' => DI :: l10n () -> t ( 'Submit' )
2019-05-04 18:32:31 +00:00
]);
}
}