+proc tellme_rel_desc {v} {
+ manyset $v rel every within
+ switch -exact $rel {
+ unreliable {
+ return "As soon as I've told you message(s), I'll forget them\
+ - note that this means messages can get lost !"
+ }
+ pester {
+ set u {}
+ }
+ remind {
+ set u ", or talk on channel within [showintervalsecs $within 1] of me having told you"
+ }
+ default {
+ error "bad tellrel $rel"
+ }
+ }
+ return "After delivering messages, I'll remind you every\
+ [showintervalsecs $every 1] until you say delmsg$u."
+}
+
+def_setting timeformat {
+ set tf [nickdb_get $n timeformat]
+ return "$tf: [timeformat_desc $tf]"
+} {
+ set tf [string tolower [ta_word]]
+ ta_nomore
+ set desc [timeformat_desc $tf]
+ nickdb_set $n timeformat $tf
+ ucmdr {} $desc
+}
+
+proc marktime_desc {mt} {
+ if {"$mt" == "off"} {
+ return "I will not send you periodic messages."
+ } elseif {"$mt" == "once"} {
+ return "I will send you one informational message when I see you."
+ } else {
+ return "I'll send you a message every [showintervalsecs $mt 0]."
+ }
+}
+
+def_setting marktime {
+ set mt [nickdb_get $n marktime]
+ set p $mt
+ if {[string match {[0-9]*} $mt]} { append p s }
+ append p ": "
+ append p [marktime_desc $mt]
+ return $p
+} {
+ global marktime_min
+ set mt [string tolower [ta_word]]
+ ta_nomore
+
+ if {"$mt" == "off" || "$mt" == "once"} {
+ } else {
+ set mt [parse_interval $mt $marktime_min]
+ }
+ nickdb_set $n marktime $mt
+ lnick_marktime_start [irctolower $n] "So:" 500 0
+ ucmdr {} [marktime_desc $mt]
+}
+
+def_setting security {
+ set s [nickdb_get $n username]
+ if {[string length $s]} {
+ return "Your nick, $n, is controlled by the user $s."
+ } else {
+ return "Your nick, $n, is not secure."
+ }
+} {}
+
+proc tellme_setting_sec_simple {} {
+ uplevel 1 {
+ ta_nomore
+ set sr sec
+ set v $setting
+ }
+}
+
+proc tellme_setting_neednomsgs {} {
+ uplevel 1 {
+ if {[llength [msgsdb_get $n inbound]]} {
+ usererror "You must delete the messages you have, first."
+ }
+ }
+}
+
+def_setting tellme {
+ set secv [nickdb_get $n tellsec]
+ set ms [tellme_sec_desc $secv $n]
+ manyset $secv sec
+ switch -exact $sec {
+ insecure - secure {
+ set mr [tellme_rel_desc [nickdb_get $n tellrel]]
+ return "$ms $mr"
+ }
+ refuse - mailto {
+ return $ms
+ }
+ }
+} {
+ set setting [string tolower [ta_word]]
+ switch -exact $setting {
+ insecure {
+ tellme_setting_sec_simple
+ }
+ secure {
+ set every [ta_interval_optional 60 600]
+ ta_nomore
+ set sr sec
+ set v [list secure $every]
+ }
+ refuse {
+ telling_setting_neednomsgs
+ telling_setting_sec_simple
+ }
+ mailto {
+ telling_setting_neednomsgs
+
+ if {[string length [set u [nickdb_get_username $n]]]} {
+ 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]
+ }
+ unreliable - pester - remind {
+ manyset [nickdb_get $n tellsec] sec
+ switch -exact $sec {
+ refuse - mailto {
+ usererror \
+ "You can't change your message delivery conditions when\
+ your message disposition prevents messages from being left."
+ }
+ }
+ set sr rel
+ set v $setting
+ if {"$setting" != "unreliable"} {
+ set every [parse_interval_optional 300 3600]
+ lappend v $every
+ }
+ if {"$setting" == "remind"} {
+ set within [ta_interval_optional 5 30]
+ if {$within > $every} {
+ error "remind interval must be at least time to respond"
+ }
+ lappend v $within
+ }
+ ta_nomore
+ }
+ default {
+ error "invalid tellme setting $setting"
+ }
+ }
+ nickdb_set $n tell$sr $v
+ ucmdr [tellme_${sr}_desc $v] {}
+}
+
+proc lnick_checktold {luser} {
+ set ml [msgsdb_get $luser outbound]
+ if {![llength $ml]} return
+ set is1 [expr {[llength $ml]==3}]
+ set m1 "FYI, I haven't yet passed on your"
+ set ol {}
+ set now [clock seconds]
+ while {[llength $ml]} {
+ manyset $ml r t n
+ set ml [lreplace $ml 0 2]
+ set td [expr {$now-$t}]
+ if {$n == 1} {
+ set iv [showinterval $td]
+ set ifo "$r, $iv"
+ set if1 "message to $r, $iv."
+ } else {
+ set iv [showintervalsecs $td 0]
+ set ifo "$r, $n messages, oldest $iv"
+ set if1 "$n messages to $r, oldest $iv."
+ }
+ if {$is1} {
+ sendprivmsg $luser "$m1 $if1"
+ return
+ } else {
+ lappend ol " to $ifo[expr {[llength $ml] ? ";" : "."}]"
+ }
+ }
+ sendprivmsg $luser "$m1 messages:"
+ msendprivmsg $luser $ol
+}
+
+def_ucmd set {
+ global settings
+ prefix_nick
+ check_notonchan
+ if {![nickdb_exists $n]} {
+ ucmdr {} "You are unknown to me and so have no settings. (Use `register'.)"
+ }
+ if {![ta_anymore]} {
+ set ol {}
+ foreach opt $settings {
+ lappend ol [format "%-10s %s" $opt [set_show/$opt]]
+ }
+ ucmdr {} [join $ol "\n"]
+ } else {
+ set opt [ta_word]
+ if {[catch { info body set_show/$opt }]} {
+ error "no setting $opt"
+ }
+ if {![ta_anymore]} {
+ ucmdr {} "$opt: [set_show/$opt]"
+ } else {
+ nick_securitycheck 0
+ if {[catch { info body set_set/$opt }]} {
+ error "setting $opt cannot be set with `set'"
+ }
+ set_set/$opt
+ }
+ }