Thread: Newdir:
View Single Post
Old 09-02-2004, 05:52 AM  
jeza
Senior Member
 
jeza's Avatar
 
Join Date: May 2003
Posts: 530
Default

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]"
jeza is offline   Reply With Quote