r25550 - in /trunk/libpoe-component-irc-perl: ./ debian/ inc/Module/ inc/Module/Install/ lib/POE/Component/ lib/POE/Component/IRC/ lib/POE/Component/IRC/Cookbook/ lib/POE/Component/IRC/Plugin/ lib/POE/Filter/ lib/POE/Filter/IRC/ t/01_base/ t/02_behavior/
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Mon Sep 22 20:40:20 UTC 2008
Author: dmn
Date: Mon Sep 22 20:40:17 2008
New Revision: 25550
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=25550
Log:
New upstream release
Added:
trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Cookbook/MegaHAL.pod
- copied unchanged from r25549, branches/upstream/libpoe-component-irc-perl/current/lib/POE/Component/IRC/Cookbook/MegaHAL.pod
Removed:
trunk/libpoe-component-irc-perl/lib/POE/Filter/CTCP.pm
Modified:
trunk/libpoe-component-irc-perl/Changes
trunk/libpoe-component-irc-perl/MANIFEST
trunk/libpoe-component-irc-perl/META.yml
trunk/libpoe-component-irc-perl/debian/changelog
trunk/libpoe-component-irc-perl/inc/Module/Install.pm
trunk/libpoe-component-irc-perl/inc/Module/Install/Base.pm
trunk/libpoe-component-irc-perl/inc/Module/Install/Can.pm
trunk/libpoe-component-irc-perl/inc/Module/Install/Fetch.pm
trunk/libpoe-component-irc-perl/inc/Module/Install/Makefile.pm
trunk/libpoe-component-irc-perl/inc/Module/Install/Metadata.pm
trunk/libpoe-component-irc-perl/inc/Module/Install/Win32.pm
trunk/libpoe-component-irc-perl/inc/Module/Install/WriteAll.pm
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/Cookbook.pod
trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Cookbook/BasicBot.pod
trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Cookbook/Resolver.pod
trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Cookbook/Translator.pod
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/Console.pm
trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/NickServID.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/01_compile.t
trunk/libpoe-component-irc-perl/t/02_behavior/09_multiple.t
Modified: trunk/libpoe-component-irc-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/Changes?rev=25550&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/Changes (original)
+++ trunk/libpoe-component-irc-perl/Changes Mon Sep 22 20:40:17 2008
@@ -1,6 +1,13 @@
Revision history for Perl extension POE::Component::IRC.
-5.86 Tue Jul 22 09:53:26 BST 2008
+5.88 Thu Aug 28 15:49:48 BST 2008
+ - MegaHAL.pod: Bare-bones recipe for a MegaHAL bot (Hinrik)
+ - BotCommand.pm: Send responses back via NOTICE, not PRIVMSG (Hinrik)
+ - Filter/CTCP.pm: Removed, as it is deprecated and unmaintained (Hinrik)
+ - IRC.pm: Really propagate the plugin_debug flag (Hinrik)
+ - Filter/IRC/Compat.pm - change to _get_ctcp() as per RT #38773
+
+5.86 Tue Jul 22 09:53:26 BST 2008
- Proxy.pm: Remove 'options => {trace => 1}' from constructor (Hinrik)
- Compat.pm: Don't handle CAPAB IDENTIFY-MSG with non-ACTION CTCPs (Hinrik)
Modified: trunk/libpoe-component-irc-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/MANIFEST?rev=25550&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/MANIFEST (original)
+++ trunk/libpoe-component-irc-perl/MANIFEST Mon Sep 22 20:40:17 2008
@@ -32,6 +32,7 @@
lib/POE/Component/IRC/Cookbook.pod
lib/POE/Component/IRC/Cookbook/BasicBot.pod
lib/POE/Component/IRC/Cookbook/Disconnecting.pod
+lib/POE/Component/IRC/Cookbook/MegaHAL.pod
lib/POE/Component/IRC/Cookbook/Resolver.pod
lib/POE/Component/IRC/Cookbook/Translator.pod
lib/POE/Component/IRC/Plugin.pm
@@ -41,8 +42,8 @@
lib/POE/Component/IRC/Plugin/BotTraffic.pm
lib/POE/Component/IRC/Plugin/Connector.pm
lib/POE/Component/IRC/Plugin/Console.pm
+lib/POE/Component/IRC/Plugin/CycleEmpty.pm
lib/POE/Component/IRC/Plugin/CTCP.pm
-lib/POE/Component/IRC/Plugin/CycleEmpty.pm
lib/POE/Component/IRC/Plugin/DCC.pm
lib/POE/Component/IRC/Plugin/FollowTail.pm
lib/POE/Component/IRC/Plugin/ISupport.pm
@@ -58,7 +59,6 @@
lib/POE/Component/IRC/State.pm
lib/POE/Component/IRC/Test/Harness.pm
lib/POE/Component/IRC/Test/Plugin.pm
-lib/POE/Filter/CTCP.pm
lib/POE/Filter/IRC.pm
lib/POE/Filter/IRC/Compat.pm
LICENSE
Modified: trunk/libpoe-component-irc-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/META.yml?rev=25550&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/META.yml (original)
+++ trunk/libpoe-component-irc-perl/META.yml Mon Sep 22 20:40:17 2008
@@ -5,7 +5,7 @@
build_requires:
Test::More: 0.47
distribution_type: module
-generated_by: 'Module::Install version 0.76'
+generated_by: 'Module::Install version 0.77'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -31,4 +31,4 @@
perl: 5.6.0
resources:
license: http://dev.perl.org/licenses/
-version: 5.86
+version: 5.88
Modified: trunk/libpoe-component-irc-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/debian/changelog?rev=25550&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/debian/changelog (original)
+++ trunk/libpoe-component-irc-perl/debian/changelog Mon Sep 22 20:40:17 2008
@@ -1,13 +1,13 @@
-libpoe-component-irc-perl (5.86-1) UNRELEASED; urgency=low
-
- [ MartÃn Ferrari ]
- * New upstream release.
+libpoe-component-irc-perl (5.88+dfsg-1) UNRELEASED; urgency=low
[ gregor herrmann ]
* Add debian/README.source to document quilt usage, as required by
Debian Policy since 3.8.0.
- -- MartÃn Ferrari <tincho at debian.org> Wed, 30 Jul 2008 19:43:49 -0300
+ [ Damyan Ivanov ]
+ * New upstream release
+
+ -- Damyan Ivanov <dmn at debian.org> Mon, 22 Sep 2008 23:07:03 +0300
libpoe-component-irc-perl (5.84+dfsg-1) unstable; urgency=low
Modified: trunk/libpoe-component-irc-perl/inc/Module/Install.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/inc/Module/Install.pm?rev=25550&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/inc/Module/Install.pm (original)
+++ trunk/libpoe-component-irc-perl/inc/Module/Install.pm Mon Sep 22 20:40:17 2008
@@ -30,7 +30,7 @@
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
- $VERSION = '0.76';
+ $VERSION = '0.77';
*inc::Module::Install::VERSION = *VERSION;
@inc::Module::Install::ISA = __PACKAGE__;
@@ -125,8 +125,10 @@
goto &$code unless $cwd eq $pwd;
}
$$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym";
- unshift @_, ( $self, $1 );
- goto &{$self->can('call')} unless uc($1) eq $1;
+ unless ( uc($1) eq $1 ) {
+ unshift @_, ( $self, $1 );
+ goto &{$self->can('call')};
+ }
};
}
@@ -339,6 +341,9 @@
close FH or die "close($_[0]): $!";
}
+# _version is for processing module versions (eg, 1.03_05) not
+# Perl versions (eg, 5.8.1).
+
sub _version ($) {
my $s = shift || 0;
$s =~ s/^(\d+)\.?//;
Modified: trunk/libpoe-component-irc-perl/inc/Module/Install/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/inc/Module/Install/Base.pm?rev=25550&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/inc/Module/Install/Base.pm (original)
+++ trunk/libpoe-component-irc-perl/inc/Module/Install/Base.pm Mon Sep 22 20:40:17 2008
@@ -1,7 +1,7 @@
#line 1
package Module::Install::Base;
-$VERSION = '0.76';
+$VERSION = '0.77';
# Suspend handler for "redefined" warnings
BEGIN {
Modified: trunk/libpoe-component-irc-perl/inc/Module/Install/Can.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/inc/Module/Install/Can.pm?rev=25550&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/inc/Module/Install/Can.pm (original)
+++ trunk/libpoe-component-irc-perl/inc/Module/Install/Can.pm Mon Sep 22 20:40:17 2008
@@ -11,7 +11,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.76';
+ $VERSION = '0.77';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
@@ -39,6 +39,7 @@
return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));
for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
+ next if $dir eq '';
my $abs = File::Spec->catfile($dir, $_[1]);
return $abs if (-x $abs or $abs = MM->maybe_command($abs));
}
@@ -79,4 +80,4 @@
__END__
-#line 157
+#line 158
Modified: trunk/libpoe-component-irc-perl/inc/Module/Install/Fetch.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/inc/Module/Install/Fetch.pm?rev=25550&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/inc/Module/Install/Fetch.pm (original)
+++ trunk/libpoe-component-irc-perl/inc/Module/Install/Fetch.pm Mon Sep 22 20:40:17 2008
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.76';
+ $VERSION = '0.77';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: trunk/libpoe-component-irc-perl/inc/Module/Install/Makefile.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/inc/Module/Install/Makefile.pm?rev=25550&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/inc/Module/Install/Makefile.pm (original)
+++ trunk/libpoe-component-irc-perl/inc/Module/Install/Makefile.pm Mon Sep 22 20:40:17 2008
@@ -7,7 +7,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.76';
+ $VERSION = '0.77';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
@@ -181,7 +181,9 @@
my $user_preop = delete $args{dist}->{PREOP};
if (my $preop = $self->admin->preop($user_preop)) {
- $args{dist} = $preop;
+ foreach my $key ( keys %$preop ) {
+ $args{dist}->{$key} = $preop->{$key};
+ }
}
my $mm = ExtUtils::MakeMaker::WriteMakefile(%args);
@@ -248,4 +250,4 @@
__END__
-#line 377
+#line 379
Modified: trunk/libpoe-component-irc-perl/inc/Module/Install/Metadata.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/inc/Module/Install/Metadata.pm?rev=25550&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/inc/Module/Install/Metadata.pm (original)
+++ trunk/libpoe-component-irc-perl/inc/Module/Install/Metadata.pm Mon Sep 22 20:40:17 2008
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.76';
+ $VERSION = '0.77';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
@@ -175,6 +175,12 @@
my $version = shift or die(
"Did not provide a value to perl_version()"
);
+
+ # Convert triple-part versions (eg, 5.6.1 or 5.8.9) to
+ # numbers (eg, 5.006001 or 5.008009).
+
+ $version =~ s/^(\d+)\.(\d+)\.(\d+)$/sprintf("%d.%03d%03d",$1,$2,$3)/e;
+
$version =~ s/_.+$//;
$version = $version + 0; # Numify
unless ( $version >= 5.005 ) {
@@ -212,6 +218,9 @@
unless ( -e $file ) {
die("all_from cannot find $file from $name");
}
+ }
+ unless ( -f $file ) {
+ die("The path '$file' does not exist, or is not a file");
}
# Some methods pull from POD instead of code.
@@ -424,8 +433,12 @@
my $license_text = $1;
my @phrases = (
'under the same (?:terms|license) as perl itself' => 'perl', 1,
+ 'GNU general public license' => 'gpl', 1,
'GNU public license' => 'gpl', 1,
+ 'GNU lesser general public license' => 'lgpl', 1,
'GNU lesser public license' => 'lgpl', 1,
+ 'GNU library general public license' => 'lgpl', 1,
+ 'GNU library public license' => 'lgpl', 1,
'BSD license' => 'bsd', 1,
'Artistic license' => 'artistic', 1,
'GPL' => 'gpl', 1,
Modified: trunk/libpoe-component-irc-perl/inc/Module/Install/Win32.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/inc/Module/Install/Win32.pm?rev=25550&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/inc/Module/Install/Win32.pm (original)
+++ trunk/libpoe-component-irc-perl/inc/Module/Install/Win32.pm Mon Sep 22 20:40:17 2008
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.76';
+ $VERSION = '0.77';
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}
Modified: trunk/libpoe-component-irc-perl/inc/Module/Install/WriteAll.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/inc/Module/Install/WriteAll.pm?rev=25550&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/inc/Module/Install/WriteAll.pm (original)
+++ trunk/libpoe-component-irc-perl/inc/Module/Install/WriteAll.pm Mon Sep 22 20:40:17 2008
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.76';
+ $VERSION = '0.77';
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}
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=25550&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC.pm Mon Sep 22 20:40:17 2008
@@ -16,8 +16,8 @@
use Socket;
use base qw(POE::Component::Pluggable);
-our $VERSION = '5.86';
-our $REVISION = do {my at r=(q$Revision: 703 $=~/\d+/g);sprintf"%d"."%04d"x$#r, at r};
+our $VERSION = '5.88';
+our $REVISION = do {my at r=(q$Revision: 721 $=~/\d+/g);sprintf"%d"."%04d"x$#r, at r};
our ($GOT_SSL, $GOT_CLIENT_DNS, $GOT_SOCKET6, $GOT_ZLIB);
BEGIN {
@@ -895,16 +895,17 @@
my $self = bless { }, $package;
$self->_create();
+
+ my $options = delete $params{options};
+ my $alias = delete $params{alias};
+ my $plugin_debug = delete $params{plugin_debug};
$self->_pluggable_init(
prefix => 'irc_',
reg_prefix => 'PCI_',
types => { SERVER => 'S', USER => 'U' },
- ($self->{plugin_debug} ? (debug => 1) : () ),
+ ($plugin_debug ? (debug => 1) : () ),
);
-
- my $options = delete $params{options};
- my $alias = delete $params{alias};
POE::Session->create(
object_states => [
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=25550&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 Mon Sep 22 20:40:17 2008
@@ -504,14 +504,17 @@
with parse_ban_mask() to ensure that it is normalised ) and something to match
against the IRC mask, such as a nick!user at hostname string. Returns a true
value if they match, a false value otherwise. Optionally, one may pass the
-casemapping ( see u_irc() ), as this function uses u_irc() internally.
+casemapping (see L<C<u_irc()>|/"u_irc">), as this function uses C<u_irc()>
+internally.
=head2 C<matches_mask_array>
Takes two array references, the first being a list of strings representing
-IRC mask, the second a list of somethings to test against the masks. Returns
+IRC masks, the second a list of somethings to test against the masks. Returns
an empty hashref if there are no matches. Otherwise, the keys will be the
masks matched, each value being an arrayref of the strings that matched it.
+Optionally, one may pass the casemapping (see L<C<u_irc()>|/"u_irc">), as
+this function uses C<u_irc()> internally.
=head2 C<parse_user>
Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Cookbook.pod
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Cookbook.pod?rev=25550&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Cookbook.pod (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Cookbook.pod Mon Sep 22 20:40:17 2008
@@ -39,14 +39,14 @@
Have your bot resolve DNS records for you.
+=item L<MegaHAL|POE::Component::IRC::Cookbook::MegaHAL>
+
+Allow your bot to talk, using artificial "intelligence".
+
=item Seen
Implement the "seen" feature found in many bots, which tells you when your bot
last saw a particular user, and what they were doing/saying.
-
-=item MegaHal
-
-Allow your bot to talk, using artificial "intelligence".
=item Feeds
Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Cookbook/BasicBot.pod
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Cookbook/BasicBot.pod?rev=25550&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Cookbook/BasicBot.pod (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Cookbook/BasicBot.pod Mon Sep 22 20:40:17 2008
@@ -11,7 +11,7 @@
We start off quite simply:
- #!/usr/bin/perl
+ #!/usr/bin/env perl
use strict;
use warnings;
Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Cookbook/Resolver.pod
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Cookbook/Resolver.pod?rev=25550&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Cookbook/Resolver.pod (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Cookbook/Resolver.pod Mon Sep 22 20:40:17 2008
@@ -9,7 +9,7 @@
=head1 SYNOPSIS
- #!/usr/bin/perl
+ #!/usr/bin/env perl
use strict;
use warnings;
Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Cookbook/Translator.pod
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Cookbook/Translator.pod?rev=25550&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Cookbook/Translator.pod (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Cookbook/Translator.pod Mon Sep 22 20:40:17 2008
@@ -10,7 +10,7 @@
=head1 SYNOPSIS
- #!/usr/bin/perl
+ #!/usr/bin/env perl
use strict;
use warnings;
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=25550&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 Mon Sep 22 20:40:17 2008
@@ -40,16 +40,8 @@
sub S_001 {
my ($self, $irc) = splice @_, 0, 2;
- # delay this so that the user will be cloaked (if applicable) before joining channels
- if ( grep { $_->isa('POE::Component::IRC::Plugin::NickServID') } values %{ $irc->plugin_list() } ) {
- while (my ($chan, $key) = each %{ $self->{Channels} }) {
- $irc->delay([join => $chan => $key], 5);
- }
- }
- else {
- while (my ($chan, $key) = each %{ $self->{Channels} }) {
- $irc->yield(join => $chan => $key);
- }
+ while (my ($chan, $key) = each %{ $self->{Channels} }) {
+ $irc->yield(join => $chan => $key);
}
return PCI_EAT_NONE;
}
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=25550&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 Mon Sep 22 20:40:17 2008
@@ -120,17 +120,18 @@
=head2 C<irc_bot_addressed>
-Has the same parameters passed as 'irc_public'. ARG2 contains the message with
-the addressed nickname removed, ie. Assuming that your bot is called LameBOT,
-and someone says 'LameBOT: dance for me', you will actually get 'dance for me'.
+Has the same parameters passed as L<C<irc_ctcp_action>|POE::Component::IRC/"irc_ctcp_action">.
+ARG2 contains the message with the addressed nickname removed, ie. Assuming
+that your bot is called LameBOT, and someone says 'LameBOT: dance for me',
+you will actually get 'dance for me'.
=head2 C<irc_bot_mentioned>
-Has the same parameters passed as 'irc_public'.
+Has the same parameters passed as L<C<irc_public>|POE::Component::IRC/"irc_public">.
=head2 C<irc_bot_mentioned_action>
-Has the same parameters passed as 'irc_ctcp_action'.
+Has the same parameters passed as L<C<irc_ctcp_action>|POE::Component::IRC/"irc_ctcp_action">.
=head1 AUTHOR
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=25550&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 Mon Sep 22 20:40:17 2008
@@ -5,7 +5,7 @@
use POE::Component::IRC::Common qw( parse_user );
use POE::Component::IRC::Plugin qw( :ALL );
-our $VERSION = '1.0';
+our $VERSION = '1.1';
sub new {
my ($package, %args) = @_;
@@ -42,17 +42,17 @@
if (defined $cmd) {
if (exists $self->{Commands}->{lc $cmd}) {
my @help_lines = split /\015?\012/, $self->{Commands}->{lc $cmd};
- $irc->yield(privmsg => $who => $_) for @help_lines;
+ $irc->yield(notice => $who => $_) for @help_lines;
}
else {
- $irc->yield(privmsg => $who, "Unknown command: $cmd");
- $irc->yield(privmsg => $who, 'To get a list of commands, do: /msg '
+ $irc->yield(notice => $who, "Unknown command: $cmd");
+ $irc->yield(notice => $who, 'To get a list of commands, do: /msg '
. $irc->nick_name() . ' help');
}
}
else {
- $irc->yield(privmsg => $who, 'Commands: ' . join ', ', keys %{ $self->{Commands} });
- $irc->yield(privmsg => $who, 'You can do: /msg ' . $irc->nick_name() . ' help <command>');
+ $irc->yield(notice => $who, 'Commands: ' . join ', ', keys %{ $self->{Commands} });
+ $irc->yield(notice => $who, 'You can do: /msg ' . $irc->nick_name() . ' help <command>');
}
return PCI_EAT_NONE;
@@ -185,7 +185,7 @@
my @answers = map { $_->rdatastr } $res->{response}->answer() if $res->{response};
$irc->yield(
- 'privmsg',
+ 'notice',
$res->{context}->{channel},
$res->{context}->{nick} . (@answers
? ": @answers"
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=25550&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 Mon Sep 22 20:40:17 2008
@@ -64,7 +64,7 @@
}
sub _start {
- my ($kernel, $self) = @_[KERNEL, OBJECT];
+ my ($kernel, $self) = @_[KERNEL, OBJECT];
$self->{SESSION_ID} = $_[SESSION]->ID();
$kernel->refcount_increment( $self->{SESSION_ID}, __PACKAGE__ );
@@ -85,8 +85,7 @@
$self->{irc}->send_event( 'irc_console_service' => $self->{listener}->getsockname() );
}
else {
- my $irc = $self->{irc};
- $irc->plugin_del( $self );
+ $self->{irc}->plugin_del( $self );
}
return;
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=25550&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 Mon Sep 22 20:40:17 2008
@@ -62,6 +62,11 @@
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 identify yourself before joining any channels. If you use the
+L<AutoJoin plugin|POE::Component::IRC::Plugin::AutoJoin>, make sure it is
+positioned after this one in the plugin pipeline (e.g. load this one first).
+
=head1 METHODS
=head2 C<new>
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=25550&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Filter/IRC.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Filter/IRC.pm Mon Sep 22 20:40:17 2008
@@ -1,11 +1,3 @@
-#
-# POE::Filter::IRC, by Dennis Taylor <dennis at funkplanet.com>
-#
-# This module may be used, modified, and distributed under the same
-# terms as Perl itself. Please see the license that came with your Perl
-# distribution for details.
-#
-
package POE::Filter::IRC;
use strict;
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=25550&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 Mon Sep 22 20:40:17 2008
@@ -7,10 +7,10 @@
use File::Basename qw(fileparse);
use base qw(POE::Filter);
-our $VERSION = '1.6';
+our $VERSION = '1.7';
my %irc_cmds = (
- qr/^\d{3,3}$/ => sub {
+ qr/^\d{3}$/ => sub {
my ($self, $event, $line) = @_;
$event->{args}->[0] = _decolon( $line->{prefix} );
shift @{ $line->{params} };
@@ -76,9 +76,9 @@
# the magic cookie jar
my %dcc_types = (
qr/CHAT|SEND/ => sub {
- my ($nick, $type, $arg_string) = @_;
+ my ($nick, $type, $args) = @_;
my ($file, $addr, $port, $size);
- return if !(($file, $addr, $port, $size) = $arg_string =~ /^(".+"|\S+) +(\d+) +(\d+)(?: +(\d+))?/);
+ return if !(($file, $addr, $port, $size) = $args =~ /^(".+"|\S+) +(\d+) +(\d+)(?: +(\d+))?/);
$file =~ s/^"|"$//g;
$file = fileparse($file);
@@ -285,7 +285,7 @@
sub _get_ctcp {
my ($self, $line) = @_;
- my ($who, $type, $where, $msg) = ($line =~ /^:(\S+) +(\S+) +(\S+) +:?(.*)$/) or return;
+ my ($who, $type, $where, $msg) = ($line =~ /^:(\S+) +(\S+) +(\S+) +:?(.*)$/) or return [];
# Is this a CTCP request or reply?
$type = $type eq 'PRIVMSG' ? 'ctcp' : 'ctcpreply';
@@ -407,6 +407,12 @@
POE::Filter::IRC::Compat - A filter which converts L<POE::Filter::IRCD|POE::Filter::IRCD>
output into L<POE::Component::IRC|POE::Component::IRC> events.
+=head1 SYNOPSIS
+
+ my $filter = POE::Filter::IRC::Compat->new();
+ my @events = @{ $filter->get( [ @lines ] ) };
+ my @msgs = @{ $filter->put( [ @messages ] ) };
+
=head1 DESCRIPTION
POE::Filter::IRC::Compat is a L<POE::Filter|POE::Filter> that converts
@@ -415,13 +421,28 @@
L<POE::Filter::IRC|POE::Filter::IRC> with something that was more
generic.
-=head1 CONSTRUCTOR
+Among other things, it converts normal text into thoroughly CTCP-quoted
+messages, and transmogrifies CTCP-quoted messages into their normal,
+sane components. Rather what you'd expect a filter to do.
+
+A note: the CTCP protocol sucks bollocks. If I ever meet the fellow who
+came up with it, I'll shave their head and tattoo obscenities on it.
+Just read the "specification" (F<docs/ctcpspec.html> in this distribution)
+and you'll hopefully see what I mean. Quote this, quote that, quote this
+again, all in different and weird ways... and who the hell needs to send
+mixed CTCP and text messages? WTF? It looks like it's practically complexity
+for complexity's sake -- and don't even get me started on the design of the
+DCC protocol! Anyhow, enough ranting. Onto the rest of the docs...
+
+=head1 METHODS
=head2 C<new>
-Returns a POE::Filter::IRC::Compat object.
-
-=head1 METHODS
+Returns a POE::Filter::IRC::Compat object. Takes no arguments.
+
+=head2 C<clone>
+
+Makes a copy of the filter, and clears the copy's buffer.
=head2 C<get>
@@ -432,23 +453,6 @@
These perform a similar function as C<get()> but enable the filter to work with
L<POE::Filter::Stackable|POE::Filter::Stackable>.
-
-=head2 C<chantypes>
-
-Takes an arrayref of possible channel prefix indicators.
-
-=head2 C<identifymsg>
-
-Takes a boolean to turn on/off the support for CAPAB IDENTIFY-MSG.
-
-=head2 C<debug>
-
-Takes a true/false value which enables/disables debugging accordingly.
-Returns the debug status.
-
-=head2 C<clone>
-
-Makes a copy of the filter, and clears the copy's buffer.
=head2 C<put>
@@ -457,6 +461,19 @@
brain-dead hack in the protocol, so do it yourself if you really need
it. Returns an array reference of the quoted lines for sending.
+=head2 C<debug>
+
+Takes an optinal true/false value which enables/disables debugging
+accordingly. Returns the debug status.
+
+=head2 C<chantypes>
+
+Takes an arrayref of possible channel prefix indicators.
+
+=head2 C<identifymsg>
+
+Takes a boolean to turn on/off the support for CAPAB IDENTIFY-MSG.
+
=head1 AUTHOR
Chris 'BinGOs' Williams
Modified: trunk/libpoe-component-irc-perl/t/01_base/01_compile.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/t/01_base/01_compile.t?rev=25550&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/t/01_base/01_compile.t (original)
+++ trunk/libpoe-component-irc-perl/t/01_base/01_compile.t Mon Sep 22 20:40:17 2008
@@ -5,7 +5,6 @@
my @modules = qw(
POE::Filter::IRC
POE::Filter::IRC::Compat
- POE::Filter::CTCP
POE::Component::IRC
POE::Component::IRC::State
POE::Component::IRC::Qnet
Modified: trunk/libpoe-component-irc-perl/t/02_behavior/09_multiple.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/t/02_behavior/09_multiple.t?rev=25550&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/t/02_behavior/09_multiple.t (original)
+++ trunk/libpoe-component-irc-perl/t/02_behavior/09_multiple.t Mon Sep 22 20:40:17 2008
@@ -85,7 +85,7 @@
}
sub irc_connected {
- pass('Connected');
+ pass('Connected');
}
sub irc_001 {
More information about the Pkg-perl-cvs-commits
mailing list