Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
I
intranet-rest-fs-openacs
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
project-open
intranet-rest-fs-openacs
Commits
f48eb22c
Commit
f48eb22c
authored
Jan 15, 2019
by
Frank Bergmann
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
- WIP
parent
f7ace4ae
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
16 additions
and
15 deletions
+16
-15
intranet-rest-fs-openacs-create.sql
sql/postgresql/intranet-rest-fs-openacs-create.sql
+3
-0
upload.tcl
www/upload.tcl
+13
-15
No files found.
sql/postgresql/intranet-rest-fs-openacs-create.sql
View file @
f48eb22c
...
...
@@ -14,6 +14,9 @@
create
extension
pgcrypto
;
alter
table
fs_files
add
column
sha1
text
;
-----------------------------------------------------------
...
...
www/upload.tcl
View file @
f48eb22c
...
...
@@ -11,6 +11,9 @@ ad_page_contract {
upload_file.tmpfile:tmpfile,optional
{
title
""
}
{
description
"description"
}
{
creation_date
""
}
{
modification_date
""
}
{
sha1
""
}
}
set
user_id
[
ad_conn user_id
]
...
...
@@ -20,13 +23,10 @@ set package_id [db_string package "select min(package_id) from apm_packages wher
ns_log Notice
"upload: project_id=
$project
_id, path=
$path
, upload_file=
$upload
_file, tmp_file=
${upload_file.tmpfile}
"
set
ttt
{
set max_bytes
[
parameter::get -parameter
"MaximumFileSize"
]
if
{
$n
_bytes >
$max
_bytes
}
{
ad_return_complaint 1
"Your file is larger than the maximum file size allowed on this system (
[
util_commify_number
$max
_bytes
]
bytes)"
ad_script_abort
}
set
max_bytes
[
parameter::get_from_package_key -package_key
"file-storage"
-parameter
"MaximumFileSize"
]
if
{
$n
_bytes >
$max
_bytes
}
{
doc_return 507
"application/json"
"{success: false, message:
\"
File is larger than the maximum size (
$max
_bytes bytes) allowed on this server
\"
}"
ad_script_abort
}
set
folder_id
[
im_rest_fs_folder_for_path -object_id
$project
_id -path
$path
]
...
...
@@ -40,8 +40,8 @@ set mime_type [cr_filename_to_mime_type -create -- $upload_file]
set
file_id
[
db_nextval
"acs_object_id_seq"
]
ns_log Notice
"upload: folder_id=
$folder
_id, file_id=
$file
_id, mime_type=
$mime
_type"
if
{
1
}
{
fs::add_file
\
set
file_id
[
fs::add_file
\
-name
$upload
_file
\
-item_id
$file
_id
\
-parent_id
$folder
_id
\
...
...
@@ -51,14 +51,12 @@ if {1} {
-title
$upload
_file
\
-description
$description
\
-package_id
$package
_id
\
-mime_type
$mime
_type
}
file
delete
${upload_file.tmpfile}
-mime_type
$mime
_type
\
]
ns_log Notice
"upload: Finished"
file
delete
${upload_file.tmpfile}
doc_return 200
"
text/plain"
"project_id=
$project
_id, path=
$path
, file_id=
$file
_id, folder_id=
$folder
_id, upload_file=
$upload
_file, tmp_file=
${upload_file.tmpfile}
, cont=
"
doc_return 200
"
application/json"
"{success: true, message:
\"
Upload successful.
\"
, data: {id:
$file
_id}}
"
ad_script_abort
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment