From: Greg Donald <gdonald@...>
Date: 2009-10-08T06:19:47+09:00
Subject: Re: Detect any "<a href=mailto:...>...</a>" string in a string?

On Wed, Oct 7, 2009 at 3:57 PM, Joshua Muheim <forum@josh.ch> wrote:
> I have a long, long string of HTML tags. There might be some unprotected
> Email links in there like this:
>
> <a href="mailto:some@email.xx">Some Email</a>
>
> or
>
> <a href="mailto:some@email.xx?subject=Something">Some Email</a>
>
> or...
>
> I need to detect these email links and substitute them with something
> different, like a JavaScript function to obfuscate them:
>
> obfuscate("some","email.xx","Something","Some Email")
>
> or something like that. Sadly I have no idea how to find the needed
> string parts. I stumbled upon the TMail GEM and guess it could help me a
> lot... But I don't get any further now.


Here's how I do it in PHP, if you wanna rework it into Ruby:

$GLOBALS[ 'EMAIL_LINK_REGEX' ] = "#<a[^>]*mailto:([^'\" ]*)['\"
]>([^<]*)</a>#i";

$html = preg_replace_callback( $GLOBALS[ 'EMAIL_LINK_REGEX' ],
'fubarEmail', $html );

function fubarEmail( $matches )
{
  $strNewAddress = replaceEntities( $matches[ 1 ] );

  $strText = replaceEntities( $matches[ 2 ] );

  $arrEmail = explode( '&#64;', $strNewAddress );

  $strTag = "<script language='Javascript' type='text/javascript'>\r";
  $strTag .= "<!--\r";
  $strTag .= "document.write('<a href=\"mai');\r";
  $strTag .= "document.write('lto');\r";
  $strTag .= "document.write(':$arrEmail[0]');\r";
  $strTag .= "document.write('@');\r";
  $strTag .= "document.write('$arrEmail[1]\">');\r";
  $strTag .= "document.write('$strText<\/a>');\r";
  $strTag .= "// -->\r";
  $strTag .= "</script><noscript>$arrEmail[0] at \r";
  $strTag .= str_replace( '&#46;', ' dot ', $arrEmail[ 1 ] ) . '</noscript>';

  return $strTag;
}



-- 
Greg Donald
http://destiney.com/