image::imagmagick_identify (public)

image::imagmagick_identify [ -filename filename ]

Defined in packages/acs-content-repository/tcl/image-procs.tcl

Get width height and mime type from imagemagick

Switches:

-filename (optional)

Full path to an image file in the filesystem

Returns:

List of width height mime_type

Author:

Dave Bauer <dave@solutiongrove.com>

Created:

2006-08-27

Source code:

    image::imagmagick_identify__arg_parser

    if { [ catch {set out [exec [parameter::get -parameter ImageMagickPath]/identify -format "%w %h %m %k %q %#" $file]} errMsg]} { 
        return -code error $errMsg
    }            
    foreach {width height type} [split $out { }] {}
    switch $type { 
        JPG - JPEG {
            set mime_type image/jpeg
        } 
        GIF - GIF87 { 
            set mime_type image/gif
        } 
        PNG { 
            set mime_type image/png
        } 
        TIF - TIFF { 
            set mime_type image/tiff
        }
        default { 
            set mime_type {} 
        }
    }
    return [list $width $height $mime_type]

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

<?xml version="1.0"?> <!DOCTYPE queryset PUBLIC "-//OpenACS//DTD XQL 1.0//EN" "http://www.thecodemill.biz/repository/xql.dtd"> <!-- --> <!-- @author Dave Bauer (dave@thedesignexperience.org) --> <!-- @creation-date 2006-08-29 --> <!-- @arch-tag: 47baf88a-8fad-43bc-8b02-059315c80e00 --> <!-- @cvs-id $Id --> <queryset> <fullquery name="image::get_resized_item_id.get_resized_item_id"> <querytext> select child_id from cr_child_rels where parent_id=:item_id and relation_tag = 'image-' || :size_name </querytext> </fullquery> </queryset>