WikiHUD

2008-02-16T13:12:27Z

Lillie Yifu:

WikiHUD is a simple utility that reads pages from a wiki into Second Life. One WikiHUD reads pages from this Wiki. The code reads the raw contents of an article from this wiki. Originally written by [[Lillie Yifu]]. The code is [[open source]] and the freebie wikiHUD is [[full permissions]].

The secondlife wikiHUD works by listening on channel 4 for the name of an article, and then returning the search. The simple version only returns a summary.

Version 1.02 of the wikiHUD has several command modes.

Because wikiMedia is case sensitive in article names, so are the requests.

== Command Modes ==

In ''summary'' mode it returns the first 2048 characters of the article.

In ''full'' mode it returns the first 2048 characters of each section of the article, which means that if each section is less than 2048, it returns the whole article.

In ''category'' mode it returns the categories an article belongs to.

In ''word'' mode it returns the list of articles with the word in the title of the article.

== In World Texture Display ==

The wikiHUD will display a full permissions texture if it is placed in the first line of an article entry in the <nowiki>{{ik|}}</nowiki> template, with the UUID or key of a full permissions texture after the | character.

== Source Code ==

[[WikiHUD (Source)]] contains the most recent source code for wikiHUD.

The basic version points to [http://secondlife.wikia.com] but workls with any latest releast of [http://www.mediawiki.com" Mediawiki] that has index.php and api.ph[ in the standard locations, and allows action=raw

== SURL ==

[http://slurl.com/secondlife/Yedo%20Basilica/148/72/190 Freebie WikiHUD here.]

[[Category:Scripts]]
[[Category:HUDs]]
[[Category:Utilities]]

WikiHUD (Source)

2008-02-16T02:39:13Z

Lillie Yifu: New page: For WikiHUD by User:Lillie Yifu <code> // wiki reader 1.03 Lillie Yifu // http://sexsecond.blogspot.com // chat on channel 4 the name of an article to get the top of the entry...

For [[WikiHUD]] by [[User:Lillie Yifu]]

<code>

// wiki reader 1.03 Lillie Yifu
// http://sexsecond.blogspot.com
// chat on channel 4 the name of an article to get the top of the entry text
// permission is granted to distribute this script free and open source with the header attached

// adding second channel to listen for mode changes
// adding category mode

list wikis = ["wikia","lindenlabs"];
list urls = ["http://secondlife.wikia.com","http://wiki.secondlife.com"];
// need to find the api.php for wiki.secondlife, seems like we will need some kind of list for languages, and for where various installations put files

integer sources;
integer oldmode;
integer wiki = 0;

string redirect = "#REDIRECT";
integer section ;
integer follow= 0;
integer redirlen;
string qname;
list meta = [HTTP_MIMETYPE,"text/plain;charset=utf-8"];
key hid;
string name;
string str_replace(string src, string from, string to)
{//replaces all occurrences of 'from' with 'to' in 'src'.
integer len = (~-(llStringLength(from)));
if(~len)
{
string buffer = src;
integer b_pos = -1;
integer to_len = (~-(llStringLength(to)));
@loop; //instead of a while loop, saves 5 bytes (and run faster).
integer to_pos = ~llSubStringIndex(buffer, from);
if(to_pos)
{
buffer = llGetSubString(src = llInsertString(llDeleteSubString(src, b_pos -= to_pos, b_pos + len), b_pos, to), (-~(b_pos += to_len)), 0x8000);
jump loop;
}
}
return src;
}
key image = "f07b2853-6aa2-7819-cbde-a1bf4187091d";
vector large = <0.01,0.3,.3>;
vector small = <0.01,0.1,0.1>;
integer islarge =TRUE;
integer qmode = 0;//mode of query
integer mode = 0;//mode of command

string url;
integer modes;
//action=query & list=search & srsearch=wikipedia & srlimit=10
list modenames = ["summary","categories","word","full","source","wikis"];
list phps = [
"/index.php?action=raw&title=",
"/api.php?format=xml&prop=categories&action=query&titles=",
"/api.php?format=xml&action=query&list=search&srlimit=20&srsearch=",
"/index.php?action=raw&title="
];
//string url = "http://en.wikipedia.org/index.php?action=raw&title=";
integer achan = 4;
integer mchan = 5;
default
{
state_entry()
{
integer i = 0;
url = llList2String(wikis,wiki);
sources = llGetListLength(wikis);
modes = llGetListLength(modenames);
llSetTexture(image,ALL_SIDES);
llOwnerSay("Chat on channel "+(string) achan+" the name of an article to reference the Second Life Wiki.");
llOwnerSay("Chat on channel "+(string) mchan+" to change query mode.");
for(;i<modes;++i) {
llOwnerSay(llList2String(modenames, i));
}

llListen(achan,"",llGetOwner(),"");
llListen(mchan,"",llGetOwner(),"");
}

listen(integer c,string n,key id,string m)
{
string article = str_replace(m," ","_");

if(achan==c) {
if(0==mode|| 3==mode) {
qname=url+llList2String(phps,mode)+article;
name = qname +"&section=0"; // section postpend
llOwnerSay(name+" "+ llList2String(modenames,mode));
hid = llHTTPRequest(name, meta, "");
qmode = mode;
section =-1;

} else if(1==mode) {
name = url+llList2String(phps,mode)+article;
llOwnerSay(name+" "+ llList2String(modenames,mode));
hid = llHTTPRequest(name, meta, "");
qmode = mode;
} else if(2==mode) {// will need a loop here
name = url+llList2String(phps,mode)+article;
llOwnerSay(name+" "+ llList2String(modenames,mode));
hid = llHTTPRequest(name, meta, "");
qmode = mode;
}

} else if (mchan ==c) {

integer i =0;
oldmode = mode;
for(;i<modes;++i) {
if(llGetSubString(m,0,2) == llGetSubString(llList2String(modenames,i),0,2) ){
mode = i;
i=modes;
}
}// end look for mode
if(4 == mode) { // set source
list parse = llParseString2List(m,[" "],[]);
string newsource = llGetSubString(llList2String(parse,1),0,3);
for(i=0;i<sources;++i) { // I should sort and search...
if(llGetSubString(llList2String(wikis,i),0,3)==newsource) {
wiki = i;
url = llList2String(urls,wiki);
llOwnerSay("Setting source to " + url);
i=sources;
}
}
mode = oldmode; // set mode to default, we should never stay here.
} else if(5 ==mode) {
llOwnerSay("To change source chat /" + (string)mchan + " source <wiki name>");
for(i=0;i<sources;++i) {
llOwnerSay(llList2String(wikis,i) + "\t\t @ " + llList2String(urls,i));
}
mode = oldmode; // set mode back, we should never stay here
} // end of mode processing
if(mode!= oldmode) {
llOwnerSay("Setting mode to "+llList2String(modenames,mode));
}
}// end channel 5
}

on_rez(integer p)
{
llResetScript();
}
touch_start(integer p)
{
if(1==p) {
if(islarge) {
llSetScale(small);
islarge = FALSE;
llSetAlpha(.3,ALL_SIDES);
} else {
llSetScale(large);
islarge = TRUE;
llSetAlpha(1.,ALL_SIDES);
}
}
}

timer()
{
if(hid){
hid = NULL_KEY;
follow = 0;
llOwnerSay("Query timed out.");
}
llSetTimerEvent(0.);
}

http_response(key request_id, integer status, list metadata, string body)
{
if(0==qmode || 3==qmode) { // article or full
key image;
if (request_id == hid) {
image = (key)llGetSubString(body,5,40); // image key if available
llSetTexture(image,ALL_SIDES);
follow = TRUE;
if(llSubStringIndex(body,redirect)!=0) { // no redirect
if( qmode == 0) { // if summary mode, or multipart query after first
llOwnerSay(body);
return;
} else {
if(0 == section && llSubStringIndex(body,"=")!=0) {
llOwnerSay(llGetSubString(body,0,llSubStringIndex(body,"\n="))); //truncate at first line that starts with =
} else if(section >0)
llOwnerSay(body);
}
if(body !="") {
++section ; // increment section, will now be 0
name = qname + "&templates=expand&section=" + (string) section; // query name
hid = llHTTPRequest(name, meta, "");
}
}

} else if(follow< 3) {// if redirect and less than 3 jumps

integer start = llSubStringIndex(body,"[[") + 2;
integer end = llSubStringIndex(body,"]]") -1;
string m = llGetSubString(body,start, end);
++follow ;
llSetTimerEvent(180.);
name=url+str_replace(m," ","_");
llOwnerSay("Following Redirect to \n"+name);
list meta = [HTTP_MIMETYPE,"text/plain;charset=utf-8"];
hid = llHTTPRequest(name, meta, "");
} else {
hid = NULL_KEY;
follow=0;
llOwnerSay("Too many redirects");
}
} else if(1 == qmode) {// xml categories
list catraw = llParseString2List(body,["Category:"],[]);
integer i = 1;
string temp;
for(;i<llGetListLength(catraw);++i){
temp = llList2String(catraw,i);
llOwnerSay(llGetSubString(temp,0,llSubStringIndex(temp,"\"")-1));
}
} else if(2 == qmode) {
list catraw = llParseString2List(body,["title=\""],[]);
integer i = 1;
string temp;
for(;i<llGetListLength(catraw);++i){
temp = llList2String(catraw,i);
llOwnerSay(llGetSubString(temp,0,llSubStringIndex(temp,"\"")-1));
}
}
}

}

</code>

2007-11-21T05:18:39Z

Lillie Yifu: /* Required parameters */

Current login protocols

2007-11-21T05:17:54Z

Lillie Yifu: /* Required parameters */ miorn regularized punctuation and spacing, one typo