1#!/usr/local/bin/perl -w 2 3## Bugreports and Licence disclaimer. 4# 5# For bugreports and other improvements contact Geert Hauwaerts <geert@irssi.org> 6# 7# This program is free software; you can redistribute it and/or modify 8# it under the terms of the GNU General Public License as published by 9# the Free Software Foundation; either version 2 of the License, or 10# (at your option) any later version. 11# 12# This program is distributed in the hope that it will be useful, 13# but WITHOUT ANY WARRANTY; without even the implied warranty of 14# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15# GNU General Public License for more details. 16# 17# You should have received a copy of the GNU General Public License 18# along with this script; if not, write to the Free Software 19# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 20# 21## 22 23use strict; 24use Irssi; 25use vars qw($VERSION %IRSSI); 26 27$VERSION = "0.01"; 28 29%IRSSI = ( 30 authors => 'Geert Hauwaerts', 31 contact => 'geert@irssi.org', 32 name => 'dancer_hide_477.pl', 33 description => 'This script hides the 477 numerics from the dancer IRCd.', 34 license => 'GNU General Public License', 35 url => 'http://irssi.hauwaerts.be/dancer_hide_477.pl', 36 changed => 'Fri Mar 12 19:46:24 2004', 37); 38 39Irssi::theme_register([ 40 'dancer_hide_477_loaded', '%R>>%n %_Scriptinfo:%_ Loaded $0 version $1 by $2.' 41]); 42 43sub hide_477 { 44 45 my ($server, $data) = @_; 46 my ($num, $nick, $auth_nick) = split(/ +/, $_[1], 3); 47 48 if ($server && ($server->{'version'} =~ /dancer/)) { 49 Irssi::signal_stop(); 50 } 51} 52 53Irssi::signal_add('event 477', 'hide_477'); 54Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'dancer_hide_477_loaded', $IRSSI{name}, $VERSION, $IRSSI{authors}); 55