compress.tcl

Location:

/packages/boomerang/www/sitewide-admin/compress.tcl

Author:

Gustaf Neumann

Created:

Jan 10, 2018

Related Files

• packages/boomerang/www/sitewide-admin/compress.tcl

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    @author Gustaf Neumann

    @creation-date Jan 10, 2018
} {
    {version:token,notnull ""}
}

set resource_prefix [acs_package_root_dir boomerang/www/resources]
set resource_info [::boomerang::resource_info -version $version]
set jsFile [lindex [dict get $version_info jsFiles] 0]
set plainFile $resource_prefix/$jsFile
set gzip [::util::which gzip]

if {$gzip ne ""} {
    ns_log notice "WANT TO COMPRESS <$resource_prefix> <$plainFile>"
    exec $gzip -9 -k $plainFile
}
ad_returnredirect .
ad_script_abort

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: