disable wantnick

[infobot.git] / src / UserExtra.pl

diff --git a/src/UserExtra.pl b/src/UserExtra.pl
index 69df4514d6a1cbf1bd28cc884bc23cac0113330c..8a29c7d17a86e17674778a167a8d17a3b01d15da 100644 (file)
--- a/src/UserExtra.pl
+++ b/src/UserExtra.pl
@@ -60,7 +60,7 @@ sub chaninfo {
        foreach (sort keys %channels) {
            if ( /^\s*$/ or / / ) {
                &status("chanstats: fe channels: chan == NULL.");
-               &ircCheck();
+               #&ircCheck();
                next;
            }
            next if (/^_default$/);
@@ -69,6 +69,7 @@ sub chaninfo {
            push(@array, $str);
        }
        &pSReply($reply.": ".join(', ', @array));
+       &ircCheck();
 
        ### total user count.
        foreach $chan (keys %channels) {
@@ -535,7 +536,7 @@ sub userCommands {
            }
        }
 
-       &performReply( sprintf("'%s' is ascii %s", $arg, ord $1) );
+       &performReply( sprintf("'%s' is ascii %s", $arg, ord $arg) );
        return;
     }
 
@@ -848,45 +849,45 @@ if (0) {
     }
 
     # wantNick. xk++
-    if ($message =~ /^wantNick(\+)?$/i) {
-       my ($force) = ($1) ? 1 : 0;
-       $force = 0 unless (&IsFlag("n"));
-
-       # cannot trust Net::IRC's nick()
-       if ($param{'ircNick'} eq $ident) {
-           &msg($who, "I hope you're right. I'll try anyway.");
-           &DEBUG("ircNick => $param{'ircNick'}");
-           &DEBUG("ident => $ident");
-       }
-
-       # fallback check, I guess.  needed?
-       if (! &IsNickInAnyChan( $param{'ircNick'} ) ) {
-           my $str = "attempting to change nick to $param{'ircNick'}";
-           &status($str);
-           &msg($who, $str);
-           &nick($param{ 'ircNick' });
-           return;
-       }
-
-       # idea from dondelecarlo :)
-       # TODO: use cache{nickserv}
-       if ($param{'nickServ_pass'}) {
-           return if ($param{'ircNick'} eq $ident or $force == 0);
-
-           &status("someone is using our nick; GHOSTing");
-           &msg($who, "using GHOST on $param{'ircNick'}.");
-           &msg("NickServ", "GHOST $param{'ircNick'} $param{'nickServ_pass'}");
-
-           $conn->schedule(5, sub {
-               &status("going to change nick after GHOST.");
-               &nick( $param{'ircNick'} );
-           } );
-
-           return;
-       }
-
-       return;
-    }
+#    if ($message =~ /^wantNick(\+)?$/i) {
+#      my ($force) = ($1) ? 1 : 0;
+#      $force = 0 unless (&IsFlag("n"));
+#
+#      # cannot trust Net::IRC's nick() (TimRiker asks why?)
+#      if ($param{'ircNick'} eq $ident) {
+#          &msg($who, "I hope you're right. I'll try anyway.");
+#          &DEBUG("ircNick => $param{'ircNick'}");
+#          &DEBUG("ident => $ident");
+#      }
+#
+#      # fallback check, I guess.  needed?
+#      if (! &IsNickInAnyChan( $param{'ircNick'} ) ) {
+#          my $str = "attempting to change nick to $param{'ircNick'}";
+#          &status($str);
+#          &msg($who, $str);
+#          &nick($param{ 'ircNick' });
+#          return;
+#      }
+#
+#      # idea from dondelecarlo :)
+#      # TODO: use cache{nickserv}
+#      if ($param{'nickServ_pass'}) {
+#          return if ($param{'ircNick'} eq $ident or $force == 0);
+#
+#          &status("someone is using our nick; GHOSTing");
+#          &msg($who, "using GHOST on $param{'ircNick'}.");
+#          &msg("NickServ", "GHOST $param{'ircNick'} $param{'nickServ_pass'}");
+#
+#          $conn->schedule(5, sub {
+#              &status("going to change nick after GHOST.");
+#              &nick( $param{'ircNick'} );
+#          } );
+#
+#          return;
+#      }
+#
+#      return;
+#   }
 
     return "CONTINUE";
 }