Monday, November 08, 2010 at 12:05 AM.
system.verbs.builtins.radio.html.commandBar
<<Display the navigation.
<<Changes:
<<1/19/01; 2:37:54 PM by PBS
<<Don't hard-code /myUserLand/.
<<Generate the link using the full path (minus the http:// part) -- this way sub-tables are possible.
<<1/25/01; 4:20:39 PM by DW
<<Add class="small" on each of the <p> tags per Bryan's instructions.
<<1/27/01; 5:55:53 PM by DW
<<Deprecated. (I love that word.)
return ("");
local (pta = html.getpagetableaddress ());
local (htmltext = "", indentlevel = 0);
on add (s) {
htmltext = htmltext + string.filledstring ("\t", indentlevel) + s};
on addcommand (commandname, pagename) {
local (firstPart = string.nthField (pta^.uri, '/', 2));
local (uri = "/" + firstPart + "/" + pagename + ".wsf");
local (flhot = true);
if string.lower (pta^.uri) == string.lower (uri) {
if pta^.searchargs == "" {
flhot = false}};
if flhot {
add ("<p><font size=\"-1\"><a href=\"/" + firstPart + "/" + pagename + ".wsf\">" + commandname + "</a></font></p>")}
else {
add ("<p><font size=\"-1\"><b>" + commandname + "</b></font></p>")}};
addcommand ("Home", "index");
addcommand ("Weblog", "myBlog");
addcommand ("Subscriptions", "viewSubscriptions");
addcommand ("Categories", "viewCategories");
addcommand ("Hotlist", "viewCommunityFavorites");
addcommand ("Events", "viewLog");
addcommand ("Server", "viewWebServerLog");
addcommand ("Tools", "tools");
addcommand ("Prefs", "prefs");
addcommand ("Help", "help");
add ("<br>");
addcommand ("Weblogs", "weblogsCom");
addcommand ("WhoIs", "whoIs");
return (htmltext);
<<Home
<<Categories
<<News
<<Subscriptions
<<Hotlist
<<Events
<<Server
<<Tools
<<Prefs
<<Help
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.