2011-09-08 04:10:56 +00:00
< ? php
/**
* Name : WordPress Post Connector
2012-01-27 01:12:10 +00:00
* Description : Post to WordPress ( or anything else which uses blogger XMLRPC API )
2017-01-24 20:07:44 +00:00
* Version : 1.1
2011-09-08 04:10:56 +00:00
* Author : Mike Macgirvin < http :// macgirvin . com / profile / mike >
*/
2018-03-07 21:48:34 +00:00
2021-11-21 22:10:13 +00:00
use Friendica\App ;
2018-01-27 01:04:00 +00:00
use Friendica\Content\Text\BBCode ;
2018-03-07 21:48:34 +00:00
use Friendica\Content\Text\HTML ;
2018-12-26 07:28:16 +00:00
use Friendica\Core\Hook ;
2018-10-29 23:40:18 +00:00
use Friendica\Core\Logger ;
2021-11-21 22:10:13 +00:00
use Friendica\Core\Renderer ;
2018-07-20 12:20:48 +00:00
use Friendica\Database\DBA ;
2019-12-30 02:55:10 +00:00
use Friendica\DI ;
2021-05-01 08:59:14 +00:00
use Friendica\Model\Post ;
2018-11-05 12:47:04 +00:00
use Friendica\Util\XML ;
2017-11-06 23:55:24 +00:00
2018-11-10 16:20:19 +00:00
function wppost_install ()
{
2018-12-26 07:28:16 +00:00
Hook :: register ( 'hook_fork' , 'addon/wppost/wppost.php' , 'wppost_hook_fork' );
Hook :: register ( 'post_local' , 'addon/wppost/wppost.php' , 'wppost_post_local' );
Hook :: register ( 'notifier_normal' , 'addon/wppost/wppost.php' , 'wppost_send' );
Hook :: register ( 'jot_networks' , 'addon/wppost/wppost.php' , 'wppost_jot_nets' );
Hook :: register ( 'connector_settings' , 'addon/wppost/wppost.php' , 'wppost_settings' );
Hook :: register ( 'connector_settings_post' , 'addon/wppost/wppost.php' , 'wppost_settings_post' );
2011-09-08 04:10:56 +00:00
}
2011-10-12 01:46:33 +00:00
2021-11-21 22:10:13 +00:00
function wppost_jot_nets ( App & $a , array & $jotnets_fields )
2018-11-10 16:20:19 +00:00
{
if ( ! local_user ()) {
return ;
}
2011-09-08 04:10:56 +00:00
2020-01-18 15:50:56 +00:00
if ( DI :: pConfig () -> get ( local_user (), 'wppost' , 'post' )) {
2019-03-25 02:44:50 +00:00
$jotnets_fields [] = [
'type' => 'checkbox' ,
'field' => [
'wppost_enable' ,
2020-01-18 19:52:33 +00:00
DI :: l10n () -> t ( 'Post to Wordpress' ),
2020-01-18 15:50:56 +00:00
DI :: pConfig () -> get ( local_user (), 'wppost' , 'post_by_default' )
2019-03-25 02:44:50 +00:00
]
];
2018-11-10 16:20:19 +00:00
}
2011-09-08 04:10:56 +00:00
}
2021-11-21 22:10:13 +00:00
function wppost_settings ( App & $a , array & $data )
{
if ( ! local_user ()) {
2014-05-29 10:42:25 +00:00
return ;
2021-11-21 22:10:13 +00:00
}
2011-09-08 04:10:56 +00:00
2021-11-21 22:10:13 +00:00
$enabled = DI :: pConfig () -> get ( local_user (), 'wppost' , 'post' , false );
$wp_username = DI :: pConfig () -> get ( local_user (), 'wppost' , 'wp_username' );
$wp_blog = DI :: pConfig () -> get ( local_user (), 'wppost' , 'wp_blog' );
$def_enabled = DI :: pConfig () -> get ( local_user (), 'wppost' , 'post_by_default' , false );
$back_enabled = DI :: pConfig () -> get ( local_user (), 'wppost' , 'backlink' , false );
$wp_backlink_text = DI :: pConfig () -> get ( local_user (), 'wppost' , 'wp_backlink_text' );
$shortcheck_enabled = DI :: pConfig () -> get ( local_user (), 'wppost' , 'shortcheck' , false );
$t = Renderer :: getMarkupTemplate ( 'connector_settings.tpl' , 'addon/wppost/' );
$html = Renderer :: replaceMacros ( $t , [
'$enabled' => [ 'wppost' , DI :: l10n () -> t ( 'Enable Wordpress Post Addon' ), $enabled ],
'$username' => [ 'wp_username' , DI :: l10n () -> t ( 'Wordpress username' ), $wp_username ],
'$password' => [ 'wp_password' , DI :: l10n () -> t ( 'Wordpress password' )],
'$blog' => [ 'wp_blog' , DI :: l10n () -> t ( 'WordPress API URL' ), $wp_blog ],
'$bydefault' => [ 'wp_bydefault' , DI :: l10n () -> t ( 'Post to Wordpress by default' ), $def_enabled ],
'$backlink' => [ 'wp_backlink' , DI :: l10n () -> t ( 'Provide a backlink to the Friendica post' ), $back_enabled ],
'$backlink_text' => [ 'wp_backlink_text' , DI :: l10n () -> t ( 'Text for the backlink, e.g. Read the original post and comment stream on Friendica.' ), $wp_backlink_text ],
'$shortcheck' => [ 'wp_shortcheck' , DI :: l10n () -> t ( 'Don\'t post messages that are too short' ), $shortcheck_enabled ],
]);
$data = [
'connector' => 'wppost' ,
'title' => DI :: l10n () -> t ( 'Wordpress Export' ),
'image' => 'images/wordpress.png' ,
'enabled' => $enabled ,
'html' => $html ,
];
2011-09-08 04:10:56 +00:00
}
2022-06-23 05:16:22 +00:00
function wppost_settings_post ( App $a , array & $b )
2020-11-20 14:11:49 +00:00
{
2018-11-30 14:11:56 +00:00
if ( ! empty ( $_POST [ 'wppost-submit' ])) {
2020-11-20 14:11:49 +00:00
DI :: pConfig () -> set ( local_user (), 'wppost' , 'post' , intval ( $_POST [ 'wppost' ]));
DI :: pConfig () -> set ( local_user (), 'wppost' , 'post_by_default' , intval ( $_POST [ 'wp_bydefault' ]));
DI :: pConfig () -> set ( local_user (), 'wppost' , 'wp_username' , trim ( $_POST [ 'wp_username' ]));
DI :: pConfig () -> set ( local_user (), 'wppost' , 'wp_password' , trim ( $_POST [ 'wp_password' ]));
DI :: pConfig () -> set ( local_user (), 'wppost' , 'wp_blog' , trim ( $_POST [ 'wp_blog' ]));
DI :: pConfig () -> set ( local_user (), 'wppost' , 'backlink' , intval ( $_POST [ 'wp_backlink' ]));
DI :: pConfig () -> set ( local_user (), 'wppost' , 'shortcheck' , intval ( $_POST [ 'wp_shortcheck' ]));
$wp_backlink_text = BBCode :: convert ( trim ( $_POST [ 'wp_backlink_text' ]), false , BBCode :: BACKLINK );
2018-03-07 21:48:34 +00:00
$wp_backlink_text = HTML :: toPlaintext ( $wp_backlink_text , 0 , true );
2020-11-20 14:11:49 +00:00
DI :: pConfig () -> set ( local_user (), 'wppost' , 'wp_backlink_text' , $wp_backlink_text );
2011-09-08 04:10:56 +00:00
}
}
2022-06-23 05:16:22 +00:00
function wppost_hook_fork ( App $a , array & $b )
2018-11-10 16:20:19 +00:00
{
if ( $b [ 'name' ] != 'notifier_normal' ) {
return ;
}
$post = $b [ 'data' ];
if ( $post [ 'deleted' ] || $post [ 'private' ] || ( $post [ 'created' ] !== $post [ 'edited' ]) ||
! strstr ( $post [ 'postopts' ], 'wppost' ) || ( $post [ 'parent' ] != $post [ 'id' ])) {
$b [ 'execute' ] = false ;
return ;
}
}
2022-06-23 05:16:22 +00:00
function wppost_post_local ( App $a , array & $b ) {
2011-09-08 04:10:56 +00:00
2011-10-12 01:46:33 +00:00
// This can probably be changed to allow editing by pointing to a different API endpoint
2011-09-08 04:10:56 +00:00
2017-09-06 16:16:33 +00:00
if ( $b [ 'edit' ]) {
2011-09-08 04:10:56 +00:00
return ;
2017-01-24 20:07:44 +00:00
}
2011-09-08 04:10:56 +00:00
2017-09-06 16:16:33 +00:00
if ( ! local_user () || ( local_user () != $b [ 'uid' ])) {
2011-09-08 04:10:56 +00:00
return ;
2017-01-24 20:07:44 +00:00
}
2011-09-08 04:10:56 +00:00
2017-09-06 16:16:33 +00:00
if ( $b [ 'private' ] || $b [ 'parent' ]) {
2011-09-08 04:10:56 +00:00
return ;
2017-01-24 20:07:44 +00:00
}
2011-09-08 04:10:56 +00:00
2020-11-20 14:11:49 +00:00
$wp_post = intval ( DI :: pConfig () -> get ( local_user (), 'wppost' , 'post' ));
2011-09-08 04:10:56 +00:00
2018-11-30 14:11:56 +00:00
$wp_enable = (( $wp_post && ! empty ( $_REQUEST [ 'wppost_enable' ])) ? intval ( $_REQUEST [ 'wppost_enable' ]) : 0 );
2011-09-08 04:10:56 +00:00
2020-11-20 14:11:49 +00:00
if ( $b [ 'api_source' ] && intval ( DI :: pConfig () -> get ( local_user (), 'wppost' , 'post_by_default' ))) {
2011-09-08 04:10:56 +00:00
$wp_enable = 1 ;
2017-01-24 20:07:44 +00:00
}
2011-09-08 04:10:56 +00:00
2017-09-06 16:16:33 +00:00
if ( ! $wp_enable ) {
return ;
}
2011-10-12 01:46:33 +00:00
2017-09-06 16:16:33 +00:00
if ( strlen ( $b [ 'postopts' ])) {
$b [ 'postopts' ] .= ',' ;
}
$b [ 'postopts' ] .= 'wppost' ;
2011-10-12 01:46:33 +00:00
}
2022-06-23 05:16:22 +00:00
function wppost_send ( App $a , array & $b )
2018-11-24 00:21:51 +00:00
{
2018-01-10 03:27:40 +00:00
if ( $b [ 'deleted' ] || $b [ 'private' ] || ( $b [ 'created' ] !== $b [ 'edited' ])) {
2014-05-29 10:42:25 +00:00
return ;
2018-01-10 03:27:40 +00:00
}
2011-10-12 01:46:33 +00:00
2018-01-10 03:27:40 +00:00
if ( ! strstr ( $b [ 'postopts' ], 'wppost' )) {
2014-05-29 10:42:25 +00:00
return ;
2018-01-10 03:27:40 +00:00
}
2011-10-12 01:46:33 +00:00
2018-01-10 03:27:40 +00:00
if ( $b [ 'parent' ] != $b [ 'id' ]) {
2014-05-29 10:42:25 +00:00
return ;
2018-01-10 03:27:40 +00:00
}
2011-10-12 01:46:33 +00:00
2017-11-25 23:56:18 +00:00
// Dont't post if the post doesn't belong to us.
// This is a check for forum postings
2018-07-20 12:20:48 +00:00
$self = DBA :: selectFirst ( 'contact' , [ 'id' ], [ 'uid' => $b [ 'uid' ], 'self' => true ]);
2017-11-25 23:56:18 +00:00
if ( $b [ 'contact-id' ] != $self [ 'id' ]) {
return ;
}
2011-10-12 01:46:33 +00:00
2021-05-01 08:59:14 +00:00
$b [ 'body' ] = Post\Media :: addAttachmentsToBody ( $b [ 'uri-id' ], $b [ 'body' ]);
2020-01-18 15:50:56 +00:00
$wp_username = XML :: escape ( DI :: pConfig () -> get ( $b [ 'uid' ], 'wppost' , 'wp_username' ));
$wp_password = XML :: escape ( DI :: pConfig () -> get ( $b [ 'uid' ], 'wppost' , 'wp_password' ));
$wp_blog = DI :: pConfig () -> get ( $b [ 'uid' ], 'wppost' , 'wp_blog' );
$wp_backlink_text = DI :: pConfig () -> get ( $b [ 'uid' ], 'wppost' , 'wp_backlink_text' );
2017-01-24 20:07:44 +00:00
if ( $wp_backlink_text == '' ) {
2020-01-18 19:52:33 +00:00
$wp_backlink_text = DI :: l10n () -> t ( 'Read the orig i nal post and com ment stream on Friendica' );
2017-01-24 20:07:44 +00:00
}
2011-10-12 01:46:33 +00:00
2018-01-27 00:26:37 +00:00
if ( $wp_username && $wp_password && $wp_blog ) {
2012-06-17 23:30:44 +00:00
$wptitle = trim ( $b [ 'title' ]);
2020-01-18 15:50:56 +00:00
if ( intval ( DI :: pConfig () -> get ( $b [ 'uid' ], 'wppost' , 'shortcheck' ))) {
2014-05-29 10:42:25 +00:00
// Checking, if its a post that is worth a blog post
$postentry = false ;
2018-01-27 01:04:00 +00:00
$siteinfo = BBCode :: getAttachedData ( $b [ " body " ]);
2014-05-29 10:42:25 +00:00
// Is it a link to an aricle, a video or a photo?
2017-01-24 20:07:44 +00:00
if ( isset ( $siteinfo [ " type " ])) {
2018-01-15 13:15:33 +00:00
if ( in_array ( $siteinfo [ " type " ], [ " link " , " audio " , " video " , " photo " ])) {
2014-05-29 10:42:25 +00:00
$postentry = true ;
2017-01-24 20:07:44 +00:00
}
}
2014-05-29 10:42:25 +00:00
// Does it have a title?
2017-01-24 20:07:44 +00:00
if ( $wptitle != " " ) {
2014-05-29 10:42:25 +00:00
$postentry = true ;
2017-01-24 20:07:44 +00:00
}
2014-05-29 10:42:25 +00:00
// Is it larger than 500 characters?
2017-01-24 20:07:44 +00:00
if ( strlen ( $b [ 'body' ]) > 500 ) {
2014-05-29 10:42:25 +00:00
$postentry = true ;
2017-01-24 20:07:44 +00:00
}
2014-05-29 10:42:25 +00:00
2017-01-24 20:07:44 +00:00
if ( ! $postentry ) {
2014-05-29 10:42:25 +00:00
return ;
2017-01-24 20:07:44 +00:00
}
2014-05-29 10:42:25 +00:00
}
2012-04-01 17:20:40 +00:00
// If the title is empty then try to guess
2012-06-17 23:30:44 +00:00
if ( $wptitle == '' ) {
2016-06-23 18:25:00 +00:00
// Fetch information about the post
2018-01-27 01:04:00 +00:00
$siteinfo = BBCode :: getAttachedData ( $b [ " body " ]);
2017-01-24 20:07:44 +00:00
if ( isset ( $siteinfo [ " title " ])) {
2016-06-23 18:25:00 +00:00
$wptitle = $siteinfo [ " title " ];
2017-01-24 20:07:44 +00:00
}
2012-04-01 17:20:40 +00:00
// If no bookmark is found then take the first line
2012-06-17 23:30:44 +00:00
if ( $wptitle == '' ) {
2014-01-26 08:53:12 +00:00
// Remove the share element before fetching the first line
2020-11-20 14:11:49 +00:00
$title = trim ( preg_replace ( " / \ [share.*? \ ](.*?) \ [ \ /share \ ]/ism " , " \n $ 1 \n " , $b [ 'body' ]));
2014-01-26 08:53:12 +00:00
2021-07-10 07:40:39 +00:00
$title = BBCode :: toPlaintext ( $title ) . " \n " ;
2012-04-01 17:20:40 +00:00
$pos = strpos ( $title , " \n " );
2013-07-14 12:58:12 +00:00
$trailer = " " ;
2017-06-09 01:20:27 +00:00
if (( $pos == 0 ) || ( $pos > 100 )) {
2013-07-14 12:58:12 +00:00
$pos = 100 ;
$trailer = " ... " ;
}
2012-04-01 17:20:40 +00:00
2013-07-14 12:58:12 +00:00
$wptitle = substr ( $title , 0 , $pos ) . $trailer ;
2012-04-01 17:20:40 +00:00
}
}
2011-09-08 04:33:54 +00:00
2020-01-18 19:52:33 +00:00
$title = '<title>' . (( $wptitle ) ? $wptitle : DI :: l10n () -> t ( 'Post from Friendica' )) . '</title>' ;
2021-07-10 07:40:39 +00:00
$post = BBCode :: convertForUriId ( $b [ 'uri-id' ], $b [ 'body' ], BBCode :: CONNECTORS );
2013-07-20 12:28:17 +00:00
// If a link goes to youtube then remove the stuff around it. Wordpress detects youtube links and embeds it
2020-11-20 14:11:49 +00:00
$post = preg_replace ( '/<a.*?href="(https?:\/\/www.youtube.com\/.*?)".*?>(.*?)<\/a>/ism' , " \n $ 1 \n " , $post );
$post = preg_replace ( '/<a.*?href="(https?:\/\/youtu.be\/.*?)".*?>(.*?)<\/a>/ism' , " \n $ 1 \n " , $post );
2013-07-20 12:28:17 +00:00
$post = $title . $post ;
2012-05-14 23:30:18 +00:00
2020-01-18 15:50:56 +00:00
$wp_backlink = intval ( DI :: pConfig () -> get ( $b [ 'uid' ], 'wppost' , 'backlink' ));
2017-01-24 20:07:44 +00:00
if ( $wp_backlink && $b [ 'plink' ]) {
2022-10-18 12:58:11 +00:00
$post .= '<p><a href="' . $b [ 'plink' ] . '">' . $wp_backlink_text . '</a></p>' ;
2017-01-24 20:07:44 +00:00
}
2012-05-14 23:30:18 +00:00
2018-11-05 12:47:04 +00:00
$post = XML :: escape ( $post );
2011-09-08 04:10:56 +00:00
2012-05-14 23:30:18 +00:00
2011-09-08 04:10:56 +00:00
$xml = <<< EOT
2012-02-28 07:19:25 +00:00
< ? xml version = \ " 1.0 \" encoding= \" utf-8 \" ?>
2011-09-08 04:10:56 +00:00
< methodCall >
< methodName > blogger . newPost </ methodName >
< params >
< param >< value >< string /></ value ></ param >
< param >< value >< string /></ value ></ param >
< param >< value >< string > $wp_username </ string ></ value ></ param >
< param >< value >< string > $wp_password </ string ></ value ></ param >
< param >< value >< string > $post </ string ></ value ></ param >
< param >< value >< int > 1 </ int ></ value ></ param >
</ params >
</ methodCall >
EOT ;
2021-10-21 06:04:27 +00:00
Logger :: debug ( 'wppost: data: ' . $xml );
2011-09-08 04:10:56 +00:00
2018-01-27 13:52:02 +00:00
if ( $wp_blog !== 'test' ) {
2021-08-25 19:54:54 +00:00
$x = DI :: httpClient () -> post ( $wp_blog , $xml ) -> getBody ();
2017-01-24 20:07:44 +00:00
}
2021-10-21 06:04:27 +00:00
Logger :: info ( 'posted to wordpress: ' . (( $x ) ? $x : '' ));
2011-09-08 04:10:56 +00:00
}
}