hummypkg/webif
5
3
Fork 4
Code Issues Pull Requests Releases 1 Activity

more work on dedup

Browse Source 
git-svn-id: file:///root/webif/svn/humax/pkg/src/webif/trunk@440 2a923420-c742-0410-a762-8d5b09965624
This commit is contained in:
hummypkg 2011-10-04 20:02:59 +00:00
parent 761def1a24
commit 903a4453bb
1 changed files with 31 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
var/mongoose/cgi-bin/dedup.jim
View File

@ -28,9 +28,11 @@ puts "<fieldset style=\"display: inline\">
</tr> </tr>
" "
regsub -all -- {\/+} "$dir/*" "/" dir regsub -all -- {\/+} "$dir/*" "/" sdir
foreach file [lsort [glob -nocomplain "$dir"]] { set seen {}
foreach file [lsort [glob -nocomplain "$sdir"]] {
if {[file extension $file] ne ".hmt"} { continue } if {[file extension $file] ne ".hmt"} { continue }
altrow altrow
set ts [ts fetch $file 1] set ts [ts fetch $file 1]
@ -40,27 +42,45 @@ foreach file [lsort [glob -nocomplain "$dir"]] {
regsub -nocase -all -- {^new series\.* *} $syn "" syn regsub -nocase -all -- {^new series\.* *} $syn "" syn
regsub -all -- { *[:].*$} $syn "" syn regsub -all -- { *[:].*$} $syn "" syn
if {[string length $syn] > 40} { if {[string length $syn] > 40} {
regsub -all -- { *[\.].*$} $syn "" syn lassign [split $syn "."] v w
set syn $v
if {[string length $syn] < 6 && [string length $w] < 6} {
append syn "_$w"
}
} }
if {[string length $syn] < 6} { if {[string length $syn] < 10} {
append syn " [$ts get title]" if {[string match "${syn}*" [$ts get title]]} {
set syn [$ts get title]
} else {
append syn " [$ts get title]"
}
} }
regsub -all -- {[\/ &]} $syn "_" fn regsub -all -- {[\/ &]} $syn "_" fn
puts "<td>$fn</td>" puts "<td>$fn</td>"
puts "<td>$syn</td>" puts "<td>$syn</td>"
puts "<td>" puts "<td>"
if {[file exists "$dir/$fn.hmt"]} { if {$fn in $seen} {
puts "Duplicate" puts -nonewline "Duplicate"
if {$doit} {
set dupdir "$dir/_duplicates"
if {![file exists $dupdir]} { file mkdir $dupdir }
while {[file exists $dupdir/$fn.hmt]} {
append fn "~"
}
ts renamegroup $file "_duplicates/$fn"
puts -nonewline " - Renamed to _duplicates/$fn"
}
} elseif {[string length $syn] > 40} { } elseif {[string length $syn] > 40} {
puts "Cannot process" puts -nonewline "Cannot process"
} elseif {$base eq $fn} { } elseif {$base eq $fn} {
puts "Already done" puts -nonewline "Nothing to do"
} elseif {$doit} { } elseif {$doit} {
# Dooooo, it. # Dooooo, it.
$ts settitle $syn $ts settitle $syn
$ts renamegroup $file $fn ts renamegroup $file $fn
puts "Done" puts -nonewline "Done"
} }
lappend seen $fn
puts "</td>" puts "</td>"
puts "</tr>" puts "</tr>"