download.tcl

Location:

/packages/xowiki/www/sitewide-admin/download.tcl

Author:

Gustaf Neumann

Created:

Jan 04, 2017

Related Files

• packages/xowiki/www/sitewide-admin/download.tcl

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    @author Gustaf Neumann

    @creation-date Jan 04, 2017
} {
    {lib:token,notnull ""}
    {version:token,notnull ""}
}

set resource_info [::xowiki::${lib}::resource_info -version $version]
set resourceDir [dict get $resource_info resourceDir]
file mkdir $resourceDir/$version

if {![file writable $resourceDir/$version]} {
    error "directory $resourceDir/$version is not writable"
}

::util::resources::download -resource_info $resource_info

# foreach url [dict get $resource_info downloadURLs] {
#     set fn [file tail $url]
#     set output [exec $unzip -o $resourceDir/$version/$fn -d $resourceDir/$version]
#     file rename -- \
#                 $resourceDir/$version/ckeditor \
#                 $resourceDir/$version/$ck_package
# }

ad_returnredirect .

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