rendered paste body #############################
### -+- ###
# PREBOT <b style="color:black;background-color:#ffff66">TCL</b>/TXT v1.0 by noname #
### - -- ---+--- -- - ###
# 0x539 [at] web [d0t] de #
#### -+- ####
################################################################################
# notes: #
# well its my first <b style="color:black;background-color:#ffff66">tcl</b> script... #
# so i dont give a fuck on crapy coded parts :> #
# worx with announces as seen belwo: #
# [ PRE ] PREBOT v1 <b style="color:black;background-color:#ffff66">TCL</b> TXT noname [ 0DAY ] #
# [ NUKE ] PREBOT.v1.<b style="color:black;background-color:#ffff66">TCL</b>.TXT-noname reason: sumone.forgot.reason #
# [ UNNUKE ] PREBOT.v1.<b style="color:black;background-color:#ffff66">TCL</b>.TXT-noname reason: sumone.forgot.reason #
################################################################################
# usage: #
# !pre RELEASE #
# !pred RELEASE #
# !search RELEASE #
# !group GROUP #
# !section SECTiON #
# !last #
# !nuke #
# !unnuke #
# !addpre RELEASE SECTiON UNXTiME #
# !addnuke RELEASE REASON SECTiON UNXTiME #
# !addunnuke RELEASE REASON SECTiON UNXTiME #
################################################################################
# config: #
# <b style="color:black;background-color:#a0ffff">predb</b> = file to store #
# searchresults = max results posted on !search !pre #
# chan_(pred) = chan with an existing announcebot #
# chan_(echo) = chan where u want to annonuce #
# chan_(pred_pre4ll) = prefix of new rls (e.g. [ PRE ]) #
# chan_(pred_nuk4ll) = prefix of nuked rls (e.g. [ NUKE ]) #
# chan_(pred_unn4ll) = prefix of nuked rls (e.g. [ UNNUKE ]) #
################################################################################
# support: #
# support me and i'll support u ;> #
################################################################################
# to do: #
# sql port #
# prevent redudant data #
# improve search function #
# backfill option #
# blowfish support #
# fix bugs (as ever) #
################################################################################
# greetz to: #
# #hackers -+-- irc.after-all.org #
# tumor crew -+-- w00tw00t #
# Abortion -+-- wh0re! ^.- #
# auron -+-- my favourite lhama :> #
# CaReS -+-- who cares? #
# ChIcKeN -+-- << koerner picken no time #
# doomhammer -+-- a great chum #
# maZer`- -+-- for being a gr8 coder #
# oli geissen -+-- teh best tv-show-moderator ever! ^^ #
# Shockwav3 -+-- *tsunami kekse #
# tenti -+-- repair ya workstation #
# forgotten ones... -+-- i dislike u all... so dont bitch about me :> #
################################################################################
# copyright: #
# who cares? its free! just respect my work n leave my nick in ya impoved one. #
# i would b grateful if u could send me an/your improved one ;> #
################################################################################
# du sollst nicht luegen #
# du sollst nicht toeten #
# sollst deine eltern ehrn #
# sollst nicht begehren #
# die frau vom naechsten #
# und du sollst auch nicht stehln #
################################################################################
#### - -- ----+---- -- - ####
# dedicated to the memory of my father #
### --+-- ###
##########################################
### config
set <b style="color:black;background-color:#a0ffff">predb</b> "./logs/<b style="color:black;background-color:#a0ffff">predb</b>.txt"
set pretmp "./logs/<b style="color:black;background-color:#a0ffff">predb</b>.tmp"
set searchresults "3"
set minchars "3"
set chan_(pred) "#nopre"
set chan_(echo) "#nopre.test"
set chan_(pred_pre4ll) "\[ 09 PRE \]"
set chan_(pred_nuk4ll) "\[ 04 NUKE \]"
set chan_(pred_unn4ll) "\[ 04 UNNUKE \]"
bind pub - !addpre echo:addpre
bind pub - !addnuke echo:addnuke
bind pub - !addunnuke echo:addunnuke
bind pub - !pre echo:checkpre
bind pub - !pred echo:checkpre
bind pub - !search echo:checkpre
bind pub - !last echo:checklast
bind pub - !group echo:checkgrp
bind pub - !section echo:checksec
bind pub - !nuke echo:checknuk
bind pub - !unnuke echo:checkunn
### style
set announce_(pre) { 01,00 [ 09#section# 01,00 ]--[ #releasename#-#releasegroup# ]--[ was pred at #pretime# ] }
set announce_(nuke) { 01,00 [ 04NUKE 01,00 ]--[ #releasename#-#releasegroup# ]--[ was nuked at #pretime# ]--[ 04#reason# 01,00 ] }
set announce_(unnuke) { 01,00 [ 09UN 04NUKE 01,00 ]--[ #releasename#-#releasegroup# ]--[ was unnuked at #pretime# ]--[ 09#reason# 01,00 ] }
### config (do not change)
set chan_(pred_pre1st) [lindex $chan_(pred_pre4ll) 0]
set chan_(pred_nuk1st) [lindex $chan_(pred_nuk4ll) 0]
set chan_(pred_unn1st) [lindex $chan_(pred_unn4ll) 0]
bind pub - $chan_(pred_pre1st) echo:check
bind pub - $chan_(pred_nuk1st) echo:check
bind pub - $chan_(pred_unn1st) echo:check
set minchar [expr ($minchars - 1)]
### check second prefix
proc echo:check { nick uhost handle chan arg } {
global <b style="color:black;background-color:#a0ffff">predb</b> chan_
if { $chan == $chan_(pred) && [ string match [lindex $chan_(pred_pre4ll) 1] [lindex $arg 0] ] == "1" } { echo:nopre $nick $uhost $handle $chan $arg } elseif {
$chan == $chan_(pred) && [ string match [lindex $chan_(pred_nuk4ll) 1] [lindex $arg 0] ] == "1" } { echo:nonuke $nick $uhost $handle $chan $arg } elseif {
$chan == $chan_(pred) && [ string match [lindex $chan_(pred_unn4ll) 1] [lindex $arg 0] ] == "1" } { echo:nounnuke $nick $uhost $handle $chan $arg}
}
### check (pre)
proc echo:checkpre { nick uhost handle chan arg } {
global minchar chan_
if { $chan == $chan_(echo) } {
if { $arg == "" } { echo:search $nick $uhost $handle $chan PRE LAST } elseif {
[string length $arg] > $minchar } { echo:search $nick $uhost $handle $chan $arg PRE } elseif {
[string length $arg] <= $minchar } { putserv "NOTICE $nick : 01,00 *$arg* doesnt reached teh minimum of $minchars chars "; putlog "PRESEARCH *$arg* min. chars not reached"; return 0}
}
}
### check (group)
proc echo:checkgrp { nick uhost handle chan arg } {
global minchar chan_
if { $chan == $chan_(echo) } {
if { [string length $arg] > $minchar } { echo:search $nick $uhost $handle $chan $arg GRP } elseif {
[string length $arg] <= $minchar } { putserv "NOTICE $nick : 01,00 *$arg* doesnt reached teh minimum of $minchars chars "; putlog "GRPSEARCH *$arg* min. chars not reached"; return 0}
}
}
### check (section)
proc echo:checksec { nick uhost handle chan arg } {
global minchar chan_
if { $chan == $chan_(echo) } {
if { [string length $arg] > $minchar } { echo:search $nick $uhost $handle $chan $arg SEC } elseif {
[string length $arg] <= $minchar } { putserv "NOTICE $nick : 01,00 *$arg* doesnt reached teh minimum of $minchars chars "; putlog "SECSEARCH *$arg* min. chars not reached"; return 0}
}
}
### check (last)
proc echo:checklast { nick uhost handle chan arg } {
global chan_
if { $chan == $chan_(echo) } {
echo:search $nick $uhost $handle $chan e LAST
}
}
### check (nuke)
proc echo:checknuk { nick uhost handle chan arg } {
global chan_
if { $chan == $chan_(echo) } {
echo:search $nick $uhost $handle $chan NUKE NUK
}
}
### check (unnuke)
proc echo:checkunn { nick uhost handle chan arg } {
global chan_
if { $chan == $chan_(echo) } {
echo:search $nick $uhost $handle $chan UNNUKE NUK
}
}
### search
proc echo:search { nick uhost handle chan arg wut } {
global <b style="color:black;background-color:#a0ffff">predb</b> pretmp chan_ searchresults
set pretemp $pretmp.[unixtime]
set count "0"
set found "0"
set rep "\*"
set search *$arg*
regsub -all { } $search $rep search
regsub -all {\.} $search $rep search
regsub -all {\_} $search $rep search
set db [open $<b style="color:black;background-color:#a0ffff">predb</b> r]
set tmp [open $pretemp w]
while {![eof $db]} {
gets $db data
if { $wut == "PRE" } { set searchdata [lindex $data 4]-[lindex $data 3] } elseif {
$wut == "LAST" } { set searchdata [lindex $data 0] } elseif {
$wut == "GRP" } { set searchdata [lindex $data 3] } elseif {
$wut == "SEC" } { set searchdata [lindex $data 2] } elseif {
$wut == "NUK" } { set searchdata [lindex $data 0]; set search $arg }
if {[ string match [string toupper $search] [string toupper $searchdata] ] } {
incr count
puts $tmp "$data"
}
}
close $tmp
set county $count
if {$count == 0} { putserv "NOTICE $nick : 01,00 $search was not found in db "; putlog "SEARCH $search not found" } else {
putserv "NOTICE $nick : 01,00 $count releases found... "; putlog "SEARCH $search $count releases found"
for {set x 0} {$x < $searchresults} {incr x} {
set tmp [open $pretemp r]
if {$county == 0} {return 0}
for {set y 0} {$y < $county} {incr y} {
gets $tmp data
}
close $tmp
incr county -1
echo:annorep [lindex $data 0] [lindex $data 2] [lindex $data 4] [lindex $data 3] [lindex $data 1] [lindex $data 5] $nick 0
}
}
close $db
file delete -force -- $pretemp
}
### announce (pre)
proc echo:nopre { nick uhost handle chan arg } {
global <b style="color:black;background-color:#a0ffff">predb</b> chan_
set prestamp [unixtime]
set rlstmp [check:string $arg]
set sec [lindex $rlstmp 1]
set rlstmp [lindex $rlstmp 0]
set rlsgrp [check:rlsgrp $rlstmp]
set grp [lindex $rlsgrp 1]
set nam [lindex $rlsgrp 0]
echo:annorep PRE $sec $nam $grp $prestamp PRE $chan_(echo) 1
}
### announce (nuke)
proc echo:nonuke { nick uhost handle chan arg } {
global <b style="color:black;background-color:#a0ffff">predb</b> chan_ announce_nuke
set prestamp [unixtime]
set sec ""
set reason [lindex $arg 4]
set rlstmp [lindex $arg 2]
set rlsgrp [check:addrlsgrp $rlstmp]
set grp [lindex $rlsgrp 1]
set nam [lindex $rlsgrp 0]
echo:annorep NUKE $sec $nam $grp $prestamp $reason $chan_(echo) 1
}
### announce (unnuke)
proc echo:nounnuke { nick uhost handle chan arg } {
global <b style="color:black;background-color:#a0ffff">predb</b> chan_ announce_unnuke
set prestamp [unixtime]
set sec "UNKNOWN"
set reason [lindex $arg 4]
set rlstmp [lindex $arg 2]
set rlsgrp [check:addrlsgrp $rlstmp]
set grp [lindex $rlsgrp 1]
set nam [lindex $rlsgrp 0]
echo:annorep UNNUKE $sec $nam $grp $prestamp $reason $chan_(echo) 1
}
### announce (addpre)
proc echo:addpre { nick uhost handle chan arg } {
global <b style="color:black;background-color:#a0ffff">predb</b> chan_
if { $chan == $chan_(pred) } {
set prestamp [check:stamp [lindex $arg 2]]
set rlstmp [lindex $arg 0]
if { $rlstmp == "" } { putserv "NOTICE $nick : 01,00 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]
echo:annorep PRE $sec $nam $grp $prestamp PRE $chan_(echo)
}
}
### announce (addnuke)
proc echo:addnuke { nick uhost handle chan arg } {
global <b style="color:black;background-color:#a0ffff">predb</b> chan_
if { $chan == $chan_(pred) } {
set rlstmp [lindex $arg 0]
if { $rlstmp == "" } { putserv "NOTICE $nick : 01,00 USAGE\: !addnuke RELEASE REASON UNXTiME SECTiON \[RELEASE REASON UNXTiME\[now\|\<stamp\>\] and SECTiON are optional\] "; return 0 }
set reason [lindex $arg 1]
set prestamp [check:stamp [lindex $arg 2]]
set sec [lindex $arg 3]
set rlsgrp [check:addrlsgrp $rlstmp]
set grp [lindex $rlsgrp 1]
set nam [lindex $rlsgrp 0]
echo:annorep NUKE $sec $nam $grp $prestamp $reason $chan_(echo) 1
}
}
### announce (addunnuke)
proc echo:addunnuke { nick uhost handle chan arg } {
global <b style="color:black;background-color:#a0ffff">predb</b> chan_
if { $chan == $chan_(pred) } {
set rlstmp [lindex $arg 0]
if { $rlstmp == "" } { putserv "NOTICE $nick : 01,00 USAGE\: !addunnuke RELEASE REASON UNXTiME SECTiON \[RELEASE REASON UNXTiME\[now\|\<stamp\>\] and SECTiON are optional\] "; return 0 }
set reason [lindex $arg 1]
set prestamp [check:stamp [lindex $arg 2]]
set sec [lindex $arg 3]
set rlsgrp [check:addrlsgrp $rlstmp]
set grp [lindex $rlsgrp 1]
set nam [lindex $rlsgrp 0]
echo:annorep UNNUKE $sec $nam $grp $prestamp $reason $chan_(echo) 1
}
}
### announce (rep n sav)
proc echo:annorep { stat sec nam grp prestamp reason chan_echo save } {
global <b style="color:black;background-color:#a0ffff">predb</b> announce_
if { $save == "1" } {
if { $sec == "" } { set sec "UNKNOWN" }
if { $reason == "" } { set reason "UNKNOWN" }
set data [open $<b style="color:black;background-color:#a0ffff">predb</b> a]
puts $data "$stat $prestamp $sec $grp $nam $reason"
close $data
putlog "$stat $prestamp $sec $nam\-$grp $reason added"
}
if { $stat == "PRE" } { set announce $announce_(pre) } elseif {
$stat == "NUKE" } { set announce $announce_(nuke) } elseif {
$stat == "UNNUKE" } { set announce $announce_(unnuke) }
set pretime [unx2nps $prestamp]
regsub -- {#section#} $announce $sec announce
regsub -- {#releasename#} $announce $nam announce
regsub -- {#releasegroup#} $announce $grp announce
regsub -- {#pretime#} $announce $pretime announce
regsub -- {#reason#} $announce $reason announce
if { $save == "1" } { putserv "PRIVMSG $chan_echo :$announce" } else { putserv "NOTICE $chan_echo :$announce" }
}
### filter color bold /bla code add dots
proc check:string { nostring } {
global chan_
regsub -all -- { [0-9][0-9],[0-9][0-9]} $nostring "" nostring
regsub -all -- { [0-9][0-9],[0-9]} $nostring "" nostring
regsub -all -- { [0-9][0-9]} $nostring "" nostring
regsub -all -- { [0-9]} $nostring "" nostring
regsub -all -- { } $nostring "" nostring
regsub -all -- { } $nostring "" nostring
regsub -all -- { } $nostring "" nostring
regsub -all -- { } $nostring "" nostring
regsub -all -- { } $nostring "" nostring
regsub -all -- {PRE} $nostring "" nostring
regsub -all -- { } $nostring "\." nostring
regsub -all -- {\.\]\.} $nostring " " nostring
regsub -all -- {\.\[\.} $nostring " " nostring
regsub -all -- {\.\]} $nostring "" nostring
regsub -all -- {\.\.} $nostring "\." nostring
return $nostring
}
proc check:addrlsgrp { nostring } {
regsub -all -- {\-} $nostring " " nostring
set grp [lindex $nostring end]
regsub -all -- { } $nostring "\-" nostring
set grprep1 "\-$grp"
set grprep2 " $grp"
regsub -all -- $grprep1 $nostring $grprep2 nostring
return $nostring
}
proc check:rlsgrp { nostring } {
regsub -all -- {\.} $nostring " " nostring
set grp [lindex $nostring end]
regsub -all -- $grp $nostring "\-rep" nostring
regsub -all -- { \-} $nostring "\-" nostring
regsub -all -- {rep} $nostring $grp nostring
regsub -all -- { } $nostring "\." nostring
regsub -all -- {\-} $nostring " " nostring
return $nostring
}
proc check:stamp { timestamp } {
regsub -- {[nN][oO][wW]} $timestamp "" timestamp
if { $timestamp == "" || $timestamp == "\-" } { return [unixtime] } else { return $timestamp}
}
proc unx2nps { timestamp } {
if {[regexp "\[^\\d\]" $timestamp]} { error "unx2nps: parameter is not a valid unix timestamp" }
if {$timestamp > "2000000000"} { error "unx2nps: parameter is too large" }
return [clock format $timestamp -format "%Y/%m/%d %H:%M:%S"]
}
#bind pub - .rehash test:rehash
# proc test:rehash {nick uhost hand channel arg} {
# rehash
# putserv "PRIVMSG $channel :rehased..."
#}
putlog "PREBOT <b style="color:black;background-color:#ffff66">TCL</b>/TXT v1.0 loaded (by noname)."
### EOF ### /1337? yea.. a bit.