#!/mod/bin/jimsh

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

puts "Content-Type: text/html"
puts ""

cgi_input
#cgi_dump

set slot [cgi_get slot 0]
set table [cgi_get table TBL_RESERVATION] 
set pre [cgi_get pre 120]
set post [cgi_get post 300]

set event [rsv slot $table $slot]

$event clear_ulslot
$event set_pad $pre $post
$event insert

system restartpending