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
|
package POE::Component::IRC::Plugin::NickServID;
BEGIN {
$POE::Component::IRC::Plugin::NickServID::AUTHORITY = 'cpan:HINRIK';
}
BEGIN {
$POE::Component::IRC::Plugin::NickServID::VERSION = '6.35';
}
use strict;
use warnings;
use Carp;
use POE::Component::IRC::Plugin qw( :ALL );
use POE::Component::IRC::Common qw( u_irc );
sub new {
my ($package) = shift;
croak "$package requires an even number of arguments" if @_ & 1;
my %self = @_;
die "$package requires a Password" if !defined $self{Password};
return bless \%self, $package;
}
sub PCI_register {
my ($self, $irc) = @_;
$self->{nick} = $irc->{nick};
$self->{irc} = $irc;
$irc->plugin_register($self, 'SERVER', qw(004 nick));
return 1;
}
sub PCI_unregister {
return 1;
}
sub S_004 {
my ($self, $irc) = splice @_, 0, 2;
my $version = ${ $_[2] }->[1];
$self->{ratbox} = $version =~ /ratbox/i ? 1 : 0;
$self->_identify();
return PCI_EAT_NONE;
}
sub S_nick {
my ($self, $irc) = splice @_, 0, 2;
my $mapping = $irc->isupport('CASEMAPPING');
my $new_nick = u_irc( ${ $_[1] }, $mapping );
if ( $new_nick eq u_irc($self->{nick}, $mapping) ) {
$self->_identify();
}
return PCI_EAT_NONE;
}
sub _identify {
my ($self) = @_;
my $irc = $self->{irc};
if ($self->{ratbox}) {
$irc->yield(quote => "NS IDENTIFY $self->{Password}");
}
else {
$irc->yield(nickserv => "IDENTIFY $self->{Password}");
}
return;
}
1;
__END__
=encoding utf8
=head1 NAME
POE::Component::IRC::Plugin::NickServID - A PoCo-IRC plugin
which identifies with FreeNode's NickServ when needed
=head1 SYNOPSIS
use POE::Component::IRC::Plugin::NickServID;
$irc->plugin_add( 'NickServID', POE::Component::IRC::Plugin::NickServID->new(
Password => 'opensesame'
));
=head1 DESCRIPTION
POE::Component::IRC::Plugin::NickServID is a L<POE::Component::IRC|POE::Component::IRC>
plugin. It identifies with NickServ on connect and when you change your nick,
if your nickname matches the supplied password.
B<Note>: If you have a cloak and you don't want to be seen without it, make sure
you don't join channels until after you've identified yourself. If you use the
L<AutoJoin plugin|POE::Component::IRC::Plugin::AutoJoin>, it will be taken
care of for you.
=head1 METHODS
=head2 C<new>
Arguments:
'Password', the NickServ password.
Returns a plugin object suitable for feeding to
L<POE::Component::IRC|POE::Component::IRC>'s plugin_add() method.
=head1 AUTHOR
Hinrik E<Ouml>rn SigurE<eth>sson, hinrik.sig@gmail.com
=cut
|
