automagiclinks.pm

来自「codestriker is a develop useful tool to 」· PM 代码 · 共 38 行

package Codestriker::Template::Plugin::AutomagicLinks;

# Simple template toolkit plugin module for automagically changing all
# URLs to be hyperlinked, and all text in the form "Bug \d+" to be changed
# to link with the associated bug record if a bugtracking system is
# registered with the system.

use Template::Plugin::Filter;
use Codestriker;

use base qw( Template::Plugin::Filter );

sub filter {
    my ($self, $text) = @_;
    
    # First handle any URL linking.
    my @words = split /(\s)/, $text;
    my $result = "";
    for my $word (@words) {
	if ($word =~ /^([A-Za-z]+:\/\/[^<]+[^<\.])(.*)$/o) {
	    # A URL, create a link to it.
	    $result .= "<a href=\"$1\">$1</a>$2";
	} else {
	    $result .= $word;
	}
    }

    # If there is a link to a bug tracking system, automagically modify all
    # text of the form "[Bb]ug \d+" to a hyperlink for that bug record.
    if (defined $Codestriker::bugtracker && $Codestriker::bugtracker ne "") {
	$result =~ s/(\b)([Bb][Uu][Gg]\s*(\d+))(\b)/$1<a href="${Codestriker::bugtracker}$3">$1$2$4<\/a>/mg;
    }
    
    return $result;
}

1;