Roxen.git
/
server
/
modules
/
tags
/
obox.pike
version
»
Context lines:
10
20
40
80
file
none
3
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><diagram> 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>" "<<b>/obox</b>><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> </td>\n" "<td rowspan=3> <b>"+title+"</b> </td>\n" "<td colspan=2> </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>" "<obox help></obox> 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, ]); }