web/src/cgi.tcl-1.10/pkgcreate


1
2
3
4
5
6
7
8
9

#!/depot/path/tclsh
# allow for earlier versions of Tcl that don't define pkg_mkIndex
if {[catch {pkg_mkIndex . cgi.tcl}]} {
    set f [open pkgIndex.tcl w]
    puts $f "error \"please rebuild cgi.tcl with a modern version of Tcl (for package support)\""
    close $f
}