Monday, November 08, 2010 at 12:04 AM.
system.verbs.builtins.mainResponder.adminSite.website.rpcLog
on rpcLog (maxitems=200) {
<<Changes
<<9/8/02; 10:57:49 PM by JES
<<Fixed alignment of column labels.
<<8/2/02; 2:23:36 PM by JES
<<Created.
local (pta = html.getPageTableAddress ());
pta^.title = "XML-RPC and SOAP Log";
local (colors = {pta^.trbg1, pta^.trbg2});
local (columns = {"Time", "Code", "Threads", "Secs", "SizeIn", "SizeOut", "Client", "Host", "Procedure"});
local (alignRight = {"Code", "Threads", "Secs", "SizeIn", "SizeOut"});
on renderItemCallback (adritem) {
local (itemtext = "");
on add (s) {
itemtext = itemtext + (s + "\r");};
on td (s, align="") {
if align != "" {
align = " align=\"" + align + "\""};
return ("<td" + align + "><font size=\"-1\" class=\"small\">" + s + "</font></td>")};
with adritem^ {
local (secsString = "", faultCodeString = "-");
try { //get secsString
secsString = string.ratio (ticks, 60, 2);
if sizeOf (string.nthField (secsString, ".", 2)) == 1 {
secsString = secsString + "0"};
if ticks > 120 { //more than two seconds
secsString = "<b><font color=\"deeppink\">" + secsString + "</font></b>"}};
add (td (string.replaceAll (string.popLeading (string.nthField (time, ";", 2), ' '), " ", " ") ));
if defined (faultCode) {
faultCodeString = "<b><font color=\"deeppink\">" + faultCode + "</font></b>"};
add (td (faultCodeString, "right"));
add (td (threads, "right"));
add (td (secsString, "right"));
add (td (string.megabyteString (sizeIn), "right"));
add (td (string.megabyteString (sizeOut), "right"));
add (td (xml.convertToDisplayName (nameof (adrItem^))));
bundle { //add the host
if defined (host) {
add (td (host))}
else {
add (td (" "))}};
bundle { //add the procedure name
if defined (methodName) {
add (td (methodName))}
else {
add (td (" "))}}};
return (itemtext)};
local (ctitems);
local (logtext = mainResponder.log.browseAny ("rpcServer", @renderItemCallback, colors, columns, 3, maxitems, alignRight, @ctitems));
if ctitems {
on add (s) {
logtext = logtext + (s + "\r");};
bundle { //add error code descriptions
add ("<p><b>RPC Error Codes:</b></p>");
add ("<ol>");
add ("<li>Could not build the XML-RPC response.");
add ("<li>The result returned by the requested method could not be encoded.");
add ("<li>The structure of the XML-RPC request was illegal.");
add ("<li>A script error occured while executing the requested method.");
add ("<li>Not used. (unsupportedReturnTypeError)");
add ("<li>The XML-RPC request was not well-formed.");
add ("<li>Failed to locate the requested XML-RPC method.");
add ("<li>Security fault.");
add ("</ol>")};
return (logtext)}
else {
return (logtext + "<p>There are no items to list at this time.</p>")}}
This listing is for code that runs in the OPML Editor environment. I created these listings because I wanted the search engines to index it, so that when I want to look up something in my codebase I don't have to use the much slower search functionality in my object database. Dave Winer.