superblock/superblock.php

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