+ check_notonchan
+ set old [nickdb_exists $n]
+ if {$old} { nick_securitycheck 0 }
+ set luser [irctolower $n]
+ switch -exact [string tolower [string trim $text]] {
+ {} {
+ upvar #0 nick_username($luser) nu
+ if {![info exists nu]} {
+ ucmdr {} \
+ "You must identify yourself before using `register'. See `help identify', or use `register insecure'."
+ }
+ nickdb_set $n username $nu
+ ucmdr {} {} "makes a note of your username." {}
+ }
+ delete {
+ nickdb_delete $n
+ ucmdr {} {} "forgets your nickname." {}
+ }
+ insecure {
+ nickdb_set $n username {}
+ if {$old} {
+ ucmdr {} "Security is now disabled for your nickname !"
+ } else {
+ ucmdr {} "This is fine, but bear in mind that people will be able to mess with your settings. Channel management features need a secure registration." "makes an insecure registration for your nick."
+ }
+ }
+ default {
+ error "you mean register / register delete / register insecure"
+ }
+ }
+}
+
+proc timeformat_desc {tf} {
+ switch -exact $tf {
+ ks { return "Times will be displayed in seconds or kiloseconds." }
+ hms { return "Times will be displayed in hours, minutes, etc." }
+ default { error "invalid timeformat: $v" }
+ }
+}
+
+set settings {}
+proc def_setting {opt show_body set_body} {
+ global settings
+ lappend settings $opt
+ proc set_show/$opt {} "
+ upvar 1 n n
+ set opt $opt
+ $show_body"
+ if {![string length $set_body]} return
+ proc set_set/$opt {} "
+ upvar 1 n n
+ upvar 1 text text
+ set opt $opt
+ $set_body"
+}
+
+proc tellme_sec_desc {v n} {
+ manyset $v sec mailtoint
+ switch -exact $sec {
+ insecure {
+ return "I'll tell you your messages whenever I see you."
+ }
+ secure {
+ if {[string length [nickdb_get_username $n]]} {
+ return \
+ "I'll keep the bodies of your messages private until you identify yourself, reminding you every [showintervalsecs $mailtoint 1]."
+ } else {
+ return \
+ "I'll tell you your messages whenever I see you.\
+ (Secure message delivery is enabled, but your nick is not registered\
+ securely. See `help register'.)"
+ }
+ }
+ refuse {
+ return "I shan't accept messages for you."
+ }
+ mailto {
+ return "I'll forward your messages by email to $mailtoint."
+ }
+ default {
+ error "bad tellsec $sec"
+ }
+ }
+}
+
+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
+ }
+ }
+}
+
+def_ucmd identpass {
+ prefix_nick
+ check_notonchan
+ set luser [irctolower $n]
+ set username [ta_word]
+ set passmd5 [md5sum "[ta_word]\n"]
+ ta_nomore
+ upvar #0 nick_onchans($luser) onchans
+ if {![info exists onchans] || ![llength $onchans]} {
+ ucmdr "You must be on a channel with me to identify yourself." {}
+ }
+ check_username $username
+ exec userv --timeout 3 $username << "$passmd5\n" > /dev/null \
+ irc-identpass $n
+ upvar #0 nick_username($luser) rec_username
+ set rec_username $username
+ ucmdr "Pleased to see you, $username." {}
+ tell_event $luser ident
+}
+
+def_ucmd summon {
+ set target [ta_word]
+ ta_nomore
+ check_username $target
+ prefix_nick
+
+ upvar #0 lastsummon($target) ls
+ set now [clock seconds]
+ if {[info exists ls]} {
+ set interval [expr {$now - $ls}]
+ if {$interval < 30} {
+ ucmdr {} \
+ "Please be patient; $target was summoned only [showinterval $interval]."
+ }
+ }
+ regsub {^[^!]*!} $p {} path
+ if {[catch {
+ exec userv --timeout 3 $target irc-summon $n $path \
+ [expr {[ischan $dest] ? "$dest" : ""}] \
+ < /dev/null
+ } rv]} {
+ regsub -all "\n" $rv { / } rv
+ error $rv
+ }
+ if {[regexp {^problem (.*)} $rv dummy problem]} {
+ ucmdr {} "The user `$target' $problem."
+ } elseif {[regexp {^ok ([^ ]+) ([0-9]+)$} $rv dummy tty idlesince]} {
+ set idletime [expr {$now - $idlesince}]
+ set ls $now
+ ucmdr {} {} {} "invites $target ($tty[expr {
+ $idletime > 10 ? ", idle for [showintervalsecs $idletime 0]" : ""
+ }]) to [expr {
+ [ischan $dest] ? "join us here" : "talk to you"
+ }]."
+ } else {
+ error "unexpected response from userv service: $rv"
+ }
+}
+
+proc md5sum {value} { exec md5sum << $value }
+
+def_ucmd seen {
+ global lastseen nick
+ prefix_nick
+ set ncase [ta_nick]
+ set nlower [irctolower $ncase]
+ ta_nomore
+ set now [clock seconds]
+ if {"$nlower" == "[irctolower $nick]"} {
+ usererror "I am not self-aware."
+ } elseif {![info exists lastseen($nlower)]} {
+ set rstr "I've never seen $ncase."
+ } else {
+ manyset $lastseen($nlower) realnick time what
+ set howlong [expr {$now - $time}]
+ set string [showinterval $howlong]
+ set rstr "I last saw $realnick $string, $what."
+ }
+ if {[ischan $dest]} {
+ set where $dest
+ } else {
+ set where {}
+ }
+ upvar #0 lookedfor($nlower) lf
+ if {[info exists lf]} { set oldvalue $lf } else { set oldvalue {} }
+ set lf [list [list $now $n $where]]
+ foreach v $oldvalue {
+ if {"[irctolower [lindex $v 1]]" == "[irctolower $n]"} continue
+ lappend lf $v
+ }
+ ucmdr {} $rstr
+}
+
+proc lnick_marktime_cancel {luser} {
+ upvar #0 nick_markid($luser) mi
+ if {![info exists mi]} return
+ catch { after cancel $mi }
+ catch { unset mi }
+}
+
+proc lnick_marktime_doafter {luser why ms mentiontold} {
+ lnick_marktime_cancel $luser
+ upvar #0 nick_markid($luser) mi
+ set mi [after $ms [list lnick_marktime_now $luser $why 0]]
+}
+
+proc lnick_marktime_reset {luser} {
+ set mt [nickdb_get $luser marktime]
+ if {"$mt" == "off" || "$mt" == "once"} return
+ lnick_marktime_doafter $luser "Time passes." [expr {$mt*1000}] 0
+}
+
+proc lnick_marktime_start {luser why ms mentiontold} {
+ set mt [nickdb_get $luser marktime]
+ if {"$mt" == "off"} {
+ lnick_marktime_cancel $luser
+ if {$mentiontold} { after $ms [list lnick_checktold $luser] }
+ } else {
+ lnick_marktime_doafter $luser $why $ms $mentiontold
+ }
+}
+
+proc lnick_marktime_now {luser why mentiontold} {
+ upvar #0 nick_onchans($luser) oc
+ global calling_nick
+ set calling_nick $luser
+ sendprivmsg $luser [lnick_pingstring $why $oc ""]
+ if {$mentiontold} { lnick_checktold $luser }
+ lnick_marktime_reset $luser
+}
+
+proc lnick_pingstring {why oc apstring} {
+ global nick_onchans
+ catch { exec uptime } uptime
+ set nnicks [llength [array names nick_onchans]]
+ if {[regexp \
+ {^ *([0-9:apm]+) +up.*, +(\d+) users?, +load average: +([0-9., ]+) *$} \
+ $uptime dummy time users load]} {
+ regsub -all , $load {} load
+ set uptime "$time $nnicks/$users $load"
+ } else {
+ append uptime ", $nnicks nicks"
+ }
+ if {[llength $oc]} {
+ set best_la 0
+ set activity quiet
+ foreach ch $oc {
+ upvar #0 chan_lastactivity($ch) la
+ if {![info exists la]} continue
+ if {$la <= $best_la} continue
+ set since [showintervalsecs [expr {[clock seconds]-$la}] 1]
+ set activity "$ch $since"
+ set best_la $la
+ }
+ } else {
+ set activity unseen
+ }
+ set str $why
+ append str " " $uptime " " $activity
+ if {[string length $apstring]} { append str " " $apstring }
+ return $str
+}
+
+def_ucmd ping {
+ prefix_nick
+ set ln [irctolower $n]
+ if {[ischan $dest]} {
+ set oc [irctolower $dest]