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

removing the shortening on non search urls

Browse source
This commit is contained in:
Ryan Voots 2010-04-06 15:55:55 -04:00
parent 0509add9f8
commit 078dd29c17
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
plugins/perldoc.pm
View file

@ -14,6 +14,7 @@ sub {
my $query = uri_encode($trimmed);
$query =~ s/%20/+/g;
$url = "http://perldoc.perl.org/search.html?q=".$query;
$url = makeashorterlink($url);
}
elsif ($said->{body} =~ /-f\s+(.*)/i) #functions, only use the first part of a multiword expression
{
@ -32,6 +33,7 @@ sub {
my $query = uri_encode($1);
$query =~ s/%20/+/g;
$url = "http://search.cpan.org/search?query=".$query."&mode=module";
$url = makeashorterlink($url);
}
elsif ($said->{body} =~ /::/) #module, go to cpan also
{
@ -40,6 +42,7 @@ sub {
my $query = uri_encode($trimmed);
$query =~ s/%20/+/g;
$url = "http://search.cpan.org/search?query=".uri_encode($said->{body})."&mode=module";
$url = makeashorterlink($url);
}
else # we've got just a plain word, use it as a doc title
{ #http://perldoc.perl.org/perlrun.html
@ -54,5 +57,5 @@ sub {
}
}
print "Your documentation is available at: ", makeashorterlink($url);
print "Your documentation is available at: ", $url;
}