Roxen.git / server / modules / tags / obox.pike

version» Context lines:

Roxen.git/server/modules/tags/obox.pike:3:   #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))    + constant unit_gif = "/internal-roxen-unit"; +    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) {
Roxen.git/server/modules/tags/obox.pike:27:    "<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"    "<img alt='' src="+unit_gif+" height=1></td>\n"    "<td bgcolor=#000000 colspan=2 height=1>\n"    "<img alt='' src="+unit_gif+"></td></tr>\n"   
Roxen.git/server/modules/tags/obox.pike:62:    "</td><td bgcolor=#000000><img alt='' src="+unit_gif+"></td></tr>\n"    "<tr><td colspan=5 bgcolor=#000000>\n"    "<img alt='' src="+unit_gif+"></td></tr>\n"    "</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, +  MODULE_PARSER,    "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, ]);   }