Index: openacs-4/packages/cookie-consent/www/sitewide-admin/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/cookie-consent/www/sitewide-admin/index.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/cookie-consent/www/sitewide-admin/index.tcl 17 Dec 2017 19:55:03 -0000 1.1 +++ openacs-4/packages/cookie-consent/www/sitewide-admin/index.tcl 22 Dec 2017 17:28:59 -0000 1.2 @@ -11,14 +11,27 @@ # set version_info [::cookieconsent::version_info] set first_css [lindex [dict get $version_info cssFiles] 0] +set cdn [dict get $version_info cdn] -if {[file exists $resource_prefix/$version/$first_css]} { - set resources $resource_prefix/$version +set writable 1 +if {![file isdirectory $resource_prefix]} { + try { + file mkdir $resource_prefix + } on error {errorMsg} { + set writable 0 + } } -set cdn [dict get $version_info cdn] -set path $resource_prefix/$version -if {![file exists $path]} { - catch {file mkdir $path} +if {$writable} { + if {[file exists $resource_prefix/$version/$first_css]} { + set resources $resource_prefix/$version + } + set path $resource_prefix/$version + if {![file exists $path]} { + catch {file mkdir $path} + } + set writable [file writable $path] +} else { + set path $resource_prefix } -set writable [file writable $path] +