sweeper/webif/plugin/sweeper/test.jim

33 lines
477 B
Plaintext
Executable File

#!/mod/bin/jimsh
package require cgi
source /mod/webif/plugin/sweeper/harness.jim
httpheader
set dir [cgi_get dir ""]
set dryrun [cgi_get dryrun 1]
set cf "/tmp/sweepertest.cf"
set data [cgi_unquote_html [cgi_get data "-"]]
if {$data eq "-" || $data eq ""} {
puts "No data sent!"
exit
}
if {[catch {set fp [open $cf w]} msg]} {
puts "Error, $msg"
exit
}
$fp puts -nonewline $data
close $fp
set ::sweeper::dryrun $dryrun
::sweeper::apply $dir $cf
file delete $cf