# Blosxom Plugin: simplelink
# Author: John Joseph Bachir
# Version: 2004-09-09
# License: GPL
# Blosxom Home/Docs/Licensing: http://www.blosxom.com

# simplelink
#
# Finds URLs begining with http:// and makes them into links,
# using the URL itself as the link text. It's great for keeping your 
# content files mostly markup free. Of course the links aren't as slick
# as they would be if you made custom link text. But it's so quick and easy...
#
# Furthermore, if simplelink finds any <a> tags at all in your story, it
# won't touch it at all. So if you do any custom linking, then simpletext will
# leave all the URLs in that story alone.
#
# I was inspired by the much more feature-full and excellent
# magiclink [http://warpedvisions.org/scripts/magiclink.shtml]
#
# The newest version of this pluggin can be found at http://johnjosephbachir.org

package simplelink;

sub start {
  1;
}

sub story {
 my ($pkg, $path, $filename, $story_ref, $title_ref, $body_ref) = @_;

 if ($$body_ref !~ /<a/){
    $$body_ref =~ s/http:\/\/([~-\w\.\/\#?=&+%,]*\w)/<a href=\"http:\/\/$1\">http:\/\/$1<\/a>/gi;
 };

 1;
}

1;