get-binary-data.tcl

# This file retrieves attached data (spits back the blob.)

Location:

/packages/wp-slim/www/get-binary-data.tcl

Author:

Paul Konigsberg <paulk@arsdigita.com>

Created:

Fri Dec 1 11:44:10 2000

CVS ID:

$Id: get-binary-data.tcl,v 1.6 2004/12/21 22:06:47 miguelm Exp $

Related Files

• packages/wp-slim/www/get-binary-data.tcl

[ hide source ] | [ make this the default ]

File Contents

# /packages/wp/www/get-binary-data.tcl
ad_page_contract {
     
    # This file retrieves attached data (spits back the blob.)
    @author Paul Konigsberg (paulk@arsdigita.com)   
    @creation-date Fri Dec  1 11:44:10 2000
    @cvs-id $Id: get-binary-data.tcl,v 1.6 2004/12/21 22:06:47 miguelm Exp $
} {
}

# Someday when attachments are in the content repository, you can use the 
# content repository's methods of spitting back blobs....that would be good 
# cause the content repository would automatically know what kind of mime type
# to put on...and it would get the latest version of an attachment.

# serve content. I wonder what is "the content repository's methods of spitting back blobs".
# Does it exist at all?

# DRB: it didn't exist when you asked the question but it does now!

set url [ad_conn url]

if {![regexp {attach/([0-9]+)/(.*)} $url match attach_id file_name]} {
    ns_log notice "Could not get a pres_item_id and slide_item_id out of url=$url"
    ad_return_error "[_ wp-slim.Wimpy_Point]" "[_ wp-slim.lt_Could_not_get_a_pres_]"
}

cr_write_content -revision_id $attach_id