Fixed some more stuff.. No more getuuid for normal users!

[irc/SurrealServices/srsv.git] / branches / 0.5.0 / modules / serviceslibs / botserv.pm

diff --git a/branches/0.5.0/modules/serviceslibs/botserv.pm b/branches/0.5.0/modules/serviceslibs/botserv.pm
index 4b35086268077ad77eb8d771d8d74a1dfdaad4c1..2085b6749cc378ec43e711b180383322fc6cbc59 100644 (file)
--- a/branches/0.5.0/modules/serviceslibs/botserv.pm
+++ b/branches/0.5.0/modules/serviceslibs/botserv.pm
@@ -63,6 +63,7 @@ our (
 );
 
 sub init() {
+       $bsuser = { NICK => $bsnick, ID => ircd::getAgentUuid($bsnick) };
        $get_all_bots = $dbh->prepare("SELECT nick, ident, vhost, gecos, flags FROM bot");
        $get_botchans = $dbh->prepare("SELECT chan, COALESCE(bot, '$chanserv::csnick') FROM chanreg WHERE bot != '' OR (flags & ". CRF_BOTSTAY() . ")");
        $get_botstay_chans = $dbh->prepare("SELECT chan, COALESCE(bot, '$chanserv::csnick') FROM chanreg WHERE (flags & ".
@@ -253,7 +254,7 @@ sub bs_assign($$$) {
 
        if($bot) {
                $assign_bot->execute($bot, $cn);
-               my $botUser = { NICK=>$bot, ID=>ircd::getAgentUUID ($bot) };
+               my $botUser = { NICK=>$bot, ID=>ircd::getAgentUuid ($bot) };
                bot_join($chan, $botUser);
                notice($user, "\002$bot\002 now assigned to \002$cn\002.");
        } else {
@@ -879,6 +880,7 @@ sub bot_join($;$) {
        unless(is_agent_in_chan($nick, $cn)) {
                agent_join($bot, $cn);
                my $bot2 = { NICK => $nick, ID => ircd::getAgentUuid($nick), UID=>ircd::getAgentUuid($nick) };
+               print "FOUNDERRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR " . $IRCd_capabilities{"FOUNDER"};   
                if(!ircd::PREFIXAQ_DISABLE() && $IRCd_capabilities{"FOUNDER"} ne "" && $IRCd_capabilities{"ADMIN"} ne "") {
                        $botchmode = '+q';
                } else {