b2c7be03a4
git-svn-id: file:///root/webif/svn/humax/pkg/src/webif/trunk@1445 2a923420-c742-0410-a762-8d5b09965624
22 lines
398 B
Plaintext
Executable File
22 lines
398 B
Plaintext
Executable File
#!/mod/bin/jimsh
|
|
|
|
package require cgi
|
|
source /mod/webif/lib/setup
|
|
require ts.class
|
|
|
|
httpheader
|
|
|
|
set rfile [cgi_get file]
|
|
set s [cgi_get s 0]
|
|
set e [cgi_get e $($s + 2)]
|
|
set i [expr [cgi_get i 0.5] + 0.0]
|
|
|
|
if {![catch {set ts [ts fetch $rfile]}]} {
|
|
$ts cleanbmp
|
|
for {set n [expr $s + 0.0]} {$n <= $e} {set n [expr $n + $i]} {
|
|
puts "Generating thumbnail for pos $n"
|
|
$ts mkbmp $n ".pos$n"
|
|
}
|
|
}
|
|
|