35 lines
955 B
Perl
35 lines
955 B
Perl
#!/usr/bin/perl
|
|
# Custom URL protocol definitions for CustIS Bugzilla
|
|
|
|
use Bugzilla::Util;
|
|
|
|
sub processWikiAnchor
|
|
{
|
|
my ($anchor) = (@_);
|
|
return "" unless $anchor;
|
|
$anchor = url_quote($anchor);
|
|
$anchor =~ s/%/./gso;
|
|
return $anchor;
|
|
}
|
|
|
|
sub processWikiUrl
|
|
{
|
|
my ($wiki, $url, $anchor) = @_;
|
|
$url = trim($url);
|
|
$url =~ s/\s+/ /gso;
|
|
$url = url_quote($url);
|
|
return Bugzilla->params->{"${wiki}_url"} . $url . '#' . processWikiAnchor($anchor);
|
|
}
|
|
|
|
return {
|
|
wiki => sub { processWikiUrl("wiki", @_) },
|
|
smwiki => sub { processWikiUrl("smwiki", @_) },
|
|
smboa => sub { processWikiUrl("smboa", @_) },
|
|
sbwiki => sub { processWikiUrl("sbwiki", @_) },
|
|
fawiki => sub { processWikiUrl("fawiki", @_) },
|
|
kswiki => sub { processWikiUrl("kswiki", @_) },
|
|
rdwiki => sub { processWikiUrl("rdwiki", @_) },
|
|
gzwiki => sub { processWikiUrl("gzwiki", @_) },
|
|
dpwiki => sub { processWikiUrl("dpwiki", @_) },
|
|
};
|