#!/mod/bin/jimsh

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

httpheader

set slots [cgi_get slot 0]
set table [cgi_get table TBL_RESERVATION] 

foreach slot [split $slots ","] {
	set event [rsv slot $table $slot]

	if {$table eq "pending"} {
		$event remove_pending
		continue
	}

	$event clear_ulslot
	$event set_delete
	puts [$event insert pending 0 1]
}

rsv commit
system restartpending

