html/autoversion.pl

• package main
  • event_message_join
• EOF

   1 #!/usr/bin/perl
   2 use strict;
   3 use 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 
  17 sub 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 
  24 Irssi::signal_add('message join', 'event_message_join');
  25