startup.sh: Run bots in a screen(1) instance.

[ircbot] / bot.tcl

diff --git a/bot.tcl b/bot.tcl
index 9b73cc9..fe62bc5 100755 (executable)
--- a/bot.tcl
+++ b/bot.tcl
@@ -5,6 +5,7 @@ set helpfile helpinfos
 source irccore.tcl
 source parsecmd.tcl
 source stdhelp.tcl
+source userv.tcl
 
 defset marktime_min 300
 defset marktime_join_startdelay 5000
@@ -377,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
@@ -504,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.)"
            }
@@ -794,14 +795,6 @@ proc msg_366 {p c args} {
     unset names_chans
 }
 
-proc check_username {target} {
-    if {
-       [string length $target] > 8 ||
-        [regexp {[^-0-9a-z]} $target] ||
-        ![regexp {^[a-z]} $target]
-    } { error "invalid username" }
-}
-
 proc somedb__head {} {
     uplevel 1 {
        set idl [irctolower $id]
@@ -1941,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