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
*
*/
2017-04-30 00:07:00 -04:00
use Friendica\App ;
2017-11-06 21:22:52 -05:00
use Friendica\Core\Config ;
2018-01-21 13:33:59 -05:00
use Friendica\Core\L10n ;
2017-11-06 21:22:52 -05:00
use Friendica\Core\PConfig ;
2017-08-26 02:04:21 -04:00
use Friendica\Core\System ;
2017-12-01 14:41:27 -05:00
use Friendica\Protocol\Email ;
2013-01-04 18:47:29 -05:00
2017-01-09 07:14:25 -05:00
function invite_post ( App $a ) {
2010-12-10 07:04:35 -05:00
2016-12-20 05:56:34 -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 ;
}
2013-01-25 16:48:57 -05:00
check_form_security_token_redirectOnErr ( '/' , 'send_invite' );
2018-01-22 09:16:25 -05:00
$max_invites = intval ( Config :: get ( 'system' , 'max_invites' ));
2016-12-21 17:04:09 -05:00
if ( ! $max_invites ) {
2013-01-25 16:48:57 -05:00
$max_invites = 50 ;
2016-12-21 17:04:09 -05:00
}
2013-01-25 16:48:57 -05:00
2018-01-22 09:16:25 -05:00
$current_invites = intval ( PConfig :: get ( local_user (), 'system' , 'sent_invites' ));
2016-12-21 17:04:09 -05:00
if ( $current_invites > $max_invites ) {
2018-01-21 13:33:59 -05:00
notice ( L10n :: t ( 'Total invitation limit exceeded.' ) . EOL );
2013-01-25 16:48:57 -05:00
return ;
2016-12-21 17:04:09 -05:00
}
2013-01-25 16:48:57 -05:00
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' );
2016-12-21 17:04:09 -05:00
if (( ! $x ) && ( ! is_site_admin ())) {
2011-07-17 19:08:47 -04:00
return ;
2016-12-21 17:04:09 -05:00
}
2011-07-17 19:08:47 -04:00
}
2016-12-21 17:04:09 -05:00
foreach ( $recips as $recip ) {
2010-07-28 19:28:39 -04:00
$recip = trim ( $recip );
2016-12-21 17:04:09 -05:00
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 ;
}
2016-12-21 17:04:09 -05:00
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
2016-12-21 17:04:09 -05:00
if ( ! is_site_admin ()) {
2011-07-17 19:08:47 -04:00
$x -- ;
2016-12-21 17:04:09 -05:00
if ( $x >= 0 ) {
2018-01-22 09:16:25 -05:00
PConfig :: set ( local_user (), 'system' , 'invites_remaining' , $x );
2016-12-21 17:04:09 -05:00
} else {
2011-07-17 19:08:47 -04:00
return ;
2016-12-21 17:04:09 -05:00
}
2011-07-17 19:08:47 -04:00
}
2016-12-21 17:04:09 -05:00
} else {
2011-07-17 19:08:47 -04:00
$nmessage = $message ;
2016-12-21 17:04:09 -05:00
}
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' ),
2017-01-09 07:14:25 -05:00
$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' );
2016-12-21 17:04:09 -05:00
if ( $res ) {
2010-07-28 19:28:39 -04:00
$total ++ ;
2013-01-25 16:48:57 -05:00
$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 );
2013-01-25 16:48:57 -05:00
return ;
}
2016-12-21 17:04:09 -05:00
} else {
2018-01-21 17:15:52 -05:00
notice ( sprintf ( L10n :: t ( '%s : Message delivery failed.' ), $recip ) . EOL );
2010-07-28 19:28:39 -04:00
}
}
2018-01-21 17:15:52 -05: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
}
2016-02-07 09:11:34 -05:00
2017-01-09 07:14:25 -05:00
function invite_content ( App $a ) {
2010-12-10 07:04:35 -05:00
2016-12-20 05:56:34 -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' );
2016-12-21 17:04:09 -05:00
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 '' ;
}
2015-09-15 16:29:02 -04:00
}
2011-07-17 19:08:47 -04:00
2018-01-22 09:16:25 -05:00
$dirloc = Config :: get ( 'system' , 'directory' );
2016-12-21 17:04:09 -05:00
if ( strlen ( $dirloc )) {
2016-12-20 15:15:53 -05:00
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' );
2016-12-20 15:15:53 -05:00
}
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
}
2012-03-25 02:04:18 -04:00
}
2011-07-17 19:08:47 -04:00
2018-01-15 08:05:12 -05:00
$o = replace_macros ( $tpl , [
2013-01-25 16:48:57 -05:00
'$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 "
2012-03-25 02:04:18 -04:00
. $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:' )
2017-08-26 03:32:10 -04:00
. " \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' )
2018-01-15 08:05:12 -05:00
]);
2010-07-28 19:28:39 -04:00
return $o ;
2015-09-15 16:29:02 -04:00
}