| ea0143 | 1997-08-03 | Fredrik Noring | |
|
| c2e9ea | 1997-10-27 | Francesco Chemolli | | constant cvs_version = "$Id: obox.pike,v 1.5 1997/10/27 12:02:37 grubba Exp $";
|
| 07bf51 | 1997-08-31 | Peter Bortas | | constant thread_safe=1;
|
| ea0143 | 1997-08-03 | Fredrik Noring | | #include <module.h>
|
| 07bf51 | 1997-08-31 | Peter Bortas | | inherit "module";
|
| ea0143 | 1997-08-03 | Fredrik Noring | | 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))
|
| 5458ff | 1997-08-23 | Henrik Grubbström (Grubba) | | constant unit_gif = "/internal-roxen-unit";
|
| ea0143 | 1997-08-03 | Fredrik Noring | | string container_obox(string name, mapping args,
string contents, object request_id)
{
string s = "hmm..";
string title = (args->title?args->title:" ");
|
| c2e9ea | 1997-10-27 | Francesco Chemolli | |
|
| ea0143 | 1997-08-03 | Fredrik Noring | | int left = (args->left?args->left:25);
int right = (args->right?args->right:350);
int spacing = (args->spacing?args->spacing:0);
|
| c2e9ea | 1997-10-27 | Francesco Chemolli | |
string titlecolor =args->titlecolor;
string outlinecolor = args->outlinecolor||"#000000";
string bgcolor = args->bgcolor;
string textcolor = args->textcolor;
string align = args->align;
string width = args->width;
|
| ea0143 | 1997-08-03 | Fredrik Noring | |
if (args->help) {
right = 250;
title = "The Outlined Box container tag";
contents = "Usage:<p>"
"<<b>obox</b> <b>title</b>=\"Sample title\">"
"<br>Anything, html, text, ...<br>"
"<<b>/obox</b>><p>\n"
|
| c2e9ea | 1997-10-27 | Francesco Chemolli | | "Options:<p>\n\n"
|
| ea0143 | 1997-08-03 | Fredrik Noring | | "<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"
|
| c2e9ea | 1997-10-27 | Francesco Chemolli | | "<b>spacing</b>: Width of the space inside the box<br>\n"
"<b>titlecolor</b>: Color of the title of the box<br>\n"
"<b>outlinecolor</b>: Color of the outline<br>\n"
"<b>bgcolor</b>: Color of the background and title label<br>\n"
"<b>textcolor</b>: Color of the text inside the box<br>\n"
"<b>align</b>: How to align the box (left|right)<br>\n"
"<b>width</b>: width of the generated box\n";
|
| ea0143 | 1997-08-03 | Fredrik Noring | | }
switch (name) {
case "obox":
|
| c2e9ea | 1997-10-27 | Francesco Chemolli | | s = "<table border=0 cellpadding=0 cellspacing=0" +
(align?" align="+align:"") + (width?" width="+width:"") + ">\n"
"<tr><td colspan=2> </td>\n"
"<td rowspan=3" +
(bgcolor?" bgcolor="+bgcolor:"") +
"> <b>" +
(titlecolor ? "<font color=\""+titlecolor+"\">":"") +
title +
(titlecolor ? "</font>":"") +
"</b> </td>\n"
"<td colspan=2> </td></tr>\n"
|
| ea0143 | 1997-08-03 | Fredrik Noring | |
|
| c2e9ea | 1997-10-27 | Francesco Chemolli | | "<tr" +
(bgcolor?" bgcolor="+bgcolor:"") +
"><td bgcolor=\"" + outlinecolor + "\" colspan=2 height=1>\n"
"<img alt='' src="+unit_gif+" height=1></td>\n"
"<td bgcolor=\"" + outlinecolor + "\" colspan=2 height=1>\n"
"<img alt='' src="+unit_gif+"></td></tr>\n"
|
| ea0143 | 1997-08-03 | Fredrik Noring | |
|
| c2e9ea | 1997-10-27 | Francesco Chemolli | | "<tr" +
(bgcolor?" bgcolor="+bgcolor:"") +
"><td bgcolor=\"" + outlinecolor + "\">"
"<img alt='' src="+unit_gif+"></td>\n"
"<td width="+(string)left+"> </td>"
"<td width="+(string)right+"> </td>\n"
"<td bgcolor=\"" + outlinecolor + "\">"
"<img alt='' src="+unit_gif+"></td></tr>\n"
|
| ea0143 | 1997-08-03 | Fredrik Noring | |
|
| c2e9ea | 1997-10-27 | Francesco Chemolli | | "<tr" +
(bgcolor?" bgcolor="+bgcolor:"") +
"><td bgcolor=\"" + outlinecolor + "\">"
"<img alt='' src="+unit_gif+"></td>\n"
"<td colspan=3>\n"
|
| ea0143 | 1997-08-03 | Fredrik Noring | |
|
| c2e9ea | 1997-10-27 | Francesco Chemolli | | "<table border=0 cellspacing=5 "+
(spacing?"width="+(string)spacing+" ":"")+"><tr><td>\n";
|
| ea0143 | 1997-08-03 | Fredrik Noring | |
|
| c2e9ea | 1997-10-27 | Francesco Chemolli | | if (textcolor) {
s += "<font color=\""+textcolor+"\">" + contents + "</font>";
} else {
s += contents;
}
|
| ea0143 | 1997-08-03 | Fredrik Noring | |
s += "</td></tr></table>\n"
|
| c2e9ea | 1997-10-27 | Francesco Chemolli | | "</td><td bgcolor=\"" + outlinecolor + "\">"
"<img alt='' src="+unit_gif+"></td></tr>\n"
"<tr><td colspan=5 bgcolor=\"" + outlinecolor + "\">\n"
"<img alt='' src="+unit_gif+"></td></tr>\n"
"</table>\n";
|
| ea0143 | 1997-08-03 | Fredrik Noring | | break;
}
return s;
}
array register_module()
{
return ({
|
| 5458ff | 1997-08-23 | Henrik Grubbström (Grubba) | | MODULE_PARSER,
|
| ea0143 | 1997-08-03 | Fredrik Noring | | "Outlined box",
"This is a container tag making outlined boxes.<br>"
"<obox help></obox> gives help.",
0, 1 });
}
mapping query_container_callers()
{
return ([ "obox":container_obox, ]);
}
|