Merge pull request #784 from MrPetovan/task/4176-scrutinizer
[friendica-addons.git/.git] / buffer / buffer.php
1 <?php
2 /**
3  * Name: Buffer Post Connector
4  * Description: Post to Buffer (Facebook, Google+, LinkedIn, Twitter)
5  * Version: 0.2
6  * Author: Michael Vogel <http://pirati.ca/profile/heluecht>
7  */
8 require 'addon/buffer/bufferapp.php';
9
10 use Friendica\App;
11 use Friendica\Core\Config;
12 use Friendica\Core\Hook;
13 use Friendica\Core\L10n;
14 use Friendica\Core\Logger;
15 use Friendica\Core\PConfig;
16 use Friendica\Core\Protocol;
17 use Friendica\Core\Renderer;
18 use Friendica\Database\DBA;
19 use Friendica\Model\ItemContent;
20 use Friendica\Util\Proxy as ProxyUtils;
21 use Friendica\Util\Strings;
22
23 function buffer_install()
24 {
25         Hook::register('hook_fork',            'addon/buffer/buffer.php', 'buffer_hook_fork');
26         Hook::register('post_local',           'addon/buffer/buffer.php', 'buffer_post_local');
27         Hook::register('notifier_normal',      'addon/buffer/buffer.php', 'buffer_send');
28         Hook::register('jot_networks',         'addon/buffer/buffer.php', 'buffer_jot_nets');
29         Hook::register('connector_settings',      'addon/buffer/buffer.php', 'buffer_settings');
30         Hook::register('connector_settings_post', 'addon/buffer/buffer.php', 'buffer_settings_post');
31 }
32
33 function buffer_uninstall()
34 {
35         Hook::unregister('hook_fork',               'addon/buffer/buffer.php', 'buffer_hook_fork');
36         Hook::unregister('post_local',              'addon/buffer/buffer.php', 'buffer_post_local');
37         Hook::unregister('notifier_normal',         'addon/buffer/buffer.php', 'buffer_send');
38         Hook::unregister('jot_networks',            'addon/buffer/buffer.php', 'buffer_jot_nets');
39         Hook::unregister('connector_settings',      'addon/buffer/buffer.php', 'buffer_settings');
40         Hook::unregister('connector_settings_post', 'addon/buffer/buffer.php', 'buffer_settings_post');
41 }
42
43 function buffer_module()
44 {
45 }
46
47 function buffer_content(App $a)
48 {
49         if (! local_user()) {
50                 notice(L10n::t('Permission denied.') . EOL);
51                 return '';
52         }
53
54         require_once "mod/settings.php";
55         settings_init($a);
56
57         if (isset($a->argv[1])) {
58                 switch ($a->argv[1]) {
59                         case "connect":
60                                 $o = buffer_connect($a);
61                                 break;
62
63                         default:
64                                 $o = print_r($a->argv, true);
65                                 break;
66                 }
67         } else {
68                 $o = buffer_connect($a);
69         }
70
71         return $o;
72 }
73
74 function buffer_addon_admin(App $a, &$o)
75 {
76         $t = Renderer::getMarkupTemplate("admin.tpl", "addon/buffer/");
77
78         $o = Renderer::replaceMacros($t, [
79                 '$submit' => L10n::t('Save Settings'),
80                 // name, label, value, help, [extra values]
81                 '$client_id' => ['client_id', L10n::t('Client ID'), Config::get('buffer', 'client_id'), ''],
82                 '$client_secret' => ['client_secret', L10n::t('Client Secret'), Config::get('buffer', 'client_secret'), ''],
83         ]);
84 }
85
86 function buffer_addon_admin_post(App $a)
87 {
88         $client_id     = (!empty($_POST['client_id'])     ? Strings::escapeTags(trim($_POST['client_id']))     : '');
89         $client_secret = (!empty($_POST['client_secret']) ? Strings::escapeTags(trim($_POST['client_secret'])) : '');
90
91         Config::set('buffer', 'client_id'    , $client_id);
92         Config::set('buffer', 'client_secret', $client_secret);
93
94         info(L10n::t('Settings updated.'). EOL);
95 }
96
97 function buffer_connect(App $a)
98 {
99         if (isset($_REQUEST["error"])) {
100                 $o = L10n::t('Error when registering buffer connection:')." ".$_REQUEST["error"];
101                 return $o;
102         }
103
104         // Start a session.  This is necessary to hold on to  a few keys the callback script will also need
105         session_start();
106
107         // Define the needed keys
108         $client_id = Config::get('buffer','client_id');
109         $client_secret = Config::get('buffer','client_secret');
110
111         // The callback URL is the script that gets called after the user authenticates with buffer
112         $callback_url = $a->getBaseURL()."/buffer/connect";
113
114         $buffer = new BufferApp($client_id, $client_secret, $callback_url);
115
116         if (!$buffer->ok) {
117                 $o .= '<a href="' . $buffer->get_login_url() . '">Connect to Buffer!</a>';
118         } else {
119                 Logger::log("buffer_connect: authenticated");
120                 $o .= L10n::t("You are now authenticated to buffer. ");
121                 $o .= '<br /><a href="' . $a->getBaseURL() . '/settings/connectors">' . L10n::t("return to the connector page") . '</a>';
122                 PConfig::set(local_user(), 'buffer','access_token', $buffer->access_token);
123         }
124
125         return $o;
126 }
127
128 function buffer_jot_nets(App $a, &$b)
129 {
130         if (!local_user()) {
131                 return;
132         }
133
134         $buffer_post = PConfig::get(local_user(), 'buffer', 'post');
135
136         if (intval($buffer_post) == 1) {
137                 $buffer_defpost = PConfig::get(local_user(), 'buffer', 'post_by_default');
138                 $selected = ((intval($buffer_defpost) == 1) ? ' checked="checked" ' : '');
139                 $b .= '<div class="profile-jot-net"><input type="checkbox" name="buffer_enable"' . $selected . ' value="1" /> '
140                     . L10n::t('Post to Buffer') . '</div>';
141         }
142 }
143
144 function buffer_settings(App $a, &$s)
145 {
146         if (! local_user()) {
147                 return;
148         }
149
150         /* Add our stylesheet to the page so we can make our settings look nice */
151
152         $a->page['htmlhead'] .= '<link rel="stylesheet"  type="text/css" href="' . $a->getBaseURL() . '/addon/buffer/buffer.css' . '" media="all" />' . "\r\n";
153
154         /* Get the current state of our config variables */
155
156         $enabled = PConfig::get(local_user(),'buffer','post');
157         $checked = (($enabled) ? ' checked="checked" ' : '');
158         $css = (($enabled) ? '' : '-disabled');
159
160         $def_enabled = PConfig::get(local_user(),'buffer','post_by_default');
161         $def_checked = (($def_enabled) ? ' checked="checked" ' : '');
162
163         /* Add some HTML to the existing form */
164
165         $s .= '<span id="settings_buffer_inflated" class="settings-block fakelink" style="display: block;" onclick="openClose(\'settings_buffer_expanded\'); openClose(\'settings_buffer_inflated\');">';
166         $s .= '<img class="connector'.$css.'" src="images/buffer.png" /><h3 class="connector">'. L10n::t('Buffer Export').'</h3>';
167         $s .= '</span>';
168         $s .= '<div id="settings_buffer_expanded" class="settings-block" style="display: none;">';
169         $s .= '<span class="fakelink" onclick="openClose(\'settings_buffer_expanded\'); openClose(\'settings_buffer_inflated\');">';
170         $s .= '<img class="connector'.$css.'" src="images/buffer.png" /><h3 class="connector">'. L10n::t('Buffer Export').'</h3>';
171         $s .= '</span>';
172
173         $client_id = Config::get("buffer", "client_id");
174         $client_secret = Config::get("buffer", "client_secret");
175         $access_token = PConfig::get(local_user(), "buffer", "access_token");
176
177         $s .= '<div id="buffer-password-wrapper">';
178
179         if ($access_token == "") {
180                 $s .= '<div id="buffer-authenticate-wrapper">';
181                 $s .= '<a href="'.$a->getBaseURL().'/buffer/connect">'.L10n::t("Authenticate your Buffer connection").'</a>';
182                 $s .= '</div><div class="clear"></div>';
183         } else {
184                 $s .= '<div id="buffer-enable-wrapper">';
185                 $s .= '<label id="buffer-enable-label" for="buffer-checkbox">' . L10n::t('Enable Buffer Post Addon') . '</label>';
186                 $s .= '<input id="buffer-checkbox" type="checkbox" name="buffer" value="1" ' . $checked . '/>';
187                 $s .= '</div><div class="clear"></div>';
188
189                 $s .= '<div id="buffer-bydefault-wrapper">';
190                 $s .= '<label id="buffer-bydefault-label" for="buffer-bydefault">' . L10n::t('Post to Buffer by default') . '</label>';
191                 $s .= '<input id="buffer-bydefault" type="checkbox" name="buffer_bydefault" value="1" ' . $def_checked . '/>';
192                 $s .= '</div><div class="clear"></div>';
193
194                 $s .= '<div id="buffer-delete-wrapper">';
195                 $s .= '<label id="buffer-delete-label" for="buffer-delete">' . L10n::t('Check to delete this preset') . '</label>';
196                 $s .= '<input id="buffer-delete" type="checkbox" name="buffer_delete" value="1" />';
197                 $s .= '</div><div class="clear"></div>';
198
199                 // The callback URL is the script that gets called after the user authenticates with buffer
200                 $callback_url = $a->getBaseURL() . '/buffer/connect';
201
202                 $buffer = new BufferApp($client_id, $client_secret, $callback_url, $access_token);
203
204                 $profiles = $buffer->go('/profiles');
205                 if (is_array($profiles)) {
206                         $s .= '<div id="buffer-accounts-wrapper">';
207                         $s .= L10n::t("Posts are going to all accounts that are enabled by default:");
208                         $s .= "<ul>";
209                         foreach ($profiles as $profile) {
210                                 if (!$profile->default)
211                                         continue;
212                                 $s .= "<li>";
213                                 //$s .= "<img src='".$profile->avatar_https."' width='16' />";
214                                 $s .= " ".$profile->formatted_username." (".$profile->formatted_service.")";
215                                 $s .= "</li>";
216                         }
217                         $s .= "</ul>";
218                         $s .= '</div><div class="clear"></div>';
219                 }
220
221         }
222
223         $s .= '</div><div class="clear"></div>';
224
225         /* provide a submit button */
226
227         $s .= '<div class="settings-submit-wrapper" ><input type="submit" id="buffer-submit" name="buffer-submit" class="settings-submit" value="' . L10n::t('Save Settings') . '" /></div></div>';
228 }
229
230
231 function buffer_settings_post(App $a, array &$b)
232 {
233         if (!empty($_POST['buffer-submit'])) {
234                 if (!empty($_POST['buffer_delete'])) {
235                         PConfig::set(local_user(), 'buffer', 'access_token'   , '');
236                         PConfig::set(local_user(), 'buffer', 'post'           , false);
237                         PConfig::set(local_user(), 'buffer', 'post_by_default', false);
238                 } else {
239                         PConfig::set(local_user(), 'buffer', 'post'           , intval($_POST['buffer']));
240                         PConfig::set(local_user(), 'buffer', 'post_by_default', intval($_POST['buffer_bydefault']));
241                 }
242         }
243 }
244
245 function buffer_post_local(App $a, array &$b)
246 {
247         if (!local_user() || (local_user() != $b['uid'])) {
248                 return;
249         }
250
251         $buffer_post   = intval(PConfig::get(local_user(),'buffer','post'));
252
253         $buffer_enable = (($buffer_post && !empty($_REQUEST['buffer_enable'])) ? intval($_REQUEST['buffer_enable']) : 0);
254
255         if ($b['api_source'] && intval(PConfig::get(local_user(),'buffer','post_by_default'))) {
256                 $buffer_enable = 1;
257         }
258
259         if (!$buffer_enable) {
260                 return;
261         }
262
263         if (strlen($b['postopts'])) {
264                 $b['postopts'] .= ',';
265         }
266
267         $b['postopts'] .= 'buffer';
268 }
269
270 function buffer_hook_fork(&$a, &$b)
271 {
272         if ($b['name'] != 'notifier_normal') {
273                 return;
274         }
275
276         $post = $b['data'];
277
278         if ($post['deleted'] || $post['private'] || ($post['created'] !== $post['edited']) ||
279                 !strstr($post['postopts'], 'buffer') || ($post['parent'] != $post['id'])) {
280                 $b['execute'] = false;
281                 return;
282         }
283 }
284
285 function buffer_send(App $a, array &$b)
286 {
287         if ($b['deleted'] || $b['private'] || ($b['created'] !== $b['edited'])) {
288                 return;
289         }
290
291         if (!strstr($b['postopts'],'buffer')) {
292                 return;
293         }
294
295         if ($b['parent'] != $b['id']) {
296                 return;
297         }
298
299         // Dont't post if the post doesn't belong to us.
300         // This is a check for forum postings
301         $self = DBA::selectFirst('contact', ['id'], ['uid' => $b['uid'], 'self' => true]);
302         if ($b['contact-id'] != $self['id']) {
303                 return;
304         }
305
306         // if post comes from buffer don't send it back
307         //if($b['app'] == "Buffer")
308         //      return;
309
310         $client_id = Config::get("buffer", "client_id");
311         $client_secret = Config::get("buffer", "client_secret");
312         $access_token = PConfig::get($b['uid'], "buffer","access_token");
313         $callback_url = "";
314
315         if ($access_token) {
316                 $buffer = new BufferApp($client_id, $client_secret, $callback_url, $access_token);
317
318                 $profiles = $buffer->go('/profiles');
319                 if (is_array($profiles)) {
320                         Logger::log("Will send these parameter ".print_r($b, true), Logger::DEBUG);
321
322                         foreach ($profiles as $profile) {
323                                 if (!$profile->default)
324                                         continue;
325
326                                 $send = false;
327
328                                 switch ($profile->service) {
329                                         case 'facebook':
330                                                 $send = ($b["extid"] != Protocol::FACEBOOK);
331                                                 $limit = 0;
332                                                 $markup = false;
333                                                 $includedlinks = false;
334                                                 $htmlmode = 9;
335                                                 break;
336
337                                         case 'google':
338                                                 $send = ($b["extid"] != Protocol::GPLUS);
339                                                 $limit = 0;
340                                                 $markup = true;
341                                                 $includedlinks = false;
342                                                 $htmlmode = 9;
343                                                 break;
344
345                                         case 'twitter':
346                                                 $send = ($b["extid"] != Protocol::TWITTER);
347                                                 $limit = 280;
348                                                 $markup = false;
349                                                 $includedlinks = true;
350                                                 $htmlmode = 8;
351                                                 break;
352
353                                         case 'linkedin':
354                                                 $send = ($b["extid"] != Protocol::LINKEDIN);
355                                                 $limit = 700;
356                                                 $markup = false;
357                                                 $includedlinks = true;
358                                                 $htmlmode = 2;
359                                                 break;
360                                 }
361
362                                 if (!$send)
363                                         continue;
364
365                                 $item = $b;
366
367                                 // Markup for Google+
368                                 if ($markup) {
369                                         if ($item["title"] != "") {
370                                                 $item["title"] = "*" . $item["title"] . "*";
371                                         }
372
373                                         $item["body"] = preg_replace("(\[b\](.*?)\[\/b\])ism", '*$1*', $item["body"]);
374                                         $item["body"] = preg_replace("(\[i\](.*?)\[\/i\])ism", '_$1_', $item["body"]);
375                                         $item["body"] = preg_replace("(\[s\](.*?)\[\/s\])ism", '-$1-', $item["body"]);
376                                 }
377
378                                 $post = ItemContent::getPlaintextPost($item, $limit, $includedlinks, $htmlmode);
379                                 Logger::log("buffer_send: converted message ".$b["id"]." result: ".print_r($post, true), Logger::DEBUG);
380
381                                 // The image proxy is used as a sanitizer. Buffer seems to be really picky about pictures
382                                 if (isset($post["image"])) {
383                                         $post["image"] = ProxyUtils::proxifyUrl($post["image"]);
384                                 }
385
386                                 if (isset($post["preview"])) {
387                                         $post["preview"] = ProxyUtils::proxifyUrl($post["preview"]);
388                                 }
389
390                                 // Seems like a bug to me
391                                 // Buffer doesn't add links to Twitter (but pictures)
392                                 if (($profile->service == "twitter") && isset($post["url"]) && ($post["type"] != "photo")) {
393                                         $post["text"] .= " " . $post["url"];
394                                 } elseif ($profile->service == "google") {
395                                         $post["text"] .= html_entity_decode("&#x00A0;", ENT_QUOTES, 'UTF-8'); // Send a special blank to identify the post through the "fromgplus" addon
396                                 }
397
398                                 $message = [];
399                                 $message["text"] = $post["text"];
400                                 $message["profile_ids[]"] = $profile->id;
401                                 $message["shorten"] = false;
402                                 $message["now"] = true;
403
404                                 if (isset($post["title"])) {
405                                         $message["media[title]"] = $post["title"];
406                                 }
407
408                                 if (isset($post["description"])) {
409                                         $message["media[description]"] = $post["description"];
410                                 }
411
412                                 if (isset($post["url"]) && ($post["type"] != "photo")) {
413                                         $message["media[link]"] = $post["url"];
414                                 }
415
416                                 if (isset($post["image"])) {
417                                         $message["media[picture]"] = $post["image"];
418
419                                         if ($post["type"] == "photo") {
420                                                 $message["media[thumbnail]"] = $post["image"];
421                                         }
422                                 }
423
424                                 if (isset($post["preview"])) {
425                                         $message["media[thumbnail]"] = $post["preview"];
426                                 }
427
428                                 //print_r($message);
429                                 Logger::log("buffer_send: data for message " . $b["id"] . ": " . print_r($message, true), Logger::DEBUG);
430                                 $ret = $buffer->go('/updates/create', $message);
431                                 Logger::log("buffer_send: send message " . $b["id"] . " result: " . print_r($ret, true), Logger::DEBUG);
432                         }
433                 }
434         }
435 }