Commit 824cccfa authored by Frank Bergmann's avatar Frank Bergmann

- added ignore_p

parent 6236cc18
......@@ -8,6 +8,7 @@ ad_page_contract {
{ project_id:integer "" }
{ path ""}
{ name ""}
{ ignore_p 0}
}
set user_id [ad_conn user_id]
......@@ -15,13 +16,16 @@ set package_id [ad_conn package_id]
set package_id [db_string package "select min(package_id) from apm_packages where package_key = 'file-storage'" -default $package_id]
ns_log Notice "mkdir: path=$path, name=$name, project_id=$project_id"
# Just dry running?
if {$ignore_p} {
doc_return 200 "application/json" "{\"success\": true, \"message\": \"Request ignored.\", \"data\": {}}"
ad_script_abort
}
if {"" ne $project_id} {
set folder_id [im_rest_fs_folder_for_object -object_id $project_id]
}
set file_id [db_nextval "acs_object_id_seq"]
if {"" ne $name} { set path "$path/$name" }
set path_pieces [split $path "/"]
set parent_pieces [lrange $path_pieces 0 end-1]
......@@ -30,7 +34,7 @@ ns_log Notice "mkdir: path=$path, parent_pieces=$parent_pieces, folder_name=$fol
set parent_id [im_rest_fs_folder_for_path -object_id $project_id -path [join $parent_pieces "/"]]
if {"" eq $parent_id} {
doc_return 500 "text/plain" "Did not find path=$path for object_id=$object_id"
doc_return 200 "application/json" "{\"success\": false, \"message\": \"Did not find path=$path for project_id=$project_id.\", \"data\": {}}"
ad_script_abort
}
......@@ -48,6 +52,5 @@ db_string reg "select content_folder__register_content_type(:folder_id, 'file_st
db_string reg "select content_folder__register_content_type(:folder_id, 'content_extlink', true)"
doc_return 200 "text/plain" "project_id=$project_id, path=$path"
doc_return 200 "application/json" "{\"success\": true, \"message\": \"Path created.\", \"data\": {\"project_id\": $project_id, \"path\": \"$path\"}}"
ad_script_abort
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment