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