~mdw
/
ircbot
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
bot.tcl: Trim spurious argument to nickdb_get_username.
[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 irccore.tcl
source parsecmd.tcl
source stdhelp.tcl
+source userv.tcl
defset marktime_min 300
defset marktime_join_startdelay 5000
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.}
}
masl??? {
sendprivmsg $nl {Don't forget about your messages.}
-
return
remind
+
set re
remind
}
pi????? {
return ignorepi
}
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."
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.)"
}
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
}
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]
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
def_ucmd seen {
global lastseen nick