/usr/share/irssi/scripts/callerid.pl is in irssi-scripts 20170711.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 | use strict;
use Irssi;
use vars qw($VERSION %IRSSI);
$VERSION = "1.0";
%IRSSI = (
authors => 'Daniel "dubkat" Reidy',
contact => 'dubkat@dubkat.org (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).',
]
);
|