Newdir:

[jeza]

can u add users tagline to ioFTPD.log on newdir created?

[tuff]

why not simply open the users userfile and read the tagline from the log details?

[jeza]

i was thinking about to have %tagline in dzsbot on newdir anounce
:)

[-=DoBBeR=-]

/me want that too =)

[bizniz]

just make your own putlog on post mkdir, like:

.ini

mkd = %TCL ..\scripts\newdir2.itcl {%[$unfo]}


.itcl

putlog "NEWDIR2: \"$user\" \"$group\" \"[lindex $args 1]\" \"$path\" \"[lindex $args 2]\""


then edit dzsbot, make it NEWDIR2:


set msgtypes(RACE) "IMDB NFOURL NFO NEWDATE WIPE NEWDIR2 DELDIR INCOMPLETE NUKE UNNUKE PRE WARN RACE SFV UPDATE HALFWAY NEWLEADER COMPLETE STATS"

set variables(NEWDIR2) "%pf %user %group %tagline"

set announce(NEWDIR2) "\[%section|NEW\]%path/%release -> %user(%group) => %tagline"




at a quick guess...

[jeza]

:D

tnx for the code

i know i can do it by myself. it was just an idea for darkone

[jeza]

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]"