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

modified encoding for -q

Browse source
This commit is contained in:
Ryan Voots 2010-04-05 14:29:09 -04:00
parent 4c837759f3
commit ebaedd7b51
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
plugins/perldoc.pm
View file

@ -9,6 +9,8 @@ sub {
if ($said->{body} =~ /-q\s+(.*)/i) #faq questions if ($said->{body} =~ /-q\s+(.*)/i) #faq questions
{#http://perldoc.perl.org/search.html?q=foo+bar {#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); $url = "http://perldoc.perl.org/search.html?q=".uri_encode($1);
} }
elsif ($said->{body} =~ /-f\s+(.*?)\s*/i) #functions, only use the first part of a multiword expression elsif ($said->{body} =~ /-f\s+(.*?)\s*/i) #functions, only use the first part of a multiword expression