r23667 - in /scripts/KGB/server: KGB kgb.conf.sample

dmn at users.alioth.debian.org dmn at users.alioth.debian.org
Mon Jul 28 14:07:20 UTC 2008


Author: dmn
Date: Mon Jul 28 14:07:18 2008
New Revision: 23667

URL: http://svn.debian.org/wsvn/?sc=1&rev=23667
Log:
Add support for NickServ identification

Modified:
    scripts/KGB/server/KGB
    scripts/KGB/server/kgb.conf.sample

Modified: scripts/KGB/server/KGB
URL: http://svn.debian.org/wsvn/scripts/KGB/server/KGB?rev=23667&op=diff
==============================================================================
--- scripts/KGB/server/KGB (original)
+++ scripts/KGB/server/KGB Mon Jul 28 14:07:18 2008
@@ -47,6 +47,7 @@
 use POE::Component::Server::SOAP;
 use POE::Component::IRC::State;
 use POE::Component::IRC::Plugin::Connector;
+use POE::Component::IRC::Plugin::NickServID;
 use Getopt::Long;
 use List::Util qw(max);
 use YAML ();
@@ -119,13 +120,18 @@
 );
 
 foreach(keys %{$conf->{networks}}) {
-    POE::Component::IRC::State->spawn(
+    my $irc = POE::Component::IRC::State->spawn(
         Alias       => "irc_$_",
         Nick        => $conf->{networks}{$_}{nick},
         Ircname     => $conf->{networks}{$_}{ircname},
         Username    => $conf->{networks}{$_}{user},
         Password    => $conf->{networks}{$_}{password}
     );
+    $irc->plugin_add( 'NickServID',
+        POE::Component::IRC::Plugin::NickServID->new(
+            Password=>$conf->{networks}{$_}{nickserv_password},
+        ),
+    ) if $conf->{networks}{$_}{nickserv_password};
 }
 POE::Session->create(
     inline_states => {

Modified: scripts/KGB/server/kgb.conf.sample
URL: http://svn.debian.org/wsvn/scripts/KGB/server/kgb.conf.sample?rev=23667&op=diff
==============================================================================
--- scripts/KGB/server/kgb.conf.sample (original)
+++ scripts/KGB/server/kgb.conf.sample Mon Jul 28 14:07:18 2008
@@ -15,6 +15,7 @@
     ircname: KGB bot
     username: kgb
     password: ~
+    nickserv_password: ~
     server: irc.freenode.net
     port: 6667
 channels:




More information about the Pkg-perl-cvs-commits mailing list