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