Skip to content
Switch branches/tags
Go to file
Cannot retrieve contributors at this time
# prints "Query started with nick in window x" when query windows are
# created automatically. For irssi 0.7.98
# 21.08.2001 :: added automatic whois
use strict;
use Irssi;
use vars qw($VERSION %IRSSI);
%IRSSI = (
authors=> 'unknown',
contact=> '',
name=> 'noisyquery',
description=> 'Prints an info about a newly started Query in your current window and runs a /whois on the nick.',
license=> 'GPL v2',
url=> '',
sub sig_query() {
my ($query, $auto) = @_;
# don't say anything if we did /query,
# or if query went to active window
my $refnum = $query->window()->{refnum};
my $window = Irssi::active_win();
if ($auto && $refnum != $window->{refnum}) {
$window->print("Query started with ".$query->{name}." in window $refnum");
$query->{server}->command("whois ".$query->{name});
Irssi::signal_add_last('query created', 'sig_query');