Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-07 16:55:42 -04:00
Code Issues Releases Wiki Activity

more encoding changes in other places

Browse source
This commit is contained in:
Ryan Voots 2010-04-05 14:31:42 -04:00
parent ebaedd7b51
commit 63871412b9
1 changed files with 13 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
plugins/perldoc.pm
View file

@ -9,9 +9,11 @@ sub {
if ($said->{body} =~ /-q\s+(.*)/i) #faq questions
{#http://perldoc.perl.org/search.html?q=foo+bar
my $query = uri_encode($1);
$query =~ s/%20/+/g;
$url = "http://perldoc.perl.org/search.html?q=".uri_encode($1);
my $trimmed = $said->{body};
$trimmed =~ s/^\s*(\S+)\s*$/$1/;
my $query = uri_encode($trimmed);
$query =~ s/%20/+/g;
$url = "http://perldoc.perl.org/search.html?q=".$query;
}
elsif ($said->{body} =~ /-f\s+(.*?)\s*/i) #functions, only use the first part of a multiword expression
{
@ -24,12 +26,18 @@ sub {
$url = "http://perldoc.perl.org/functions/".$1.".html"
}
elsif ($said->{body} =~ /-m\s+(.*)/i) # got a module!
elsif ($said->{body} =~ /-m\s+(.*)\s*$/i) # got a module!
{#http://search.cpan.org/search?query=foo%3ABar&mode=all
$url = "http://search.cpan.org/search?query=".uri_encode($1)."&mode=module";
my $query = uri_encode($1);
$query =~ s/%20/+/g;
$url = "http://search.cpan.org/search?query=".$query."&mode=module";
}
elsif ($said->{body} =~ /::/) #module, go to cpan also
{
my $trimmed = $said->{body};
$trimmed =~ s/^\s*(\S+)\s*$/$1/;
my $query = uri_encode($trimmed);
$query =~ s/%20/+/g;
$url = "http://search.cpan.org/search?query=".uri_encode($said->{body})."&mode=module";
}
else # we've got just a plain word, use it as a doc title