r51493 - in /trunk/libpoe-component-irc-perl: ./ debian/ lib/POE/Component/ lib/POE/Component/IRC/ lib/POE/Component/IRC/Plugin/ lib/POE/Component/IRC/Qnet/ lib/POE/Filter/ lib/POE/Filter/IRC/ t/01_base/ t/04_plugins/01_ctcp/
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Sun Jan 24 18:43:43 UTC 2010
Author: gregoa
Date: Sun Jan 24 18:43:37 2010
New Revision: 51493
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=51493
Log:
* New upstream release:
- "Depend on POE 1.284 so we won't get FAIL test reports from CPAN testers
because of the FollowTail plugin." (closes: #564412)
- bump (build) dependency in debian/control accordingly
Modified:
trunk/libpoe-component-irc-perl/Changes
trunk/libpoe-component-irc-perl/META.yml
trunk/libpoe-component-irc-perl/Makefile.PL
trunk/libpoe-component-irc-perl/debian/changelog
trunk/libpoe-component-irc-perl/debian/control
trunk/libpoe-component-irc-perl/lib/POE/Component/IRC.pm
trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Common.pm
trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Constants.pm
trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin.pm
trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/AutoJoin.pm
trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/BotAddressed.pm
trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/BotCommand.pm
trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/BotTraffic.pm
trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/CTCP.pm
trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Connector.pm
trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Console.pm
trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/CycleEmpty.pm
trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/DCC.pm
trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/FollowTail.pm
trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/ISupport.pm
trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Logger.pm
trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/NickReclaim.pm
trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/NickServID.pm
trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/PlugMan.pm
trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Proxy.pm
trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Whois.pm
trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Projects.pod
trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Qnet.pm
trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Qnet/State.pm
trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/State.pm
trunk/libpoe-component-irc-perl/lib/POE/Filter/IRC.pm
trunk/libpoe-component-irc-perl/lib/POE/Filter/IRC/Compat.pm
trunk/libpoe-component-irc-perl/t/01_base/03_common.t
trunk/libpoe-component-irc-perl/t/04_plugins/01_ctcp/02_replies.t
Modified: trunk/libpoe-component-irc-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/Changes?rev=51493&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/Changes (original)
+++ trunk/libpoe-component-irc-perl/Changes Sun Jan 24 18:43:37 2010
@@ -1,4 +1,19 @@
Revision history for Perl extension POE::Component::IRC.
+
+6.22 Wed Jan 20 01:50:23 GMT 2010
+ - Logger.pm: The 'Restricted' switch had the opposite of the documented
+ effect. Fixed that and also changed the default to true, so nobody who
+ used the default will see a change. (Hinrik)
+
+6.20 Fri Jan 15 18:38:44 GMT 2010
+ - NickServID.pm: Identify correctly when switching nicks on ratbox IRC
+ servers (Hinrik)
+ - Common.pm: Encode::Guess::guess_encoding() doesn't work well with
+ 'UTF-8', revert back to 'utf8'. Added tests for it. (Hinrik)
+ - CTCP.pm: It was sending "ARRAY(0x#######)" in reply to CTCP PING.
+ Fixed it and added test for that and CTCP TIME. (Hinrik).
+ - Depend on POE 1.284 so we won't get FAIL test reports from CPAN testers
+ because of the FollowTail plugin. (Hinrik)
6.18 Fri Dec 11 19:23:24 GMT 2009
- NickReclaim.pm: Reclaim nick immediately when possible (Hinrik)
Modified: trunk/libpoe-component-irc-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/META.yml?rev=51493&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/META.yml (original)
+++ trunk/libpoe-component-irc-perl/META.yml Sun Jan 24 18:43:37 2010
@@ -23,86 +23,86 @@
provides:
POE::Component::IRC:
file: lib/POE/Component/IRC.pm
- version: 6.18
+ version: 6.22
POE::Component::IRC::Common:
file: lib/POE/Component/IRC/Common.pm
- version: 6.18
+ version: 6.22
POE::Component::IRC::Constants:
file: lib/POE/Component/IRC/Constants.pm
- version: 6.18
+ version: 6.22
POE::Component::IRC::Plugin:
file: lib/POE/Component/IRC/Plugin.pm
- version: 6.18
+ version: 6.22
POE::Component::IRC::Plugin::AutoJoin:
file: lib/POE/Component/IRC/Plugin/AutoJoin.pm
- version: 6.18
+ version: 6.22
POE::Component::IRC::Plugin::BotAddressed:
file: lib/POE/Component/IRC/Plugin/BotAddressed.pm
- version: 6.18
+ version: 6.22
POE::Component::IRC::Plugin::BotCommand:
file: lib/POE/Component/IRC/Plugin/BotCommand.pm
- version: 6.18
+ version: 6.22
POE::Component::IRC::Plugin::BotTraffic:
file: lib/POE/Component/IRC/Plugin/BotTraffic.pm
- version: 6.18
+ version: 6.22
POE::Component::IRC::Plugin::CTCP:
file: lib/POE/Component/IRC/Plugin/CTCP.pm
- version: 6.18
+ version: 6.22
POE::Component::IRC::Plugin::Connector:
file: lib/POE/Component/IRC/Plugin/Connector.pm
- version: 6.18
+ version: 6.22
POE::Component::IRC::Plugin::Console:
file: lib/POE/Component/IRC/Plugin/Console.pm
- version: 6.18
+ version: 6.22
POE::Component::IRC::Plugin::CycleEmpty:
file: lib/POE/Component/IRC/Plugin/CycleEmpty.pm
- version: 6.18
+ version: 6.22
POE::Component::IRC::Plugin::DCC:
file: lib/POE/Component/IRC/Plugin/DCC.pm
- version: 6.18
+ version: 6.22
POE::Component::IRC::Plugin::FollowTail:
file: lib/POE/Component/IRC/Plugin/FollowTail.pm
- version: 6.18
+ version: 6.22
POE::Component::IRC::Plugin::ISupport:
file: lib/POE/Component/IRC/Plugin/ISupport.pm
- version: 6.18
+ version: 6.22
POE::Component::IRC::Plugin::Logger:
file: lib/POE/Component/IRC/Plugin/Logger.pm
- version: 6.18
+ version: 6.22
POE::Component::IRC::Plugin::NickReclaim:
file: lib/POE/Component/IRC/Plugin/NickReclaim.pm
- version: 6.18
+ version: 6.22
POE::Component::IRC::Plugin::NickServID:
file: lib/POE/Component/IRC/Plugin/NickServID.pm
- version: 6.18
+ version: 6.22
POE::Component::IRC::Plugin::PlugMan:
file: lib/POE/Component/IRC/Plugin/PlugMan.pm
- version: 6.18
+ version: 6.22
POE::Component::IRC::Plugin::Proxy:
file: lib/POE/Component/IRC/Plugin/Proxy.pm
- version: 6.18
+ version: 6.22
POE::Component::IRC::Plugin::Whois:
file: lib/POE/Component/IRC/Plugin/Whois.pm
- version: 6.18
+ version: 6.22
POE::Component::IRC::Qnet:
file: lib/POE/Component/IRC/Qnet.pm
- version: 6.18
+ version: 6.22
POE::Component::IRC::Qnet::State:
file: lib/POE/Component/IRC/Qnet/State.pm
- version: 6.18
+ version: 6.22
POE::Component::IRC::State:
file: lib/POE/Component/IRC/State.pm
- version: 6.18
+ version: 6.22
POE::Filter::IRC:
file: lib/POE/Filter/IRC.pm
- version: 6.18
+ version: 6.22
POE::Filter::IRC::Compat:
file: lib/POE/Filter/IRC/Compat.pm
- version: 6.18
+ version: 6.22
requires:
Encode: 0
Encode::Guess: 0
- POE: 0.3202
+ POE: 1.284
POE::Component::Pluggable: 1.24
POE::Driver::SysRW: 0
POE::Filter::IRCD: 2.42
@@ -116,4 +116,4 @@
homepage: http://github.com/bingos/poe-component-irc/tree
license: http://dev.perl.org/licenses/
repository: git://github.com/bingos/poe-component-irc.git
-version: 6.18
+version: 6.22
Modified: trunk/libpoe-component-irc-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/Makefile.PL?rev=51493&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/Makefile.PL (original)
+++ trunk/libpoe-component-irc-perl/Makefile.PL Sun Jan 24 18:43:37 2010
@@ -19,7 +19,7 @@
version_from 'lib/POE/Component/IRC.pm';
abstract_from 'lib/POE/Component/IRC.pm';
perl_version '5.008';
-requires 'POE' => 0.3202;
+requires 'POE' => '1.284';
requires 'POE::Component::Pluggable' => '1.24';
requires 'POE::Wheel::SocketFactory' => 0;
requires 'POE::Wheel::ReadWrite' => 0;
Modified: trunk/libpoe-component-irc-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/debian/changelog?rev=51493&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/debian/changelog (original)
+++ trunk/libpoe-component-irc-perl/debian/changelog Sun Jan 24 18:43:37 2010
@@ -1,3 +1,12 @@
+libpoe-component-irc-perl (6.22+dfsg-1) UNRELEASED; urgency=low
+
+ * New upstream release:
+ - "Depend on POE 1.284 so we won't get FAIL test reports from CPAN testers
+ because of the FollowTail plugin." (closes: #564412)
+ - bump (build) dependency in debian/control accordingly
+
+ -- gregor herrmann <gregoa at debian.org> Sun, 24 Jan 2010 19:39:18 +0100
+
libpoe-component-irc-perl (6.18+dfsg-1) unstable; urgency=low
* New upstream release
Modified: trunk/libpoe-component-irc-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/debian/control?rev=51493&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/debian/control (original)
+++ trunk/libpoe-component-irc-perl/debian/control Sun Jan 24 18:43:37 2010
@@ -4,7 +4,7 @@
Build-Depends: debhelper (>= 7.0.50), quilt (>= 0.46-7)
Build-Depends-Indep: perl, libpoe-component-client-dns-perl, libtest-pod-perl,
libpoe-component-client-ident-perl, libpoe-component-pluggable-perl (>= 1.24),
- libpoe-filter-ircd-perl (>= 2.42), libpoe-perl (>= 2:1.2690), libsocket6-perl,
+ libpoe-filter-ircd-perl (>= 2.42), libpoe-perl (>= 2:1.2840), libsocket6-perl,
libtest-pod-coverage-perl, netbase
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: MartÃn Ferrari <tincho at debian.org>, Damyan Ivanov <dmn at debian.org>,
@@ -18,7 +18,7 @@
Package: libpoe-component-irc-perl
Architecture: all
Depends: ${misc:Depends}, ${perl:Depends}, libpoe-filter-ircd-perl (>= 2.42),
- libpoe-component-pluggable-perl (>= 1.24), libpoe-perl (>= 2:1.2690)
+ libpoe-component-pluggable-perl (>= 1.24), libpoe-perl (>= 2:1.2840)
Suggests: libpoe-component-client-dns-perl, libpoe-component-sslify-perl,
libsocket6-perl
Description: POE Component for manipulating IRC sessions
Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC.pm?rev=51493&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC.pm Sun Jan 24 18:43:37 2010
@@ -16,7 +16,7 @@
use Socket;
use base qw(POE::Component::Pluggable);
-our $VERSION = '6.18';
+our $VERSION = '6.22';
our ($GOT_SSL, $GOT_CLIENT_DNS, $GOT_SOCKET6, $GOT_ZLIB);
BEGIN {
@@ -1896,7 +1896,7 @@
SSL support requires L<POE::Component::SSLify|POE::Component::SSLify>, as well
as an IRC server that supports SSL connections. If you're missing
-POE::Component::SSLify, specifing B<'UseSSL'> will do nothing. The default is to
+POE::Component::SSLify, specifying B<'UseSSL'> will do nothing. The default is to
not try to use SSL.
Setting B<'Raw'> to true, will enable the component to send
@@ -2688,7 +2688,7 @@
=head3 C<irc_delay_set>
-Emitted on a succesful addition of a delayed event using the
+Emitted on a successful addition of a delayed event using the
L<C<delay>|/"delay"> method. C<ARG0> will be the alarm_id which can be used
later with L<C<delay_remove>|/"delay_remove">. Subsequent parameters are
the arguments that were passed to L<C<delay>|/"delay">.
@@ -2821,7 +2821,7 @@
8-bits, and in ASCII. This has resulted in most of the Western world settling
on ASCII-compatible Latin-1 as a convention. Recently, popular clients have
begun sending a mixture of Latin-1 and UTF-8 over the wire to allow more
-characters without breaking backward compatability (too much). To decode such
+characters without breaking backward compatibility (too much). To decode such
messages reliably, see
L<C<irc_to_utf8>|POE::Component::IRC::Common/"irc_to_utf8"> in
L<POE::Component::IRC::Common|POE::Component::IRC::Common>.
Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Common.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Common.pm?rev=51493&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Common.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Common.pm Sun Jan 24 18:43:37 2010
@@ -5,7 +5,7 @@
use Encode qw(decode);
use Encode::Guess;
-our $VERSION = '6.18';
+our $VERSION = '6.22';
require Exporter;
use base qw(Exporter);
@@ -238,8 +238,8 @@
sub irc_to_utf8 {
my ($line) = @_;
- my $utf8 = guess_encoding($line, 'UTF-8');
- return ref $utf8 ? decode('UTF-8', $line) : decode('cp1252', $line);
+ my $utf8 = guess_encoding($line, 'utf8');
+ return ref $utf8 ? decode('utf8', $line) : decode('cp1252', $line);
}
#------------------------------------------------------------------------------
@@ -557,7 +557,7 @@
=head2 C<strip_color>
-Takes one paramter, a string of IRC text. Returns the string stripped of all
+Takes one parameter, a string of IRC text. Returns the string stripped of all
IRC color codes. Due to the fact that both color and formatting codes can
be cancelled with the same character, this might strip more than you hoped for
if the string contains both color and formatting codes. Stripping both will
@@ -565,7 +565,7 @@
=head2 C<strip_formatting>
-Takes one paramter, a string of IRC text. Returns the string stripped of all
+Takes one parameter, a string of IRC text. Returns the string stripped of all
IRC formatting codes. Due to the fact that both color and formatting codes can
be cancelled with the same character, this might strip more than you hoped for
if the string contains both color and formatting codes. Stripping both will
Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Constants.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Constants.pm?rev=51493&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Constants.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Constants.pm Sun Jan 24 18:43:37 2010
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '6.18';
+our $VERSION = '6.22';
require Exporter;
use base qw(Exporter);
Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin.pm?rev=51493&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin.pm Sun Jan 24 18:43:37 2010
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '6.18';
+our $VERSION = '6.22';
require Exporter;
use base qw(Exporter);
Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/AutoJoin.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/AutoJoin.pm?rev=51493&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/AutoJoin.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/AutoJoin.pm Sun Jan 24 18:43:37 2010
@@ -6,7 +6,7 @@
use POE::Component::IRC::Plugin qw(:ALL);
use POE::Component::IRC::Common qw(parse_user l_irc);
-our $VERSION = '6.18';
+our $VERSION = '6.22';
sub new {
my ($package) = shift;
Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/BotAddressed.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/BotAddressed.pm?rev=51493&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/BotAddressed.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/BotAddressed.pm Sun Jan 24 18:43:37 2010
@@ -5,7 +5,7 @@
use Carp;
use POE::Component::IRC::Plugin qw( :ALL );
-our $VERSION = '6.18';
+our $VERSION = '6.22';
sub new {
my ($package) = shift;
Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/BotCommand.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/BotCommand.pm?rev=51493&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/BotCommand.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/BotCommand.pm Sun Jan 24 18:43:37 2010
@@ -6,7 +6,7 @@
use POE::Component::IRC::Common qw( parse_user strip_color strip_formatting );
use POE::Component::IRC::Plugin qw( :ALL );
-our $VERSION = '6.18';
+our $VERSION = '6.22';
sub new {
my ($package) = shift;
Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/BotTraffic.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/BotTraffic.pm?rev=51493&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/BotTraffic.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/BotTraffic.pm Sun Jan 24 18:43:37 2010
@@ -6,7 +6,7 @@
use POE::Filter::IRCD;
use POE::Filter::IRC::Compat;
-our $VERSION = '6.18';
+our $VERSION = '6.22';
sub new {
my ($package) = @_;
Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/CTCP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/CTCP.pm?rev=51493&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/CTCP.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/CTCP.pm Sun Jan 24 18:43:37 2010
@@ -6,7 +6,7 @@
use POE::Component::IRC::Plugin qw( :ALL );
use POSIX qw(strftime);
-our $VERSION = '6.18';
+our $VERSION = '6.22';
sub new {
my ($package) = shift;
@@ -57,8 +57,9 @@
sub S_ctcp_ping {
my ($self,$irc) = splice @_, 0, 2;
my $nick = ( split /!/, ${ $_[0] } )[0];
-
- $irc->yield( ctcpreply => $nick => "PING " . time() );
+ my $timestamp = ${ $_[2] };
+
+ $irc->yield( ctcpreply => $nick => 'PING ' . $timestamp );
return PCI_EAT_CLIENT if $self->eat();
return PCI_EAT_NONE;
Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Connector.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Connector.pm?rev=51493&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Connector.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Connector.pm Sun Jan 24 18:43:37 2010
@@ -6,7 +6,7 @@
use POE;
use POE::Component::IRC::Plugin qw( :ALL );
-our $VERSION = '6.18';
+our $VERSION = '6.22';
sub new {
my ($package) = shift;
Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Console.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Console.pm?rev=51493&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Console.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Console.pm Sun Jan 24 18:43:37 2010
@@ -6,7 +6,7 @@
use POE qw(Wheel::SocketFactory Wheel::ReadWrite Filter::IRCD Filter::Line Filter::Stackable);
use POE::Component::IRC::Plugin qw( :ALL );
-our $VERSION = '6.18';
+our $VERSION = '6.22';
sub new {
my $package = shift;
Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/CycleEmpty.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/CycleEmpty.pm?rev=51493&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/CycleEmpty.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/CycleEmpty.pm Sun Jan 24 18:43:37 2010
@@ -6,7 +6,7 @@
use POE::Component::IRC::Plugin qw( :ALL );
use POE::Component::IRC::Common qw( parse_user u_irc );
-our $VERSION = '6.18';
+our $VERSION = '6.22';
sub new {
my ($package) = shift;
Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/DCC.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/DCC.pm?rev=51493&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/DCC.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/DCC.pm Sun Jan 24 18:43:37 2010
@@ -9,7 +9,7 @@
use POE::Component::IRC::Plugin qw(:ALL);
use Socket;
-our $VERSION = '6.18';
+our $VERSION = '6.22';
use constant {
OUT_BLOCKSIZE => 1024, # Send DCC data in 1k chunks
Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/FollowTail.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/FollowTail.pm?rev=51493&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/FollowTail.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/FollowTail.pm Sun Jan 24 18:43:37 2010
@@ -6,7 +6,7 @@
use POE qw(Wheel::FollowTail);
use POE::Component::IRC::Plugin qw( :ALL );
-our $VERSION = '6.18';
+our $VERSION = '6.22';
sub new {
my ($package) = shift;
Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/ISupport.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/ISupport.pm?rev=51493&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/ISupport.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/ISupport.pm Sun Jan 24 18:43:37 2010
@@ -4,7 +4,7 @@
use warnings;
use POE::Component::IRC::Plugin qw(:ALL);
-our $VERSION = '6.18';
+our $VERSION = '6.22';
sub new {
return bless { }, shift;
Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Logger.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Logger.pm?rev=51493&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Logger.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Logger.pm Sun Jan 24 18:43:37 2010
@@ -12,7 +12,7 @@
use POE::Component::IRC::Common qw( l_irc parse_user strip_color strip_formatting irc_to_utf8);
use POSIX qw(strftime);
-our $VERSION = '6.18';
+our $VERSION = '6.22';
sub new {
my ($package) = shift;
@@ -37,12 +37,12 @@
}
if ($self->{Restricted}) {
+ $self->{dir_perm} = oct 700;
+ $self->{file_perm} = oct 600;
+ }
+ else {
$self->{dir_perm} = oct 755;
$self->{file_perm} = oct 644;
- }
- else {
- $self->{dir_perm} = oct 700;
- $self->{file_perm} = oct 600;
}
@@ -516,7 +516,7 @@
B<'Restricted'>, set this to 1 if you want all directories/files to be created
without read permissions for other users (i.e. 700 for dirs and 600 for files).
-Defaults to 0.
+Defaults to 1.
B<'Format'>, a hash reference representing the log format, if you want to define
your own. See the source for details.
Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/NickReclaim.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/NickReclaim.pm?rev=51493&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/NickReclaim.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/NickReclaim.pm Sun Jan 24 18:43:37 2010
@@ -6,7 +6,7 @@
use POE::Component::IRC::Common qw(parse_user);
use POE::Component::IRC::Plugin qw(PCI_EAT_NONE);
-our $VERSION = '6.18';
+our $VERSION = '6.22';
sub new {
my ($package) = shift;
Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/NickServID.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/NickServID.pm?rev=51493&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/NickServID.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/NickServID.pm Sun Jan 24 18:43:37 2010
@@ -6,7 +6,7 @@
use POE::Component::IRC::Plugin qw( :ALL );
use POE::Component::IRC::Common qw( u_irc );
-our $VERSION = '6.18';
+our $VERSION = '6.22';
sub new {
my ($package) = shift;
@@ -32,12 +32,8 @@
my ($self, $irc) = splice @_, 0, 2;
my $version = ${ $_[2] }->[1];
- if ($version =~ /ratbox/i) {
- $irc->yield(quote => "NS IDENTIFY $self->{Password}");
- }
- else {
- $irc->yield(nickserv => "IDENTIFY $self->{Password}");
- }
+ $self->{ratbox} = $version =~ /ratbox/i ? 1 : 0;
+ $self->_identify();
return PCI_EAT_NONE;
}
@@ -47,9 +43,22 @@
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 PCI_EAT_NONE;
+ return;
}
1;
Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/PlugMan.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/PlugMan.pm?rev=51493&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/PlugMan.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/PlugMan.pm Sun Jan 24 18:43:37 2010
@@ -6,7 +6,7 @@
use POE::Component::IRC::Plugin qw( :ALL );
use POE::Component::IRC::Common qw( matches_mask parse_user );
-our $VERSION = '6.18';
+our $VERSION = '6.22';
BEGIN {
# Turn on the debugger's symbol source tracing
Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Proxy.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Proxy.pm?rev=51493&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Proxy.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Proxy.pm Sun Jan 24 18:43:37 2010
@@ -8,7 +8,7 @@
Filter::Line Filter::Stackable);
use POE::Component::IRC::Plugin qw(PCI_EAT_NONE);
-our $VERSION = '6.18';
+our $VERSION = '6.22';
sub new {
my ($package) = shift;
Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Whois.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Whois.pm?rev=51493&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Whois.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Whois.pm Sun Jan 24 18:43:37 2010
@@ -6,7 +6,7 @@
use POE::Component::IRC::Plugin qw( PCI_EAT_NONE );
use POE::Component::IRC::Common qw(:ALL);
-our $VERSION = '6.18';
+our $VERSION = '6.22';
sub new {
return bless { }, shift;
Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Projects.pod
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Projects.pod?rev=51493&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Projects.pod (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Projects.pod Sun Jan 24 18:43:37 2010
@@ -98,7 +98,7 @@
constructor it will connect to a channel on a server and immediately send
everyone on that channel a message privately. It will also send the same
message to the channel itself publically at the specified interval. All users
-joining the channel thereafter will also recieve the message.
+joining the channel thereafter will also receive the message.
=back
Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Qnet.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Qnet.pm?rev=51493&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Qnet.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Qnet.pm Sun Jan 24 18:43:37 2010
@@ -7,7 +7,7 @@
use POE::Component::IRC::Constants qw(:ALL);
use base qw(POE::Component::IRC);
-our $VERSION = '6.18';
+our $VERSION = '6.22';
sub _create {
my $self = shift;
Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Qnet/State.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Qnet/State.pm?rev=51493&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Qnet/State.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Qnet/State.pm Sun Jan 24 18:43:37 2010
@@ -8,7 +8,7 @@
use POE::Component::IRC::Plugin qw(:ALL);
use base qw(POE::Component::IRC::State POE::Component::IRC::Qnet);
-our $VERSION = '6.18';
+our $VERSION = '6.22';
sub _create {
my $self = shift;
Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/State.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/State.pm?rev=51493&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/State.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/State.pm Sun Jan 24 18:43:37 2010
@@ -7,7 +7,7 @@
use POE::Component::IRC::Plugin qw(PCI_EAT_NONE);
use base qw(POE::Component::IRC);
-our $VERSION = '6.18';
+our $VERSION = '6.22';
# Event handlers for tracking the STATE. $self->{STATE} is used as our
# namespace. u_irc() is used to create unique keys.
@@ -1399,7 +1399,7 @@
See also L<C<irc_nick>|POE::Component::IRC/"irc_nick"> in
L<POE::Component::IRC|POE::Component::IRC>.
-Additional paramter C<ARG2> contains an arrayref of channel names that are
+Additional parameter C<ARG2> contains an arrayref of channel names that are
common to the nick hanging client and the component.
=head3 C<irc_kick>
Modified: trunk/libpoe-component-irc-perl/lib/POE/Filter/IRC.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Filter/IRC.pm?rev=51493&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Filter/IRC.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Filter/IRC.pm Sun Jan 24 18:43:37 2010
@@ -6,7 +6,7 @@
use POE::Filter::IRCD;
use POE::Filter::IRC::Compat;
-our $VERSION = '6.18';
+our $VERSION = '6.22';
sub new {
my ($package, %opts) = @_;
Modified: trunk/libpoe-component-irc-perl/lib/POE/Filter/IRC/Compat.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Filter/IRC/Compat.pm?rev=51493&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Filter/IRC/Compat.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Filter/IRC/Compat.pm Sun Jan 24 18:43:37 2010
@@ -7,7 +7,7 @@
use File::Basename qw(fileparse);
use base qw(POE::Filter);
-our $VERSION = '6.18';
+our $VERSION = '6.22';
my %irc_cmds = (
qr/^\d{3}$/ => sub {
Modified: trunk/libpoe-component-irc-perl/t/01_base/03_common.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/t/01_base/03_common.t?rev=51493&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/t/01_base/03_common.t (original)
+++ trunk/libpoe-component-irc-perl/t/01_base/03_common.t Sun Jan 24 18:43:37 2010
@@ -1,7 +1,8 @@
use strict;
use warnings;
+use Encode qw(encode);
use POE::Component::IRC::Common qw(:ALL);
-use Test::More tests => 32;
+use Test::More tests => 34;
is('SIMPLE', u_irc('simple'), 'Upper simple test');
is('simple', l_irc('SIMPLE'), 'Lower simple test');
@@ -55,3 +56,9 @@
is(irc_ip_get_version('100.0.0.1'), 4, 'IPv4');
is(irc_ip_get_version('2001:0db8:0000:0000:0000:0000:1428:57ab'), 6, 'IPv6');
ok(!irc_ip_get_version('blah'), 'Not an IP');
+
+my $string = "l\372\360i";
+my $cp1252_bytes = encode('cp1252', $string);
+my $utf8_bytes = encode('utf8', $string);
+is(irc_to_utf8($cp1252_bytes), $string, 'irc_to_utf8() works for CP1252 text');
+is(irc_to_utf8($utf8_bytes), $string, 'irc_to_utf8() works for UTF-8 text');
Modified: trunk/libpoe-component-irc-perl/t/04_plugins/01_ctcp/02_replies.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/t/04_plugins/01_ctcp/02_replies.t?rev=51493&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/t/04_plugins/01_ctcp/02_replies.t (original)
+++ trunk/libpoe-component-irc-perl/t/04_plugins/01_ctcp/02_replies.t Sun Jan 24 18:43:37 2010
@@ -6,7 +6,7 @@
use POE::Component::IRC;
use POE::Component::IRC::Plugin::CTCP;
use POE::Component::Server::IRC;
-use Test::More tests => 6;
+use Test::More tests => 8;
my $bot = POE::Component::IRC->spawn(
Flood => 1,
@@ -36,6 +36,8 @@
irc_ctcpreply_userinfo
irc_ctcpreply_clientinfo
irc_ctcpreply_source
+ irc_ctcpreply_ping
+ irc_ctcpreply_time
)],
],
);
@@ -83,34 +85,50 @@
$irc->yield(ctcp => $irc->nick_name(), 'USERINFO');
$irc->yield(ctcp => $irc->nick_name(), 'CLIENTINFO');
$irc->yield(ctcp => $irc->nick_name(), 'SOURCE');
+ $irc->yield(ctcp => $irc->nick_name(), 'PING test');
+ $irc->yield(ctcp => $irc->nick_name(), 'TIME');
}
sub irc_ctcpreply_version {
my ($sender, $heap, $msg) = @_[SENDER, HEAP, ARG2];
$heap->{replies}++;
is($msg, 'Test version', 'CTCP VERSION reply');
- $sender->get_heap()->yield('quit') if $heap->{replies} == 4;
+ $sender->get_heap()->yield('quit') if $heap->{replies} == 6;
}
sub irc_ctcpreply_userinfo {
my ($sender, $heap, $msg) = @_[SENDER, HEAP, ARG2];
$heap->{replies}++;
is($msg, 'Test userinfo', 'CTCP USERINFO reply');
- $sender->get_heap()->yield('quit') if $heap->{replies} == 4;
+ $sender->get_heap()->yield('quit') if $heap->{replies} == 6;
}
sub irc_ctcpreply_clientinfo {
my ($sender, $heap, $msg) = @_[SENDER, HEAP, ARG2];
$heap->{replies}++;
is($msg, 'Test clientinfo', 'CTCP CLIENTINFO reply');
- $sender->get_heap()->yield('quit') if $heap->{replies} == 4;
+ $sender->get_heap()->yield('quit') if $heap->{replies} == 6;
}
sub irc_ctcpreply_source {
my ($sender, $heap, $msg) = @_[SENDER, HEAP, ARG2];
$heap->{replies}++;
is($msg, 'Test source', 'CTCP SOURCE reply');
- $sender->get_heap()->yield('quit') if $heap->{replies} == 4;
+ $sender->get_heap()->yield('quit') if $heap->{replies} == 6;
+}
+
+sub irc_ctcpreply_ping {
+ my ($sender, $heap, $msg) = @_[SENDER, HEAP, ARG2];
+ $heap->{replies}++;
+ is($msg, 'test', 'CTCP PING reply');
+ $sender->get_heap()->yield('quit') if $heap->{replies} == 6;
+}
+
+sub irc_ctcpreply_time {
+ my ($sender, $heap, $msg) = @_[SENDER, HEAP, ARG2];
+ $heap->{replies}++;
+ ok(length $msg, 'CTCP TIME reply');
+ $sender->get_heap()->yield('quit') if $heap->{replies} == 6;
}
sub irc_disconnected {
More information about the Pkg-perl-cvs-commits
mailing list