bot.tcl: Trim md5sum(1)'s annoying decoration from its output.

[ircbot] / bot.tcl

diff --git a/bot.tcl b/bot.tcl
index b7063129502c7ca662dc84bc85978a9af267b708..dabbf26433e377646b4473ea6bddf0315bb5ac30 100755 (executable)
--- 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
@@ -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