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