Forum OpenACS Development: Extract files from the database

#
# @author Rocael Hernandez (mailto:roc@viaro.net)
# @creation-date 2004-09-02
# @arch-tag: ec90a7aa-1355-47a4-a3f1-36876faed57d
# @cvs-id $Id: move.tcl,v 1.1 2004/09/15 04:03:48 roc Exp $


db_foreach get_items {select item_id, revision_id from cr_revisions where item_id in (select item_id from cr_items where content_type = 'file_storage_object' and storage_type = 'lob')} {

    set file [ns_mktemp /tmp/fs-${revision_id}-XXXXXX]

    db_blob_get_file write_lob_content {
        select lob as content
        from cr_revisions
        where revision_id = :revision_id
    } -file $file


    db_transaction {
        set filename [cr_create_content_file $item_id $revision_id "$file"]
        db_dml set_file_content {
            update cr_revisions
            set content = :filename
            where revision_id = :revision_id
        }

        db_dml update_cr_item {
            update cr_items set storage_type = 'file' where item_id = :item_id
        }

        # now lets delete the lob file from the DB!
        db_dml update_cr_lob {
            update cr_revisions set lob = NULL where revision_id = :revision_id
        }
    }

ns_log notice "
--------------------------------------------------------------------------------
ROC debugging 
fiel = $file
revision_id = '${revision_id}'
filename = '${filename}'
item_id = '${item_id}' 
--------------------------------------------------------------------------------"


}