langfilter/langfilter.php

   1 <?php
   2 /*
   3  * Name: Language Filter
   4  * Version: 0.1
   5  * Description: Filters out postings in languages not spoken by the users
   6  * Author: Tobias Diekershoff <https://f.diekershoff.de/u/tobias>
   7  * License: MIT
   8  */
   9
  10 require_once('library/langdet/Text/LanguageDetect.php');
  11
  12 /* Define the hooks we want to use
  13  * that is, we have settings, we need to save the settings and we want
  14  * to modify the content of a posting when friendica prepares it.
  15  */
  16 function langfilter_install() {
  17         register_hook('prepare_body',         'addon/langfilter/langfilter.php', 'langfilter_prepare_body', 10);
  18         register_hook('plugin_settings',      'addon/langfilter/langfilter.php', 'langfilter_addon_settings');
  19         register_hook('plugin_settings_post', 'addon/langfilter/langfilter.php', 'langfilter_addon_settings_post');
  20 }
  21 function langfilter_uninstall() {
  22         unregister_hook('prepare_body',         'addon/langfilter/langfilter.php', 'langfilter_prepare_body');
  23         unregister_hook('plugin_settings',      'addon/langfilter/langfilter.php', 'langfilter_addon_settings');
  24         unregister_hook('plugin_settings_post', 'addon/langfilter/langfilter.php', 'langfilter_addon_settings_post');
  25 }
  26
  27 /* The settings
  28  * 1st check if somebody logged in is calling
  29  * 2nd get the current settings
  30  * 3rd parse a SMARTY3 template, replacing some translateable strings for the form
  31  */
  32 function langfilter_addon_settings(&$a,&$s) {
  33         if(! local_user())
  34                 return;
  35
  36         $enable_checked = (intval(get_pconfig(local_user(),'langfilter','disable')) ? '' : ' checked="checked" ');
  37         $languages = get_pconfig(local_user(),'langfilter','languages');
  38         if(! $languages)
  39                 $languages = 'en,de,fr,it,es';
  40
  41         $t = get_markup_template("settings.tpl", "addon/langfilter/" );
  42         $s .= replace_macros ($t, array(
  43             '$title' => t("Language Filter"),
  44             '$intro' => t ('This addon tries to identify the language of a postings. If it does not match any language spoken by you (see below) the posting will be collapsed. Remember detecting the language is not perfect, especially with short postings.'),
  45             '$enabled' => array('langfilter_enable', t('Use the language filter'), $enable_checked, ''),
  46             '$languages' => array('langfilter_languages', t('I speak'), $languages, t('List of abbreviations for languages you speak, comma seperated. For excample "de,it".') ),
  47             '$submit' => t('Save Settings'),
  48         ));
  49
  50         return;
  51 }
  52 /* Save the settings
  53  * 1st check it's a logged in user calling
  54  * 2nd check the langfilter form is to be saved
  55  * 3rd save the settings to the DB for later usage
  56  */
  57 function langfilter_addon_settings_post(&$a,&$b) {
  58         if(! local_user())
  59                 return;
  60
  61         if($_POST['langfilter-settings-submit']) {
  62                 set_pconfig(local_user(),'langfilter','languages',trim($_POST['langfilter_languages']));
  63                 $enable = ((x($_POST,'langfilter_enable')) ? intval($_POST['langfilter_enable']) : 0);
  64                 $disable = 1-$enable;
  65                 set_pconfig(local_user(),'langfilter','disable', $disable);
  66                 info( t('Language Filter Settings saved.') . EOL);
  67         }
  68 }
  69 /* Actually filter postings by their language
  70  * 1st check if the user wants to filter postings
  71  * 2nd get the user settings which languages shall be not filtered out
  72  * 3rd determine the language of a posting
  73  * 4th if the determined language does not fit to the spoken languages
  74  *     of the user, then collapse the posting, but provide a link to
  75  *     expand it again.
  76  */
  77 function langfilter_prepare_body(&$a,&$b) {
  78         if(get_pconfig(local_user(),'langfilter','disable'))
  79                 return;
  80
  81         if(local_user()) {
  82                 $langs = get_pconfig(local_user(),'langfilter','languages');
  83         }
  84         if($langs) {
  85                 $arr = explode(',',$langs);
  86         } else {
  87                 return;
  88         }
  89
  90         $found = false;
  91     $l = new Text_LanguageDetect;
  92     $l->_name_mode = 2;   // two letter codes
  93     $l->_threshold = 600; // make it a bit harder to be confident with a lng
  94                           // IOW make it more possible that lng is correct
  95     $lng = $l->detectSimple($b['html']);
  96     if ($lng==null)
  97                 return;
  98     if (! in_array($lng, $arr))
  99                 $found = true;
 100         if ($lng==null)
 101                 $found = false;
 102
 103         if($found) {
 104                 $rnd = random_string(8);
 105                 $b['html'] = '<div id="langfilter-wrap-' . $rnd . '" class="fakelink" onclick=openClose(\'langfilter-' . $rnd . '\'); >' . sprintf( t('unspoken language %s - Click to open/close'),$lng ) . '</div><div id="langfilter-' . $rnd . '" style="display: none; " >' . $b['html'] . '</div>';
 106         }
 107 }
 108 ?>