Monday, November 08, 2010 at 12:01 AM.
system.verbs.apps.Manila.examples.init
<<This script makes sure that the scratchpad.manilaRpcSettings table required by all the other scripts in the manila.examples table is properly set up.
local (adrtable = @scratchpad.manilaRpcSettings);
if not defined (adrtable^) {
new (tableType, adrtable)};
if not defined (adrtable^.host) {
local (s = "weblogs.userland.com");
if not dialog.ask ("Host:", @s) {
return (false)};
adrtable^.host = s};
if not defined (adrtable^.port) {
local (s = "80");
if not dialog.ask ("Port:", @s) {
return (false)};
adrtable^.port = s};
if not defined (adrtable^.rpcPath) {
local (s = "/RPC2");
if not dialog.ask ("RPC path:", @s) {
return (false)};
adrtable^.rpcPath = s};
if not defined (adrtable^.sitename) {
local (s = "manilaRpc");
if not dialog.ask ("Site name:", @s) {
return (false)};
adrtable^.sitename = s};
if not defined (adrtable^.username) {
local (s = "name@server.com");
if not dialog.ask ("Username:", @s) {
return (false)};
adrtable^.username = s};
if not defined (adrtable^.password) {
local (s = "");
if not dialog.getPassword ("Password:", @s) {
return (false)};
adrtable^.password = s};
return (true)
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.