New filter for Email protection ... filters all email addresses in Moodle
[moodle.git] / filter / emailprotect / filter.php
1 <?PHP // $Id$
2       // This function looks for email addresses in Moodle text and 
3       // hides them using the Moodle obfuscate_text function. 
4       // Original code by Mike Churchward
6 function emailprotect_filter($courseid, $text) {
8 /// Do a quick check using stripos to avoid unnecessary work
9     if (strpos($text, '@') === false) {
10         return $text;
11     }
13 /// There might be an email in here somewhere so continue ...
14     $matches = array();
16 /// regular expression to define a standard email string.
17     $emailregex = '((?:[\w\.\-])+\@(?:(?:[a-zA-Z\d\-])+\.)+(?:[a-zA-Z\d]{2,4}))';
19 /// pattern to find a mailto link with the linked text.
20     $pattern = '|(<a\s+href\s*=\s*[\'"]?mailto:)'.$emailregex.'([\'"]?\s*>)'.'(.*)'.'(</a>)|iU';
21     $text = preg_replace_callback($pattern, 'alter_mailto', $text);
23 /// pattern to find any other email address in the text.
24     $pattern = '/(^|\s+|>)'.$emailregex.'($|\s+|\.\s+|\.$|<)/i';
25     $text = preg_replace_callback($pattern, 'alter_email', $text);
27     return $text;
28 }
31 function alter_email($matches) {
32     return $matches[1].obfuscate_text($matches[2]).$matches[3];
33 }
36 function alter_mailto($matches) {
37     return obfuscate_mailto($matches[2], $matches[4]);
38 }
40 ?>