2010-07-28 19:28:39 -04:00
< ? php
2010-12-10 07:04:35 -05:00
/**
* module : invite . php
*
* send email invitations to join social network
*
*/
2010-07-28 19:28:39 -04:00
2017-04-30 00:07:00 -04:00
use Friendica\App ;
2013-01-04 18:47:29 -05:00
require_once ( 'include/email.php' );
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 ()) {
2010-07-28 19:28:39 -04:00
notice ( t ( 'Permission denied.' ) . EOL );
return ;
}
2013-01-25 16:48:57 -05:00
check_form_security_token_redirectOnErr ( '/' , 'send_invite' );
$max_invites = intval ( get_config ( '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
$current_invites = intval ( get_pconfig ( local_user (), 'system' , 'sent_invites' ));
2016-12-21 17:04:09 -05:00
if ( $current_invites > $max_invites ) {
2013-01-25 16:48:57 -05:00
notice ( t ( 'Total invitation limit exceeded.' ) . EOL );
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
2010-12-10 07:04:35 -05:00
$recips = (( x ( $_POST , 'recipients' )) ? explode ( " \n " , $_POST [ 'recipients' ]) : array ());
$message = (( x ( $_POST , 'message' )) ? notags ( trim ( $_POST [ 'message' ])) : '' );
2010-07-28 19:28:39 -04:00
$total = 0 ;
2016-12-21 17:04:09 -05:00
if ( get_config ( 'system' , 'invitation_only' )) {
2011-07-17 19:08:47 -04:00
$invonly = true ;
$x = get_pconfig ( 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 )) {
2011-03-10 18:22:21 -05:00
notice ( sprintf ( 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 ())) {
2011-07-17 19:08:47 -04: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 ) {
2011-07-18 00:12:31 -04:00
set_pconfig ( 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
2017-01-09 07:14:25 -05:00
$res = mail ( $recip , email_header_encode ( 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' );
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 ++ ;
set_pconfig ( local_user (), 'system' , 'sent_invites' , $current_invites );
2017-03-21 12:02:59 -04:00
if ( $current_invites > $max_invites ) {
2013-01-25 16:48:57 -05:00
notice ( t ( 'Invitation limit exceeded. Please contact your site administrator.' ) . EOL );
return ;
}
2016-12-21 17:04:09 -05:00
} else {
2011-03-10 18:22:21 -05:00
notice ( sprintf ( t ( '%s : Message delivery failed.' ), $recip ) . EOL );
2010-07-28 19:28:39 -04:00
}
}
2011-03-13 08:50:44 -04:00
notice ( sprintf ( 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 ()) {
2010-07-28 19:28:39 -04:00
notice ( t ( 'Permission denied.' ) . EOL );
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 ;
2016-12-21 17:04:09 -05:00
if ( get_config ( 'system' , 'invitation_only' )) {
2011-07-17 19:08:47 -04:00
$invonly = true ;
$x = get_pconfig ( 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
notice ( t ( 'You have no more invitations available' ) . EOL );
return '' ;
}
2015-09-15 16:29:02 -04:00
}
2011-07-17 19:08:47 -04:00
2015-09-15 16:29:02 -04:00
$dirloc = get_config ( '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 ) {
2015-09-15 16:29:02 -04:00
$linktxt = sprintf ( 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 . '/siteinfo' );
2016-12-19 08:26:13 -05:00
} elseif ( $a -> config [ 'register_policy' ] != REGISTER_CLOSED ) {
2016-12-19 08:26:13 -05:00
$linktxt = sprintf ( t ( 'To accept this invitation, please visit and register at %s or any other public Friendica website.' ), App :: get_baseurl ())
2015-09-15 16:29:02 -04:00
. " \r \n " . " \r \n " . sprintf ( 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 . '/siteinfo' );
2016-12-20 15:15:53 -05:00
}
2016-12-21 17:04:09 -05:00
} else {
2012-03-25 02:04:18 -04:00
$o = t ( 'Our apologies. This system is not currently configured to connect with other public sites or invite members.' );
return $o ;
}
2011-07-17 19:08:47 -04:00
2010-07-28 19:28:39 -04:00
$o = replace_macros ( $tpl , array (
2013-01-25 16:48:57 -05:00
'$form_security_token' => get_form_security_token ( " send_invite " ),
2016-12-20 15:15:53 -05:00
'$invite' => t ( 'Send invitations' ),
'$addr_text' => t ( 'Enter email addresses, one per line:' ),
'$msg_text' => t ( 'Your message:' ),
'$default_message' => 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
2017-01-09 07:14:25 -05:00
. " \r \n " . " \r \n " . (( $invonly ) ? t ( 'You will need to supply this invitation code: $invite_code' ) . " \r \n " . " \r \n " : '' ) . t ( 'Once you have registered, please connect with me via my profile page at:' )
2016-12-19 08:26:13 -05:00
. " \r \n " . " \r \n " . App :: get_baseurl () . '/profile/' . $a -> user [ 'nickname' ]
2012-03-25 02:04:18 -04:00
. " \r \n " . " \r \n " . t ( 'For more information about the Friendica project and why we feel it is important, please visit http://friendica.com' ) . " \r \n " . " \r \n " ,
2016-12-20 15:15:53 -05:00
'$submit' => t ( 'Submit' )
2010-07-28 19:28:39 -04:00
));
return $o ;
2015-09-15 16:29:02 -04:00
}