# /packages/photo-album/www/images/index.vuh
# @author Tom Baginski, bags@arsdigita.com
# #cvs-id $Id: index.vuh,v 1.5 2013/10/14 17:56:30 gustafn Exp $
#
# serves images
#
# expecting a image_id as path_info

# wtem@olywa.net, 2001-09-24
# fully reworked

regexp {^([0-9]+)} [ad_conn path_info] match image_id

if {[parameter::get -parameter CheckPermissionOnImageServeP] == "t"} {
    permission::require_permission -object_id $image_id -privilege "read"
}

if {[catch {cr_write_content -revision_id $image_id} errMsg]} {
    if {$::errorCode eq "NOT_FOUND"} {
        ns_returnnotfound
        ad_script_abort
    }
    error $errMsg $::errorInfo $::errorCode
}