# 
#
# Redirect to download files by URL
# enables WebDAV as well as just making it easier to download stuff
# @author Dave Bauer (dave@thedesignexperience.org)
# @creation-date 2003-10-19
# @cvs-id $Id: index.vuh,v 1.3 2005/05/26 08:28:46 maltes Exp $

set full_uri [ad_conn url]
set extra_uri [ad_conn path_info]
set root_folder [fs_get_root_folder]
set file_item_id [fs::get_item_id -name $extra_uri -folder_id $root_folder]
ns_log debug "File Storage index.vuh item_id=$file_item_id URL=[ad_conn url]"
if {[empty_string_p $file_item_id]} {
	ns_log debug "File Storage return not found"
	ns_return 404 text/plain "File Not Found"
	ad_script_abort
}
permission::require_permission \
    -object_id $file_item_id \
    -privilege read \
-party_id [ad_conn user_id]

set file_live_revision [item::get_live_revision $file_item_id]

cr_write_content -revision_id $file_live_revision