danielebarchiesi@2: <?php
danielebarchiesi@2: 
danielebarchiesi@2: /**
danielebarchiesi@2:  * @file
danielebarchiesi@2:  * Protects email addresses using the reCAPTCHA web service.
danielebarchiesi@2:  */
danielebarchiesi@2: 
danielebarchiesi@2: /**
danielebarchiesi@2:  * Implements hook_help().
danielebarchiesi@2:  */
danielebarchiesi@2: function recaptcha_mailhide_help($path, $arg) {
danielebarchiesi@2:   $output = '';
danielebarchiesi@2:   switch ($path) {
danielebarchiesi@2:     case 'admin/modules#name':
danielebarchiesi@2:       $output .= t('reCAPTCHA');
danielebarchiesi@2:       break;
danielebarchiesi@2:     case 'admin/modules#description':
danielebarchiesi@2:       $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:       break;
danielebarchiesi@2:     case 'admin/help#recaptcha':
danielebarchiesi@2:       $output .= '<p>' .
danielebarchiesi@2:         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:         '</p><h3>' .
danielebarchiesi@2:         t('Configuration') .
danielebarchiesi@2:         '</h3><p>' .
danielebarchiesi@2:         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:         '</p>';
danielebarchiesi@2:       break;
danielebarchiesi@2:   }
danielebarchiesi@2:   return $output;
danielebarchiesi@2: }
danielebarchiesi@2: 
danielebarchiesi@2: /**
danielebarchiesi@2:  * Implements hook_filter_info().
danielebarchiesi@2:  */
danielebarchiesi@2: function recaptcha_mailhide_filter_info() {
danielebarchiesi@2:   $filters['filter_recaptcha_mailhide'] = array(
danielebarchiesi@2:     'title' => t('reCAPTCHA Mailhide'),
danielebarchiesi@2:     'description' => _filter_recaptcha_mailhide_tips('', ''),
danielebarchiesi@2:     'process callback' => '_filter_recaptcha_mailhide',
danielebarchiesi@2:     'settings callback' => '_filter_recaptcha_mailhide_settings',
danielebarchiesi@2:     'tips callback' => '_filter_recaptcha_mailhide_tips',
danielebarchiesi@2:     'cache' => FALSE,
danielebarchiesi@2:   );
danielebarchiesi@2:   return $filters;
danielebarchiesi@2: }
danielebarchiesi@2: 
danielebarchiesi@2: /**
danielebarchiesi@2:  * Filter callbacks.
danielebarchiesi@2:  */
danielebarchiesi@2: function _filter_recaptcha_mailhide($text, $filter, $format) {
danielebarchiesi@2:   global $_recaptcha_mailhide_public_key, $_recaptcha_mailhide_private_key, $_recaptcha_mailhide_nokey_warn;
danielebarchiesi@2:   _recaptcha_mailhide_load_library();
danielebarchiesi@2:   $_recaptcha_mailhide_public_key = $filter->settings['recaptcha_mailhide_public_key'];
danielebarchiesi@2:   $_recaptcha_mailhide_private_key = $filter->settings['recaptcha_mailhide_private_key'];
danielebarchiesi@2: 
danielebarchiesi@2:   $text = ' ' . $text . ' ';
danielebarchiesi@2:   $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:   $text = drupal_substr($text, 1, -1);
danielebarchiesi@2: 
danielebarchiesi@2:   unset($_recaptcha_mailhide_public_key);
danielebarchiesi@2:   unset($_recaptcha_mailhide_private_key);
danielebarchiesi@2:   unset($_recaptcha_mailhide_nokey_warn);
danielebarchiesi@2:   return $text;
danielebarchiesi@2: }
danielebarchiesi@2: 
danielebarchiesi@2: function _filter_recaptcha_mailhide_settings($form, &$form_state, $filter, $format, $defaults, $filters) {
danielebarchiesi@2:   _recaptcha_mailhide_load_library();
danielebarchiesi@2:   $public = isset($filter->settings['recaptcha_mailhide_public_key']) ? $filter->settings['recaptcha_mailhide_public_key'] : '';
danielebarchiesi@2:   $private = isset($filter->settings['recaptcha_mailhide_private_key']) ? $filter->settings['recaptcha_mailhide_private_key'] : '';
danielebarchiesi@2:   $settings['recaptcha_mailhide_public_key'] = array(
danielebarchiesi@2:     '#type' => 'textfield',
danielebarchiesi@2:     '#title' => t('Public Key'),
danielebarchiesi@2:     '#default_value' => $public,
danielebarchiesi@2:     '#maxlength' => 50,
danielebarchiesi@2:     '#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:     );
danielebarchiesi@2:   $settings['recaptcha_mailhide_private_key'] = array(
danielebarchiesi@2:     '#type' => 'textfield',
danielebarchiesi@2:     '#title' => t('Private Key'),
danielebarchiesi@2:     '#default_value' => $private,
danielebarchiesi@2:     '#maxlength' => 50,
danielebarchiesi@2:     '#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:     );
danielebarchiesi@2:   return $settings;
danielebarchiesi@2: }
danielebarchiesi@2: 
danielebarchiesi@2: function _filter_recaptcha_mailhide_tips($filter, $format, $long = FALSE) {
danielebarchiesi@2:   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: }
danielebarchiesi@2: 
danielebarchiesi@2: /**
danielebarchiesi@2:  * Private reCAPTCHA function to replace an email regex match
danielebarchiesi@2:  */
danielebarchiesi@2: function _recaptcha_replace($match) {
danielebarchiesi@2:   global $_recaptcha_mailhide_public_key, $_recaptcha_mailhide_private_key, $_recaptcha_mailhide_nokey_warn;
danielebarchiesi@2:   // recaptchalib will die if we invoke without setting the keys. Fail gracefully in this case.
danielebarchiesi@2:   if (empty($_recaptcha_mailhide_public_key) || empty($_recaptcha_mailhide_private_key) || !function_exists('mcrypt_encrypt')) {
danielebarchiesi@2:     if ($_recaptcha_mailhide_nokey_warn != TRUE) {
danielebarchiesi@2:       if (!function_exists('mcrypt_encrypt')) {
danielebarchiesi@2:         drupal_set_message(t('Addresses cannot be hidden because Mcrypt is not installed.'), 'error');
danielebarchiesi@2:       }
danielebarchiesi@2:       else {
danielebarchiesi@2:         drupal_set_message(t('Addresses cannot be hidden because the administrator has not set the reCAPTCHA Mailhide keys.'), 'error');
danielebarchiesi@2:       }
danielebarchiesi@2:       $_recaptcha_mailhide_nokey_warn = TRUE;
danielebarchiesi@2:     }
danielebarchiesi@2:     $email = $match[2];
danielebarchiesi@2:   }
danielebarchiesi@2:   else {
danielebarchiesi@2:     $email = recaptcha_mailhide_html($_recaptcha_mailhide_public_key, $_recaptcha_mailhide_private_key, $match[2]);
danielebarchiesi@2:   }
danielebarchiesi@2:   return $match[1] . $email . $match[3];
danielebarchiesi@2: }
danielebarchiesi@2: 
danielebarchiesi@2: /**
danielebarchiesi@2:  * Load the recaptcha library.
danielebarchiesi@2:  */
danielebarchiesi@2: function _recaptcha_mailhide_load_library() {
danielebarchiesi@2:   module_load_include('php', 'recaptcha', 'recaptcha-php-1.11/recaptchalib');
danielebarchiesi@2: }