View/Edit #301:_render_page

Name(s): _render_page
1:  "*** DON'T TOUCH THIS CODE *** AUTOMATICALLY GENERATED ***"
2:  caller == this || raise(E_PERM)
3:  player:tell("<HTML><HEAD>")
4:  player:tell("  <TITLE>", $name, ": ", this.name, "</TITLE>")
5:  player:tell($html_utils:nav_links(this:www_nav_links()))
6:  player:tell({"</HEAD>", ""})
7:  player:tell(this.header)
8:  if (x = $www:parse_GET("isindex"))
9:    victim = toobj(x)
10:   player:tell({"<H3>MSP Code Display</H3>", "", "<FONT FACE=\"Verdana, Arial, Helvetica\" SIZE=3>", ""})
11:   player:tell("Go back to ", $www:link(victim), "<BR>")
12:   player:tell({"Go back to <A HREF=\"/MSPdemo\">MSP sample pages</A>", "<HR>", "</FONT>", "", "<TABLE border=1 cellspacing=0 cellpadding=2><tr><td>", "<TABLE>", "<tr>", "  <td bgcolor=\"#000000\">&nbsp;&nbsp;&nbsp;</td><td><FONT FACE=\"Verdana, Arial, Helvetica\" size=-1>Html&nbsp;</FONT></td>", "  <td bgcolor=\"#9999cc\">&nbsp;&nbsp;&nbsp;</td><td><FONT FACE=\"Verdana, Arial, Helvetica\" size=-1>Expression&nbsp;</FONT></td>", "  <td bgcolor=\"#FF0000\">&nbsp;&nbsp;&nbsp;</td><td><FONT FACE=\"Verdana, Arial, Helvetica\" size=-1>Moo&nbsp;</FONT></td>", "</tr>", "</TABLE>", "</td></tr></TABLE>", "<BR>", "<TABLE border=1 cellspacing=0 cellpadding=2><tr><td>", "<FONT FACE=\"Verdana, Arial, Helvetica, sans-serif\">"})
13:   code = {"<pre>", @$html_utils:literal_text(victim:_get_description()), "</pre>"}
14:   code[1..2] = {code[1] + code[2]}
15:   length(code) > 1 && (code[$ - 1..$] = {code[$ - 1] + code[$]})
16:   for line in [1..length(code)]
17:     code[line] = strsub(code[line], "%&gt;", "%&gt;</FONT>")
18:     code[line] = strsub(code[line], "&lt;%=", "<TEMP FLAG>")
19:     code[line] = strsub(code[line], "&lt;%", "<FONT COLOR=\"#FF0000\">&lt;%")
20:     code[line] = strsub(code[line], "<TEMP FLAG>", "<FONT COLOR=\"#9999cc\">&lt;%=")
21:   endfor
22:   player:tell(code)
23:   player:tell({"</FONT>", "</td></tr></TABLE>", ""})
24: else
25:   player:tell({"", "<center>", "<TABLE WIDTH=600><TR>", "<TD>", "Moo Server Pages offer an extremely easy way to mix HTML and MOO code to produce dynamic web pages.  The simplest example of MSP is a <A HREF=\"/3409\">Hello World</A> page.  The other examples and the <A HREF=\"/8186\">MSP FAQ</A> should answer most questions.", "</TD>", "</TR></TABLE>", "<P>", "<TABLE><TR>", "<td valign=top>", "<h3>HTML Examples</h3>", "<UL>", "  <LI><a href=\"/6506\">'Get' query strings</a>", "  <LI><a href=\"/8245\">'Post' submission forms</a>", "  <LI><a href=\"/9844\">Arguments passed to pages</a>", "</UL>", "", "<h3>The Outside World</h3>", "<UL>", "  <LI><a href=\"/4592\">File access</a>", "  <LI><a href=\"/8090\">Mail gateway</a>", "  <LI><a href=\"/6021\">Http proxy</a>", "</UL>", "", "</td><td valign=top>", "", "<h3>HTTP Examples</h3>", "<UL>", "  <LI><a href=\"/9875\">Page redirection</a>", "  <LI><a href=\"/5483\">Cookie jar</a>", "  <LI><a href=\"/5311\">Server push</a>", "</UL>", "", "<h3>Advanced Examples</h3>", "<UL>", "  <LI><a href=\"/9051\">Execution error handling</a>", "<SMALL>(<a href=\"/MSPdemo?9051\">View source</a>)</SMALL>", "  <LI><a href=\"/7698\">Loan calculator</a>", "</UL>", "", "</td>", "</tr></TABLE>        ", "</center>", ""})
26: endif
27: player:tell()
28: player:tell(this.footer)
29: this:tell_www_tail(@args)
30: player:tell("</BODY></HTML>")
31: "Last modified by Dax (#789) on Sat Dec 15 14:34:46 2001 MST."
Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Odo (#987)
You are not logged in.