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
136
137
138
139
140
141
142
143
144
145
|
diff -Naur Net_old/IRC/Connection.pm Net/IRC/Connection.pm
--- Net_old/IRC/Connection.pm 2003-12-05 01:50:16.000000000 +0300
+++ Net/IRC/Connection.pm 2012-08-21 11:20:55.000000000 +0400
@@ -866,6 +866,7 @@
print STDERR "<<< $line\n" if $self->{_debug};
+ $::lastline = $line; #this is so __WARN__ can print the last line received on IRC.
# Like the RFC says: "respond as quickly as possible..."
if ($line =~ /^PING/) {
$ev = (Net::IRC::Event->new( "ping",
@@ -908,7 +909,12 @@
$type = lc $type;
# This should be fairly intuitive... (cperl-mode sucks, though)
- if (defined $line and index($line, "\001") >= 0) {
+ # The order of this was changed by AfterDeath because a \x01 in a geco fucked shit up
+ if ($type eq "join" or $type eq "part" or
+ $type eq "mode" or $type eq "topic" or
+ $type eq "kick") {
+ $itype = "channel";
+ } elsif (defined $line and index($line, "\001") >= 0) {
$itype = "ctcp";
unless ($type eq "notice") {
$type = (($stuff[0] =~ tr/\#\&//) ? "public" : "msg");
@@ -917,16 +923,12 @@
$itype = $type = (($stuff[0] =~ tr/\#\&//) ? "public" : "msg");
} elsif ($type eq "notice") {
$itype = "notice";
- } elsif ($type eq "join" or $type eq "part" or
- $type eq "mode" or $type eq "topic" or
- $type eq "kick") {
- $itype = "channel";
} elsif ($type eq "nick") {
$itype = "nick";
} else {
$itype = "other";
}
-
+
# This goes through the list of ignored addresses for this message
# type and drops out of the sub if it's from an ignored hostmask.
@@ -992,6 +994,24 @@
'',
$type,
$line);
+ } elsif ($type eq "account") { #these next 3 event hooks added by AfterDeath
+ $ev = Net::IRC::Event->new($type,
+ $from,
+ '',
+ $type,
+ @stuff);
+ } elsif ($type eq "cap") {
+ $ev = Net::IRC::Event->new($type,
+ $from,
+ '',
+ $type,
+ @stuff);
+ } elsif ($type eq "pong") {
+ $ev = Net::IRC::Event->new($type,
+ $from,
+ $self->{nick},
+ 'server',
+ $stuff[1]);
} else {
carp "Unknown event type: $type";
}
@@ -1183,7 +1203,7 @@
}
my $buf = CORE::join '', @_;
- my $length = $self->{_maxlinelen} - 11 - length($to);
+ my $length = $self->{_maxlinelen} - 80 - length($to);
my $line;
if (ref($to) =~ /^(GLOB|IO::Socket)/) {
diff -Naur Net_old/IRC/Event.pm Net/IRC/Event.pm
--- Net_old/IRC/Event.pm 2003-09-24 10:33:40.000000000 +0400
+++ Net/IRC/Event.pm 2012-08-21 11:03:42.000000000 +0400
@@ -189,6 +189,16 @@
return $self->{'userhost'};
}
+#added by AfterDeath. Use this to reply to channel messages in channel, but private messages to the nick that sent it.
+sub replyto {
+ my $self = shift;
+ if ($self->{to}->[0] =~ /^#/) {
+ return $self->{to}->[0];
+ } else {
+ return $self->{nick};
+ }
+}
+
# Simple sub for translating server numerics to their appropriate names.
# Takes one arg: the number to be translated.
sub trans {
@@ -266,6 +276,7 @@
259 => "adminemail",
261 => "tracelog",
262 => "endoftrace", # 1997-11-24 -- archon
+ 263 => "rpl_tryagain",
265 => "n_local", # 1997-10-16 -- tkil
266 => "n_global", # 1997-10-16 -- tkil
271 => "silelist", # Undernet Extension, Kajetan@Hinner.com, 17/10/98
@@ -305,6 +316,7 @@
322 => "list",
323 => "listend",
324 => "channelmodeis",
+ 328 => "channelurlis",
329 => "channelcreate", # 1997-11-24 -- archon
331 => "notopic",
332 => "topic",
@@ -353,6 +365,7 @@
393 => "users",
394 => "endofusers",
395 => "nousers",
+ 396 => "hosthidden",
401 => "nosuchnick",
402 => "nosuchserver",
@@ -451,8 +464,10 @@
641 => "rpl_dumprpl", # UnrealIrcd, Hendrik Frenzel
642 => "rpl_eodump", # UnrealIrcd, Hendrik Frenzel
+ 728 => "quietlist",
+ 729 => "quietlistend",
999 => "numericerror", # Bahamut IRCD
-
+ 'pong' => "pong",
);
diff -Naur Net_old/IRC.pm Net/IRC.pm
--- Net_old/IRC.pm 2009-12-27 04:57:24.000000000 +0300
+++ Net/IRC.pm 2012-08-21 11:14:27.000000000 +0400
@@ -33,7 +33,7 @@
use strict;
use vars qw($VERSION);
-$VERSION = "0.79";
+$VERSION = "0.80";
sub new {
my $proto = shift;
|
