sweeper/webif/plugin/sweeper/test.jim

#!/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