X-Git-Url: https://git.distorted.org.uk/~mdw/ircbot/blobdiff_plain/b52676c054b2a5b2b98cc5875263aba0a90309fa..e4d6b18fc4293649ea7ffa48dbfc0d2684ce19ad:/bot.tcl?ds=sidebyside

diff --git a/bot.tcl b/bot.tcl
index b706312..fe62bc5 100755
--- a/bot.tcl
+++ b/bot.tcl
@@ -378,7 +378,7 @@ proc tell_event_core1 {nl event} {
 	}
 	masl??? {
 	    sendprivmsg $nl {Don't forget about your messages.}
-	    return remind
+	    set re remind
 	}
 	pi????? {
 	    return ignorepi
@@ -505,7 +505,7 @@ proc chanmode_o1 {m g p chan} {
 	    set chan_initialop([irctolower $chan]) $u
 	    sendprivmsg $n \
  "Thanks.  You can use `channel manager ...' to register this channel."
-	    if {![string length [nickdb_get_username $n username]]} {
+	    if {![string length [nickdb_get_username $n]]} {
 		sendprivmsg $n \
  "(But to do that you must register your nick securely first.)"
 	    }
@@ -1934,7 +1934,7 @@ def_ucmd summon {
     }
 }
 
-proc md5sum {value} { exec md5sum << $value }
+proc md5sum {value} { lindex [exec md5sum << $value] 0 }
 
 def_ucmd seen {
     global lastseen nick