f668602000-03-02Martin Nilsson // This is a roxen module. Copyright © 1999 - 2000, Roxen IS.
2e0a351999-12-09Martin Nilsson //
37bdda1999-05-18Per Hedbor #include <module.h> inherit "module";
3b85e91999-11-15Per Hedbor constant thread_safe=1;
37bdda1999-05-18Per Hedbor  roxen.ImageCache the_cache;
0916cf2001-03-30Johan Sundström constant cvs_version = "$Id: cimg.pike,v 1.39 2001/03/30 11:35:46 jhs Exp $";
b3281f2000-09-10Martin Nilsson constant module_type = MODULE_TAG;
c043f82000-02-10Martin Nilsson constant module_name = "Image converter";
7390582000-06-01Martin Nilsson constant module_doc = "Provides the tag <tt>&lt;cimg&gt;</tt> that can be used " "to convert images between different image formats.";
2fafd22000-05-18Kenneth Johansson 
7390582000-06-01Martin Nilsson mapping tagdocumentation() { Stdio.File file=Stdio.File(); if(!file->open(__FILE__,"r")) return 0; mapping doc=compile_string("#define manual\n"+file->read())->tagdoc;
1ed9052001-03-12Johan Sundström  foreach(({ "cimg", "cimg-url" }), string tag) doc[tag] += the_cache->documentation(tag + " src='/internal-roxen-testimage'");
7390582000-06-01Martin Nilsson  return doc; }
2fafd22000-05-18Kenneth Johansson 
7390582000-06-01Martin Nilsson #ifdef manual
f50e932000-11-10Kenneth Johansson constant tagdoc=(["cimg":#"<desc tag='tag'><p><short> Manipulates and converts images between different image formats.</short> Provides the tag <tag>cimg</tag> that makes it is possible to convert, resize, crop and in other ways transform images.</p> </desc>
2fafd22000-05-18Kenneth Johansson 
f50e932000-11-10Kenneth Johansson <attr name='src' value='uri' required='required'><p> The path to the indata file.</p>
2fafd22000-05-18Kenneth Johansson 
1ed9052001-03-12Johan Sundström <ex><cimg src='/internal-roxen-testimage'/></ex>
2fafd22000-05-18Kenneth Johansson </attr>
f50e932000-11-10Kenneth Johansson <attr name='data' value='imagedata'><p>
2fafd22000-05-18Kenneth Johansson  Insert images from other sources, e.g. databases through entities or
f50e932000-11-10Kenneth Johansson  variables.</p>
2fafd22000-05-18Kenneth Johansson <ex type='box'>
2fa8d52000-06-02Martin Nilsson <emit source='sql' query='select imagedata from images where id=37'>
8147d02000-10-26Kenneth Johansson <cimg data='&sql.imagedata;'/>
2fa8d52000-06-02Martin Nilsson </emit>
2fafd22000-05-18Kenneth Johansson </ex>
7390582000-06-01Martin Nilsson </attr>",
2fafd22000-05-18Kenneth Johansson 
f50e932000-11-10Kenneth Johansson "cimg-url":#"<desc tag='tag'><p><short> This tag generates an URI to the manipulated picture.</short> <tag>cimg-url</tag> takes the same attributes as <xref href='cimg.tag' />, including the image cache attributes. The use for the tag is to insert image-URI's into various places, e.g. a submit-box.</p>
2fafd22000-05-18Kenneth Johansson </desc>
f50e932000-11-10Kenneth Johansson <attr name='src' value='uri' required='required'><p> The path to the indata file.</p>
2fafd22000-05-18Kenneth Johansson 
1ed9052001-03-12Johan Sundström <ex><cimg-url src='/internal-roxen-testimage'/></ex>
2fafd22000-05-18Kenneth Johansson </attr>
f50e932000-11-10Kenneth Johansson <attr name='data' value='imagedata'><p>
2fafd22000-05-18Kenneth Johansson  Insert images from other sources, e.g. databases through entities or
f50e932000-11-10Kenneth Johansson  variables.</p>
2fafd22000-05-18Kenneth Johansson <ex type='box'>
2fa8d52000-06-02Martin Nilsson <emit source='sql' query='select imagedata from images where id=37'>
1ed9052001-03-12Johan Sundström <cimg-url data='&sql.imagedata;'/>
2fa8d52000-06-02Martin Nilsson </emit>
2fafd22000-05-18Kenneth Johansson </ex>
7390582000-06-01Martin Nilsson </attr>",
0783ea2000-08-29Kenneth Johansson 
f50e932000-11-10Kenneth Johansson "emit#cimg":({ #"<desc plugin='plugin'><p><short>
70d0782000-11-19Kenneth Johansson  Entitybased version of <xref href='../graphics/cimg.tag' />.</short> Takes the same attributes as <tag>cimg</tag>.</p>
0783ea2000-08-29Kenneth Johansson </desc>", ([
f50e932000-11-10Kenneth Johansson "&_.type;":#"<desc ent='ent'><p> Returns the image's content-type.</p>
0783ea2000-08-29Kenneth Johansson </desc>",
f50e932000-11-10Kenneth Johansson "&_.src;":#"<desc ent='ent'><p> Returns the path to the indata file.</p>
0783ea2000-08-29Kenneth Johansson </desc>",
f50e932000-11-10Kenneth Johansson "&_.file-size;":#"<desc ent='ent'><p> Returns the image's file size.</p>
0783ea2000-08-29Kenneth Johansson </desc>",
f50e932000-11-10Kenneth Johansson "&_.xsize;":#"<desc ent='ent'><p> Returns the width of the image.</p>
0783ea2000-08-29Kenneth Johansson </desc>",
f50e932000-11-10Kenneth Johansson "&_.ysize;":#"<desc ent='ent'><p> Returns the height of the image.</p>
0783ea2000-08-29Kenneth Johansson </desc>",
f50e932000-11-10Kenneth Johansson "&_.data;":#"<desc ent='ent'><p>
08b5672000-09-19Kenneth Johansson  Returns the imagedata given through other sources, like databases
f50e932000-11-10Kenneth Johansson  through entities.</p>
0783ea2000-08-29Kenneth Johansson </desc>" ]) }),
7390582000-06-01Martin Nilsson ]);
2e0a351999-12-09Martin Nilsson #endif
0916cf2001-03-30Johan Sundström void create() { defvar("ext", Variable.Flag(0, VAR_MORE, "Append format to generated images", "Append the image format (.gif, .png, " ".jpg, etc) to the generated images. " "This is not necessary, but might seem " "nicer, especially to people who try " "to mirror your site.")); }
7390582000-06-01Martin Nilsson 
37bdda1999-05-18Per Hedbor void start() { the_cache = roxen.ImageCache( "cimg", generate_image ); }
2fa8d52000-06-02Martin Nilsson mapping(string:function) query_action_buttons() {
5f13d52000-06-03Martin Nilsson  return ([ "Clear cache":flush_cache ]); } void flush_cache() { the_cache->flush();
2fa8d52000-06-02Martin Nilsson } string status() { array s=the_cache->status(); return sprintf("<b>Images in cache:</b> %d images<br />\n<b>Cache size:</b> %s", s[0]/2, Roxen.sizetostring(s[1])); }
37bdda1999-05-18Per Hedbor mapping generate_image( mapping args, RequestID id ) {
34a9b81999-08-06Peter Bortas  if( args->data ) return roxen.low_decode_image( args->data ); else return roxen.low_load_image( args->src, id );
37bdda1999-05-18Per Hedbor } mapping find_internal( string f, RequestID id ) {
0916cf2001-03-30Johan Sundström  if(strlen(f)>4 && query("ext") && f[-4]=='.') // Remove .ext f = f[..strlen(f)-5];
37bdda1999-05-18Per Hedbor  return the_cache->http_file_answer( f, id ); }
2fa8d52000-06-02Martin Nilsson mapping get_my_args( mapping args, RequestID id )
37bdda1999-05-18Per Hedbor {
36eceb2000-01-30Per Hedbor  mapping a= ([
37bdda1999-05-18Per Hedbor  "quant":args->quant,
77926b2000-04-11Per Hedbor  "crop":args->crop,
c526921999-05-18Per Hedbor  "format":args->format, "maxwidth":args->maxwidth, "maxheight":args->maxheight, "scale":args->scale, "dither":args->dither,
b941aa1999-06-25Per Hedbor  "gamma":args->gamma,
34a9b81999-08-06Peter Bortas  "data":args->data,
37bdda1999-05-18Per Hedbor  ]);
77926b2000-04-11Per Hedbor 
a6f9562000-09-19Per Hedbor  if( args->src )
1c10ca2000-07-05Per Hedbor  catch {
a6f9562000-09-19Per Hedbor  a->src = Roxen.fix_relative( args->src, id );
1f4a6c2000-08-28Per Hedbor  Stat st = id->conf->stat_file(a->src, id) || file_stat(a->src);
1133a72000-07-07Henrik Grubbström (Grubba)  if (st) { a->mtime = (string) (a->stat = st[ST_MTIME]); a->filesize = (string) st[ST_SIZE]; }
1c10ca2000-07-05Per Hedbor  };
2fa8d52000-06-02Martin Nilsson 
1c10ca2000-07-05Per Hedbor  a["background-color"] = id->misc->defines->bgcolor || "#eeeeee";
77926b2000-04-11Per Hedbor 
c526921999-05-18Per Hedbor  foreach( glob( "*-*", indices(args)), string n ) a[n] = args[n];
77926b2000-04-11Per Hedbor 
34a9b81999-08-06Peter Bortas  return a; }
a49dae2000-08-17Per Hedbor mapping check_args( mapping args ) { if( !args->format ) args->format = "png"; if( !(args->src || args->data) ) RXML.parse_error("Required attribute 'src' or 'data' missing\n"); if( args->src && args->data ) RXML.parse_error("Only one of 'src' and 'data' may be specified\n"); return args; } class TagCimgplugin { inherit RXML.Tag; constant name = "emit"; constant plugin_name = "cimg"; array get_dataset( mapping args, RequestID id ) { mapping res = ([ ]); mapping a = get_my_args( check_args( args ), id ); string data;
66793f2001-03-01Per Hedbor  catch // This code will fail if the image does not exist. { res->src = (query_internal_location()+the_cache->store( a,id ));
0916cf2001-03-30Johan Sundström  if(query("ext")) res->src += "." + (a->format || "gif");
66793f2001-03-01Per Hedbor  data = the_cache->data( a, id , 0 ); res["file-size"] = strlen(data); res["file-size-kb"] = strlen(data)/1024; res["data"] = data; res |= the_cache->metadata( a, id, 0 ); // enforce generation return ({ res }); }; RXML.parse_error( "Illegal arguments or image" ); return ({});
a49dae2000-08-17Per Hedbor  } } class TagCImg {
2fa8d52000-06-02Martin Nilsson  inherit RXML.Tag; constant name = "cimg"; constant flags = RXML.FLAG_EMPTY_ELEMENT;
0916cf2001-03-30Johan Sundström  class Frame
a49dae2000-08-17Per Hedbor  {
2fa8d52000-06-02Martin Nilsson  inherit RXML.Frame;
1ed9052001-03-12Johan Sundström  array do_return(RequestID id)
a49dae2000-08-17Per Hedbor  { mapping a = get_my_args( check_args( args ), id );
2fa8d52000-06-02Martin Nilsson  args -= a;
0916cf2001-03-30Johan Sundström  string ext = ""; if(query("ext")) ext = "." + (a->format || "gif"); args->src = query_absolute_internal_location(id) + the_cache->store( a, id ) + ext;
2fa8d52000-06-02Martin Nilsson  if( mapping size = the_cache->metadata( a, id, 1 ) ) { // image in cache (1 above prevents generation on-the-fly) args->width = size->xsize; args->height = size->ysize; }
0023a62000-08-22Martin Nilsson  int xml=!args->noxml; m_delete(args, "noxml"); result = Roxen.make_tag( "img", args, xml );
2fa8d52000-06-02Martin Nilsson  return 0; }
37bdda1999-05-18Per Hedbor  } }
698c121999-05-19Peter Bortas 
2fa8d52000-06-02Martin Nilsson class TagCImgURL { inherit RXML.Tag; constant name = "cimg-url"; constant flags = RXML.FLAG_EMPTY_ELEMENT;
a49dae2000-08-17Per Hedbor  class Frame {
2fa8d52000-06-02Martin Nilsson  inherit RXML.Frame;
a49dae2000-08-17Per Hedbor  array do_return(RequestID id) {
0916cf2001-03-30Johan Sundström  result = query_absolute_internal_location(id) + the_cache->store(get_my_args(check_args( args ), id ), id) + (query("ext") ? "" : "." + (args->format || "gif"));
2fa8d52000-06-02Martin Nilsson  return 0; } }
698c121999-05-19Peter Bortas }