libertree/libertree.php

   1 <?php
   2 /**
   3  * Name: Libertree Post Connector
   4  * Description: Post to libertree accounts
   5  * Version: 1.0
   6  * Author: Tony Baldwin <https://free-haven.org/u/tony>
   7  */
   8
   9 use Friendica\App;
  10 use Friendica\Content\Text\BBCode;
  11 use Friendica\Core\Hook;
  12 use Friendica\Core\Logger;
  13 use Friendica\Core\Renderer;
  14 use Friendica\Database\DBA;
  15 use Friendica\DI;
  16 use Friendica\Model\Post;
  17
  18 function libertree_install()
  19 {
  20         Hook::register('hook_fork',            'addon/libertree/libertree.php', 'libertree_hook_fork');
  21         Hook::register('post_local',           'addon/libertree/libertree.php', 'libertree_post_local');
  22         Hook::register('notifier_normal',      'addon/libertree/libertree.php', 'libertree_send');
  23         Hook::register('jot_networks',         'addon/libertree/libertree.php', 'libertree_jot_nets');
  24         Hook::register('connector_settings',      'addon/libertree/libertree.php', 'libertree_settings');
  25         Hook::register('connector_settings_post', 'addon/libertree/libertree.php', 'libertree_settings_post');
  26 }
  27
  28 function libertree_jot_nets(App &$a, array &$jotnets_fields)
  29 {
  30     if(! local_user()) {
  31         return;
  32     }
  33
  34         if (DI::pConfig()->get(local_user(), 'libertree', 'post')) {
  35                 $jotnets_fields[] = [
  36                         'type' => 'checkbox',
  37                         'field' => [
  38                                 'libertree_enable',
  39                                 DI::l10n()->t('Post to libertree'),
  40                                 DI::pConfig()->get(local_user(), 'libertree', 'post_by_default')
  41                         ]
  42                 ];
  43         }
  44 }
  45
  46
  47 function libertree_settings(App $a, array &$data)
  48 {
  49         if (!local_user()) {
  50                 return;
  51         }
  52
  53         $enabled         = DI::pConfig()->get(local_user(), 'libertree', 'post', false);
  54         $ltree_api_token = DI::pConfig()->get(local_user(), 'libertree', 'libertree_api_token');
  55         $ltree_url       = DI::pConfig()->get(local_user(), 'libertree', 'libertree_url');
  56         $def_enabled     = DI::pConfig()->get(local_user(), 'libertree', 'post_by_default');
  57
  58         $t    = Renderer::getMarkupTemplate('connector_settings.tpl', 'addon/libertree/');
  59         $html = Renderer::replaceMacros($t, [
  60                 '$enabled'         => ['libertree', DI::l10n()->t('Enable Libertree Post Addon'), $enabled],
  61                 '$ltree_url'       => ['libertree_url', DI::l10n()->t('Libertree site URL'), $ltree_url],
  62                 '$ltree_api_token' => ['libertree_api_token', DI::l10n()->t('Libertree API token'), $ltree_api_token],
  63                 '$bydefault'       => ['ij_bydefault', DI::l10n()->t('Post to Libertree by default'), $def_enabled],
  64         ]);
  65
  66         $data = [
  67                 'connector' => 'libertree',
  68                 'title'     => DI::l10n()->t('Libertree Export'),
  69                 'image'     => 'images/libertree.png',
  70                 'enabled'   => $enabled,
  71                 'html'      => $html,
  72         ];
  73 }
  74
  75
  76 function libertree_settings_post(&$a,&$b) {
  77
  78         if(!empty($_POST['libertree-submit'])) {
  79
  80                 DI::pConfig()->set(local_user(),'libertree','post',intval($_POST['libertree']));
  81                 DI::pConfig()->set(local_user(),'libertree','post_by_default',intval($_POST['libertree_bydefault']));
  82                 DI::pConfig()->set(local_user(),'libertree','libertree_api_token',trim($_POST['libertree_api_token']));
  83                 DI::pConfig()->set(local_user(),'libertree','libertree_url',trim($_POST['libertree_url']));
  84
  85         }
  86
  87 }
  88
  89 function libertree_hook_fork(App &$a, array &$b)
  90 {
  91         if ($b['name'] != 'notifier_normal') {
  92                 return;
  93         }
  94
  95         $post = $b['data'];
  96
  97         if ($post['deleted'] || $post['private'] || ($post['created'] !== $post['edited']) ||
  98                 !strstr($post['postopts'], 'libertree') || ($post['parent'] != $post['id'])) {
  99                 $b['execute'] = false;
 100                 return;
 101         }
 102 }
 103
 104 function libertree_post_local(&$a,&$b) {
 105
 106         // This can probably be changed to allow editing by pointing to a different API endpoint
 107
 108         if ($b['edit']) {
 109                 return;
 110         }
 111
 112         if ((! local_user()) || (local_user() != $b['uid'])) {
 113                 return;
 114         }
 115
 116         if ($b['private'] || $b['parent']) {
 117                 return;
 118         }
 119
 120         $ltree_post   = intval(DI::pConfig()->get(local_user(),'libertree','post'));
 121
 122         $ltree_enable = (($ltree_post && !empty($_REQUEST['libertree_enable'])) ? intval($_REQUEST['libertree_enable']) : 0);
 123
 124         if ($b['api_source'] && intval(DI::pConfig()->get(local_user(),'libertree','post_by_default'))) {
 125                 $ltree_enable = 1;
 126         }
 127
 128         if (!$ltree_enable) {
 129                 return;
 130         }
 131
 132         if (strlen($b['postopts'])) {
 133                 $b['postopts'] .= ',';
 134         }
 135
 136         $b['postopts'] .= 'libertree';
 137 }
 138
 139
 140
 141
 142 function libertree_send(&$a,&$b) {
 143
 144         Logger::notice('libertree_send: invoked');
 145
 146         if ($b['deleted'] || $b['private'] || ($b['created'] !== $b['edited'])) {
 147                 return;
 148         }
 149
 150         if (! strstr($b['postopts'],'libertree')) {
 151                 return;
 152         }
 153
 154         if ($b['parent'] != $b['id']) {
 155                 return;
 156         }
 157
 158         // Dont't post if the post doesn't belong to us.
 159         // This is a check for forum postings
 160         $self = DBA::selectFirst('contact', ['id'], ['uid' => $b['uid'], 'self' => true]);
 161         if ($b['contact-id'] != $self['id']) {
 162                 return;
 163         }
 164
 165         $b['body'] = Post\Media::addAttachmentsToBody($b['uri-id'], $b['body']);
 166
 167         $ltree_api_token = DI::pConfig()->get($b['uid'],'libertree','libertree_api_token');
 168         $ltree_url = DI::pConfig()->get($b['uid'],'libertree','libertree_url');
 169         $ltree_blog = "$ltree_url/api/v1/posts/create/?token=$ltree_api_token";
 170         $ltree_source = DI::baseUrl()->getHostname();
 171
 172         if ($b['app'] != "")
 173                 $ltree_source .= " (".$b['app'].")";
 174
 175         if($ltree_url && $ltree_api_token && $ltree_blog && $ltree_source) {
 176                 $title = $b['title'];
 177                 $body = $b['body'];
 178                 // Insert a newline before and after a quote
 179                 $body = str_ireplace("[quote", "\n\n[quote", $body);
 180                 $body = str_ireplace("[/quote]", "[/quote]\n\n", $body);
 181
 182                 // Removal of tags and mentions
 183                 // #-tags
 184                 $body = preg_replace('/#\[url\=(\w+.*?)\](\w+.*?)\[\/url\]/i', '#$2', $body);
 185                 // @-mentions
 186                 $body = preg_replace('/@\[url\=(\w+.*?)\](\w+.*?)\[\/url\]/i', '@$2', $body);
 187
 188                 // remove multiple newlines
 189                 do {
 190                         $oldbody = $body;
 191                         $body = str_replace("\n\n\n", "\n\n", $body);
 192                 } while ($oldbody != $body);
 193
 194                 // convert to markdown
 195                 $body = BBCode::toMarkdown($body, false);
 196
 197                 // Adding the title
 198                 if(strlen($title))
 199                         $body = "## ".html_entity_decode($title)."\n\n".$body;
 200
 201
 202                 $params = [
 203                         'text' => $body,
 204                         'source' => $ltree_source
 205                 //      'token' => $ltree_api_token
 206                 ];
 207
 208                 $result = DI::httpClient()->post($ltree_blog, $params)->getBody();
 209                 Logger::notice('libertree: ' . $result);
 210         }
 211 }