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

[ircbot] / bot.tcl

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