-
Notifications
You must be signed in to change notification settings - Fork 235
/
nocaps.pl
96 lines (77 loc) · 2.66 KB
/
nocaps.pl
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
# nocaps.pl
#
# Stops people SHOUTING ON IRC
#
# Settings:
# caps_replace: How to notify you something was changed. Default is
# "<caps>text</caps>". 'text' is replaced with what they said.
# caps_sensitivity: If the line is this shorter than this, all caps is
# allowed. Default = 6
# caps_percent: If the line has more than this percent caps in it, it's
# transformed to lowercase. Default = 80.
#
# Thanks to Johan "Ion" Kiviniemi from #irssi for some of the stuff
#
# Example output (all these lines were all caps originally):
# [@NoTopic] Boomskdfhh£$(&* [caps]
# [@NoTopic] Boomfdkjh. Kdfhkdf. Kddkh. [caps]
# [@NoTopic] Jamesoff: Boom*£&$&*£hdfjkhjfksdfljdksjgfkj*&^£* [caps]
#
use strict;
use vars qw($VERSION %IRSSI);
use Irssi;
$VERSION = '1.01';
%IRSSI = (
authors => 'JamesOff, Ion',
name => 'nocaps',
description => 'Replaces lines in ALL CAPS with something easier on the eyes',
license => 'Public Domain',
url => 'http://www.jamesoff.net',
changed => '22 March 2002 12:34:38',
);
sub isAllCaps {
my ($msg) = @_;
#strip out everything that's not letters
$msg =~ s/[^A-Za-z]+//g;
#msgs with no letters in are a waste of time
return 0 if (!length($msg));
my $capsonly = $msg;
#only caps
$capsonly =~ s/[^A-Z]+//g;
#if it's all caps and less than caps_sensitivity, return 0
my $minimum = Irssi::settings_get_str('caps_sensitivity');
return 0 if ((length($capsonly) < $minimum));
#check percentage
my $percentage = Irssi::settings_get_str('caps_percent');
if (((length($capsonly) / length($msg)) * 100) > $percentage) {
#too many caps!
return 1;
}
return 0;
}
#main event handler
sub caps_message {
my ($server, $data, $nick, $address) = @_;
my ($target, $msg) = split(/ :/, $data,2);
if (isAllCaps($msg)) {
#bleh, a line in ALL CAPS£*$&(*(£$&
$msg =~ tr/A-Z/a-z/;
# foo bar biz. blah quux. -> Foo bar biz. Blah quux.
$msg =~ s/(^\s*|[.!?]\s+)(\w)/$1 . uc $2/eg;
# Nick: hello -> Nick: Hello.
$msg =~ s/^(\S+:\s*)(\w)/$1 . uc $2/e;
#:<d|p|o> --> capital letter (for |Saruman| )
$msg =~ s/([=:;][dpo])/uc $1/eg;
my $replacement = Irssi::settings_get_str('caps_replace');
$replacement =~ s/text/$msg/;
#re-emit the signal to make Irssi display it
Irssi::signal_emit('event privmsg', ($server, "$target :$replacement", $nick, $address));
#and stop
Irssi::signal_stop();
}
}
Irssi::signal_add('event privmsg', 'caps_message');
Irssi::settings_add_str('misc', 'caps_replace', "<caps>text</caps>");
Irssi::settings_add_str('misc', 'caps_sensitivity', "6");
Irssi::settings_add_str('misc', 'caps_percent', "80");