# /alias uhoh set autocreate_own_query off

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

$VERSION = "1.00";
%IRSSI = (
    authors     => 'Simon Arlott',
    name        => 'query max',
    description => 'blah blah',
    license     => 'Public Domain'
);

sub newquery {
		my ($query, $auto) = @_;
		if ($auto) {
			my $channels = 0;
			my $queries = 0;
			foreach (Irssi::windows()) {
				my $name = $_->{'active'}->{'name'};
				if ($name =~ /^#/) { $channels++; }
				elsif ($name ne '') { $queries++; }
			}
			if ($queries >= $channels) {
				Irssi::command('uhoh');
			}
		}
}

Irssi::signal_add_last('query created', 'newquery');