ww.pl

use vars qw($VERSION %IRSSI);
$VERSION = '0.1';
%IRSSI = (
    authors => 'Matt Nordhoff',
    contact => '[email protected]',
    description => "/w/w 10",
    name => 'ww',
);

sub send_text {
    my ($line, $server, $witem) = @_;
    my ($window) = $line =~ /^(?:\/+w+\s*\d*\s*)+\/+w+\s*(\d+)\s*$/;
    if ($window) {
        Irssi::command("window goto $window");
        Irssi::signal_stop();
    }
}

Irssi::signal_add('send text', \&send_text);