archive/scripts/irssi/fuckyou.pl

use strict;
use warnings;
use Irssi;
use Irssi::Irc;

sub getRandom {
    my $length=5 + int(rand(21 - 5));
    my @chars=('a'..'z','A'..'Z','0'..'9');
    my $random_string;
    foreach (1..$length) {
        $random_string.=$chars[rand @chars];
    }
    return $random_string;
}

sub cmd_fuckyou {
    my ($data, $server, $dest)  = @_;
    my ($nick, $amount) = split(/ +/, $data);
    unless($nick && $amount) {
        Irssi::print("/fuckyou <nick> <number>");
        return;
    }
    for(1 .. $amount) {
        my $rand = &getRandom();
        $server->command("sajoin $nick #$rand");
    }
}

sub cmd_unfuck {
    my @windows = Irssi::windows();
    foreach my $window (@windows) {
        next if $window->{immortal};
        $window->{active}->{topic_by} ? next : $window->destroy;
    }
}

Irssi::command_bind('fuckyou', 'cmd_fuckyou');
Irssi::command_bind('unfuck',  'cmd_unfuck');