]> git.mxchange.org Git - friendica.git/blob - mod/invite.php
Remove unused global cache constants
[friendica.git] / mod / invite.php
1 <?php
2 /**
3  * Module: invite.php
4  *
5  * Send email invitations to join social network
6  *
7  */
8
9 use Friendica\App;
10 use Friendica\Core\Config;
11 use Friendica\Core\L10n;
12 use Friendica\Core\PConfig;
13 use Friendica\Core\System;
14 use Friendica\Protocol\Email;
15 use Friendica\Util\DateTimeFormat;
16
17 function invite_post(App $a)
18 {
19         if (! local_user()) {
20                 notice(L10n::t('Permission denied.') . EOL);
21                 return;
22         }
23
24         check_form_security_token_redirectOnErr('/', 'send_invite');
25
26         $max_invites = intval(Config::get('system', 'max_invites'));
27         if (! $max_invites) {
28                 $max_invites = 50;
29         }
30
31         $current_invites = intval(PConfig::get(local_user(), 'system', 'sent_invites'));
32         if ($current_invites > $max_invites) {
33                 notice(L10n::t('Total invitation limit exceeded.') . EOL);
34                 return;
35         }
36
37
38         $recips  = ((x($_POST, 'recipients')) ? explode("\n", $_POST['recipients']) : []);
39         $message = ((x($_POST, 'message'))    ? notags(trim($_POST['message']))    : '');
40
41         $total = 0;
42
43         if (Config::get('system', 'invitation_only')) {
44                 $invonly = true;
45                 $x = PConfig::get(local_user(), 'system', 'invites_remaining');
46                 if ((! $x) && (! is_site_admin())) {
47                         return;
48                 }
49         }
50
51         foreach ($recips as $recip) {
52                 $recip = trim($recip);
53
54                 if (! valid_email($recip)) {
55                         notice(L10n::t('%s : Not a valid email address.', $recip) . EOL);
56                         continue;
57                 }
58
59                 if ($invonly && ($x || is_site_admin())) {
60                         $code = autoname(8) . srand(1000, 9999);
61                         $nmessage = str_replace('$invite_code', $code, $message);
62
63                         $r = q("INSERT INTO `register` (`hash`,`created`) VALUES ('%s', '%s') ",
64                                 dbesc($code),
65                                 dbesc(DateTimeFormat::utcNow())
66                         );
67
68                         if (! is_site_admin()) {
69                                 $x --;
70                                 if ($x >= 0) {
71                                         PConfig::set(local_user(), 'system', 'invites_remaining', $x);
72                                 } else {
73                                         return;
74                                 }
75                         }
76                 } else {
77                         $nmessage = $message;
78                 }
79
80                 $res = mail($recip, Email::encodeHeader(L10n::t('Please join us on Friendica'), 'UTF-8'),
81                         $nmessage,
82                         "From: " . $a->user['email'] . "\n"
83                         . 'Content-type: text/plain; charset=UTF-8' . "\n"
84                         . 'Content-transfer-encoding: 8bit' );
85
86                 if ($res) {
87                         $total ++;
88                         $current_invites ++;
89                         PConfig::set(local_user(), 'system', 'sent_invites', $current_invites);
90                         if ($current_invites > $max_invites) {
91                                 notice(L10n::t('Invitation limit exceeded. Please contact your site administrator.') . EOL);
92                                 return;
93                         }
94                 } else {
95                         notice(L10n::t('%s : Message delivery failed.', $recip) . EOL);
96                 }
97
98         }
99         notice(L10n::tt("%d message sent.", "%d messages sent.", $total) . EOL);
100         return;
101 }
102
103 function invite_content(App $a) {
104
105         if (! local_user()) {
106                 notice(L10n::t('Permission denied.') . EOL);
107                 return;
108         }
109
110         $tpl = get_markup_template('invite.tpl');
111         $invonly = false;
112
113         if (Config::get('system', 'invitation_only')) {
114                 $invonly = true;
115                 $x = PConfig::get(local_user(), 'system', 'invites_remaining');
116                 if ((! $x) && (! is_site_admin())) {
117                         notice(L10n::t('You have no more invitations available') . EOL);
118                         return '';
119                 }
120         }
121
122         $dirloc = Config::get('system', 'directory');
123         if (strlen($dirloc)) {
124                 if ($a->config['register_policy'] == REGISTER_CLOSED) {
125                         $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');
126                 } else {
127                         $linktxt = L10n::t('To accept this invitation, please visit and register at %s or any other public Friendica website.', System::baseUrl())
128                         . "\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');
129                 }
130         } else { // there is no global directory URL defined
131                 if ($a->config['register_policy'] == REGISTER_CLOSED) {
132                         $o = L10n::t('Our apologies. This system is not currently configured to connect with other public sites or invite members.');
133                         return $o;
134                 } else {
135                         $linktxt = L10n::t('To accept this invitation, please visit and register at %s.', System::baseUrl()
136                         . "\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.'));
137                 }
138         }
139
140         $o = replace_macros($tpl, [
141                 '$form_security_token' => get_form_security_token("send_invite"),
142                 '$invite'              => L10n::t('Send invitations'),
143                 '$addr_text'           => L10n::t('Enter email addresses, one per line:'),
144                 '$msg_text'            => L10n::t('Your message:'),
145                 '$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"
146                         . $linktxt
147                         . "\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:')
148                         . "\r\n" . "\r\n" . System::baseUrl() . '/profile/' . $a->user['nickname']
149                         . "\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"  ,
150                 '$submit'              => L10n::t('Submit')
151         ]);
152
153         return $o;
154 }