NEWDIR SCRIPT - site new/dupe/undupe with fast dupechecker

[Optixxx]

********************************************


Solved!!!

%[execute(TCL ..\scripts\newdir\newdir.itcl)(10 TOOLS)]

Thx,[unique] for chan-help

well done

Optixxx

[neoxed]

Originally posted by bounty
hi m8s

i would like to know if NEWDIR's users are interested if i try to add a dupecheck (files) in itcl for next rls ?

please let a feedback about this.

thx
bounty

Absolutely

[bounty]

here we go m8s

a new update of my newdir script

ofcoz DL link is on 1st post

have fun
bounty

PS: only 1 person want dupecheck ... so i added in my todo list but not hurry

[MadCowAss]

Good Job !!!
Even if it is a minor update, it's always good to see that a script is up to date

[NalgeNunc]

heya bounty,

good job with v2.4.

Theres one bug with OnPreStor & OnPreMkd which allows to create banned dirs/files when using Capitals.
Seems u forgot -nocase

Shouldnt it be like that in .itcl ?

if { [string match -nocase $line $dirname] == 1 }


Thanx for your script
Keep it Up

Cheers

[-=DoBBeR=-]

Originally posted by bounty
PS: only 1 person want dupecheck ... so i added in my todo list but not hurry

I wand dupecheck too hehe

[bounty]

bleh

[bounty]

Originally posted by -=DoBBeR=-
I wand dupecheck too hehe

eheh then you are already 2

i'll check what i can do for you

have fun
bounty

[Blackthunder]

<<3 peoples>>
GoGo dupecheck GoGo
*G*

[kraxdaz]

thx for all bounty it's a great script !

[fobban]

i just say, keep up the good work, awwweeeeeesome

[b>d>>s]

also, u dont need ==1 in

if { [string match -nocase $line $dirname] == 1 }

to,

if { [string match -nocase $line $dirname] }

will work fine

[bounty]

ehe oki it's noted

thx b>d>>s

[Lunatik]

Something has changed that causes newdir not work work properly. Posted is a fix for those who upgrade to 5.1.8 using newdir 2.4.

Stuff marked in bold is what needs to change.

In the file OnFtpNewDir.itcl:
OLD
# get release name
set num [string length $vpath]
set result [string last "/" $vpath $num]
set release [string range $vpath [expr $result + 1] end]
if { $release == "" } { return }

NEW
# get release name
set num [string length $vpath]
set ioresult[string last "/" $vpath $num]
set release [string range $vpath [expr $ioresult + 1] end]
if { $release == "" } { return }

In The File OnFtpDelDir.itcl
OLD
# get release name
set num [string length $vpath] ; incr num -2
set result [string last "/" $vpath $num]
set release [string range $vpath [expr $result + 1] end-1]
if { $release == "" } { return }

NEW
# get release name
set num [string length $vpath] ; incr num -2
set ioresult [string last "/" $vpath $num]
set release [string range $vpath [expr $ioresult + 1] end-1]
if { $release == "" } { return }

[NalgeNunc]

Something has changed that causes newdir not work work properly.

What exactly do you mean by not working properly?
Seems to work fine here on Win2k.

Edit: Have you changed this in ioFTPD.ini? Worker_Thread_Count = 10 # Number of worker threads


Have phun