[Pretone]

just check more time but I don't see nothing of incorect

this itcl file

################################################## ###############################
# NFO URL v 2.2.2 by B0unTy For dZSbot.tcl & ioFTPD community #
################################################## ###############################

## setup here all dirs/paths you want to hide from nfo announces
set hidden "*/admin/* */group/* */_pre/* */cd* /___egg/* /___ioFTPD/*"

################################################## ###############################
# !!! DO NOT CHANGE THIS BELOW !!! !!! DO NOT CHANGE THIS BELOW !!! #
################################################## ###############################
if { ! [file exists ../logs/nfos.log] } { set newid [open ../logs/nfos.log a] ; close $newid }

proc proc_nfourl {} {
global args hidden user group
set vpath [lindex $args 2]
set ppath [resolve pwd [lindex $args 2]]
regsub {(/[\w\(\).-]+)$} $ppath {} ppath2
set cnt 0
# deny check
foreach deny $hidden {
if { [string match -nocase $deny $vpath] != 0 } { return }
}
# read nfo file
if { [string match -nocase "*.nfo" $vpath] == 1 } {
# write to nfos.log
set fileid [open ../logs/nfos.log a]
puts $fileid "$ppath"
close $fileid
set tempfile [open $ppath r]
set nfofile [read $tempfile]
close $tempfile
# new or old imdb url
if [regexp {title/tt[0-9]+} $nfofile result1] {
set result1 "http://207.171.166.140/$result1/"
incr cnt
} elseif [regexp {Title\?[0-9]+} $nfofile result2] {
set result2 [string range $result2 6 end]
set result2 "http://207.171.166.140/title/tt$result2/"
incr cnt 2
}
# allocine.fr url
if [regexp {fichefilm_gen_cfilm=[0-9]+.html} $nfofile result3] {
set result3 "http://www.allocine.fr/film/$result3"
incr cnt 4
}
# write to ioFTPD.log
if { $cnt == 1 } {
putlog "IMDB: \"$vpath\" \"$result1\" \"$user\" \"$group\" \"$ppath2\""
return
}
if { $cnt == 2 } {
putlog "IMDB: \"$vpath\" \"$result2\" \"$user\" \"$group\" \"$ppath2\""
return
}
if { $cnt == 4 } {
putlog "ALLOCINE: \"$vpath\" \"$result3\" \"$user\" \"$group\" \"$ppath2\""
return
}
if { $cnt == 5 } {
putlog "ALLOCINE: \"$vpath\" \"$result3\" \"$user\" \"$group\" \"$ppath2\""
putlog "IMDB: \"$vpath\" \"$result1\" \"$user\" \"$group\" \"$ppath2\""
return
}
if { $cnt == 6 } {
putlog "ALLOCINE: \"$vpath\" \"$result3\" \"$user\" \"$group\" \"$ppath2\""
putlog "IMDB: \"$vpath\" \"$result2\" \"$user\" \"$group\" \"$ppath2\""
return
}
if { $cnt == 0 } {
if [regexp {http://[^\s]+} $nfofile result4] {
putlog "NFOURL: \"$vpath\" \"$result4\" \"$user\" \"$group\" \"$ppath2\""
} else {
putlog "NFO: \"$vpath\" \"none\" \"$user\" \"$group\" \"$ppath2\""
}
return
}
}
}

proc_nfourl

##### GLOBAL NEWDIR 3.5.2 INI #####
# setup here the path of log
set ND_IOLOG "../logs"

# setup here the path of newdir
# don't forget to setup bandir.cfg & banfile.cfg
set ND_PATH "../scripts/newdir"

# setup here your VFS sections (except hidden sections like PRE)
set ND_SECTIONS "APPZ 0day Request PS2 GAMES"

# setup here the addons you want use or not
# 0=enabled 1=disabled (default=0)
set ND_DISABLE(bandir) 0 ; # ban unwanted dirs
set ND_DISABLE(banfile) 0 ; # ban unwanted files
set ND_DISABLE(dupedir) 0 ; # dupecheck dirs
set ND_DISABLE(dupefile) 0 ; # dupecheck files
set ND_DISABLE(symlink) 0 ; # latest race/pre symlinks in root
set ND_DISABLE(nfourl) 0 ; # parse .nfo for imdb/allocine/urls on PRE
set ND_DISABLE(cache) 0 ; # Directory Cache Refreshing by Tuff

# setup here the paths masks (or dirs masks) you don't want to be logged in newdir.log
set ND_NOLOG(ND) ""

# setup here the paths masks (or dirs masks) you don't want to be logged in dupedir.log
set ND_NOLOG(DIRS) ""

# setup here all paths masks (or file-extension masks) you don't want to be logged in dupefile.log
set ND_NOLOG(FILES) "*.nfo"

# setup here all paths mask you want NO DUPECHECK/BANS UNDER THESE PATHS
set ND_NODUPECHECK "*/admin/* */request/*"

# Set this to 0 if you want to allow MKD/STOR in ROOT DIR
# set this to 1 if you want to deny MKD/STOR in ROOT DIR (Default)
set ND_NoRoot 1

##### OnSitePre #####
# setup here all your PRE sections !!! case sensitive !!!
# sections syntax: pretype:section:/VFS/PATH/ <----- vfs path must be finished by a "/"
# | | |
# | | |______________ vfs path with dates (must be identical than ioA PRE <vfs path>). Check syntax below
# | |______________________ name of section logged in newdir.log (respect the case you used for ND_SECTIONS)
# |______________________________ pretype used in ioA (respect the case you used in ioA)
#
# !!! datemask in 'ioA PRE <vfs path>' have a different syntax than TCL (case sensitive) !!!
# TCL syntax: day=%d ioA syntax: day=%D
# week=%W week=%W
# month=%m month=%M
# year(2digits)=%y year(2digits)=%y
# year(4digits)=%Y year(4digits)=%Y
#
# !!! DON'T USE SPACE IN VFS PATH OR DATEMASK !!! You can use - or .
set ND_PRE_SECTIONS "appz:APPZS:/APPZ/ 0day:0DAY:/0day/%m%d/ request:REQUEST:/Request/ ps2:PS2:/PS2/ games:GAMES:/GAMES/"

##### OnSiteUnnuke #####
# !!! WARNING !!!
# the good work of this script depend of the length of the Nuke_Header in ioA
# the default ioA Nuke_Header is: [Nuked]-
# define here the ioA Nuke_Header you use !! don't remove {} !!
set IOA_NUKE_TAG {[Nuked]-}
# so the ioA_Nuke_Length should be set to 8 chars
set IOA_NUKE_LENGTH 8

##### OnSiteWipe #####
# EXPERIMENTAL substrings path for ppl who need it (README-1ST.TXT exemple 2)
# if you use exemple 2: set ND_SUBSTRINGS "/INCOMING /ARCHIVES"
# if you use exemple 1 & /ARCHIVES dir : set ND_SUBSTRINGS "/ARCHIVES"
set ND_SUBSTRINGS ""