3 * @file mod/wallmessage.php
6 use Friendica\Core\System;
7 use Friendica\Database\DBM;
8 use Friendica\Model\Mail;
9 use Friendica\Model\Profile;
11 function wallmessage_post(App $a) {
13 $replyto = Profile::getMyURL();
15 notice( t('Permission denied.') . EOL);
19 $subject = ((x($_REQUEST,'subject')) ? notags(trim($_REQUEST['subject'])) : '');
20 $body = ((x($_REQUEST,'body')) ? escape_tags(trim($_REQUEST['body'])) : '');
22 $recipient = (($a->argc > 1) ? notags($a->argv[1]) : '');
23 if((! $recipient) || (! $body)) {
27 $r = q("select * from user where nickname = '%s' limit 1",
31 if (! DBM::is_result($r)) {
32 logger('wallmessage: no recipient');
38 if(! intval($user['unkmail'])) {
39 notice( t('Permission denied.') . EOL);
43 $r = q("select count(*) as total from mail where uid = %d and created > UTC_TIMESTAMP() - INTERVAL 1 day and unknown = 1",
47 if($r[0]['total'] > $user['cntunkmail']) {
48 notice( sprintf( t('Number of daily wall messages for %s exceeded. Message failed.', $user['username'])));
52 $ret = Mail::sendWall($user, $body, $subject, $replyto);
56 notice( t('No recipient selected.') . EOL );
59 notice( t('Unable to check your home location.') . EOL );
62 notice( t('Message could not be sent.') . EOL );
65 notice( t('Message collection failure.') . EOL );
68 info( t('Message sent.') . EOL );
71 goaway('profile/'.$user['nickname']);
76 function wallmessage_content(App $a) {
78 if (!Profile::getMyURL()) {
79 notice(t('Permission denied.') . EOL);
83 $recipient = (($a->argc > 1) ? $a->argv[1] : '');
86 notice( t('No recipient.') . EOL);
90 $r = q("select * from user where nickname = '%s' limit 1",
94 if (! DBM::is_result($r)) {
95 notice( t('No recipient.') . EOL);
96 logger('wallmessage: no recipient');
102 if(! intval($user['unkmail'])) {
103 notice( t('Permission denied.') . EOL);
107 $r = q("select count(*) as total from mail where uid = %d and created > UTC_TIMESTAMP() - INTERVAL 1 day and unknown = 1",
111 if($r[0]['total'] > $user['cntunkmail']) {
112 notice( sprintf( t('Number of daily wall messages for %s exceeded. Message failed.', $user['username'])));
116 $tpl = get_markup_template('wallmsg-header.tpl');
117 $a->page['htmlhead'] .= replace_macros($tpl, [
118 '$baseurl' => System::baseUrl(true),
119 '$nickname' => $user['nickname'],
120 '$linkurl' => t('Please enter a link URL:')
123 $tpl = get_markup_template('wallmsg-end.tpl');
124 $a->page['end'] .= replace_macros($tpl, [
125 '$baseurl' => System::baseUrl(true),
126 '$nickname' => $user['nickname'],
127 '$linkurl' => t('Please enter a link URL:')
130 $tpl = get_markup_template('wallmessage.tpl');
131 $o .= replace_macros($tpl,[
132 '$header' => t('Send Private Message'),
133 '$subheader' => sprintf( t('If you wish for %s to respond, please check that the privacy settings on your site allow private mail from unknown senders.'), $user['username']),
135 '$subject' => t('Subject:'),
136 '$recipname' => $user['username'],
137 '$nickname' => $user['nickname'],
138 '$subjtxt' => ((x($_REQUEST,'subject')) ? strip_tags($_REQUEST['subject']) : ''),
139 '$text' => ((x($_REQUEST,'body')) ? escape_tags(htmlspecialchars($_REQUEST['body'])) : ''),
141 '$yourmessage' => t('Your message:'),
142 '$select' => $select,
144 '$upload' => t('Upload photo'),
145 '$insert' => t('Insert web link'),
146 '$wait' => t('Please wait')