From eaf2ab7fcf4a915443d3890d98e1d4049e65be64 Mon Sep 17 00:00:00 2001
From: dave <dave@36083f99-b078-4883-b0ff-0f9b5a30f544>
Date: Tue, 27 May 2008 10:22:41 +0000
Subject: create a new social library in the engine. Moved string parsing for
 links to input.php and removed converting strings to tags from the shouts
 plugin and added them to the social library.

git-svn-id: https://code.elgg.org/elgg/trunk@723 36083f99-b078-4883-b0ff-0f9b5a30f544
---
 engine/lib/social.php | 103 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 103 insertions(+)
 create mode 100644 engine/lib/social.php

(limited to 'engine/lib/social.php')

diff --git a/engine/lib/social.php b/engine/lib/social.php
new file mode 100644
index 000000000..bc66c0466
--- /dev/null
+++ b/engine/lib/social.php
@@ -0,0 +1,103 @@
+<?php
+
+    /**
+	 * Elgg Social
+	 * Functions and objects which provide powerful social aspects within Elgg
+	 * 
+	 * @package Elgg
+	 * @subpackage Core
+	 * @license http://www.gnu.org/licenses/old-licenses/gpl-2.0.html GNU Public License version 2
+	 * @author Curverider
+	 * @copyright Curverider Ltd 2008
+	 * @link http://elgg.org/
+	 
+	 /**
+      * Filters a string into an array of significant words
+      *
+      * @param string $string
+      * @return array
+      */
+        function filter_string(string $string) {
+            
+        	// Convert it to lower and trim
+        	   $string = strtolower($string);
+        	   $string = trim($string);
+        	
+        	// Remove links and email addresses
+        	   // match protocol://address/path/file.extension?some=variable&another=asf%
+			   $string = preg_replace("/\s([a-zA-Z]+:\/\/[a-z][a-z0-9\_\.\-]*[a-z]{2,6}[a-zA-Z0-9\/\*\-\?\&\%\=]*)([\s|\.|\,])/iu"," ", $string);
+               // match www.something.domain/path/file.extension?some=variable&another=asf%
+			   $string = preg_replace("/\s(www\.[a-z][a-z0-9\_\.\-]*[a-z]{2,6}[a-zA-Z0-9\/\*\-\?\&\%\=]*)([\s|\.|\,])/iu"," ", $string);
+               // match name@address
+			   $string = preg_replace("/\s([a-zA-Z][a-zA-Z0-9\_\.\-]*[a-zA-Z]*\@[a-zA-Z][a-zA-Z0-9\_\.\-]*[a-zA-Z]{2,6})([\s|\.|\,])/iu"," ", $string);
+        	
+        	// Sanitise the string; remove unwanted characters
+        	   $string = preg_replace('/\W/ui', ' ', $string);
+        	   
+            // Explode it into an array
+        	   $terms = explode(' ',$string);
+        	   
+            // Remove any blacklist terms
+               $terms = array_filter($terms, 'remove_blacklist');
+        	    
+               return $terms;
+
+        }
+        
+        /**
+         * Returns true if the word in $input is considered significant
+         *
+         * @param string $input
+         * @return true|false
+         */
+        function remove_blacklist($input) {
+        	
+        	global $CONFIG;
+        	
+        	if (strlen($input) < 3 || in_array($input,$CONFIG->wordblacklist))
+        	   return false;
+        	
+            return true;        	
+        	
+        }
+        
+        // Set the shout words blacklist, these do not become tags when the string is converted
+            GLOBAL $CONFIG;
+		        $CONFIG->wordblacklist = array(
+	            'and',
+	            'the',
+	            'then',
+	            'but',
+	            'she',
+	            'his',
+	            'her',
+	            'him',
+	            'one',
+	            'not',
+	            'also',
+	            'about',
+	            'now',
+				'hence',
+				'however',
+				'still',
+				'likewise',
+				'otherwise',
+				'therefore',
+				'conversely',
+				'rather',
+	            'consequently',
+				'furthermore',
+				'nevertheless',
+				'instead',
+				'meanwhile',
+				'accordingly',
+				'this',
+				'seems',
+				'what',
+				'whom',
+				'whose',
+				'whoever',
+				'whomever',
+	        );
+	 
+?>
\ No newline at end of file
-- 
cgit v1.2.3