CTS reloaded, i can post it?

[kiezz]

Hi
i've made a custom version of the cts script, i've made bug fix, added some important functions , but i can't find blisters (owner of first version).
I think this version can be usefull for someone but i prefer post it after asking the permission to blisters.
If someone on the scene know him please ask if he can pm me.
Tnx, NiK

[wooolF[RM]]

Prolly will give you a bit more feedback if you explain what the script does, purpose, maybe output of it etc... otherwise people are too lazy to even look it up :rolleyes:

[neoxed]

wooolF: http://www.ioftpd.com/scripts/script.php?id=94

[kiezz]

The first version of this script is already here but it seams the owner (Blisters) are not mantaining or something, and i can't find he anywhere.
I've made for my personal use a nice version of CTS, whit bug fix, better improvement for quota, something new giving more stability, ecc...
But before post it i will be pleased to speak whit Blisters , if someone know him....
Thanks
(sorry for bad english..)

[sburra]

kiezz

Blisters have taken a step down and stop working with CTS :/

He did start working with CTS for getting a script working on both glftpd and ioftpd sites with credits transfer and then it did get more functions after that.

To bad see you taking the glftpd part away :/

[djrob]

He's not online very much these days but contact me in #ioftpd and i'll see if i can get him for you :)

[timetwister01]

I made this little procedure to have ranking under CTS Reloaded... nothing perfect, but working :) Enjoy...

proc cts-quota:rank { nick uhost hand chan text } { global cts enabled
set us [lindex [split $text] 0]
cts-quota:save.quota $nick $uhost $hand $chan $text
set stats [readfile $cts(progdir)/cts/logs/cts.quota.now]
foreach line [split $stats '\n'] {
lappend lista [lindex [split $line '|'] 1]
}
set sorted [lsort -integer -decreasing [split $lista]]
set y 1
set z 1
set precelem 0
set prec "First!"
set diff 0
foreach element [split [lrange $sorted 0 100]] {
foreach line [split $stats '\n'] {
if { $element == "[lindex [split $line '|'] 1]" && $element != 0 } {
set login [lindex [split $line '|'] 0]
set diff [expr $precelem-$element+1]
if { [lindex [split $login '@'] 0] == $us && $y == 1 } {hubsend msg 5 $chan MSG "\0033\[\003RANKiNG\0033\]\003\00312:\003 \0033[b][u]$us[u][b]\003 you are the \0034FiRST\003 with [b]$element[b] mbs globally uploaded! Well done!"}
if { [lindex [split $login '@'] 0] == $us && $y != 1 } {hubsend msg 5 $chan MSG "\0033\[\003RANKiNG\0033\]\003\00312:\003 \0034(\003\00314$us\003\0034)\003, your position is \0034(\003\00314$y\003\0034)\003 with \0034(\003\00314$element\003\0034)\003 mbs globally uploaded. You need to up \0034(\003\00314$diff\003\0034)\003 mbs more to hook \0034(\003\00314$prec\003\0034)\003 and gain position \0034(\003\00314$z\003\0034)\003"}
set prec [lindex [split $login '@'] 0]
set precelem $element
set z $y
incr y
}
}
}
}

Add it under cts-quota.tcl :)
PS: Obviously is not PHP, just to have some colours :p

[kiezz]

Hi
nice job, i'm nearly ready for the new release. I've find more support and some thinks was not working proper on windows machine.
I'm on testing fase, so old on a bit and i will publish the new version.
For autodelete and some other stuff i'll wait maybe a 3.+ version, anyway for the 3.0 i've made some new stuff you will enjoy.
I hope the people enjoy and they will post me new ideas and stuff to add.
Bye

[foxmaster]

I just tested this scrip and WOW good job m8 :) one thing I miss is blowfish encryption,, are u going to implant it or... if not I will get right on trying to do it myself :)

Foxmaster

[ChipMunk666]

could this be upped in the script section?