forked from hummypkg/webif
22 lines
404 B
Tcl
Executable File
22 lines
404 B
Tcl
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"
|
|
}
|
|
}
|
|
|