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