init-procs.tcl
Does not contain a contract.
- Location:
- /packages/openacs-bootstrap3-theme/tcl/init-procs.tcl
Related Files
[ hide source ] | [ make this the default ]
File Contents
namespace eval openacs_bootstrap3_theme { variable parameter_info set parameter_info { package_key openacs-bootstrap3-theme parameter_name BootstrapVersion default_value 3.4.1 } d_proc -private ::openacs_bootstrap3_theme::resource_info { {-version ""} } { Get information about available version(s) of the bootstrap packages. The goal is to deliver resources either from the local filesystem, or from CDN. @return dict containing resourceDir, resourceName, cdn, cdnHost, prefix, cssFiles, jsFiles and extraFiles. } { variable parameter_info if {$version eq ""} { dict with parameter_info { set version [::parameter::get_global_value \ -package_key $package_key \ -parameter $parameter_name \ -default $default_value] } } # # Provide paths for loading either via resources or CDN # set resourceDir [acs_package_root_dir openacs-bootstrap3-theme/www/resources/bootstrap] set cdn //maxcdn.bootstrapcdn.com/bootstrap if {[file exists $resourceDir/$version]} { set prefix /resources/openacs-bootstrap3-theme/bootstrap/$version set cdnHost "" set cspMap "" } else { set prefix $cdn/$version set cdnHost maxcdn.bootstrapcdn.com dict set cspMap urn:ad:css:bootstrap3 [subst { style-src $cdnHost font-src $cdnHost }] dict set cspMap urn:ad:js:bootstrap3 [subst { script-src $cdnHost }] } lappend result \ resourceName "Bootstrap 3" \ resourceDir $resourceDir \ cdn $cdn \ cdnHost $cdnHost \ prefix $prefix \ cssFiles {css/bootstrap.min.css} \ jsFiles {js/bootstrap.min.js} \ extraFiles { fonts/glyphicons-halflings-regular.woff fonts/glyphicons-halflings-regular.woff2 fonts/glyphicons-halflings-regular.ttf css/bootstrap.min.css.map } \ cspMap $cspMap \ urnMap { urn:ad:css:bootstrap3 css/bootstrap.min.css urn:ad:js:bootstrap3 js/bootstrap.min.js } \ vulnerabilityCheck {service snyk library bootstrap} \ configuredVersion $version return $result } } # Local variables: # mode: tcl # tcl-indent-level: 4 # indent-tabs-mode: nil # End: