ad_page_contract { Page to upload and decompress a zip file into the file storage. @author Kevin Scaldeferri (kevin@arsdigita.com) @creation-date 6 Nov 2000 @cvs-id $Id: folder-zip-add.tcl,v 1.14 2019/02/06 19:36:00 hectorr Exp $ } { file_id:naturalnum,optional,notnull {folder_id:naturalnum,notnull ""} upload_file:trim,optional,notnull {return_url:localurl ""} upload_file.tmpfile:tmpfile,optional {title ""} {lock_title_p:boolean 0} } -properties { folder_id:onevalue context:onevalue title:onevalue lock_title_p:onevalue } -validate { file_id_or_folder_id { # # Get parent folder_id from file_id, if such exists and folder_id is # empty, and complain if the resultant folder is not valid. # if {[info exists file_id] && $file_id ne "" && $folder_id eq ""} { set folder_id [db_string get_folder_id { select parent_id as folder_id from cr_items where item_id=:file_id } -default ""] } if {$folder_id eq "" || ![fs_folder_p $folder_id]} { ad_complain "The specified parent folder is not valid." } } max_size -requires {upload_file} { # # Check if the file is larger than fs::max_upload_size. # set n_bytes [file size ${upload_file.tmpfile}] set max_bytes [fs::max_upload_size] if { $n_bytes > $max_bytes } { ad_complain "Your file is larger than the maximum file size allowed on this system ([util_commify_number $max_bytes] bytes)" } } } set user_id [ad_conn user_id] set package_id [ad_conn package_id] set creation_ip [ad_conn peeraddr] # Check for write permission on the folder. permission::require_permission \ -object_id $folder_id \ -party_id $user_id \ -privilege "write" if {![ad_form_new_p -key file_id]} { # # Check for write permission on the file if we are editing existing data, # adding a file revision in this case, and set the context bar accordingly. # permission::require_permission \ -object_id $file_id \ -party_id $user_id \ -privilege "write" set context [fs_context_bar_list -final "[_ file-storage.Add_Revision]" $folder_id] } else { set context [fs_context_bar_list -final "[_ file-storage.Add_File]" $folder_id] } # Add file_id and upload_file to the form. ad_form -name file_add -html { enctype multipart/form-data } -export { folder_id lock_title_p } -form { file_id:key {upload_file:file {label \#file-storage.Upload_a_file\#} {html "size 30"}} } # Add return_url to the form if is not empty. if {$return_url ne ""} { ad_form -extend -name file_add -form { {return_url:text(hidden) {value $return_url}} } } # 'Lock' title if lock_title_p. if {$lock_title_p} { ad_form -extend -name file_add -form { {title:text(hidden) {value $title}} } } else { ad_form -extend -name file_add -form { {title:text {label \#file-storage.Title\#} {html {size 30}} } } } # Add an explanation about the purpose of the form. if {[ad_form_new_p -key file_id]} { ad_form -extend -name file_add -form { {unpack_message:text(inform) {label "[_ file-storage.Important]"} {value "[_ file-storage.Use_this_form_to_upload_a_ZIP]"}} } } # Rest of the form. ad_form -extend -name file_add -form {} -new_data { # # new_data block, which unzips the file and uploads its contents to the file # storage, creating the necessary folders. # # Start defining the title if it does not exist already. # if {$title eq ""} { set title [file rootname [list [template::util::file::get_property filename $upload_file]]] } # # Create a new folder to hold the zip contents, if it does not exist already. # set parent_folder_id $folder_id set folder_id [content::item::get_id_by_name -name $title -parent_id $parent_folder_id] if {$folder_id eq ""} { set folder_id [content::folder::new -name $title -parent_id $parent_folder_id -label $title] } # # Uncompress the file. # set unzip_binary [string trim [parameter::get -parameter UnzipBinary]] if { $unzip_binary ne "" } { # # Create temp directory to unzip. # set unzip_path [ad_tmpnam] file mkdir $unzip_path # # Unzip. # # More flexible parameter design could be: # zip {unzip -jd {out_path} {in_file}} tar {tar xf {in_file} {out_path}} tgz {tar xzf {in_file} {out_path}} # # save paths! get rid of -j switch --DAVEB 20050628 # catch { exec $unzip_binary -d $unzip_path ${upload_file.tmpfile} } errmsg # # Get two lists of the files to upload, with and without their full path. # set upload_files [list] set upload_tmpfiles [list] foreach file [ad_find_all_files "$unzip_path"] { lappend upload_files [regsub "^$unzip_path\/" $file {}] lappend upload_tmpfiles $file } } else { # # No unzip available, just upload the whole zip file. # set upload_files [list [template::util::file::get_property filename $upload_file]] set upload_tmpfiles [list [template::util::file::get_property tmp_filename $upload_file]] } set number_upload_files [llength $upload_files] # # Something is quite broken if there are no files to upload. # if {$number_upload_files == 0} { ad_return_complaint 1 "