bind pub -|- * echo:yingyang

set srcchan "#pre.test1"
set destchan "#pre.test2"
set srcnick "PORCELAiN"
set ::lastadd ""


proc echo:yingyang {nick uhost handle chan args} {
global srcchan destchan srcnick lastadd
if { $chan == $srcchan } {
if { $nick == $srcnick } {
#get information we need	
set bits [split $args " "]	 	
set release [lindex $bits 0]
set section [lindex $bits 1]
set group [lindex [split $release "-"] end]
if { $::lastadd == [lindex $bits 0] } { return 0 }
putquick "PRIVMSG $destchan : $release $section $group"
set ::lastadd [lindex $bits 0]
}
}
}