6 * Description: block people
8 * Author: Mike Macgirvin <http://macgirvin.com/profile/mike>
12 use Friendica\Core\PConfig;
14 function superblock_install() {
16 register_hook('plugin_settings', 'addon/superblock/superblock.php', 'superblock_addon_settings');
17 register_hook('plugin_settings_post', 'addon/superblock/superblock.php', 'superblock_addon_settings_post');
18 register_hook('conversation_start', 'addon/superblock/superblock.php', 'superblock_conversation_start');
19 register_hook('item_photo_menu', 'addon/superblock/superblock.php', 'superblock_item_photo_menu');
20 register_hook('enotify_store', 'addon/superblock/superblock.php', 'superblock_enotify_store');
25 function superblock_uninstall() {
27 unregister_hook('plugin_settings', 'addon/superblock/superblock.php', 'superblock_addon_settings');
28 unregister_hook('plugin_settings_post', 'addon/superblock/superblock.php', 'superblock_addon_settings_post');
29 unregister_hook('conversation_start', 'addon/superblock/superblock.php', 'superblock_conversation_start');
30 unregister_hook('item_photo_menu', 'addon/superblock/superblock.php', 'superblock_item_photo_menu');
31 unregister_hook('enotify_store', 'addon/superblock/superblock.php', 'superblock_enotify_store');
39 function superblock_addon_settings(&$a,&$s) {
45 /* Add our stylesheet to the page so we can make our settings look nice */
47 $a->page['htmlhead'] .= '<link rel="stylesheet" type="text/css" href="' . $a->get_baseurl() . '/addon/superblock/superblock.css' . '" media="all" />' . "\r\n";
49 $words = PConfig::get(local_user(),'system','blocked');
54 $s .= '<span id="settings_superblock_inflated" class="settings-block fakelink" style="display: block;" onclick="openClose(\'settings_superblock_expanded\'); openClose(\'settings_superblock_inflated\');">';
55 $s .= '<h3>' . t('"Superblock"') . '</h3>';
57 $s .= '<div id="settings_superblock_expanded" class="settings-block" style="display: none;">';
58 $s .= '<span class="fakelink" onclick="openClose(\'settings_superblock_expanded\'); openClose(\'settings_superblock_inflated\');">';
59 $s .= '<h3>' . t('"Superblock"') . '</h3>';
61 $s .= '<div id="superblock-wrapper">';
62 $s .= '<label id="superblock-label" for="superblock-words">' . t('Comma separated profile URLS to block') . ' </label>';
63 $s .= '<textarea id="superblock-words" type="text" name="superblock-words" >' . htmlspecialchars($words) . '</textarea>';
64 $s .= '</div><div class="clear"></div>';
66 $s .= '<div class="settings-submit-wrapper" ><input type="submit" id="superblock-submit" name="superblock-submit" class="settings-submit" value="' . t('Save Settings') . '" /></div></div>';
71 function superblock_addon_settings_post(&$a,&$b) {
76 if($_POST['superblock-submit']) {
77 PConfig::set(local_user(),'system','blocked',trim($_POST['superblock-words']));
78 info( t('SUPERBLOCK Settings saved.') . EOL);
82 function superblock_enotify_store(&$a,&$b) {
84 $words = PConfig::get($b['uid'],'system','blocked');
86 $arr = explode(',',$words);
94 foreach($arr as $word) {
95 if(! strlen(trim($word))) {
99 if(link_compare($b['url'],$word)) {
111 function superblock_conversation_start(&$a,&$b) {
116 $words = PConfig::get(local_user(),'system','blocked');
118 $a->data['superblock'] = explode(',',$words);
120 $a->page['htmlhead'] .= <<< EOT
123 function superblockBlock(author) {
124 $.get('superblock?block=' +author, function(data) {
125 location.reload(true);
134 function superblock_item_photo_menu(&$a,&$b) {
136 if((! local_user()) || ($b['item']['self']))
140 $author = $b['item']['author-link'];
141 if(is_array($a->data['superblock'])) {
142 foreach($a->data['superblock'] as $bloke) {
143 if(link_compare($bloke,$author)) {
150 $b['menu'][ t('Block Completely')] = 'javascript:superblockBlock(\'' . $author . '\'); return false;';
153 function superblock_module() {}
156 function superblock_init(&$a) {
161 $words = PConfig::get(local_user(),'system','blocked');
163 if(array_key_exists('block',$_GET) && $_GET['block']) {
166 $words .= trim($_GET['block']);
169 PConfig::set(local_user(),'system','blocked',$words);
170 info( t('superblock settings updated') . EOL );