chiark
/
gitweb
/
~mdw
/
ircbot
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Improvements.
[ircbot]
/
bot.tcl
diff --git
a/bot.tcl
b/bot.tcl
index b5abdda4a8798fda7988c81127fb120934c50abd..c473ce1cb66d1e287db26018003355dfa85835e4 100755
(executable)
--- a/
bot.tcl
+++ b/
bot.tcl
@@
-1340,6
+1340,7
@@
def_ucmd untell {
ucmdr "Removed $ndel as yet undelivered message(s)." {}
}
ucmdr "Removed $ndel as yet undelivered message(s)." {}
}
+def_ucmd_alias delmsgs delmsg
def_ucmd delmsg {
global errorInfo errorCode
prefix_nick
def_ucmd delmsg {
global errorInfo errorCode
prefix_nick
@@
-1388,7
+1389,7
@@
def_ucmd delmsg {
1 { ucmdr {} {} "deletes your $ndel message(s) from $senders." }
default {
ucmdr {} {} "deletes your $ndel message(s) from\
1 { ucmdr {} {} "deletes your $ndel message(s) from $senders." }
default {
ucmdr {} {} "deletes your $ndel message(s) from\
- [lreplace $senders end end] and [lindex $senders end]."
+ [lreplace $senders end end] and
/or
[lindex $senders end]."
}
}
}
}
}
}
@@
-1397,6
+1398,11
@@
def_ucmd tellme {
prefix_nick
ta_nomore
check_notonchan
prefix_nick
ta_nomore
check_notonchan
+ manyset [msgsdb_get $n tellsec] sec
+ switch -exact $sec {
+ refuse { ucmdr "But, you asked me to refuse messages for you !" {} }
+ mailto { ucmdr "But, you asked me to mail your messages to you !" {} }
+ }
switch -exact [tell_event [irctolower $n] tellme] {
ERROR - INVALID { ucmdr {} {is ill. Help!} }
nomsgs { ucmdr {You have no messages.} {} }
switch -exact [tell_event [irctolower $n] tellme] {
ERROR - INVALID { ucmdr {} {is ill. Help!} }
nomsgs { ucmdr {You have no messages.} {} }
@@
-1720,6
+1726,7
@@
def_setting tellme {
}
} {
set setting [string tolower [ta_word]]
}
} {
set setting [string tolower [ta_word]]
+ set nl [irctolower $n]
switch -exact $setting {
insecure {
tellme_setting_sec_simple
switch -exact $setting {
insecure {
tellme_setting_sec_simple
@@
-1737,13
+1744,14
@@
def_setting tellme {
mailto {
tellme_setting_neednomsgs
mailto {
tellme_setting_neednomsgs
- if {![string length [set u [nickdb_get_username $n]]]} {
+ upvar #0 nick_username($nl) nu
+ if {!([info exists nu] && [string length $nu])} {
usererror \
"Sorry, you must register securely to have your messages mailed\
(to prevent the use of this feature for spamming). See `help register'."
}
set sr sec
usererror \
"Sorry, you must register securely to have your messages mailed\
(to prevent the use of this feature for spamming). See `help register'."
}
set sr sec
- set v [list mailto [ta_word] $u]
+ set v [list mailto [ta_word] $
n
u]
}
unreliable - pester - remind {
manyset [nickdb_get $n tellsec] sec
}
unreliable - pester - remind {
manyset [nickdb_get $n tellsec] sec
@@
-1774,7
+1782,7
@@
def_setting tellme {
}
}
nickdb_set $n tell$sr $v
}
}
nickdb_set $n tell$sr $v
- upvar #0 nick_telling(
[irctolower $n]
) telling
+ upvar #0 nick_telling(
$nl
) telling
catch { unset telling }
ucmdr [tellme_${sr}_desc $v $n] {}
}
catch { unset telling }
ucmdr [tellme_${sr}_desc $v $n] {}
}