#!/mod/bin/jimsh

package require cgi
source /mod/webif/lib/setup

httpheader

set dir [cgi_get dir]
set flag [cgi_get flag]
if {![file isdirectory $dir]} { exit }
if {[file exists "$dir/.$flag"]} {
	file delete "$dir/.$flag"
	puts "Unflagged directory as $flag."
} else {
	close [open "$dir/.$flag" w]
	puts "Flagged directory as $flag."
}