superblock/superblock.php

   1 <?php
   2 /**
   3  * Name: superblock
   4  * Description: block people
   5  * Version: 1.0
   6  * Author: Mike Macgirvin <http://macgirvin.com/profile/mike>
   7  *
   8  */
   9 use Friendica\Core\Hook;
  10 use Friendica\DI;
  11 use Friendica\Util\Strings;
  12
  13 function superblock_install()
  14 {
  15         Hook::register('addon_settings', 'addon/superblock/superblock.php', 'superblock_addon_settings');
  16         Hook::register('addon_settings_post', 'addon/superblock/superblock.php', 'superblock_addon_settings_post');
  17         Hook::register('conversation_start', 'addon/superblock/superblock.php', 'superblock_conversation_start');
  18         Hook::register('item_photo_menu', 'addon/superblock/superblock.php', 'superblock_item_photo_menu');
  19         Hook::register('enotify_store', 'addon/superblock/superblock.php', 'superblock_enotify_store');
  20 }
  21
  22 function superblock_addon_settings(&$a, &$s)
  23 {
  24         if (!local_user()) {
  25                 return;
  26         }
  27
  28         /* Add our stylesheet to the page so we can make our settings look nice */
  29
  30         DI::page()['htmlhead'] .= '<link rel="stylesheet"  type="text/css" href="' . DI::baseUrl()->get() . '/addon/superblock/superblock.css' . '" media="all" />' . "\r\n";
  31
  32         $words = DI::pConfig()->get(local_user(), 'system', 'blocked');
  33         if (!$words) {
  34                 $words = '';
  35         }
  36
  37         $s .= '<span id="settings_superblock_inflated" class="settings-block fakelink" style="display: block;" onclick="openClose(\'settings_superblock_expanded\'); openClose(\'settings_superblock_inflated\');">';
  38         $s .= '<h3>' . DI::l10n()->t('Superblock') . '</h3>';
  39         $s .= '</span>';
  40         $s .= '<div id="settings_superblock_expanded" class="settings-block" style="display: none;">';
  41         $s .= '<span class="fakelink" onclick="openClose(\'settings_superblock_expanded\'); openClose(\'settings_superblock_inflated\');">';
  42         $s .= '<h3>' . DI::l10n()->t('Superblock') . '</h3>';
  43         $s .= '</span>';
  44         $s .= '<div id="superblock-wrapper">';
  45         $s .= '<label id="superblock-label" for="superblock-words">' . DI::l10n()->t('Comma separated profile URLS to block') . ' </label>';
  46         $s .= '<textarea id="superblock-words" type="text" name="superblock-words" >' . htmlspecialchars($words) . '</textarea>';
  47         $s .= '</div><div class="clear"></div>';
  48
  49         $s .= '<div class="settings-submit-wrapper" ><input type="submit" id="superblock-submit" name="superblock-submit" class="settings-submit" value="' . DI::l10n()->t('Save Settings') . '" /></div></div>';
  50
  51         return;
  52 }
  53
  54 function superblock_addon_settings_post(&$a, &$b)
  55 {
  56         if (!local_user()) {
  57                 return;
  58         }
  59
  60         if (!empty($_POST['superblock-submit'])) {
  61                 DI::pConfig()->set(local_user(), 'system', 'blocked',trim($_POST['superblock-words']));
  62         }
  63 }
  64
  65 function superblock_enotify_store(&$a,&$b) {
  66
  67         $words = DI::pConfig()->get($b['uid'], 'system', 'blocked');
  68         if ($words) {
  69                 $arr = explode(',', $words);
  70         } else {
  71                 return;
  72         }
  73
  74         $found = false;
  75         if (count($arr)) {
  76                 foreach ($arr as $word) {
  77                         if (!strlen(trim($word))) {
  78                                 continue;
  79                         }
  80
  81                         if (Strings::compareLink($b['url'], $word)) {
  82                                 $found = true;
  83                                 break;
  84                         }
  85                 }
  86         }
  87         if ($found) {
  88                 // Empty out the fields
  89                 $b = [];
  90         }
  91 }
  92
  93
  94 function superblock_conversation_start(&$a, &$b)
  95 {
  96         if (!local_user()) {
  97                 return;
  98         }
  99
 100         $words = DI::pConfig()->get(local_user(), 'system', 'blocked');
 101         if ($words) {
 102                 $a->data['superblock'] = explode(',', $words);
 103         }
 104         DI::page()['htmlhead'] .= <<< EOT
 105
 106 <script>
 107 function superblockBlock(author) {
 108         $.get('superblock?block=' +author, function(data) {
 109                 location.reload(true);
 110         });
 111 }
 112 </script>
 113
 114 EOT;
 115
 116 }
 117
 118 function superblock_item_photo_menu(&$a, &$b)
 119 {
 120         if (!local_user() || $b['item']['self']) {
 121                 return;
 122         }
 123
 124         $blocked = false;
 125         $author = $b['item']['author-link'];
 126         if (!empty($a->data['superblock'])) {
 127                 foreach ($a->data['superblock'] as $bloke) {
 128                         if (Strings::compareLink($bloke, $author)) {
 129                                 $blocked = true;
 130                                 break;
 131                         }
 132                 }
 133         }
 134
 135         $b['menu'][DI::l10n()->t('Block Completely')] = 'javascript:superblockBlock(\'' . $author . '\'); return false;';
 136 }
 137
 138 function superblock_module() {}
 139
 140
 141 function superblock_init(&$a)
 142 {
 143         if (!local_user()) {
 144                 return;
 145         }
 146
 147         $words = DI::pConfig()->get(local_user(), 'system', 'blocked');
 148
 149         if (array_key_exists('block', $_GET) && $_GET['block']) {
 150                 if (strlen($words))
 151                         $words .= ',';
 152                 $words .= trim($_GET['block']);
 153         }
 154
 155         DI::pConfig()->set(local_user(), 'system', 'blocked', $words);
 156         exit();
 157 }