#!/usr/bin/perl -w 

# quick-and-ditry tiny url converter, uses http://tinyurl.com
# needs perl libwww
# of course this script is freely redistribuable under the GNU GPL
#
# iMil <imil@home.imil.net>

use LWP::Simple;

IRC::register("iMil's URL tinyfier", "0.1", "", "");
IRC::print("iMil's URL tinyfier script loaded");
IRC::add_command_handler("tiny", "tiny");

sub tiny
{
	$in=shift;
	$out=get("http://tinyurl.com/create.php?url=$in");
  foreach my $url (split("\n",$out)) {
    if ($url =~ m/.*<blockquote>(http\:\/\/tinyurl.com\/.+)<\/blockquote>.*/i) {
	IRC::command($1);
	return 1;
    }
  }
}