next »

[simma]

I would like to enable autolinks for URLs that do not include the leading http://
.... many of my users forget to add it.
Can anyone provide me the appropriate string $text =~ ....
I tyried to duplicate and modify the existing one and failed.

thanks

[DanO]

** I would like to enable autolinks for URLs that do not include the leading http:// **

There has to be some sort sequence of characters to identify a URL. If the URLs entered start with www...,  the line below should work.

$text =~ s#(^|\s)(www\.\S*)#$1<A HREF="http://$2" $target>$2</A>#gs;

Be sure not to use both the original and this as it will cause malforming of URLs. Maybe something like:

if (text !~ #http://#)
{
$text =~ s#(^|\s)(www\.\S*)#$1<A HREF="http://$2" $target>$2</A>#gs;
}

Dan O.

------------------

[simma]

Dan,

great it worked ... but with the first suggestion.
In other words with the following sequence

       $text =~ s#(^|\s)(http://\S*)#$1<A HREF="$2" $target>$2</A>#gs;
       $text =~ s#(^|\s)(www\.\S*)#$1<A HREF="http://$2" $target>$2</A>#gs;
       $text =~ s#(^|[^\w-])([\w.-]*@[\w.-]+(\.[\w-]+)+)#$1<A HREF="mailto:$2"$

I do add links to http://websitename  and www.webasitename..  
and e-mail addresses, without any apperant problem.
I do not see the side effect that you are describing.

While if I use the
if (text !~ #http://#)
{
$text =~ s#(^|\s)(www\.\S*)#$1<A HREF="http://$2" $target>$2</A>#gs;
}

it doesn't work (there is a problem in the if statement)

thanks

------------------

[DanO]

** I do add links to http://websitename  and www.webasitename..  **

Try http://www.websitename  and see what you get.

Dan O.

------------------

[peter]

Hey, I looked at this and I think I figured out the problem with the if statement.  It works for me if I add "$" before "text" and use quotes instead of number signs, like this:

if ($text =~ "http://")

When I replaced the existing line that handles the "http://..." case with the if statement, links starting with "http://" were no longer processed.  I got them to work by extending the if statement, so the section looks like this:

 if ($text !~ "http://")
 {
   $text =~ s#(^|\s)(http://\S*)#$1<A HREF="$2" $target>$2</A>#gs;
 }
 else
 {
   $text =~ s#(^|\s)(www\.\S*)#$1<A HREF="http://$2" $target>$2</A>#gs;
 }
 $text =~ s#(^|[^\w.-])([\w.-]*@[\w.-]+\.\w+)#$1<A HREF="mailto:$2">$2</A>#gs;

Is that a good way to do it or is there a better way?

[peter]

Oops - that first if statement should have been

if ($text !~ "http://")

[peter]

Whoops!  The second should have been

if ($text =~ "http://")