file-add-2.tcl

script to receive the new file and insert it into the database

Location:

/packages/attachments/www/file-add-2.tcl

Author:

Kevin Scaldeferri <kevin@arsdigita.com>

Created:

6 Nov 2000

CVS ID:

$Id: file-add-2.tcl,v 1.9.2.2 2022/09/06 07:40:52 antoniop Exp $

Related Files

• packages/attachments/www/file-add-2.tcl

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    script to receive the new file and insert it into the database

    @author Kevin Scaldeferri (kevin@arsdigita.com)
    @creation-date 6 Nov 2000
    @cvs-id $Id: file-add-2.tcl,v 1.9.2.2 2022/09/06 07:40:52 antoniop Exp $
} {
    folder_id:naturalnum,notnull
    upload_file:notnull,trim
    upload_file.tmpfile:tmpfile
    object_id:naturalnum,notnull
    return_url:localurl,notnull
    title:notnull,trim
    description
} -validate {
    valid_folder -requires {folder_id:integer} {
    if {![fs_folder_p $folder_id]} {
        ad_complain "[_ attachments.lt_The_specified_parent_]"
    }
    }

    max_size -requires {upload_file} {
    set n_bytes [file size ${upload_file.tmpfile}]
        set root_folder [attachments::get_root_folder]
        set fs_package_id [db_string get_fs_package_id {
            select package_id
            from fs_root_folders
            where folder_id=:root_folder
        }]
    set max_bytes [fs::max_upload_size -package_id $fs_package_id]
    if { $n_bytes > $max_bytes } {
            # Max number of bytes is used in the error message
            set max_number_of_bytes [lc_numeric $max_bytes]
        ad_complain "[_ attachments.lt_Your_file_is_larger_t]"
    }
    }
}

# Check for write permission on this folder
permission::require_permission -object_id $folder_id -privilege write

# Get the filename part of the upload file
if {![regexp {[^//\\]+$} $upload_file filename]} {
    # no match
    set filename $upload_file
}

set root_folder [attachments::get_root_folder]
set fs_package_id [db_string get_fs_package_id {
    select package_id
    from fs_root_folders
    where folder_id=:root_folder
}]

#db_transaction {
    set file_id [db_nextval "acs_object_id_seq"]
    fs::add_file \
            -name $upload_file \
            -item_id $file_id \
            -parent_id $folder_id \
            -tmp_filename ${upload_file.tmpfile}\
            -title $title \
            -description $description \
            -package_id $fs_package_id

    # attach the file_id
    attachments::attach -object_id $object_id -attachment_id $file_id

#} on_error {

    # most likely a duplicate name or a double click

#    set folder_url index?folder_id?$folder_id
#    ad_return_complaint 1 "[_ attachments.lt_You_probably_clicked_]"

#       ad_script_abort
#}


ad_returnredirect $return_url

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: