manero

#!/usr/bin perl

use strict;
use vars qw($VERSION %IRSSI);

use Irssi;
$VERSION = '1.00';
%IRSSI = (
authors     => 'manero',
contact     => 'manero@manero.org',
name        => 'maneros fury',
description => 'FURYs a bunch of text ',
license     => 'Public Domain'
);


sub fury {
    my ($data, $server, $witem) = @_;

    return unless $data;

    my $fury_out = "";

    for (my $i = 0; $i < 20; $i++) {
        $fury_out = $fury_out . $data;
    }

    $fury_out = uc($fury_out);

    $witem->command("say $fury_out");
}


Irssi::command_bind fury => \&fury;