tinyurl irssi - thanks thehaz

gistfile1.txt

# tinyurl.pl

use strict;
use warnings;
use LWP::Simple;
use Irssi;

our $VERSION = '1.0';
our %IRSSI = (
        author          => 'Hazael Sanchez',
        contact         => 'hazaelsan@gmail.com',
        name            => 'tinyurl',
        description     => 'creates tinyurl',
        license         => 'GPL',
);

Irssi::command_bind( tinyurl => sub {
        my ($msg, $server, $win) = @_;
        my $url;

        if ($url = get "http://www.tinyurl.com/api-create.php?url=$msg") {
                if ($win && ($win->{type} eq 'CHANNEL' || $win->{type} eq 'QUERY')) {
                        $win->command("MSG $win->{name} $url");
                }
                else {
                        print CLIENTCRAP "tinyurl: $url";
                };
        }
        else {
                print CLIENTCRAP 'Error connecting to tinyurl';
        }
});