[link-text=url]

##</code><code>##

sub bb2html {
	$introtext =~ s/<.*?>//gi; # no html allowed, no math either ;)
	$introtext =~ s/\n\s*\n/\n\n/gi;
	$introtext =~ s/\n\n\n/\n\n/gi;
	$introtext =~ s/&nbsp;/ /gi;
	$introtext =~ s/\n/<BR>/gi;
	$introtext =~ s/(?<=BR>)(http|https|ftp|gopher|telnet)/ $1/gi;
	$introtext =~ s/\s+$//gi;
	$introtext =~ s/^\s+//gi;
	$introtext .= " ";
	$introtext =~ s/\{/%7B/gi;
	$introtext =~ s/\}/%7D/gi;
	$introtext =~ s/\[([^A\]]{1,2})\s+.*?\]/\[$1\]/gi;
	$introtext =~ s/\[\/([^A\]]{1,2})\s+.*?\]/\[\/$1\]/gi;
	$introtext =~ s/\[([^A\]]{1,2})\]/<$1>/gi;
	$introtext =~ s/\[\/([^A\]]{1,2})\]/<\/$1>/gi;
	$introtext =~  s{\[([^=\]]+?)=(http|https|ftp|gopher|telnet)://([$URI::uric#]+?)\]}{
		my($text, $proto, $url) = ($1, $2, $3);
		my $extra = '';
		$extra = $1 if $url =~ s/([?!;:.,']+)$//;
		$extra = ')' . $extra if $url !~ /\(/ && $url =~ s/\)$//;
		qq[<A TARGET="_blank" HREF="$proto://$url">$text</A>$extra];
	}ogie;
	$introtext =~  s{(?<!["=>])(http|https|ftp|gopher|telnet)://([$URI::uric#]+)}{ 
		my($proto, $url) = ($1, $2);
		my $extra = '';
		my $host_capture = $url;
		$host_capture =~ s/([^\/]*).*/$1/i;
		#$host_capture = substr($host_capture,0,17) . "..." if length($host_capture)>20;
		$extra = $1 if $url =~ s/([?!;:.,']+)$//;
		$extra = ')' . $extra if $url !~ /\(/ && $url =~ s/\)$//;
		qq[<A TARGET="_blank" HREF="$proto://$url">$host_capture</A>$extra];
	}ogie;
    return $introtext;
}