danielebarchiesi@2
|
1 <?php
|
danielebarchiesi@2
|
2
|
danielebarchiesi@2
|
3 /**
|
danielebarchiesi@2
|
4 * @file
|
danielebarchiesi@2
|
5 * Protects email addresses using the reCAPTCHA web service.
|
danielebarchiesi@2
|
6 */
|
danielebarchiesi@2
|
7
|
danielebarchiesi@2
|
8 /**
|
danielebarchiesi@2
|
9 * Implements hook_help().
|
danielebarchiesi@2
|
10 */
|
danielebarchiesi@2
|
11 function recaptcha_mailhide_help($path, $arg) {
|
danielebarchiesi@2
|
12 $output = '';
|
danielebarchiesi@2
|
13 switch ($path) {
|
danielebarchiesi@2
|
14 case 'admin/modules#name':
|
danielebarchiesi@2
|
15 $output .= t('reCAPTCHA');
|
danielebarchiesi@2
|
16 break;
|
danielebarchiesi@2
|
17 case 'admin/modules#description':
|
danielebarchiesi@2
|
18 $output .= t('Uses the <a href="@url" target="_blank">reCAPTCHA</a> web service to protect email addresses.', array('@url' => url('https://www.google.com/recaptcha')));
|
danielebarchiesi@2
|
19 break;
|
danielebarchiesi@2
|
20 case 'admin/help#recaptcha':
|
danielebarchiesi@2
|
21 $output .= '<p>' .
|
danielebarchiesi@2
|
22 t('Uses the reCAPTCHA web service to protect email addresses. For more information on what reCAPTCHA Mailhide is, visit <a href="@url" target="_blank">the official website</a>.', array('@url' => url('https://www.google.com/recaptcha/mailhide/'))) .
|
danielebarchiesi@2
|
23 '</p><h3>' .
|
danielebarchiesi@2
|
24 t('Configuration') .
|
danielebarchiesi@2
|
25 '</h3><p>' .
|
danielebarchiesi@2
|
26 t('Head over to the <a href="@inputformats">input format settings</a> and add the <a href="@url" target="_blank">reCAPTCHA Mailhide</a> input filter to hide posted emails.', array('@inputformats' => url('admin/settings/filter'), '@url' => url('https://www.google.com/recaptcha/mailhide/'))) .
|
danielebarchiesi@2
|
27 '</p>';
|
danielebarchiesi@2
|
28 break;
|
danielebarchiesi@2
|
29 }
|
danielebarchiesi@2
|
30 return $output;
|
danielebarchiesi@2
|
31 }
|
danielebarchiesi@2
|
32
|
danielebarchiesi@2
|
33 /**
|
danielebarchiesi@2
|
34 * Implements hook_filter_info().
|
danielebarchiesi@2
|
35 */
|
danielebarchiesi@2
|
36 function recaptcha_mailhide_filter_info() {
|
danielebarchiesi@2
|
37 $filters['filter_recaptcha_mailhide'] = array(
|
danielebarchiesi@2
|
38 'title' => t('reCAPTCHA Mailhide'),
|
danielebarchiesi@2
|
39 'description' => _filter_recaptcha_mailhide_tips('', ''),
|
danielebarchiesi@2
|
40 'process callback' => '_filter_recaptcha_mailhide',
|
danielebarchiesi@2
|
41 'settings callback' => '_filter_recaptcha_mailhide_settings',
|
danielebarchiesi@2
|
42 'tips callback' => '_filter_recaptcha_mailhide_tips',
|
danielebarchiesi@2
|
43 'cache' => FALSE,
|
danielebarchiesi@2
|
44 );
|
danielebarchiesi@2
|
45 return $filters;
|
danielebarchiesi@2
|
46 }
|
danielebarchiesi@2
|
47
|
danielebarchiesi@2
|
48 /**
|
danielebarchiesi@2
|
49 * Filter callbacks.
|
danielebarchiesi@2
|
50 */
|
danielebarchiesi@2
|
51 function _filter_recaptcha_mailhide($text, $filter, $format) {
|
danielebarchiesi@2
|
52 global $_recaptcha_mailhide_public_key, $_recaptcha_mailhide_private_key, $_recaptcha_mailhide_nokey_warn;
|
danielebarchiesi@2
|
53 _recaptcha_mailhide_load_library();
|
danielebarchiesi@2
|
54 $_recaptcha_mailhide_public_key = $filter->settings['recaptcha_mailhide_public_key'];
|
danielebarchiesi@2
|
55 $_recaptcha_mailhide_private_key = $filter->settings['recaptcha_mailhide_private_key'];
|
danielebarchiesi@2
|
56
|
danielebarchiesi@2
|
57 $text = ' ' . $text . ' ';
|
danielebarchiesi@2
|
58 $text = preg_replace_callback("!(<p>|<li>|<br\s*/?>|[ \n\r\t\(])([A-Za-z0-9._-]+@[A-Za-z0-9._+-]+\.[A-Za-z]{2,4})([.,?]?)(?=(</p>|</li>|<br\s*/?>|[ \n\r\t\)]))!i", '_recaptcha_replace', $text);
|
danielebarchiesi@2
|
59 $text = drupal_substr($text, 1, -1);
|
danielebarchiesi@2
|
60
|
danielebarchiesi@2
|
61 unset($_recaptcha_mailhide_public_key);
|
danielebarchiesi@2
|
62 unset($_recaptcha_mailhide_private_key);
|
danielebarchiesi@2
|
63 unset($_recaptcha_mailhide_nokey_warn);
|
danielebarchiesi@2
|
64 return $text;
|
danielebarchiesi@2
|
65 }
|
danielebarchiesi@2
|
66
|
danielebarchiesi@2
|
67 function _filter_recaptcha_mailhide_settings($form, &$form_state, $filter, $format, $defaults, $filters) {
|
danielebarchiesi@2
|
68 _recaptcha_mailhide_load_library();
|
danielebarchiesi@2
|
69 $public = isset($filter->settings['recaptcha_mailhide_public_key']) ? $filter->settings['recaptcha_mailhide_public_key'] : '';
|
danielebarchiesi@2
|
70 $private = isset($filter->settings['recaptcha_mailhide_private_key']) ? $filter->settings['recaptcha_mailhide_private_key'] : '';
|
danielebarchiesi@2
|
71 $settings['recaptcha_mailhide_public_key'] = array(
|
danielebarchiesi@2
|
72 '#type' => 'textfield',
|
danielebarchiesi@2
|
73 '#title' => t('Public Key'),
|
danielebarchiesi@2
|
74 '#default_value' => $public,
|
danielebarchiesi@2
|
75 '#maxlength' => 50,
|
danielebarchiesi@2
|
76 '#description' => t('Your public Mailhide key obtained from <a href="@url" target="_blank">reCAPTCHA</a>.', array('@url' => 'https://www.google.com/recaptcha/mailhide/apikey')),
|
danielebarchiesi@2
|
77 );
|
danielebarchiesi@2
|
78 $settings['recaptcha_mailhide_private_key'] = array(
|
danielebarchiesi@2
|
79 '#type' => 'textfield',
|
danielebarchiesi@2
|
80 '#title' => t('Private Key'),
|
danielebarchiesi@2
|
81 '#default_value' => $private,
|
danielebarchiesi@2
|
82 '#maxlength' => 50,
|
danielebarchiesi@2
|
83 '#description' => t('Your private Mailhide key obtained from <a href="@url" target="_blank">reCAPTCHA</a>.', array('@url' => 'https://www.google.com/recaptcha/mailhide/apikey')),
|
danielebarchiesi@2
|
84 );
|
danielebarchiesi@2
|
85 return $settings;
|
danielebarchiesi@2
|
86 }
|
danielebarchiesi@2
|
87
|
danielebarchiesi@2
|
88 function _filter_recaptcha_mailhide_tips($filter, $format, $long = FALSE) {
|
danielebarchiesi@2
|
89 return t('E-Mail addresses are hidden with <a href="@url" target="_blank">reCAPTCHA Mailhide</a>.', array('@url' => 'https://www.google.com/recaptcha/mailhide/'));
|
danielebarchiesi@2
|
90 }
|
danielebarchiesi@2
|
91
|
danielebarchiesi@2
|
92 /**
|
danielebarchiesi@2
|
93 * Private reCAPTCHA function to replace an email regex match
|
danielebarchiesi@2
|
94 */
|
danielebarchiesi@2
|
95 function _recaptcha_replace($match) {
|
danielebarchiesi@2
|
96 global $_recaptcha_mailhide_public_key, $_recaptcha_mailhide_private_key, $_recaptcha_mailhide_nokey_warn;
|
danielebarchiesi@2
|
97 // recaptchalib will die if we invoke without setting the keys. Fail gracefully in this case.
|
danielebarchiesi@2
|
98 if (empty($_recaptcha_mailhide_public_key) || empty($_recaptcha_mailhide_private_key) || !function_exists('mcrypt_encrypt')) {
|
danielebarchiesi@2
|
99 if ($_recaptcha_mailhide_nokey_warn != TRUE) {
|
danielebarchiesi@2
|
100 if (!function_exists('mcrypt_encrypt')) {
|
danielebarchiesi@2
|
101 drupal_set_message(t('Addresses cannot be hidden because Mcrypt is not installed.'), 'error');
|
danielebarchiesi@2
|
102 }
|
danielebarchiesi@2
|
103 else {
|
danielebarchiesi@2
|
104 drupal_set_message(t('Addresses cannot be hidden because the administrator has not set the reCAPTCHA Mailhide keys.'), 'error');
|
danielebarchiesi@2
|
105 }
|
danielebarchiesi@2
|
106 $_recaptcha_mailhide_nokey_warn = TRUE;
|
danielebarchiesi@2
|
107 }
|
danielebarchiesi@2
|
108 $email = $match[2];
|
danielebarchiesi@2
|
109 }
|
danielebarchiesi@2
|
110 else {
|
danielebarchiesi@2
|
111 $email = recaptcha_mailhide_html($_recaptcha_mailhide_public_key, $_recaptcha_mailhide_private_key, $match[2]);
|
danielebarchiesi@2
|
112 }
|
danielebarchiesi@2
|
113 return $match[1] . $email . $match[3];
|
danielebarchiesi@2
|
114 }
|
danielebarchiesi@2
|
115
|
danielebarchiesi@2
|
116 /**
|
danielebarchiesi@2
|
117 * Load the recaptcha library.
|
danielebarchiesi@2
|
118 */
|
danielebarchiesi@2
|
119 function _recaptcha_mailhide_load_library() {
|
danielebarchiesi@2
|
120 module_load_include('php', 'recaptcha', 'recaptcha-php-1.11/recaptchalib');
|
danielebarchiesi@2
|
121 }
|