Code:
putlog.itcl :
if { [string last "/" [lindex $args 2]] != [expr [string length [lindex $args 2]] - 1] } {
putlog "BLA: \"$user\" \"$group\" $args"
}
ioFTPD.ini :
OnNewDir = %TCL ..\scripts\newdir\putlog.itcl "%[$unfo]"
dZSbot.tcl :
set msgtypes(RACE) "IMDB ALLOCINE NFOURL NFO NEWDATE WIPE NEWDIR BLA DELDIR ...
set disable(NEWDIR) 1
set disable(BLA) 0
set variables(NEWDIR) "%pf %user %group"
set variables(BLA) "%pf %user %group %tagline"
set announce(NEWDIR) "\[%bold%section%bold\] %color07%boldnew%bold%color %bold%path/%release%bold by %bold%user%bold"
set announce(BLA) "\[%bold%section%bold\] %color07%boldnew%bold%color %bold%path/%release%bold by %bold%user%bold (%uline%tagline%uline)"
proc readlog {}
replace
if { ! [info exists disable($msgtype)] } {continue}
if { $msgtype == "NEWDIR" || $msgtype == "DELDIR" } {
set path [lindex $line 5]
if { $msgtype == "DELDIR" } { set path [string trimright $path "/"] }
set var1 "{$path} [lrange $line 3 4]"
-->>>
if { ! [info exists disable($msgtype)] } {continue}
if { $msgtype == "BLA" } {
set path [lindex $line 7]
set var1 "{$path} [lrange $line 3 5]"
} elseif { $msgtype == "NEWDIR" || $msgtype == "DELDIR" } {
set path [lindex $line 5]
if { $msgtype == "DELDIR" } { set path [string trimright $path "/"] }
set var1 "{$path} [lrange $line 3 4]"
its for dzsbot
for banana u will figure it out if not the same