89 lines
2.4 KiB
Perl
89 lines
2.4 KiB
Perl
# Auto IRC Bot. An advanced, lightweight and powerful IRC bot.
|
|
# Copyright (C) 2010-2011 Xelhua Development Team (doc/CREDITS)
|
|
# This program is free software; rights to this code are stated in doc/LICENSE.
|
|
package m_Bitly;
|
|
use strict;
|
|
use warnings;
|
|
use API::Std qw(cmd_add cmd_del conf_get err);
|
|
use API::IRC qw(privmsg);
|
|
use LWP::UserAgent;
|
|
|
|
sub _init {
|
|
|
|
if (!(conf_get('bitly_user'))[0][0] or !(conf_get('bitly_key'))[0][0]) {
|
|
err(2, "Please verify that you have bitly_user and bitly_key defined in your configuration file", 0);
|
|
return 0;
|
|
}
|
|
cmd_add("SHORTEN", 0, "Shorten a URL", "This command shortens a URL using bit.ly\nSyntax: SHORTEN <url>", \&m_Shorten::shorten);
|
|
cmd_add("REVERSE", 0, "Reverses a URL", "This command reverses a bit.ly URL\nSyntax: REVERSE <url>", \&m_Shorten::reverse);
|
|
return 1;
|
|
|
|
}
|
|
|
|
sub _void {
|
|
|
|
cmd_del("SHORTEN");
|
|
cmd_del("REVERSE");
|
|
return 1;
|
|
|
|
}
|
|
|
|
sub shorten {
|
|
|
|
my (%data) = @_;
|
|
my $ua = LWP::UserAgent->new();
|
|
$ua->agent('Auto IRC Bot');
|
|
$ua->timeout(2);
|
|
my @args = @ { $data{args} };
|
|
my ($surl, $user, $key) = ($args[0], (conf_get('bitly_user'))[0][0], (conf_get('bitly_key'))[0][0]);
|
|
my $url = "http://api.bit.ly/v3/shorten?version=3.0.1&longUrl=".$surl."&apiKey=".$key."&login=".$user."&format=txt";
|
|
my $response = $ua->get($url);
|
|
|
|
if ($response->is_success)
|
|
{
|
|
my $d = $response->decoded_content;
|
|
chomp $d;
|
|
if ($d =~ m/bit.ly/i) {
|
|
privmsg($data{svr}, $data{chan}, $d);
|
|
}
|
|
else {
|
|
dbug($d);
|
|
privmsg($data{svr}, $data{chan}, "An error occured while shortening your URL.");
|
|
}
|
|
}
|
|
else {
|
|
privmsg($data{svr}, $data{chan}, "An error occured while reversing your URL.");
|
|
}
|
|
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
sub reverse {
|
|
|
|
my (%data) = @_;
|
|
my $ua = LWP::UserAgent->new();
|
|
$ua->agent('Auto IRC Bot');
|
|
$ua->timeout(2);
|
|
my @args = @ { $data{args} };
|
|
my ($surl, $user, $key) = ($args[0], (conf_get('bitly_user'))[0][0], (conf_get('bitly_key'))[0][0]);
|
|
my $url = "http://api.bit.ly/v3/expand?version=3.0.1&shortURL=".$surl."&apiKey=".$key."&login=".$user."&format=txt";
|
|
my $response = $ua->get($url);
|
|
|
|
if ($response->is_success)
|
|
{
|
|
my $d = $response->decoded_content;
|
|
chomp $d;
|
|
privmsg($data{svr}, $data{chan}, $d);
|
|
}
|
|
else {
|
|
privmsg($data{svr}, $data{chan}, "An error occured while reversing your URL.");
|
|
}
|
|
|
|
return 1;
|
|
}
|
|
|
|
|
|
API::Std::mod_init("Bitly", "Xelhua", "0.1", "3.0d", __PACKAGE__);
|