allow dumping schedule list to log (for now)

[infobot.git] / src / UserExtra.pl

diff --git a/src/UserExtra.pl b/src/UserExtra.pl
index c8ec404a33f616fec281f4354006e8483eda552a..f6380987e858842fc93ddf8fafb2cfef3cc4d4fe 100644 (file)
--- a/src/UserExtra.pl
+++ b/src/UserExtra.pl
@@ -17,6 +17,7 @@ use vars qw(%channels %chanstats %cmdstats %count %ircstats %param
 
 &addCmdHook("main", 'chan(stats|info)', ('CODEREF' => 'chaninfo', ) );
 &addCmdHook("main", 'cmd(stats|info)', ('CODEREF' => 'cmdstats', ) );
+&addCmdHook("main", 'sched(stats|info)', ('CODEREF' => 'scheduleList', ) );
 &addCmdHook("main", 'factinfo', ('CODEREF' => 'factinfo',
        'Cmdstats' => 'Factoid Info', Module => 'factoids', ) );
 &addCmdHook("main", 'factstats?', ('CODEREF' => 'factstats',
@@ -536,7 +537,7 @@ sub userCommands {
            }
        }
 
-       &performReply( sprintf("'%s' is ascii %s", $arg, ord $1) );
+       &performReply( sprintf("'%s' is ascii %s", $arg, ord $arg) );
        return;
     }
 
@@ -849,45 +850,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() (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;
-    }
+#    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";
 }