Miscellany

bind pub -|- !addpre echo_proc
set srcchan "#pre.test1"
set destchan "#pre.test2"
set srcnick "PORCELAiN"
set ::lastadd ""

proc echo_proc {nick uhost handle chan args} {
global srcchan destchan srcnick

putquick "PRIVMSG $destchan : DEBUG1: proc was tiggered once"

if { $chan == $srcchan && $nick == $srcnick } {
   putquick "PRIVMSG $destchan : DEBUG2: passed checkpoint 1 - target channel & bot OK"
   set bits [split $args " "]	 	
   if { $::lastadd == [lindex $bits 0] } { return 0 }
   set ::lastadd [lindex $bits 0]

   set release [lindex $bits 0]
   set section [lindex $bits 1]
   set group [lindex [split $release "-"] end]
   putquick "PRIVMSG $destchan : $release $section $group"
}

}