sydney/Autobot
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed a bug with certain URLs. Added URI::Escape to dependencies.

Browse Source
This commit is contained in:
Elijah Perrault committed 2011-02-05 22:53:05 -07:00
1 parent 024d7388c9
commit 4c6bacf177
1 file changed
+5 -2
Download Patch File Download Diff File Expand all files Collapse all files
modules/Bitly.pm
+5 -2
View File
@@ -7,6 +7,7 @@ use warnings;
use API::Std qw(cmd_add cmd_del conf_get err trans); use API::Std qw(cmd_add cmd_del conf_get err trans);
use API::IRC qw(privmsg notice); use API::IRC qw(privmsg notice);
use LWP::UserAgent; use LWP::UserAgent;
use URI::Escape;
# Initialization subroutine. # Initialization subroutine.
sub _init sub _init
@@ -60,6 +61,7 @@ sub shorten
return 0; return 0;
} }
my ($surl, $user, $key) = ($args[0], (conf_get('bitly:user'))[0][0], (conf_get('bitly:key'))[0][0]); my ($surl, $user, $key) = ($args[0], (conf_get('bitly:user'))[0][0], (conf_get('bitly:key'))[0][0]);
my $surl = uri_escape($surl);
my $url = "http://api.bit.ly/v3/shorten?version=3.0.1&longUrl=".$surl."&apiKey=".$key."&login=".$user."&format=txt"; my $url = "http://api.bit.ly/v3/shorten?version=3.0.1&longUrl=".$surl."&apiKey=".$key."&login=".$user."&format=txt";
# Get the response via HTTP. # Get the response via HTTP.
my $response = $ua->get($url); my $response = $ua->get($url);
@@ -96,6 +98,7 @@ sub reverse
return 0; return 0;
} }
my ($surl, $user, $key) = ($args[0], (conf_get('bitly:user'))[0][0], (conf_get('bitly:key'))[0][0]); my ($surl, $user, $key) = ($args[0], (conf_get('bitly:user'))[0][0], (conf_get('bitly:key'))[0][0]);
my $surl = uri_escape($surl);
my $url = "http://api.bit.ly/v3/expand?version=3.0.1&shortURL=".$surl."&apiKey=".$key."&login=".$user."&format=txt"; my $url = "http://api.bit.ly/v3/expand?version=3.0.1&shortURL=".$surl."&apiKey=".$key."&login=".$user."&format=txt";
# Get the response via HTTP. # Get the response via HTTP.
my $response = $ua->get($url); my $response = $ua->get($url);
@@ -173,8 +176,8 @@ Add Bitly to module auto-load and the following to your configuration file:
=over =over
This module adds an extra dependency: LWP::UserAgent. You can get it This module adds extra dependencies: LWP::UserAgent and URI::Escape.
from the CPAN <http://www.cpan.org>. You can get it from the CPAN <http://www.cpan.org>.
This module is compatible with Auto version 3.0.0a2+. This module is compatible with Auto version 3.0.0a2+.