check-installed.tcl
ADP include for checking if some resources are installed locally, and if not to provide the option to download these resources.
- Location:
- /packages/acs-tcl/lib/check-installed.tcl
- Author:
- Gustaf Neumann
Related Files
[ hide source ] | [ make this the default ]
File Contents
ad_include_contract { ADP include for checking if some resources are installed locally, and if not to provide the option to download these resources. @param resource_info dict containing at least resourceDir and cdn @param version version of the package @param download_url url for downloading the resource @author Gustaf Neumann } { {resource_info} {version ""} {download_url "download"} } set resource_dir [dict get $resource_info resourceDir] set cdn [dict get $resource_info cdn] set resource_name [dict get $resource_info resourceName] set version_dir [expr { [dict exists $resource_info versionDir] ? [dict get $resource_info versionDir] : $version }] if {[dict exists $resource_info versionCheckURL]} { set versionCheckURL [dict get $resource_info versionCheckURL] } # # Check, if the resources are already installed. # set is_installed [::util::resources::is_installed_locally \ -resource_info $resource_info \ -version_dir $version_dir ] if {$is_installed} { # # Tell the users, where the resources are installed. # set resources $resource_dir/$version_dir } else { # # Check, if we can install the resources locally. # set writable [util::resources::can_install_locally \ -resource_info $resource_info \ -version_dir $version_dir] if {!$writable} { # # If we cannot install locally, tell the user were we want to # install. # set path $resource_dir/$version } } # Local variables: # mode: tcl # tcl-indent-level: 4 # indent-tabs-mode: nil # End: