if {![exists -proc require]} { proc require {args} {{done {}}} { foreach file $args { if {$file ni $done} { uplevel source "/mod/webif/lib/$file" lappend done $file } } } proc httpheader {{type "text/html"} {cache 0} {extra ""}} {{done 0}} { if {$done} return if {!$cache} { puts -nonewline "Content-Type: $type; charset=\"UTF-8\"; no-cache\r\n" puts -nonewline "Expires: -1\r\n" puts -nonewline "Pragma: no-cache\r\n" puts -nonewline "Cache-Control: no-cache\r\n" } else { puts -nonewline "Content-Type: $type; charset=\"UTF-8\"\r\n" } if {$extra ne ""} { puts -nonewline "$extra" } puts -nonewline "\r\n" set done 1 } proc header {{type "text/html"} {cache 0}} { httpheader $type $cache uplevel source /mod/webif/html/lib/header.jim } proc footer {} { uplevel source /mod/webif/html/lib/footer.jim } proc mheader {} { uplevel source /mod/webif/html/m/lib/header.jim } proc mfooter {} { uplevel source /mod/webif/html/m/lib/footer.jim } proc jqplugin {name} {{done {}}} { if {$name in $done} return lappend done $name foreach file [glob "/mod/webif/html/lib/jquery.$name/*.js"] { set file [join [lrange [split $file /] 4 end] /] puts "" } foreach file [glob "/mod/webif/html/lib/jquery.$name/*.css"] { set file [join [lrange [split $file /] 4 end] /] puts "" } } require fileops overrides }