2012-04-01 03:59:35 -04:00
< ? php
2018-01-14 21:22:39 -05:00
/**
* @ file mod / wallmessage . php
*/
2017-04-30 00:07:00 -04:00
use Friendica\App ;
2018-01-21 13:33:59 -05:00
use Friendica\Core\L10n ;
2018-10-29 17:20:46 -04:00
use Friendica\Core\Logger ;
2018-10-31 10:35:50 -04:00
use Friendica\Core\Renderer ;
2018-01-14 21:22:39 -05:00
use Friendica\Core\System ;
2018-07-21 08:40:21 -04:00
use Friendica\Database\DBA ;
2018-01-15 12:14:09 -05:00
use Friendica\Model\Mail ;
2018-01-14 21:22:39 -05:00
use Friendica\Model\Profile ;
2018-11-08 10:14:37 -05:00
use Friendica\Util\Strings ;
2017-04-30 00:07:00 -04:00
2017-01-09 07:14:55 -05:00
function wallmessage_post ( App $a ) {
2012-04-01 03:59:35 -04:00
2018-01-14 21:22:39 -05:00
$replyto = Profile :: getMyURL ();
2018-01-22 09:16:25 -05:00
if ( ! $replyto ) {
2018-01-21 13:33:59 -05:00
notice ( L10n :: t ( 'Permission denied.' ) . EOL );
2012-04-01 03:59:35 -04:00
return ;
}
2018-11-08 10:14:37 -05:00
$subject = (( x ( $_REQUEST , 'subject' )) ? Strings :: removeTags ( trim ( $_REQUEST [ 'subject' ])) : '' );
2018-11-09 13:27:58 -05:00
$body = (( x ( $_REQUEST , 'body' )) ? Strings :: escapeHtml ( trim ( $_REQUEST [ 'body' ])) : '' );
2012-04-01 03:59:35 -04:00
2018-11-08 10:14:37 -05:00
$recipient = (( $a -> argc > 1 ) ? Strings :: removeTags ( $a -> argv [ 1 ]) : '' );
2018-01-22 09:16:25 -05:00
if (( ! $recipient ) || ( ! $body )) {
2012-04-01 03:59:35 -04:00
return ;
}
$r = q ( " select * from user where nickname = '%s' limit 1 " ,
2018-07-21 09:10:13 -04:00
DBA :: escape ( $recipient )
2012-04-01 03:59:35 -04:00
);
2018-07-21 08:46:04 -04:00
if ( ! DBA :: isResult ( $r )) {
2018-10-29 17:20:46 -04:00
Logger :: log ( 'wallmessage: no recipient' );
2012-04-01 03:59:35 -04:00
return ;
}
$user = $r [ 0 ];
2018-01-22 09:16:25 -05:00
if ( ! intval ( $user [ 'unkmail' ])) {
2018-01-21 13:33:59 -05:00
notice ( L10n :: t ( 'Permission denied.' ) . EOL );
2012-04-01 03:59:35 -04:00
return ;
}
$r = q ( " select count(*) as total from mail where uid = %d and created > UTC_TIMESTAMP() - INTERVAL 1 day and unknown = 1 " ,
intval ( $user [ 'uid' ])
);
2018-01-22 09:16:25 -05:00
if ( $r [ 0 ][ 'total' ] > $user [ 'cntunkmail' ]) {
2018-01-23 21:59:16 -05:00
notice ( L10n :: t ( 'Number of daily wall messages for %s exceeded. Message failed.' , $user [ 'username' ]));
2012-04-01 03:59:35 -04:00
return ;
}
2018-01-15 12:14:09 -05:00
$ret = Mail :: sendWall ( $user , $body , $subject , $replyto );
2012-04-01 03:59:35 -04:00
2018-01-22 09:16:25 -05:00
switch ( $ret ) {
2012-04-01 03:59:35 -04:00
case - 1 :
2018-01-22 09:16:25 -05:00
notice ( L10n :: t ( 'No recipient selected.' ) . EOL );
2012-04-01 03:59:35 -04:00
break ;
case - 2 :
2018-01-22 09:16:25 -05:00
notice ( L10n :: t ( 'Unable to check your home location.' ) . EOL );
2012-04-01 03:59:35 -04:00
break ;
case - 3 :
2018-01-22 09:16:25 -05:00
notice ( L10n :: t ( 'Message could not be sent.' ) . EOL );
2012-04-01 03:59:35 -04:00
break ;
case - 4 :
2018-01-22 09:16:25 -05:00
notice ( L10n :: t ( 'Message collection failure.' ) . EOL );
2012-04-01 03:59:35 -04:00
break ;
default :
2018-01-22 09:16:25 -05:00
info ( L10n :: t ( 'Message sent.' ) . EOL );
2012-04-01 03:59:35 -04:00
}
2012-05-25 21:29:06 -04:00
2018-10-19 14:11:27 -04:00
$a -> internalRedirect ( 'profile/' . $user [ 'nickname' ]);
2016-02-05 15:52:39 -05:00
}
2012-04-01 03:59:35 -04:00
2016-02-07 09:11:34 -05:00
2017-01-09 07:14:55 -05:00
function wallmessage_content ( App $a ) {
2012-04-01 03:59:35 -04:00
2018-01-14 21:22:39 -05:00
if ( ! Profile :: getMyURL ()) {
2018-01-21 13:33:59 -05:00
notice ( L10n :: t ( 'Permission denied.' ) . EOL );
2012-04-01 03:59:35 -04:00
return ;
}
$recipient = (( $a -> argc > 1 ) ? $a -> argv [ 1 ] : '' );
2018-01-22 09:16:25 -05:00
if ( ! $recipient ) {
2018-01-21 13:33:59 -05:00
notice ( L10n :: t ( 'No recipient.' ) . EOL );
2012-04-01 03:59:35 -04:00
return ;
}
$r = q ( " select * from user where nickname = '%s' limit 1 " ,
2018-07-21 09:10:13 -04:00
DBA :: escape ( $recipient )
2012-04-01 03:59:35 -04:00
);
2018-07-21 08:46:04 -04:00
if ( ! DBA :: isResult ( $r )) {
2018-01-21 13:33:59 -05:00
notice ( L10n :: t ( 'No recipient.' ) . EOL );
2018-10-29 17:20:46 -04:00
Logger :: log ( 'wallmessage: no recipient' );
2012-04-01 03:59:35 -04:00
return ;
}
$user = $r [ 0 ];
2018-01-22 09:16:25 -05:00
if ( ! intval ( $user [ 'unkmail' ])) {
2018-01-21 13:33:59 -05:00
notice ( L10n :: t ( 'Permission denied.' ) . EOL );
2012-04-01 03:59:35 -04:00
return ;
}
2017-03-21 12:02:59 -04:00
$r = q ( " select count(*) as total from mail where uid = %d and created > UTC_TIMESTAMP() - INTERVAL 1 day and unknown = 1 " ,
2012-04-01 03:59:35 -04:00
intval ( $user [ 'uid' ])
);
2018-01-22 09:16:25 -05:00
if ( $r [ 0 ][ 'total' ] > $user [ 'cntunkmail' ]) {
2018-01-23 21:59:16 -05:00
notice ( L10n :: t ( 'Number of daily wall messages for %s exceeded. Message failed.' , $user [ 'username' ]));
2012-04-01 03:59:35 -04:00
return ;
}
2018-10-31 10:44:06 -04:00
$tpl = Renderer :: getMarkupTemplate ( 'wallmsg-header.tpl' );
2018-10-31 10:35:50 -04:00
$a -> page [ 'htmlhead' ] .= Renderer :: replaceMacros ( $tpl , [
2017-08-26 03:52:49 -04:00
'$baseurl' => System :: baseUrl ( true ),
2012-07-28 11:57:16 -04:00
'$nickname' => $user [ 'nickname' ],
2018-01-22 09:16:25 -05:00
'$linkurl' => L10n :: t ( 'Please enter a link URL:' )
2018-01-15 08:05:12 -05:00
]);
2012-07-28 11:57:16 -04:00
2018-10-31 10:44:06 -04:00
$tpl = Renderer :: getMarkupTemplate ( 'wallmessage.tpl' );
2018-10-31 10:35:50 -04:00
$o = Renderer :: replaceMacros ( $tpl , [
2018-01-22 09:16:25 -05:00
'$header' => L10n :: t ( 'Send Private Message' ),
2018-01-23 21:59:16 -05:00
'$subheader' => L10n :: 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' ]),
2018-01-22 09:16:25 -05:00
'$to' => L10n :: t ( 'To:' ),
'$subject' => L10n :: t ( 'Subject:' ),
2012-07-28 11:57:16 -04:00
'$recipname' => $user [ 'username' ],
'$nickname' => $user [ 'nickname' ],
2018-01-22 09:16:25 -05:00
'$subjtxt' => (( x ( $_REQUEST , 'subject' )) ? strip_tags ( $_REQUEST [ 'subject' ]) : '' ),
2018-11-09 13:27:58 -05:00
'$text' => (( x ( $_REQUEST , 'body' )) ? Strings :: escapeHtml ( htmlspecialchars ( $_REQUEST [ 'body' ])) : '' ),
2012-07-28 11:57:16 -04:00
'$readonly' => '' ,
2018-01-22 09:16:25 -05:00
'$yourmessage' => L10n :: t ( 'Your message:' ),
2012-07-28 11:57:16 -04:00
'$parent' => '' ,
2018-01-22 09:16:25 -05:00
'$upload' => L10n :: t ( 'Upload photo' ),
'$insert' => L10n :: t ( 'Insert web link' ),
'$wait' => L10n :: t ( 'Please wait' )
2018-01-15 08:05:12 -05:00
]);
2012-07-28 11:57:16 -04:00
return $o ;
}