+sub chanServCheck {
+ ($chan) = @_;
+
+ if (!defined $chan or $chan =~ /^$/) {
+ &WARN("chanServCheck: chan == NULL.");
+ return;
+ }
+
+ if ($chan =~ tr/A-Z/a-z/) {
+ &DEBUG("chanServCheck: lowercased chan ($chan)");
+ }
+
+ if (! &IsChanConf("chanServ_ops") ) {
+ return;
+ }
+
+ &DEBUG("chanServCheck($chan) called.");
+
+ if ( &IsParam("nickServ_pass") and !$nickserv) {
+ &DEBUG("chanServ_ops($_): nickserv enabled but not alive? (ircCheck)");
+ return;
+ }
+ return if (exists $channels{$chan}{'o'}{$ident});
+
+ &status("ChanServ ==> Requesting ops for $chan. (chanServCheck)");
+ &rawout("PRIVMSG ChanServ :OP $chan $ident");
+}
+