regen superblock master messages.po

[friendica-addons.git] / langfilter / langfilter.php

diff --git a/langfilter/langfilter.php b/langfilter/langfilter.php
index d9d35dbe90c36e4baeae7bfb4ce7ebd795c2a6f9..d4fe942d0b23c1fe19b44461d9aaa5fe8cc3d052 100644 (file)
--- a/langfilter/langfilter.php
+++ b/langfilter/langfilter.php
@@ -35,6 +35,8 @@ function langfilter_addon_settings(&$a,&$s) {
 
        $enable_checked = (intval(get_pconfig(local_user(),'langfilter','disable')) ? '' : ' checked="checked" ');
        $languages = get_pconfig(local_user(),'langfilter','languages');
+       $minconfidence = get_pconfig(local_user(),'langfilter','minconfidence')*100;
+       $minlength = get_pconfig(local_user(),'langfilter','minlength');
        if(! $languages)
                $languages = 'en,de,fr,it,es';
 
@@ -43,7 +45,9 @@ function langfilter_addon_settings(&$a,&$s) {
            '$title' => t("Language Filter"),
            '$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.'),
            '$enabled' => array('langfilter_enable', t('Use the language filter'), $enable_checked, ''),
-           '$languages' => array('langfilter_languages', t('I speak'), $languages, t('List of abbreviations (iso2 codes) for languages you speak, comma separated. For excample "de,it".') ),
+           '$languages' => array('langfilter_languages', t('I speak'), $languages, t('List of abbreviations (iso2 codes) for languages you speak, comma separated. For example "de,it".') ),
+           '$minconfidence' => array('langfilter_minconfidence', t('Minimum confidence in language detection'), $minconfidence, t('Minimum confidence in language detection being correct, from 0 to 100. Posts will not be filtered when the confidence of language detection is below this percent value.') ),
+           '$minlength' => array('langfilter_minlength', t('Minimum length of message body'), $minlength, t('Minimum length of message body for language filter to be used. Posts shorter than this number of characters will not be filtered.') ),
            '$submit' => t('Save Settings'),
        ));
 
@@ -63,7 +67,17 @@ function langfilter_addon_settings_post(&$a,&$b) {
                $enable = ((x($_POST,'langfilter_enable')) ? intval($_POST['langfilter_enable']) : 0);
                $disable = 1-$enable;
                set_pconfig(local_user(),'langfilter','disable', $disable);
-               set_pconfig(local_user(),'langfilter','minconfidence', $disable);
+               $minconfidence = 0+$_POST['langfilter_minconfidence'];
+               if ( ! $minconfidence ) $minconfidence = 0;
+               else if ( $minconfidence < 0 ) $minconfidence = 0;
+               else if ( $minconfidence > 100 ) $minconfidence = 100;
+               set_pconfig(local_user(),'langfilter','minconfidence', $minconfidence/100.0);
+
+               $minlength = 0+$_POST['langfilter_minlength'];
+               if ( ! $minlength ) $minlength = 32;
+               else if ( $minlength < 0 ) $minlength = 32;
+               set_pconfig(local_user(),'langfilter','minlength', $minlength);
+
                info( t('Language Filter Settings saved.') . EOL);
        }
 }
@@ -88,7 +102,13 @@ function langfilter_prepare_body(&$a,&$b) {
     # Don't filter if language filter is disabled
     if( get_pconfig($logged_user,'langfilter','disable') ) return;
 
+    # Don't filter if body lenght is below minimum
+    $minlen = get_pconfig(local_user(),'langfilter','minlength');
+    if ( ! $minlen ) $minlen = 32;
+    if ( strlen($b['item']['body']) < $minlen ) return;
+
     $spoken_config = get_pconfig(local_user(),'langfilter','languages');
+    $minconfidence = get_pconfig(local_user(),'langfilter','minconfidence');
 
     # Don't filter if no spoken languages are configured 
     if ( ! $spoken_config ) return;
@@ -103,7 +123,8 @@ function langfilter_prepare_body(&$a,&$b) {
     $lang = $matches[1];
     $confidence = $matches[2];
 
-    # TODO: accept a confidence threshold in settings
+    # Do not filter if language detection confidence is too low
+    if ( $minconfidence && $confidence < $minconfidence ) return;
 
     $iso2 = Text_LanguageDetect_ISO639::nameToCode2($lang);