2008-12-26 16:18:47 +03:00
|
|
|
#!/usr/bin/perl
|
|
|
|
# Custom URL protocol definitions for CustIS Bugzilla
|
|
|
|
|
|
|
|
use Bugzilla::Util;
|
|
|
|
|
|
|
|
sub processWikiAnchor
|
|
|
|
{
|
|
|
|
my ($anchor) = (@_);
|
|
|
|
return "" unless $anchor;
|
2009-03-30 17:03:28 +04:00
|
|
|
$anchor = url_quote($anchor);
|
|
|
|
$anchor =~ s/%/./gso;
|
2008-12-26 16:18:47 +03:00
|
|
|
return $anchor;
|
|
|
|
}
|
|
|
|
|
|
|
|
sub processWikiUrl
|
|
|
|
{
|
2009-03-30 17:03:28 +04:00
|
|
|
my ($wiki, $url, $anchor) = @_;
|
|
|
|
$url = trim($url);
|
|
|
|
$url =~ s/\s+/ /gso;
|
|
|
|
$url = url_quote($url);
|
|
|
|
return Bugzilla->params->{"${wiki}_url"} . $url . '#' . processWikiAnchor($anchor);
|
2008-12-26 16:18:47 +03:00
|
|
|
}
|
|
|
|
|
|
|
|
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", @_) },
|
2009-02-05 17:59:43 +03:00
|
|
|
gzwiki => sub { processWikiUrl("gzwiki", @_) },
|
2009-03-24 17:54:51 +03:00
|
|
|
dpwiki => sub { processWikiUrl("dpwiki", @_) },
|
2009-06-10 16:25:35 +04:00
|
|
|
hrwiki => sub { processWikiUrl("hrwiki", @_) },
|
2009-08-21 17:16:08 +04:00
|
|
|
cbwiki => sub { processWikiUrl("cbwiki", @_) },
|
2008-12-26 16:18:47 +03:00
|
|
|
};
|