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