use strict; use Irssi; use vars qw($VERSION %IRSSI); $VERSION = "1.0"; %IRSSI = ( authors => 'Daniel "dubkat" Reidy', contact => '[email protected] (www.dubkat.org)', name => 'callerid', description => 'Reformats CallerID (+g) Messages (Also known as Server-Side Ignore) on Hybrid & Ratbox IRCDs (EFnet) to be Easier on the Eyes', license => 'GPL', url => 'http://scripts.irssi.org/', ); ######################################################################################### # Thanks to Geert and Senneth for helping me out with my first irssi script! # # Hopefully someone will find this useful. # # # # Callerid is used to block messages from users at the server. # # Callerid mode is activated by usermode +g on Hybrid and Ratbox servers (EFnet) # # The ircd maintains a list of users that may message you. # # To add users to the list, do /quote accept NICK # # The IRCD will *NOT* inform you that the user has been added. # # To remove a user from the list do /quote accept -NICK # # The IRCD will *NOT* inform you that the user has been removed. # # To see a list of users on your accept list do /quote accept * # # # # The following alias may make life easier: # # alias accept quote accept # ######################################################################################### Irssi::signal_add('event 716', 'callerid_them'); sub callerid_them { my ($server, $data) = @_; my (undef, $nick, undef) = split(/ +/, $data, 3); Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'callerid_them', $nick); Irssi::signal_stop(); } Irssi::signal_add('event 717', 'callerid_them_notified'); sub callerid_them_notified { my ($server, $data) = @_; my (undef, $nick, undef) = split(/ +/, $data, 3); $server->printformat($nick, MSGLEVEL_CLIENTCRAP, 'callerid_them_notified', $nick); Irssi::signal_stop(); } Irssi::signal_add('event 282', 'callerid_accept_eof'); sub callerid_accept_eof { Irssi::signal_stop(); } Irssi::signal_add('event 718', 'callerid_you'); sub callerid_you { my ($server, $data) = @_; my (undef, $nick, $host, undef) = split(/ +/, $data, 4); $server->printformat($nick, MSGLEVEL_CLIENTCRAP, 'callerid_you', $nick, $host); Irssi::signal_stop(); } Irssi::signal_add('event 281', 'callerid_accept_list'); sub callerid_accept_list { my ($server, $data) = @_; my (undef, $list, undef) = split(/ +/, $data, 3); $data =~ s/^\S+\s//; $data =~ s/\s+:$//; $server->printformat($data, MSGLEVEL_CLIENTCRAP, 'callerid_accept_list', $data); Irssi::signal_stop(); } Irssi::signal_add('event 457', 'callerid_accept_exsists'); sub callerid_accept_exsists { my ($server, $data) = @_; my (undef, $nick, undef) = split(/ +/, $data, 3); Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'callerid_accept_exsists', $nick); Irssi::signal_stop(); } Irssi::signal_add('event 458', 'callerid_not_on_list'); sub callerid_not_on_list { my ($server, $data) = @_; my (undef, $info, undef) = split(/ +/, $data, 3); Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'callerid_not_on_list', $info); Irssi::signal_stop(); } Irssi::signal_add('event 456', 'callerid_full'); sub callerid_full { my ($server, $data) = @_; my (undef, $info) = split(/ +/, $data, 2); Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'callerid_full', $info); Irssi::signal_stop(); } Irssi::signal_add('event 401', 'callerid_invalid_nick'); sub callerid_invalid_nick{ my ($server, $data) = @_; my (undef, $info, undef) = split(/ +/, $data, 3); Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'callerid_invalid_nick', $info); Irssi::signal_stop(); } Irssi::theme_register ( [ 'callerid_them', '%_[%_%RCALLERID%n%_]%_ %W$0%n is in server-side ignore.', 'callerid_you', '%_[%_%yCALLERID%n%_]%_ %W$0%n ($1) is attempting to message you.', 'callerid_accept_list', '%_[%_%gACCEPTED%n%_]%_ %W$0%n', 'callerid_accept_exsists', '%_[%_%BCALLERID%n%_]%_ %W$0%n Is Already On Your Accept List. Do %_/quote accept *%_ for a list :)', 'callerid_full', '%_[%_%pCALLERID%n%_]%_ List is full. Do %_/quote accept *%_ for a list', 'callerid_not_on_list', '%_[%_%pCALLERID%n%_]%_ $0 is not a user on your accept list.', 'callerid_invalid_nick', '%_[%_%pCALLERID%n%_]%_ Cannot add/remove $0. That nick does not exist.', 'callerid_them_notified', '%_[%_%rCALLERID%n%_]%_ %_$0%_ has been notified that you attempted to message them. (They will not notified of further messages for 60sec).', ] );