idea for new lovely itcl script

[oldhouse80]

Hi. i begin saying that i don't know anything about itcl scripting but i hope someone of u can code a script like this, that i have found on a site that i visited.
Here i'm going to explain:
i tried to download a file that was just upped and i got this message

500- - Please try again later Mr Leecher!
500- - Files which are on the server less then 5 minutes
500- -Are not allowed to be downloaded.

I was wondering if u can code a script like this, maybe allowing 2 options:
1) download forbidden for each file with a time limit set by the user.
2) download forbidden untill release is completed.

What do u think of it? I already suggested this in irc and it seems really appreciated, but maybe that not all coders were there to begin working :P

[neoxed]

This could be easily coded in TCL but specific for each ZS (For the complete part).

But my question is, why?

Is there any good reason for this script?

[oldhouse80]

Basically to prevent traders from taking useful bw during races.
I can't deluser all of them :P

[-=DoBBeR=-]

Originally posted by oldhouse
Basically to prevent traders from taking useful bw during races.
I can't deluser all of them :P

why not? :D

[darkone]

Originally posted by NeoXed
This could be easily coded in TCL but specific for each ZS (For the complete part).

But my question is, why?

Is there any good reason for this script?

Compare directory modification time in incoming directories, against the timelimit.

[b>d>>s]

yeh, just put on [pre] RETR if {[file ...blah age is less than five]} {global ioerror ; set ioerror 2 ; return}


somit like that anyway :/

[noob]

yes, such a script would be very useful

[MaistroX]

a script like that could be very usefull :)

[oldhouse80]

Now that requests section is open maybe someone could plz work on this? :D
Thx in advance if u spend some time on this

[cez]

Think this should work for ya. Blocks file for x seconds after upload.

[SomeoneWhoCares_2]

:eek:

[SomeoneWhoCares_2]

# minumum age (in minutes) a file must have before a user with ratio 0 can download it
set antileech(minage) "60"
# activate this feature
set antileech(ageON) "1"

# complete tag
set antileech(dirtag) "* COMPLET*"
# deny leech users from leeching incomplete releases
set antileech(compON) "1"

# no checks on these dirs
set antileech(****off) {
"Codec"
"Covers"
"Subs"
"Sample"
"Subpack"
"Subtitle"
"VobSubs"
"EXTRAS"
}

# no checks for these file types
set antileech(yesucan) ".nfo .m3u .sfv .txt .jpg .mpg .mpeg .avi"

[FTP_Pre-Command_Events]
retr = TCL ..\scripts\idonthinkso.itcl

[typhon|wk]

# minumum age (in minutes) a file must have before a user with ratio 0 can download it
set antileech(minage) "60"
# activate this feature
set antileech(ageON) "1"

great, but is better include a check on groups too

all siteops are on ratio 0 :)

thx

[SomeoneWhoCares_2]

yaya. thought about exempt flags only after i posted it.. here is the version u want..

:confused:

[typhon|wk]

Nice thx :)

[oldhouse80]

Thx for help man. Really good work