sweeper/webif/plugin/sweeper/save.jim

#!/mod/bin/jimsh

package require cgi
source /mod/webif/lib/setup
require system.class

httpheader

set act [cgi_get act "save"]

switch $act {
	raw {
		set val [cgi_get val 0]
		if {$val} {
			file touch /mod/webif/plugin/sweeper/.raw
		} else {
			file delete -force /mod/webif/plugin/sweeper/.raw
		}
		puts "Done."
		exit;
	}
}

set dir [cgi_get dir ""]
set root [system mediaroot]

if {$dir eq "" || $dir eq $root} {
	set cf "/mod/etc/sweeper.conf"
} else {
	set cf "$dir/.sweeper"
	if {![string match "$root/*/.sweeper" $cf]} {
		puts "Bad directory, $dir"
		exit
	}
}

set data [cgi_unquote_html [cgi_get data "-"]]

if {$data eq "-" || $data eq ""} {
	if {[file exists $cf]} { file delete $cf }
	puts "Configuration file $cf deleted successfully."
	exit
}

if {[catch {set fp [open $cf w]} msg]} {
	puts "Error, $msg"
} else {
	$fp puts -nonewline $data
	close $fp
	puts "Configuration file $cf saved successfully."
}