Import of BINGOS/POE-Component-IRC-6.83 from CPAN.

gitpan-cpan-distribution: POE-Component-IRC
gitpan-cpan-version:      6.83
gitpan-cpan-path:         BINGOS/POE-Component-IRC-6.83.tar.gz
gitpan-cpan-author:       BINGOS
gitpan-cpan-maturity:     released

Changes

@@ -1,5 +1,14 @@
 Revision history for Perl extension POE::Component::IRC.
 
+6.83  Mon May 27 10:40:09 BST 2013
+    - NickServID: React on IRC Message 433 - Commit: ec7cd33736
+    - BotCommand: Support for overriding the Command Handler
+    - BotCommand: Added Support for a Help Modification Callback
+    - BotCommand: Adapted the Help Callback Options so it gets the Command and Arguments
+    - BotCommand: Added Support for Command Aliases
+    - BotCommand: Allowed No Arguments/Only Variable Arguments
+    - Implemented SSL Client Cert Support
+
 6.82  Sat Mar 9 22:15:02 GMT 2013
     - Add the Prefix to the "Syntax:" line of the command help
 

META.json

@@ -5,7 +5,7 @@
       "Hinrik \u00c3\u0096rn Sigur\u00c3\u00b0sson <hinrik.sig@gmail.com>"
    ],
    "dynamic_config" : 0,
-   "generated_by" : "Dist::Zilla version 4.300030, CPAN::Meta::Converter version 2.120921",
+   "generated_by" : "Dist::Zilla version 4.300034, CPAN::Meta::Converter version 2.130880",
    "license" : [
       "perl_5"
    ],
@@ -76,7 +76,7 @@
          "web" : "http://github.com/bingos/poe-component-irc"
       }
    },
-   "version" : "6.82",
+   "version" : "6.83",
    "x_authority" : "cpan:HINRIK"
 }
 

META.yml

@@ -9,7 +9,7 @@ build_requires:
 configure_requires:
   ExtUtils::MakeMaker: 6.30
 dynamic_config: 0
-generated_by: 'Dist::Zilla version 4.300030, CPAN::Meta::Converter version 2.120921'
+generated_by: 'Dist::Zilla version 4.300034, CPAN::Meta::Converter version 2.130880'
 license: perl
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -42,5 +42,5 @@ resources:
   homepage: http://metacpan.org/release/POE-Component-IRC
   license: http://dev.perl.org/licenses/
   repository: git://github.com/bingos/poe-component-irc.git
-version: 6.82
+version: 6.83
 x_authority: cpan:HINRIK

Makefile.PL

@@ -11,10 +11,7 @@ use ExtUtils::MakeMaker 6.30;
 my %WriteMakefileArgs = (
   "ABSTRACT" => "A fully event-driven IRC client module",
   "AUTHOR" => "Chris Williams <chris\@bingosnet.co.uk>, Hinrik \303\226rn Sigur\303\260sson <hinrik.sig\@gmail.com>",
-  "BUILD_REQUIRES" => {
-    "Test::Differences" => "0.61",
-    "Test::More" => "0.47"
-  },
+  "BUILD_REQUIRES" => {},
   "CONFIGURE_REQUIRES" => {
     "ExtUtils::MakeMaker" => "6.30"
   },
@@ -36,13 +33,30 @@ my %WriteMakefileArgs = (
     "POE::Wheel::ReadWrite" => 0,
     "POE::Wheel::SocketFactory" => 0
   },
-  "VERSION" => "6.82",
+  "TEST_REQUIRES" => {
+    "Test::Differences" => "0.61",
+    "Test::More" => "0.47"
+  },
+  "VERSION" => "6.83",
   "test" => {
     "TESTS" => "t/01_base/*.t t/02_behavior/*.t t/03_subclasses/*.t t/04_plugins/01_ctcp/*.t t/04_plugins/02_connector/*.t t/04_plugins/03_botaddressed/*.t t/04_plugins/04_bottraffic/*.t t/04_plugins/05_isupport/*.t t/04_plugins/06_plugman/*.t t/04_plugins/07_console/*.t t/04_plugins/08_proxy/*.t t/04_plugins/09_nickreclaim/*.t t/04_plugins/10_followtail/*.t t/04_plugins/11_cycleempty/*.t t/04_plugins/12_autojoin/*.t t/04_plugins/13_botcommand/*.t t/04_plugins/14_logger/*.t t/04_plugins/15_nickservid/*.t t/04_plugins/16_whois/*.t t/04_plugins/17_dcc/*.t t/05_regression/*.t"
   }
 );
 
 
+unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
+  my $tr = delete $WriteMakefileArgs{TEST_REQUIRES};
+  my $br = $WriteMakefileArgs{BUILD_REQUIRES};
+  for my $mod ( keys %$tr ) {
+    if ( exists $br->{$mod} ) {
+      $br->{$mod} = $tr->{$mod} if $tr->{$mod} > $br->{$mod};
+    }
+    else {
+      $br->{$mod} = $tr->{$mod};
+    }
+  }
+}
+
 unless ( eval { ExtUtils::MakeMaker->VERSION(6.56) } ) {
   my $br = delete $WriteMakefileArgs{BUILD_REQUIRES};
   my $pp = $WriteMakefileArgs{PREREQ_PM};

README

@@ -249,6 +249,17 @@ CONSTRUCTORS
 
     *   'UseSSL', set to some true value if you want to connect using SSL.
 
+    *   'SSLCert', set to a SSL Certificate(PAM encoded) to connect using a
+        client cert
+
+    *   'SSLKey', set to a SSL Key(PAM encoded) to connect using a client
+        cert
+
+    *   'SSLCtx', set to a SSL Context to configure the SSL Connection
+
+        The 'SSLCert' and 'SSLKey' both need to be specified. The 'SSLCtx'
+        takes precedence specified.
+
     *   'Raw', set to some true value to enable the component to send
         "irc_raw" and "irc_raw_out" events.
 

lib/POE/Component/IRC.pm

@@ -3,7 +3,7 @@ BEGIN {
   $POE::Component::IRC::AUTHORITY = 'cpan:HINRIK';
 }
 {
-  $POE::Component::IRC::VERSION = '6.82';
+  $POE::Component::IRC::VERSION = '6.83';
 }
 
 use strict;
@@ -26,7 +26,7 @@ our ($GOT_SSL, $GOT_CLIENT_DNS, $GOT_SOCKET6, $GOT_ZLIB);
 BEGIN {
     eval {
         require POE::Component::SSLify;
-        import POE::Component::SSLify qw( Client_SSLify );
+        import POE::Component::SSLify qw( Client_SSLify SSLify_ContextCreate );
         $GOT_SSL = 1;
     };
     eval {
@@ -352,11 +352,26 @@ sub _sock_up {
     # ssl!
     if ($GOT_SSL and $self->{usessl}) {
         eval {
-            $socket = Client_SSLify($socket);
+            my ($ctx);
+
+            if( $self->{sslctx} )
+            {
+                $ctx = $self->{sslctx};
+            }
+            elsif( $self->{sslkey} && $self->{sslcert} )
+            {
+                $ctx = SSLify_ContextCreate( $self->{sslkey}, $self->{sslcert} );
+            }
+            else
+            {
+                $ctx = undef;
+            }
+
+            $socket = Client_SSLify($socket, undef, undef, $ctx);
         };
 
         if ($@) {
-            chomp $@;
+         	chomp $@;
             warn "Couldn't use an SSL socket: $@\n";
             $self->{usessl} = 0;
         }
@@ -1709,6 +1724,14 @@ be used.
 =item *  B<'UseSSL'>, set to some true value if you want to connect using
 SSL.
 
+=item *  B<'SSLCert'>, set to a SSL Certificate(PAM encoded) to connect using a client cert
+
+=item *  B<'SSLKey'>, set to a SSL Key(PAM encoded) to connect using a client cert
+
+=item *  B<'SSLCtx'>, set to a SSL Context to configure the SSL Connection
+
+The B<'SSLCert'> and B<'SSLKey'> both need to be specified. The B<'SSLCtx'> takes precedence specified.
+
 =item * B<'Raw'>, set to some true value to enable the component to send
 L<C<irc_raw>|/irc_raw> and L<C<irc_raw_out>|/irc_raw_out> events.
 

lib/POE/Component/IRC/Common.pm

@@ -3,7 +3,7 @@ BEGIN {
   $POE::Component::IRC::Common::AUTHORITY = 'cpan:HINRIK';
 }
 {
-  $POE::Component::IRC::Common::VERSION = '6.82';
+  $POE::Component::IRC::Common::VERSION = '6.83';
 }
 
 use strict;

lib/POE/Component/IRC/Constants.pm

@@ -3,7 +3,7 @@ BEGIN {
   $POE::Component::IRC::Constants::AUTHORITY = 'cpan:HINRIK';
 }
 {
-  $POE::Component::IRC::Constants::VERSION = '6.82';
+  $POE::Component::IRC::Constants::VERSION = '6.83';
 }
 
 use strict;

lib/POE/Component/IRC/Plugin.pm

@@ -3,7 +3,7 @@ BEGIN {
   $POE::Component::IRC::Plugin::AUTHORITY = 'cpan:HINRIK';
 }
 {
-  $POE::Component::IRC::Plugin::VERSION = '6.82';
+  $POE::Component::IRC::Plugin::VERSION = '6.83';
 }
 
 use strict;

lib/POE/Component/IRC/Plugin/AutoJoin.pm

@@ -3,7 +3,7 @@ BEGIN {
   $POE::Component::IRC::Plugin::AutoJoin::AUTHORITY = 'cpan:HINRIK';
 }
 {
-  $POE::Component::IRC::Plugin::AutoJoin::VERSION = '6.82';
+  $POE::Component::IRC::Plugin::AutoJoin::VERSION = '6.83';
 }
 
 use strict;

lib/POE/Component/IRC/Plugin/BotAddressed.pm

@@ -3,7 +3,7 @@ BEGIN {
   $POE::Component::IRC::Plugin::BotAddressed::AUTHORITY = 'cpan:HINRIK';
 }
 {
-  $POE::Component::IRC::Plugin::BotAddressed::VERSION = '6.82';
+  $POE::Component::IRC::Plugin::BotAddressed::VERSION = '6.83';
 }
 
 use strict;