Added a bit.ly module (Bitly) that adds SHORTEN and REVERSE to Auto.

modules/Bitly.pm

@@ -0,0 +1,88 @@
+# 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__);