My work on this so far....

[irc/SurrealServices/srsv.git] / branches / erry-devel / modules / connectserv.pm

diff --git a/branches/erry-devel/modules/connectserv.pm b/branches/erry-devel/modules/connectserv.pm
index 0d558a18c25a565bdc3885ca59511fbb05e77be3..4a80f92390a605d3b2a9e2b1750f8fd6c4ec0195 100644 (file)
--- a/branches/erry-devel/modules/connectserv.pm
+++ b/branches/erry-devel/modules/connectserv.pm
@@ -34,10 +34,10 @@ my %userlist;
 use SrSv::Agent;
 
 my $csnick = 'ConnectServ';
-
 agent_connect($csnick, 'services', undef, '+pqzBHS', 'Connection Monitor');
+my $csUser = { NICK => $csnick, ID => ircd::getUuid($csnick); }
 agent_join($csnick, main_conf_diag);
-ircd::setmode($csnick, main_conf_diag, '+o', $csnick);
+ircd::setmode($csUser, main_conf_diag, '+o', $csUser);
 
 addhandler('NICKCONN', undef, undef, 'connectserv::ev_nickconn', 1);
 sub ev_nickconn {