#!/usr/bin/tclsh

source common.tcl

#name of cgi script
set scr [file tail [file rootname $argv0]]

# take extension of 1st file found in content directory
set ext [file extension [lindex [glob -nocomplain $HTDOCS_PATH/$CONTDIR/$scr/*] 0]]


html_body

html_show $ext $scr $HTDOCS_PATH $CONTDIR 

html_end