+proc warn_pref {n} {
+ set nl [irctolower $n]
+ set l {}
+ foreach m [list_objs monitor] {
+ upvar #0 monitor/$m mm
+ if {![mon_nick_is $mm(prefer) $n]} continue
+ append l $m
+ }
+ foreach d [list_objs deviceset] {
+ upvar #0 deviceset/$d dd
+ if {[lsearch $l $dd(monname)]==-1} continue
+ append l [dset_visibledest $d]
+ }
+ if {[llength $l]} {
+ sendprivmsg $nl "LEDs are watching you: [join $l " "]"
+ }
+}
+
+proc msg_JOIN {p c chan} {
+ prefix_nick
+ set nl [irctolower $n]
+ chan_shortly $chan
+ warn_pref $n
+}