1#!/usr/local/bin/perl
2use strict;
3use vars qw($VERSION %IRSSI);
4
5$VERSION = "0.0.1";
6%IRSSI = (
7    authors     => "Christian 'mordeth' Weber",
8    contact     => "chris\@mac.ruhr.de",
9    name        => "autoversion",
10    description => "Auto-CTCP Verison on every joining nick",
11    license     => "GPLv2",
12    url         => "",
13    changed     => "20020821",
14    modules     => ""
15);
16
17sub event_message_join ($$$$) {
18    my ($server, $channel, $nick, $address) = @_;
19    if (lc($channel) eq lc(Irssi::active_win()->{active}->{name})) {
20    	$server->command("ctcp $nick VERSION");
21    };
22}
23
24Irssi::signal_add('message join', 'event_message_join');
25
26