forked from hummypkg/webif
2f570f6ea0
git-svn-id: file:///root/webif/svn/humax/pkg/src/webif/trunk@1425 2a923420-c742-0410-a762-8d5b09965624
42 lines
947 B
Plaintext
Executable File
42 lines
947 B
Plaintext
Executable File
#!/mod/bin/jimsh
|
|
|
|
require system.class
|
|
|
|
proc dedupprocess {file} {{seen {}}} {
|
|
set ts [ts fetch $file 1]
|
|
|
|
if {[$ts flag "Deduped"]} {
|
|
# Fast track content which has already been de-duped.
|
|
set fn [file rootname [file tail $file]]
|
|
if {$fn in $seen} { set stat dup } else { set stat nothing }
|
|
lappend seen $fn
|
|
return [list $stat $ts "" $fn]
|
|
}
|
|
|
|
set dir [file dirname $file]
|
|
set base [file tail [file rootname $file]]
|
|
set syn [dedupnormalise [$ts get synopsis] [$ts get title]]
|
|
# Escape special characters to create the filename.
|
|
regsub -all -- {[\/ &]} $syn "_" fn
|
|
regsub -all -- {[?]} $fn "" fn
|
|
|
|
set stat ok
|
|
if {[$ts inuse]} {
|
|
set stat inuse
|
|
} elseif {$fn in $seen} {
|
|
set stat dup
|
|
} elseif {[string length $syn] > 40} {
|
|
set stat error
|
|
} elseif {$base eq $fn} {
|
|
set stat nothing
|
|
$ts set_deduped
|
|
} elseif {[file exists "$dir/$fn.ts"]} {
|
|
set stat preserve
|
|
}
|
|
|
|
lappend seen $fn
|
|
|
|
return [list $stat $ts $syn $fn]
|
|
}
|
|
|