ea01431997-08-03Fredrik Noring // The Diagrams tag module #include <module.h> inherit "module.pike"; inherit "roxenlib"; #define INFO(s) // perror("### %O"+(s)) #define DEBUG(s) perror("### %O\n",(s)) #define FATAL(s) perror("### %O\n"+(s)) #define ERROR(a) sprintf("<b>&lt;diagram&gt; error:</b> %s<br>\n", (a)) string container_obox(string name, mapping args, string contents, object request_id) { string s = "hmm.."; string title = (args->title?args->title:" "); int left = (args->left?args->left:25); int right = (args->right?args->right:350); int spacing = (args->spacing?args->spacing:0); if (args->help) { right = 250; title = "The Outlined Box container tag"; contents = "Usage:<p>" "&lt;<b>obox</b> <b>title</b>=\"Sample title\"&gt;" "<br>Anything, html, text, ...<br>" "&lt;<b>/obox</b>&gt;<p>\n" "Options:<p>" "<b>left</b>: Length of line on the left side of the title<br>\n" "<b>right</b>: Length of line on the right side of to the title<br>\n" "<b>spacing</b>: Width of the space inside the box<br>\n"; } switch (name) { case "obox": string unit_gif = combine_path(query("location"), "unit.gif"); s = "<table border=0 cellpadding=0 cellspacing=0>\n" "<tr><td colspan=2>&nbsp;</td>\n" "<td rowspan=3>&nbsp;<b>"+title+"</b> </td>\n" "<td colspan=2>&nbsp;</td></tr>\n" "<tr><td bgcolor=#000000 colspan=2 height=1>\n"
b0de581997-08-16Fredrik Noring  "<img alt='' src="+unit_gif+" height=1></td>\n"
ea01431997-08-03Fredrik Noring  "<td bgcolor=#000000 colspan=2 height=1>\n"
b0de581997-08-16Fredrik Noring  "<img alt='' src="+unit_gif+"></td></tr>\n"
ea01431997-08-03Fredrik Noring 
b0de581997-08-16Fredrik Noring  "<tr><td bgcolor=#000000><img alt='' src="+unit_gif+"></td>\n"
ea01431997-08-03Fredrik Noring  "<td width="+(string)left+">&nbsp;</td>" "<td width="+(string)right+">&nbsp;</td>\n"
b0de581997-08-16Fredrik Noring  "<td bgcolor=#000000><img alt='' src="+unit_gif+"></td></tr>\n"
ea01431997-08-03Fredrik Noring 
b0de581997-08-16Fredrik Noring  "<tr><td bgcolor=#000000><img alt='' src="+unit_gif+"></td>\n"
ea01431997-08-03Fredrik Noring  "<td colspan=3>\n" "<table border=0 cellspacing=5 "+ (spacing?"width="+(string)spacing+" ":"")+"><tr><td>\n"; s += contents; s += "</td></tr></table>\n"
b0de581997-08-16Fredrik Noring  "</td><td bgcolor=#000000><img alt='' src="+unit_gif+"></td></tr>\n"
ea01431997-08-03Fredrik Noring  "<tr><td colspan=5 bgcolor=#000000>\n"
b0de581997-08-16Fredrik Noring  "<img alt='' src="+unit_gif+"></td></tr>\n"
ea01431997-08-03Fredrik Noring  "</table>\n"; break; } return s; } string unit_gif = "GIF89a\001\0\001\0\200ÿ\0ÀÀÀ\0\0\0!ù\004\001\0\0\0\0," "\0\0\0\0\001\0\001\0\0\001\0012\0;"; mapping find_file(string f, object rid) { return http_string_answer(unit_gif, "image/gif"); } array register_module() { return ({ MODULE_PARSER | MODULE_LOCATION, "Outlined box", "This is a container tag making outlined boxes.<br>" "&lt;obox help&gt;&lt;/obox&gt; gives help.", 0, 1 }); } void create() { defvar("location", "/obox/", "Mountpoint", TYPE_LOCATION, "The URL-prefix for the obox image."); } string query_location() { return query("location"); } mapping query_container_callers() { return ([ "obox":container_obox, ]); }