Anonymous

set echoaddpre "#chan1 #chan2 usw..."
### announce (addpre)
proc echo:addpre { nick uhost handle chan arg } {
global predb chan_ echoaddpre
if { $chan == $chan_(pred) } {
set prestamp [check:stamp [lindex $arg 2]]
set rlstmp [lindex $arg 0]
if { $rlstmp == "" } { putserv "NOTICE $nick : USAGE\: !addpre RELEASE SECTiON UNXTiME \[SECTiON and UNXTiME are optional\] "; return 0 }
set sec [lindex $arg 1]
set rlsgrp [check:addrlsgrp $rlstmp]
set grp [lindex $rlsgrp 1]
set nam [lindex $rlsgrp 0]
foreach channel $echoaddpre {putquick "PRIVMSG $chan :!addpre $nam $sec"}
}
}