Second Life Wiki - User contributions [en]

User:Jor3l Boa/PHP/n2k.php

2009-06-23T01:00:36Z

Sensei Schism:

PHP Based name2Key service.

n2k.php:
<php>
// PHP name2Key by Jor3l Boa
// -------------------------
// Released under Creative Commons 3.0
// - support+n2k@sltools.biz
// -------------------------

function getPage($web) {
$html = "";
$ch = curl_init($web);
curl_setopt($ch, CURLOPT_USERAGENT, "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.12) Gecko/20070508 Firefox/1.5.0.12");
curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
curl_setopt($ch, CURLOPT_HEADER, 0);
curl_setopt($ch, CURLOPT_FOLLOWLOCATION, 1);
curl_setopt($ch, CURLOPT_AUTOREFERER, 1);
curl_setopt($ch, CURLOPT_TIMEOUT, 5);
$html = curl_exec($ch);
if(curl_errno($ch)) {
$html = "";
}
curl_close ($ch);
return $html;
}
function getBetween($content,$start,$end){
//by Jor3l :)
$a1 = strrpos($content,$start);
$content = substr($content,$a1 + (strlen($start)),strlen($content));
while($a2 = strrpos($content,$end)) {
$content = substr($content,0,$a2);
}
return $content;
}

function name2Key($name) {
$SL_SEARCH = 'http://search.secondlife.com/client_search.php?session=00000000-0000-0000-0000-000000000000&q=';
$sName = split(' ',$name);
$data = getPage($SL_SEARCH.$sName[0].'%2520'.$sName[1]);
$uuid = getBetween($data,'secondlife:///app/agent/','/about');
return $uuid;
}

</php>

example:
<php>
<?
require_once('n2k.php');
$uuid = name2key('FirstName LastName');
echo $uuid;
?>
</php>

NOTE ON HOSTING PROVIDERS:
Some hosting providers, notably GoDaddy, do not allow outbound traffic from their servers. If you find that this script returns nothing, no matter what you try, that may be your issue. The only fix is to switch providers to one that does allow outbound traffic. 
For an LSL version, see also: [[Name2Key_in_LSL]]

User:Jor3l Boa/PHP/n2k.php

2009-06-23T00:59:39Z

Sensei Schism:

Name2Key in LSL

2009-01-23T03:39:47Z

Sensei Schism:

{{LSL Header}}

Still missing Name2Key functions in your code ? Still relying on external databases that are not always up to date with latests SL subscribers ?

Well now you can solve this by yourself, within your LSL script ! All you have to do is to rely on LL Search engine !

I put a kind of "library" and a sample of usage for your convenience

Library:
<lsl>
integer SERVICE_NAME2KEY = 19790;
integer SERVICE_NAME2KEY_RET=19791;
key ONE_KEY = "FFFFFFFF-FFFF-FFFF-FFFF-FFFFFFFFFFFF";

integer gCurrentRequest=0;
key gReqId=NULL_KEY;
string gToSearch="";

ReturnService(integer Status, string message)
{
key Key;

if (Status)
Key=ONE_KEY;
else
Key=NULL_KEY;

llMessageLinked(LINK_THIS, gCurrentRequest+1, message, Key);

gCurrentRequest=0;
gReqId=NULL_KEY;
gToSearch="";
}

SvcName2Key(string message)
{
if (gCurrentRequest) {
ReturnService(FALSE, "BUSY");
}
list Args=llParseString2List(message, [" "], []);

string FirstName = llList2String(Args, 0);
string LastName = llList2String(Args, 1);

gCurrentRequest=SERVICE_NAME2KEY;

string url="http://66.196.80.202/babelfish/translate_url_content?.intl=us&lp=fr_en&trurl=http%3A%2F%2Fsearch.secondlife.com%2Fclient_search.php%3Fs%3DResident%26q%3D"+FirstName+"%2520"+LastName;
gToSearch="secondlife:///app/agent/";

gReqId=llHTTPRequest(url, [HTTP_METHOD,"GET"], "");
}

default
{
link_message(integer sender_number, integer number, string message, key id)
{
if (number==SERVICE_NAME2KEY) {
SvcName2Key(message);
}
}

http_response(key request_id, integer status, list metadata, string body)
{
if (request_id==gReqId) {
integer Pos1=llSubStringIndex(body, gToSearch);
integer Pos2=0;
string Ret="";
if (Pos1!=-1) {
body=llGetSubString(body, Pos1+llStringLength(gToSearch), -1);
if (gCurrentRequest==SERVICE_NAME2KEY) {
Pos2=llStringLength((string)NULL_KEY);
string Dat=llGetSubString(body, 0, Pos2-1);
if (llStringLength((string)((key)Dat))==llStringLength(NULL_KEY)) {
// Success !
Ret=llGetSubString(body, 0, Pos2-1);
ReturnService(TRUE, Ret);
}
else
ReturnService(FALSE, "UNKNOWN");
}
else
ReturnService(FALSE, "UNKNOWN SERVICE");
}
else
ReturnService(FALSE, "UNKNOWN");
}

}
}
</lsl>

Usage sample:
<lsl>
integer SERVICE_NAME2KEY = 19790;
integer SERVICE_NAME2KEY_RET=19791;
key ONE_KEY = "FFFFFFFF-FFFF-FFFF-FFFF-FFFFFFFFFFFF";

MyName2Key(string message)
{
llMessageLinked(LINK_THIS, SERVICE_NAME2KEY, message, NULL_KEY);
}

default
{
touch_start(integer total_number)
{
llOwnerSay("Searching key for avatar named Secret2 Linden");
MyName2Key("Secret2 Linden");
}

link_message(integer sender_number, integer number, string message, key id)
{
if (number==SERVICE_NAME2KEY_RET)
{
if (id==ONE_KEY)
llOwnerSay("Found ! Key is: "+message);
else
llOwnerSay("Error: "+message);
}
}
}
</lsl>

Hope this helps !
[[User:Maeva Anatine|Maeva Anatine]]

EDIT : Looks like the Lindens have either broken or blocked this function. It works from my browser, however from LSL I get an error page containing this message "Access control configuration prevents your request from
being allowed at this time. Please contact your service provider if
you feel this is incorrect." - Darling Brody.

EDIT : Yes you're right Darling. It seems they've blocked this acces from within the world... I still wonder why, especially as there are some workarounds to this...
Anyway I discovered there is a JIRA issue for this. Please vote for the unblock !
https://jira.secondlife.com/browse/SVC-3122
- Mae

EDIT : OK after having read this article from LL: http://wiki.secondlife.com/wiki/SearchAPI, it seems proxy usage is allowed. So I modified the upper code in order to go through a proxy machine and it works again :)
- Mae

EDIT: After review, it appears the Yahoo Babelfish proxy you are using above does not return the results expected. I rewrote this to allow different proxies by a simple configuration. This now uses Google instead of Babelfish by default. This does not, however, work for any avatars that do not have a Profile filled out (this is due to a limitation of the Googly proxy we're using here). I'm researching this and trying to see if there is a better proxy to use.

This version can handle multiple requests at once. Replies have changed slightly, as the found key is returned in the "key" field instead of the message field. In addition, failure of any kind results in a NULL_KEY being returned, and status information is returned in the message field. - [[User:Sensei Schism|Sensei Schism]]

Library:
<lsl>
integer SERVICE_NAME2KEY = 19790;
integer SERVICE_NAME2KEY_RET = 19791;

string proxy = "http://www.google.com/gwt/n?_gwt_noimg=1&u=";
string search = "http://search.secondlife.com/client_search.php?s=People&q=";
string result = "http%3A%2F%2Fworld.secondlife.com%2Fresident%2F";
string notfound = "There were no matches for ";

list requests;

default
{
on_rez(integer i) { llResetScript(); }

state_entry()
{
requests = [];
}

link_message(integer s, integer n, string m, key i)
{
if (n == SERVICE_NAME2KEY) {
if(llListFindList(requests,[m]) == -1) {
string url = proxy+llEscapeURL(search+m);
key id = llHTTPRequest(url, [], "");
requests += [(string)id,m];
}
}
}

http_response(key request_id, integer status, list metadata, string body)
{
integer p = llListFindList(requests,[(string)request_id]);
if (p != -1) {
string n = llList2String(requests,p+1);
integer f = llSubStringIndex(body,result);
if(f == -1) {
f = llSubStringIndex(body,notfound);
if(f == -1)
llMessageLinked(LINK_SET,SERVICE_NAME2KEY_RET,"Error with lookup!",NULL_KEY);
else
llMessageLinked(LINK_SET,SERVICE_NAME2KEY_RET,n+" not found.",NULL_KEY);
} else {
f += llStringLength(result);
string a = llGetSubString(body,f,f+35);

llMessageLinked(LINK_SET,SERVICE_NAME2KEY_RET,n,(key)a);
}
requests = llDeleteSubList(requests,p,p+1);
}
}
}
</lsl>

Example use (listens on channel /1 and looks up anything sent in that channel):
<lsl>
integer SERVICE_NAME2KEY = 19790;
integer SERVICE_NAME2KEY_RET = 19791;

default
{
on_rez(integer i) { llResetScript(); }

state_entry()
{
llListen(1, "", "", "");
}

listen(integer c, string n, key i, string m)
{
llSay(0,"Requesting key for "+m);
llMessageLinked(LINK_THIS, SERVICE_NAME2KEY, m, "");
}

link_message(integer f, integer n, string s, key i)
{
if(n == SERVICE_NAME2KEY_RET) {
if(i == NULL_KEY)
llSay(0,"Lookup failed. Returned: "+s);
else
llSay(0,s+": "+(string)i);
}
}
}
</lsl>

{{LSLC|Library}}

Name2Key in LSL

2009-01-20T02:52:03Z

Sensei Schism:

{{LSL Header}}

Still missing Name2Key functions in your code ? Still relying on external databases that are not always up to date with latests SL subscribers ?

Well now you can solve this by yourself, within your LSL script ! All you have to do is to rely on LL Search engine !

I put a kind of "library" and a sample of usage for your convenience

Library:
<lsl>
integer SERVICE_NAME2KEY = 19790;
integer SERVICE_NAME2KEY_RET=19791;
key ONE_KEY = "FFFFFFFF-FFFF-FFFF-FFFF-FFFFFFFFFFFF";

integer gCurrentRequest=0;
key gReqId=NULL_KEY;
string gToSearch="";

ReturnService(integer Status, string message)
{
key Key;

if (Status)
Key=ONE_KEY;
else
Key=NULL_KEY;

llMessageLinked(LINK_THIS, gCurrentRequest+1, message, Key);

gCurrentRequest=0;
gReqId=NULL_KEY;
gToSearch="";
}

SvcName2Key(string message)
{
if (gCurrentRequest) {
ReturnService(FALSE, "BUSY");
}
list Args=llParseString2List(message, [" "], []);

string FirstName = llList2String(Args, 0);
string LastName = llList2String(Args, 1);

gCurrentRequest=SERVICE_NAME2KEY;

string url="http://66.196.80.202/babelfish/translate_url_content?.intl=us&lp=fr_en&trurl=http%3A%2F%2Fsearch.secondlife.com%2Fclient_search.php%3Fs%3DResident%26q%3D"+FirstName+"%2520"+LastName;
gToSearch="secondlife:///app/agent/";

gReqId=llHTTPRequest(url, [HTTP_METHOD,"GET"], "");
}

default
{
link_message(integer sender_number, integer number, string message, key id)
{
if (number==SERVICE_NAME2KEY) {
SvcName2Key(message);
}
}

http_response(key request_id, integer status, list metadata, string body)
{
if (request_id==gReqId) {
integer Pos1=llSubStringIndex(body, gToSearch);
integer Pos2=0;
string Ret="";
if (Pos1!=-1) {
body=llGetSubString(body, Pos1+llStringLength(gToSearch), -1);
if (gCurrentRequest==SERVICE_NAME2KEY) {
Pos2=llStringLength((string)NULL_KEY);
string Dat=llGetSubString(body, 0, Pos2-1);
if (llStringLength((string)((key)Dat))==llStringLength(NULL_KEY)) {
// Success !
Ret=llGetSubString(body, 0, Pos2-1);
ReturnService(TRUE, Ret);
}
else
ReturnService(FALSE, "UNKNOWN");
}
else
ReturnService(FALSE, "UNKNOWN SERVICE");
}
else
ReturnService(FALSE, "UNKNOWN");
}

}
}
</lsl>

Usage sample:
<lsl>
integer SERVICE_NAME2KEY = 19790;
integer SERVICE_NAME2KEY_RET=19791;
key ONE_KEY = "FFFFFFFF-FFFF-FFFF-FFFF-FFFFFFFFFFFF";

MyName2Key(string message)
{
llMessageLinked(LINK_THIS, SERVICE_NAME2KEY, message, NULL_KEY);
}

default
{
touch_start(integer total_number)
{
llOwnerSay("Searching key for avatar named Secret2 Linden");
MyName2Key("Secret2 Linden");
}

link_message(integer sender_number, integer number, string message, key id)
{
if (number==SERVICE_NAME2KEY_RET)
{
if (id==ONE_KEY)
llOwnerSay("Found ! Key is: "+message);
else
llOwnerSay("Error: "+message);
}
}
}
</lsl>

Hope this helps !
[[User:Maeva Anatine|Maeva Anatine]]

EDIT : Looks like the Lindens have either broken or blocked this function. It works from my browser, however from LSL I get an error page containing this message "Access control configuration prevents your request from
being allowed at this time. Please contact your service provider if
you feel this is incorrect." - Darling Brody.

EDIT : Yes you're right Darling. It seems they've blocked this acces from within the world... I still wonder why, especially as there are some workarounds to this...
Anyway I discovered there is a JIRA issue for this. Please vote for the unblock !
https://jira.secondlife.com/browse/SVC-3122
- Mae

EDIT : OK after having read this article from LL: http://wiki.secondlife.com/wiki/SearchAPI, it seems proxy usage is allowed. So I modified the upper code in order to go through a proxy machine and it works again :)
- Mae

EDIT: After review, it appears the Yahoo Babelfish proxy you are using above does not return the results expected. I rewrote this to allow different proxies by a simple configuration. This now uses Google instead of Babelfish by default. This does not, however, work for any avatars that do not have a Profile filled out. I'm researching this and trying to see if there is a solution.

This version can handle multiple requests at once. Replies have changed slightly, as the found key is returned in the "key" field instead of the message field. In addition, failure of any kind results in a NULL_KEY being returned, and status information is returned in the message field. - [[User:Sensei Schism|Sensei Schism]]

Library:
<lsl>
integer SERVICE_NAME2KEY = 19790;
integer SERVICE_NAME2KEY_RET = 19791;

string proxy = "http://www.google.com/gwt/n?_gwt_noimg=1&u=";
string search = "http://search.secondlife.com/client_search.php?s=People&q=";
string result = "http%3A%2F%2Fworld.secondlife.com%2Fresident%2F";
string notfound = "There were no matches for ";

list requests;

default
{
on_rez(integer i) { llResetScript(); }

state_entry()
{
requests = [];
}

link_message(integer s, integer n, string m, key i)
{
if (n == SERVICE_NAME2KEY) {
if(llListFindList(requests,[m]) == -1) {
string url = proxy+llEscapeURL(search+m);
key id = llHTTPRequest(url, [], "");
requests += [(string)id,m];
}
}
}

http_response(key request_id, integer status, list metadata, string body)
{
integer p = llListFindList(requests,[(string)request_id]);
if (p != -1) {
string n = llList2String(requests,p+1);
integer f = llSubStringIndex(body,result);
if(f == -1) {
f = llSubStringIndex(body,notfound);
if(f == -1)
llMessageLinked(LINK_SET,SERVICE_NAME2KEY_RET,"Error with lookup!",NULL_KEY);
else
llMessageLinked(LINK_SET,SERVICE_NAME2KEY_RET,n+" not found.",NULL_KEY);
} else {
f += llStringLength(result);
string a = llGetSubString(body,f,f+35);

llMessageLinked(LINK_SET,SERVICE_NAME2KEY_RET,n,(key)a);
}
requests = llDeleteSubList(requests,p,p+1);
}
}
}
</lsl>

Example use (listens on channel /1 and looks up anything sent in that channel):
<lsl>
integer SERVICE_NAME2KEY = 19790;
integer SERVICE_NAME2KEY_RET = 19791;

default
{
on_rez(integer i) { llResetScript(); }

state_entry()
{
llListen(1, "", "", "");
}

listen(integer c, string n, key i, string m)
{
llSay(0,"Requesting key for "+m);
llMessageLinked(LINK_THIS, SERVICE_NAME2KEY, m, "");
}

link_message(integer f, integer n, string s, key i)
{
if(n == SERVICE_NAME2KEY_RET) {
if(i == NULL_KEY)
llSay(0,"Lookup failed. Returned: "+s);
else
llSay(0,s+": "+(string)i);
}
}
}
</lsl>

{{LSLC|Library}}

Name2Key in LSL

2009-01-19T23:29:36Z

Sensei Schism:

{{LSL Header}}

Still missing Name2Key functions in your code ? Still relying on external databases that are not always up to date with latests SL subscribers ?

Well now you can solve this by yourself, within your LSL script ! All you have to do is to rely on LL Search engine !

I put a kind of "library" and a sample of usage for your convenience

Library:
<lsl>
integer SERVICE_NAME2KEY = 19790;
integer SERVICE_NAME2KEY_RET=19791;
key ONE_KEY = "FFFFFFFF-FFFF-FFFF-FFFF-FFFFFFFFFFFF";

integer gCurrentRequest=0;
key gReqId=NULL_KEY;
string gToSearch="";

ReturnService(integer Status, string message)
{
key Key;

if (Status)
Key=ONE_KEY;
else
Key=NULL_KEY;

llMessageLinked(LINK_THIS, gCurrentRequest+1, message, Key);

gCurrentRequest=0;
gReqId=NULL_KEY;
gToSearch="";
}

SvcName2Key(string message)
{
if (gCurrentRequest) {
ReturnService(FALSE, "BUSY");
}
list Args=llParseString2List(message, [" "], []);

string FirstName = llList2String(Args, 0);
string LastName = llList2String(Args, 1);

gCurrentRequest=SERVICE_NAME2KEY;

string url="http://66.196.80.202/babelfish/translate_url_content?.intl=us&lp=fr_en&trurl=http%3A%2F%2Fsearch.secondlife.com%2Fclient_search.php%3Fs%3DResident%26q%3D"+FirstName+"%2520"+LastName;
gToSearch="secondlife:///app/agent/";

gReqId=llHTTPRequest(url, [HTTP_METHOD,"GET"], "");
}

default
{
link_message(integer sender_number, integer number, string message, key id)
{
if (number==SERVICE_NAME2KEY) {
SvcName2Key(message);
}
}

http_response(key request_id, integer status, list metadata, string body)
{
if (request_id==gReqId) {
integer Pos1=llSubStringIndex(body, gToSearch);
integer Pos2=0;
string Ret="";
if (Pos1!=-1) {
body=llGetSubString(body, Pos1+llStringLength(gToSearch), -1);
if (gCurrentRequest==SERVICE_NAME2KEY) {
Pos2=llStringLength((string)NULL_KEY);
string Dat=llGetSubString(body, 0, Pos2-1);
if (llStringLength((string)((key)Dat))==llStringLength(NULL_KEY)) {
// Success !
Ret=llGetSubString(body, 0, Pos2-1);
ReturnService(TRUE, Ret);
}
else
ReturnService(FALSE, "UNKNOWN");
}
else
ReturnService(FALSE, "UNKNOWN SERVICE");
}
else
ReturnService(FALSE, "UNKNOWN");
}

}
}
</lsl>

Usage sample:
<lsl>
integer SERVICE_NAME2KEY = 19790;
integer SERVICE_NAME2KEY_RET=19791;
key ONE_KEY = "FFFFFFFF-FFFF-FFFF-FFFF-FFFFFFFFFFFF";

MyName2Key(string message)
{
llMessageLinked(LINK_THIS, SERVICE_NAME2KEY, message, NULL_KEY);
}

default
{
touch_start(integer total_number)
{
llOwnerSay("Searching key for avatar named Secret2 Linden");
MyName2Key("Secret2 Linden");
}

link_message(integer sender_number, integer number, string message, key id)
{
if (number==SERVICE_NAME2KEY_RET)
{
if (id==ONE_KEY)
llOwnerSay("Found ! Key is: "+message);
else
llOwnerSay("Error: "+message);
}
}
}
</lsl>

Hope this helps !
[[User:Maeva Anatine|Maeva Anatine]]

EDIT : Looks like the Lindens have either broken or blocked this function. It works from my browser, however from LSL I get an error page containing this message "Access control configuration prevents your request from
being allowed at this time. Please contact your service provider if
you feel this is incorrect." - Darling Brody.

EDIT : Yes you're right Darling. It seems they've blocked this acces from within the world... I still wonder why, especially as there are some workarounds to this...
Anyway I discovered there is a JIRA issue for this. Please vote for the unblock !
https://jira.secondlife.com/browse/SVC-3122
- Mae

EDIT : OK after having read this article from LL: http://wiki.secondlife.com/wiki/SearchAPI, it seems proxy usage is allowed. So I modified the upper code in order to go through a proxy machine and it works again :)
- Mae

EDIT: After reviewing this (and it not working for me for some reason) I rewrote this to allow different proxies by a simple configuration. This now uses Google instead of bablefish. It now can handle multiple requests at once. Replies have changed slightly, as the found key is returned in the "key" field instead of the message field. In addition, failure of any kind results in a NULL_KEY being returned, and status information is returned in the message field. - [[User:Sensei Schism|Sensei Schism]]

Library:
<lsl>
integer SERVICE_NAME2KEY = 19790;
integer SERVICE_NAME2KEY_RET = 19791;

string proxy = "http://www.google.com/gwt/n?_gwt_noimg=1&u=";
string search = "http://search.secondlife.com/client_search.php?s=People&q=";
string result = "http%3A%2F%2Fworld.secondlife.com%2Fresident%2F";
string notfound = "There were no matches for ";

list requests;

default
{
on_rez(integer i) { llResetScript(); }

state_entry()
{
requests = [];
}

link_message(integer s, integer n, string m, key i)
{
if (n == SERVICE_NAME2KEY) {
if(llListFindList(requests,[m]) == -1) {
string url = proxy+llEscapeURL(search+m);
key id = llHTTPRequest(url, [], "");
requests += [(string)id,m];
}
}
}

http_response(key request_id, integer status, list metadata, string body)
{
integer p = llListFindList(requests,[(string)request_id]);
if (p != -1) {
string n = llList2String(requests,p+1);
integer f = llSubStringIndex(body,result);
if(f == -1) {
f = llSubStringIndex(body,notfound);
if(f == -1)
llMessageLinked(LINK_SET,SERVICE_NAME2KEY_RET,"Error with lookup!",NULL_KEY);
else
llMessageLinked(LINK_SET,SERVICE_NAME2KEY_RET,n+" not found.",NULL_KEY);
} else {
f += llStringLength(result);
string a = llGetSubString(body,f,f+35);

llMessageLinked(LINK_SET,SERVICE_NAME2KEY_RET,n,(key)a);
}
requests = llDeleteSubList(requests,p,p+1);
}
}
}
</lsl>

Example use (listens on channel /1 and looks up anything sent in that channel):
<lsl>
integer SERVICE_NAME2KEY = 19790;
integer SERVICE_NAME2KEY_RET = 19791;

default
{
on_rez(integer i) { llResetScript(); }

state_entry()
{
llListen(1, "", "", "");
}

listen(integer c, string n, key i, string m)
{
llSay(0,"Requesting key for "+m);
llMessageLinked(LINK_THIS, SERVICE_NAME2KEY, m, "");
}

link_message(integer f, integer n, string s, key i)
{
if(n == SERVICE_NAME2KEY_RET) {
if(i == NULL_KEY)
llSay(0,"Lookup failed. Returned: "+s);
else
llSay(0,s+": "+(string)i);
}
}
}
</lsl>

Hope this helps!

{{LSLC|Library}}

LlKey2Name

2009-01-19T23:28:02Z

Sensei Schism:

{{LSL_Function/object|id|prim or avatar|sim=*}}{{LSL_Function
|func_id=210|func_sleep=0.0|func_energy=10.0
|sort=Key2Name|func=llKey2Name
|return_type=string|p1_type=key|p1_name=id
|func_footnote='''id''' must specify a valid rezzed prim or avatar key, present in or otherwise known to the sim in which the script is running, otherwise an empty string is returned. In the case of an avatar, this function will still return a valid name if the avatar is a child agent of the sim (i.e., in an adjacent sim, but presently able to see into the one the script is in), or for a short period after the avatar leaves the sim (specifically, when the client completely disconnects from the sim, either as a main or child agent). 
Keys of inventory items will not work; in the case of these, use [[llGetInventoryName]] instead.
|func_desc
|return_text=that is the name of the prim or avatar specified by '''id'''.
|spec
|caveats=* It is difficult to tell the difference between a prim that has a name that is an empty string and a prim that is not in the sim, or because an invalid key was specified.
* To get around the "avatar must be present" limitation, you can use the [[llRequestAgentData]] function and the [[dataserver]] event to obtain the avatar's name from a key.
* There is no opposite function ([[llName2Key]]) available. However, there are third-party websites which can be queried using the [[llHTTPRequest]] function and the [[http_response]] event.
|constants
|examples=<lsl>// Best viewed in Chat History (ctrl-h)
default
{
collision_start(integer a)//Announce who collided
{
llSay(0, "llKey2Name: " + llKey2Name(llDetectedKey(0)) +
"\nllDetectedName: " + llDetectedName(0));
}
touch_start(integer a)
{
llSay(0,"llKey2Name: " + llKey2Name(llDetectedKey(0)) +
"\nllDetectedName: " + llDetectedName(0));
}
}</lsl>
|helpers
|also_functions=
{{LSL DefineRow||[[llGetObjectDetails]]}}
{{LSL DefineRow||[[llRequestAgentData]]|Uses the [[dataserver]] to request avatar information}}
|also_events
|also_articles=
{{LSL DefineRow||[[Prim Attribute Overloading]]}}
|also_tests
|notes='''Active Name2Key Databases:'''
*http://w-hat.com/name2key
*http://kdc.ethernia.net/sys/name2key.php

'''Dead Name2Key Databases:'''
*<s>http://www.libsecondlife.org/protocol/index.php/Name2key</s>(Appears to be gone as of Apr 2008, but search for name2key on that site for more information)
*<s>http://www.ulrikasheim.org/tools/name2key.html</s>(Appears to be gone as of Apr 2008)

'''Name2Key Libraries:'''
*[[Name2Key_in_LSL]]

|cat1=Avatar
|cat2=Prim
|cat3=Key
|cat4
}}

LlKey2Name

2009-01-19T23:26:44Z

Sensei Schism:

{{LSL_Function/object|id|prim or avatar|sim=*}}{{LSL_Function
|func_id=210|func_sleep=0.0|func_energy=10.0
|sort=Key2Name|func=llKey2Name
|return_type=string|p1_type=key|p1_name=id
|func_footnote='''id''' must specify a valid rezzed prim or avatar key, present in or otherwise known to the sim in which the script is running, otherwise an empty string is returned. In the case of an avatar, this function will still return a valid name if the avatar is a child agent of the sim (i.e., in an adjacent sim, but presently able to see into the one the script is in), or for a short period after the avatar leaves the sim (specifically, when the client completely disconnects from the sim, either as a main or child agent). 
Keys of inventory items will not work; in the case of these, use [[llGetInventoryName]] instead.
|func_desc
|return_text=that is the name of the prim or avatar specified by '''id'''.
|spec
|caveats=* It is difficult to tell the difference between a prim that has a name that is an empty string and a prim that is not in the sim, or because an invalid key was specified.
* To get around the "avatar must be present" limitation, you can use the [[llRequestAgentData]] function and the [[dataserver]] event to obtain the avatar's name from a key.
* There is no opposite function ([[llName2Key]]) available. However, there are third-party websites which can be queried using the [[llHTTPRequest]] function and the [[http_response]] event.
|constants
|examples=<lsl>// Best viewed in Chat History (ctrl-h)
default
{
collision_start(integer a)//Announce who collided
{
llSay(0, "llKey2Name: " + llKey2Name(llDetectedKey(0)) +
"\nllDetectedName: " + llDetectedName(0));
}
touch_start(integer a)
{
llSay(0,"llKey2Name: " + llKey2Name(llDetectedKey(0)) +
"\nllDetectedName: " + llDetectedName(0));
}
}</lsl>
|helpers
|also_functions=
{{LSL DefineRow||[[llGetObjectDetails]]}}
{{LSL DefineRow||[[llRequestAgentData]]|Uses the [[dataserver]] to request avatar information}}
|also_events
|also_articles=
{{LSL DefineRow||[[Prim Attribute Overloading]]}}
|also_tests
|notes='''Active Name2Key Databases:'''
*http://w-hat.com/name2key
*http://kdc.ethernia.net/sys/name2key.php

'''Dead Name2Key Databases:'''
*<s>http://www.libsecondlife.org/protocol/index.php/Name2key</s>(Appears to be gone as of Apr 2008, but search for name2key on that site for more information)
*<s>http://www.ulrikasheim.org/tools/name2key.html</s>(Appears to be gone as of Apr 2008)

'''Name2Key Libraries:'''
*http://wiki.secondlife.com/wiki/Name2Key_in_LSL

|cat1=Avatar
|cat2=Prim
|cat3=Key
|cat4
}}

LlKey2Name

2009-01-19T23:25:26Z

Sensei Schism:

{{LSL_Function/object|id|prim or avatar|sim=*}}{{LSL_Function
|func_id=210|func_sleep=0.0|func_energy=10.0
|sort=Key2Name|func=llKey2Name
|return_type=string|p1_type=key|p1_name=id
|func_footnote='''id''' must specify a valid rezzed prim or avatar key, present in or otherwise known to the sim in which the script is running, otherwise an empty string is returned. In the case of an avatar, this function will still return a valid name if the avatar is a child agent of the sim (i.e., in an adjacent sim, but presently able to see into the one the script is in), or for a short period after the avatar leaves the sim (specifically, when the client completely disconnects from the sim, either as a main or child agent). 
Keys of inventory items will not work; in the case of these, use [[llGetInventoryName]] instead.
|func_desc
|return_text=that is the name of the prim or avatar specified by '''id'''.
|spec
|caveats=* It is difficult to tell the difference between a prim that has a name that is an empty string and a prim that is not in the sim, or because an invalid key was specified.
* To get around the "avatar must be present" limitation, you can use the [[llRequestAgentData]] function and the [[dataserver]] event to obtain the avatar's name from a key.
* There is no opposite function ([[llName2Key]]) available. However, there are third-party websites which can be queried using the [[llHTTPRequest]] function and the [[http_response]] event.
|constants
|examples=<lsl>// Best viewed in Chat History (ctrl-h)
default
{
collision_start(integer a)//Announce who collided
{
llSay(0, "llKey2Name: " + llKey2Name(llDetectedKey(0)) +
"\nllDetectedName: " + llDetectedName(0));
}
touch_start(integer a)
{
llSay(0,"llKey2Name: " + llKey2Name(llDetectedKey(0)) +
"\nllDetectedName: " + llDetectedName(0));
}
}</lsl>
|helpers
|also_functions=
{{LSL DefineRow||[[llGetObjectDetails]]}}
{{LSL DefineRow||[[llRequestAgentData]]|Uses the [[dataserver]] to request avatar information}}
|also_events
|also_articles=
{{LSL DefineRow||[[Prim Attribute Overloading]]}}
|also_tests
|notes='''Active Name2Key databases:'''
*http://w-hat.com/name2key
*http://kdc.ethernia.net/sys/name2key.php

'''Dead databases:'''
*<s>http://www.libsecondlife.org/protocol/index.php/Name2key</s>(Appears to be gone as of Apr 2008, but search for name2key on that site for more information)
*<s>http://www.ulrikasheim.org/tools/name2key.html</s>(Appears to be gone as of Apr 2008)

'''Library Functions'''
*https://wiki.secondlife.com/wiki/Name2Key_in_LSL

|cat1=Avatar
|cat2=Prim
|cat3=Key
|cat4
}}

LlKey2Name

2009-01-19T23:24:48Z

Sensei Schism:

{{LSL_Function/object|id|prim or avatar|sim=*}}{{LSL_Function
|func_id=210|func_sleep=0.0|func_energy=10.0
|sort=Key2Name|func=llKey2Name
|return_type=string|p1_type=key|p1_name=id
|func_footnote='''id''' must specify a valid rezzed prim or avatar key, present in or otherwise known to the sim in which the script is running, otherwise an empty string is returned. In the case of an avatar, this function will still return a valid name if the avatar is a child agent of the sim (i.e., in an adjacent sim, but presently able to see into the one the script is in), or for a short period after the avatar leaves the sim (specifically, when the client completely disconnects from the sim, either as a main or child agent). 
Keys of inventory items will not work; in the case of these, use [[llGetInventoryName]] instead.
|func_desc
|return_text=that is the name of the prim or avatar specified by '''id'''.
|spec
|caveats=* It is difficult to tell the difference between a prim that has a name that is an empty string and a prim that is not in the sim, or because an invalid key was specified.
* To get around the "avatar must be present" limitation, you can use the [[llRequestAgentData]] function and the [[dataserver]] event to obtain the avatar's name from a key.
* There is no opposite function ([[llName2Key]]) available. However, there are third-party websites which can be queried using the [[llHTTPRequest]] function and the [[http_response]] event.
|constants
|examples=<lsl>// Best viewed in Chat History (ctrl-h)
default
{
collision_start(integer a)//Announce who collided
{
llSay(0, "llKey2Name: " + llKey2Name(llDetectedKey(0)) +
"\nllDetectedName: " + llDetectedName(0));
}
touch_start(integer a)
{
llSay(0,"llKey2Name: " + llKey2Name(llDetectedKey(0)) +
"\nllDetectedName: " + llDetectedName(0));
}
}</lsl>
|helpers
|also_functions=
{{LSL DefineRow||[[llGetObjectDetails]]}}
{{LSL DefineRow||[[llRequestAgentData]]|Uses the [[dataserver]] to request avatar information}}
|also_events
|also_articles=
{{LSL DefineRow||[[Prim Attribute Overloading]]}}
|also_tests
|notes='''Active Name2Key databases:'''
*http://w-hat.com/name2key
*http://kdc.ethernia.net/sys/name2key.php

'''Dead databases:'''
*<s>http://www.libsecondlife.org/protocol/index.php/Name2key</s>(Appears to be gone as of Apr 2008, but search for name2key on that site for more information)
*<s>http://www.ulrikasheim.org/tools/name2key.html</s>(Appears to be gone as of Apr 2008)

'''Library Functions'''
*<s>https://wiki.secondlife.com/wiki/Name2Key_in_LSL</s>

|cat1=Avatar
|cat2=Prim
|cat3=Key
|cat4
}}

Name2Key in LSL

2009-01-19T23:16:22Z

Sensei Schism:

{{LSL Header}}

Still missing Name2Key functions in your code ? Still relying on external databases that are not always up to date with latests SL subscribers ?

Well now you can solve this by yourself, within your LSL script ! All you have to do is to rely on LL Search engine !

I put a kind of "library" and a sample of usage for your convenience

Library:
<lsl>
integer SERVICE_NAME2KEY = 19790;
integer SERVICE_NAME2KEY_RET=19791;
key ONE_KEY = "FFFFFFFF-FFFF-FFFF-FFFF-FFFFFFFFFFFF";

integer gCurrentRequest=0;
key gReqId=NULL_KEY;
string gToSearch="";

ReturnService(integer Status, string message)
{
key Key;

if (Status)
Key=ONE_KEY;
else
Key=NULL_KEY;

llMessageLinked(LINK_THIS, gCurrentRequest+1, message, Key);

gCurrentRequest=0;
gReqId=NULL_KEY;
gToSearch="";
}

SvcName2Key(string message)
{
if (gCurrentRequest) {
ReturnService(FALSE, "BUSY");
}
list Args=llParseString2List(message, [" "], []);

string FirstName = llList2String(Args, 0);
string LastName = llList2String(Args, 1);

gCurrentRequest=SERVICE_NAME2KEY;

string url="http://66.196.80.202/babelfish/translate_url_content?.intl=us&lp=fr_en&trurl=http%3A%2F%2Fsearch.secondlife.com%2Fclient_search.php%3Fs%3DResident%26q%3D"+FirstName+"%2520"+LastName;
gToSearch="secondlife:///app/agent/";

gReqId=llHTTPRequest(url, [HTTP_METHOD,"GET"], "");
}

default
{
link_message(integer sender_number, integer number, string message, key id)
{
if (number==SERVICE_NAME2KEY) {
SvcName2Key(message);
}
}

http_response(key request_id, integer status, list metadata, string body)
{
if (request_id==gReqId) {
integer Pos1=llSubStringIndex(body, gToSearch);
integer Pos2=0;
string Ret="";
if (Pos1!=-1) {
body=llGetSubString(body, Pos1+llStringLength(gToSearch), -1);
if (gCurrentRequest==SERVICE_NAME2KEY) {
Pos2=llStringLength((string)NULL_KEY);
string Dat=llGetSubString(body, 0, Pos2-1);
if (llStringLength((string)((key)Dat))==llStringLength(NULL_KEY)) {
// Success !
Ret=llGetSubString(body, 0, Pos2-1);
ReturnService(TRUE, Ret);
}
else
ReturnService(FALSE, "UNKNOWN");
}
else
ReturnService(FALSE, "UNKNOWN SERVICE");
}
else
ReturnService(FALSE, "UNKNOWN");
}

}
}
</lsl>

Usage sample:
<lsl>
integer SERVICE_NAME2KEY = 19790;
integer SERVICE_NAME2KEY_RET=19791;
key ONE_KEY = "FFFFFFFF-FFFF-FFFF-FFFF-FFFFFFFFFFFF";

MyName2Key(string message)
{
llMessageLinked(LINK_THIS, SERVICE_NAME2KEY, message, NULL_KEY);
}

default
{
touch_start(integer total_number)
{
llOwnerSay("Searching key for avatar named Secret2 Linden");
MyName2Key("Secret2 Linden");
}

link_message(integer sender_number, integer number, string message, key id)
{
if (number==SERVICE_NAME2KEY_RET)
{
if (id==ONE_KEY)
llOwnerSay("Found ! Key is: "+message);
else
llOwnerSay("Error: "+message);
}
}
}
</lsl>

Hope this helps !
[[User:Maeva Anatine|Maeva Anatine]]

EDIT : Looks like the Lindens have either broken or blocked this function. It works from my browser, however from LSL I get an error page containing this message "Access control configuration prevents your request from
being allowed at this time. Please contact your service provider if
you feel this is incorrect." - Darling Brody.

EDIT : Yes you're right Darling. It seems they've blocked this acces from within the world... I still wonder why, especially as there are some workarounds to this...
Anyway I discovered there is a JIRA issue for this. Please vote for the unblock !
https://jira.secondlife.com/browse/SVC-3122
- Mae

EDIT : OK after having read this article from LL: http://wiki.secondlife.com/wiki/SearchAPI, it seems proxy usage is allowed. So I modified the upper code in order to go through a proxy machine and it works again :)
- Mae

EDIT: After reviewing this (and it not working for me for some reason) I rewrote this to allow different proxies by a simple configuration. This now uses Google instead of bablefish. It now can handle multiple requests at once. Replies have changed slightly, as the found key is returned in the "key" field instead of the message field. In addition, failure of any kind results in a NULL_KEY being returned, and status information is returned in the message field. - [[User:Sensei Schism|Sensei Schism]]

Library:
<lsl>
integer SERVICE_NAME2KEY = 19790;
integer SERVICE_NAME2KEY_RET = 19791;

string proxy = "http://www.google.com/gwt/n?_gwt_noimg=1&u=";
string search = "http://search.secondlife.com/client_search.php?s=People&q=";
string result = "http%3A%2F%2Fworld.secondlife.com%2Fresident%2F";
string notfound = "There were no matches for ";

list requests;

default
{
on_rez(integer i) { llResetScript(); }

state_entry()
{
requests = [];
}

link_message(integer s, integer n, string m, key i)
{
if (n == SERVICE_NAME2KEY) {
if(llListFindList(requests,[m]) == -1) {
string url = proxy+llEscapeURL(search+m);
key id = llHTTPRequest(url, [], "");
requests += [(string)id,m];
}
}
}

http_response(key request_id, integer status, list metadata, string body)
{
integer p = llListFindList(requests,[(string)request_id]);
if (p != -1) {
string n = llList2String(requests,p+1);
integer f = llSubStringIndex(body,result);
if(f == -1) {
f = llSubStringIndex(body,notfound);
if(f == -1)
llMessageLinked(LINK_SET,SERVICE_NAME2KEY_RET,"Error with lookup!",NULL_KEY);
else
llMessageLinked(LINK_SET,SERVICE_NAME2KEY_RET,n+" not found.",NULL_KEY);
} else {
f += llStringLength(result);
string a = llGetSubString(body,f,f+35);

llMessageLinked(LINK_SET,SERVICE_NAME2KEY_RET,n,(key)a);
}
requests = llDeleteSubList(requests,p,p+1);
}
}
}
</lsl>

Example use (listens on channel /1 and looks up anything send in that channel):
<lsl>
integer SERVICE_NAME2KEY = 19790;
integer SERVICE_NAME2KEY_RET = 19791;

default
{
on_rez(integer i) { llResetScript(); }

state_entry()
{
llListen(1, "", "", "");
}

listen(integer c, string n, key i, string m)
{
llSay(0,"Requesting key for "+m);
llMessageLinked(LINK_THIS, SERVICE_NAME2KEY, m, "");
}

link_message(integer f, integer n, string s, key i)
{
if(n == SERVICE_NAME2KEY_RET) {
if(i == NULL_KEY)
llSay(0,"Lookup failed. Returned: "+s);
else
llSay(0,s+": "+(string)i);
}
}
}
</lsl>

Hope this helps!

{{LSLC|Library}}

Name2Key in LSL

2009-01-19T23:15:20Z

Sensei Schism:

{{LSL Header}}

Still missing Name2Key functions in your code ? Still relying on external databases that are not always up to date with latests SL subscribers ?

Well now you can solve this by yourself, within your LSL script ! All you have to do is to rely on LL Search engine !

I put a kind of "library" and a sample of usage for your convenience

Library:
<lsl>
integer SERVICE_NAME2KEY = 19790;
integer SERVICE_NAME2KEY_RET=19791;
key ONE_KEY = "FFFFFFFF-FFFF-FFFF-FFFF-FFFFFFFFFFFF";

integer gCurrentRequest=0;
key gReqId=NULL_KEY;
string gToSearch="";

ReturnService(integer Status, string message)
{
key Key;

if (Status)
Key=ONE_KEY;
else
Key=NULL_KEY;

llMessageLinked(LINK_THIS, gCurrentRequest+1, message, Key);

gCurrentRequest=0;
gReqId=NULL_KEY;
gToSearch="";
}

SvcName2Key(string message)
{
if (gCurrentRequest) {
ReturnService(FALSE, "BUSY");
}
list Args=llParseString2List(message, [" "], []);

string FirstName = llList2String(Args, 0);
string LastName = llList2String(Args, 1);

gCurrentRequest=SERVICE_NAME2KEY;

string url="http://66.196.80.202/babelfish/translate_url_content?.intl=us&lp=fr_en&trurl=http%3A%2F%2Fsearch.secondlife.com%2Fclient_search.php%3Fs%3DResident%26q%3D"+FirstName+"%2520"+LastName;
gToSearch="secondlife:///app/agent/";

gReqId=llHTTPRequest(url, [HTTP_METHOD,"GET"], "");
}

default
{
link_message(integer sender_number, integer number, string message, key id)
{
if (number==SERVICE_NAME2KEY) {
SvcName2Key(message);
}
}

http_response(key request_id, integer status, list metadata, string body)
{
if (request_id==gReqId) {
integer Pos1=llSubStringIndex(body, gToSearch);
integer Pos2=0;
string Ret="";
if (Pos1!=-1) {
body=llGetSubString(body, Pos1+llStringLength(gToSearch), -1);
if (gCurrentRequest==SERVICE_NAME2KEY) {
Pos2=llStringLength((string)NULL_KEY);
string Dat=llGetSubString(body, 0, Pos2-1);
if (llStringLength((string)((key)Dat))==llStringLength(NULL_KEY)) {
// Success !
Ret=llGetSubString(body, 0, Pos2-1);
ReturnService(TRUE, Ret);
}
else
ReturnService(FALSE, "UNKNOWN");
}
else
ReturnService(FALSE, "UNKNOWN SERVICE");
}
else
ReturnService(FALSE, "UNKNOWN");
}

}
}
</lsl>

Usage sample:
<lsl>
integer SERVICE_NAME2KEY = 19790;
integer SERVICE_NAME2KEY_RET=19791;
key ONE_KEY = "FFFFFFFF-FFFF-FFFF-FFFF-FFFFFFFFFFFF";

MyName2Key(string message)
{
llMessageLinked(LINK_THIS, SERVICE_NAME2KEY, message, NULL_KEY);
}

default
{
touch_start(integer total_number)
{
llOwnerSay("Searching key for avatar named Secret2 Linden");
MyName2Key("Secret2 Linden");
}

link_message(integer sender_number, integer number, string message, key id)
{
if (number==SERVICE_NAME2KEY_RET)
{
if (id==ONE_KEY)
llOwnerSay("Found ! Key is: "+message);
else
llOwnerSay("Error: "+message);
}
}
}
</lsl>

Hope this helps !
[[User:Maeva Anatine|Maeva Anatine]]

EDIT : Looks like the Lindens have either broken or blocked this function. It works from my browser, however from LSL I get an error page containing this message "Access control configuration prevents your request from
being allowed at this time. Please contact your service provider if
you feel this is incorrect." - Darling Brody.

EDIT : Yes you're right Darling. It seems they've blocked this acces from within the world... I still wonder why, especially as there are some workarounds to this...
Anyway I discovered there is a JIRA issue for this. Please vote for the unblock !
https://jira.secondlife.com/browse/SVC-3122
- Mae

EDIT : OK after having read this article from LL: http://wiki.secondlife.com/wiki/SearchAPI, it seems proxy usage is allowed. So I modified the upper code in order to go through a proxy machine and it works again :)
- Mae

EDIT: After reviewing this (and it not working for me for some reason) I rewrote this to allow different proxies by a simple configuration. This now uses Google instead of bablefish. It now can handle multiple requests at once. Replies have changed slightly, as the found key is returned in the "key" field instead of the message field. In addition, failure of any kind results in a NULL_KEY being returned, and status information is returned in the message field. - Sensei Schism

Library:
<lsl>
integer SERVICE_NAME2KEY = 19790;
integer SERVICE_NAME2KEY_RET = 19791;

string proxy = "http://www.google.com/gwt/n?_gwt_noimg=1&u=";
string search = "http://search.secondlife.com/client_search.php?s=People&q=";
string result = "http%3A%2F%2Fworld.secondlife.com%2Fresident%2F";
string notfound = "There were no matches for ";

list requests;

default
{
on_rez(integer i) { llResetScript(); }

state_entry()
{
requests = [];
}

link_message(integer s, integer n, string m, key i)
{
if (n == SERVICE_NAME2KEY) {
if(llListFindList(requests,[m]) == -1) {
string url = proxy+llEscapeURL(search+m);
key id = llHTTPRequest(url, [], "");
requests += [(string)id,m];
}
}
}

http_response(key request_id, integer status, list metadata, string body)
{
integer p = llListFindList(requests,[(string)request_id]);
if (p != -1) {
string n = llList2String(requests,p+1);
integer f = llSubStringIndex(body,result);
if(f == -1) {
f = llSubStringIndex(body,notfound);
if(f == -1)
llMessageLinked(LINK_SET,SERVICE_NAME2KEY_RET,"Error with lookup!",NULL_KEY);
else
llMessageLinked(LINK_SET,SERVICE_NAME2KEY_RET,n+" not found.",NULL_KEY);
} else {
f += llStringLength(result);
string a = llGetSubString(body,f,f+35);

llMessageLinked(LINK_SET,SERVICE_NAME2KEY_RET,n,(key)a);
}
requests = llDeleteSubList(requests,p,p+1);
}
}
}
</lsl>

Example use (listens on channel /1 and looks up anything send in that channel):
<lsl>
integer SERVICE_NAME2KEY = 19790;
integer SERVICE_NAME2KEY_RET = 19791;

default
{
on_rez(integer i) { llResetScript(); }

state_entry()
{
llListen(1, "", "", "");
}

listen(integer c, string n, key i, string m)
{
llSay(0,"Requesting key for "+m);
llMessageLinked(LINK_THIS, SERVICE_NAME2KEY, m, "");
}

link_message(integer f, integer n, string s, key i)
{
if(n == SERVICE_NAME2KEY_RET) {
if(i == NULL_KEY)
llSay(0,"Lookup failed. Returned: "+s);
else
llSay(0,s+": "+(string)i);
}
}
}
</lsl>

Hope this helps!

{{LSLC|Library}}

Name2Key in LSL

2009-01-19T23:14:23Z

Sensei Schism:

{{LSL Header}}

Still missing Name2Key functions in your code ? Still relying on external databases that are not always up to date with latests SL subscribers ?

Well now you can solve this by yourself, within your LSL script ! All you have to do is to rely on LL Search engine !

I put a kind of "library" and a sample of usage for your convenience

Library:
<lsl>
integer SERVICE_NAME2KEY = 19790;
integer SERVICE_NAME2KEY_RET=19791;
key ONE_KEY = "FFFFFFFF-FFFF-FFFF-FFFF-FFFFFFFFFFFF";

integer gCurrentRequest=0;
key gReqId=NULL_KEY;
string gToSearch="";

ReturnService(integer Status, string message)
{
key Key;

if (Status)
Key=ONE_KEY;
else
Key=NULL_KEY;

llMessageLinked(LINK_THIS, gCurrentRequest+1, message, Key);

gCurrentRequest=0;
gReqId=NULL_KEY;
gToSearch="";
}

SvcName2Key(string message)
{
if (gCurrentRequest) {
ReturnService(FALSE, "BUSY");
}
list Args=llParseString2List(message, [" "], []);

string FirstName = llList2String(Args, 0);
string LastName = llList2String(Args, 1);

gCurrentRequest=SERVICE_NAME2KEY;

string url="http://66.196.80.202/babelfish/translate_url_content?.intl=us&lp=fr_en&trurl=http%3A%2F%2Fsearch.secondlife.com%2Fclient_search.php%3Fs%3DResident%26q%3D"+FirstName+"%2520"+LastName;
gToSearch="secondlife:///app/agent/";

gReqId=llHTTPRequest(url, [HTTP_METHOD,"GET"], "");
}

default
{
link_message(integer sender_number, integer number, string message, key id)
{
if (number==SERVICE_NAME2KEY) {
SvcName2Key(message);
}
}

http_response(key request_id, integer status, list metadata, string body)
{
if (request_id==gReqId) {
integer Pos1=llSubStringIndex(body, gToSearch);
integer Pos2=0;
string Ret="";
if (Pos1!=-1) {
body=llGetSubString(body, Pos1+llStringLength(gToSearch), -1);
if (gCurrentRequest==SERVICE_NAME2KEY) {
Pos2=llStringLength((string)NULL_KEY);
string Dat=llGetSubString(body, 0, Pos2-1);
if (llStringLength((string)((key)Dat))==llStringLength(NULL_KEY)) {
// Success !
Ret=llGetSubString(body, 0, Pos2-1);
ReturnService(TRUE, Ret);
}
else
ReturnService(FALSE, "UNKNOWN");
}
else
ReturnService(FALSE, "UNKNOWN SERVICE");
}
else
ReturnService(FALSE, "UNKNOWN");
}

}
}
</lsl>

Usage sample:
<lsl>
integer SERVICE_NAME2KEY = 19790;
integer SERVICE_NAME2KEY_RET=19791;
key ONE_KEY = "FFFFFFFF-FFFF-FFFF-FFFF-FFFFFFFFFFFF";

MyName2Key(string message)
{
llMessageLinked(LINK_THIS, SERVICE_NAME2KEY, message, NULL_KEY);
}

default
{
touch_start(integer total_number)
{
llOwnerSay("Searching key for avatar named Secret2 Linden");
MyName2Key("Secret2 Linden");
}

link_message(integer sender_number, integer number, string message, key id)
{
if (number==SERVICE_NAME2KEY_RET)
{
if (id==ONE_KEY)
llOwnerSay("Found ! Key is: "+message);
else
llOwnerSay("Error: "+message);
}
}
}
</lsl>

Hope this helps !
[[User:Maeva Anatine|Maeva Anatine]]

EDIT : Looks like the Lindens have either broken or blocked this function. It works from my browser, however from LSL I get an error page containing this message "Access control configuration prevents your request from
being allowed at this time. Please contact your service provider if
you feel this is incorrect." - Darling Brody.

EDIT : Yes you're right Darling. It seems they've blocked this acces from within the world... I still wonder why, especially as there are some workarounds to this...
Anyway I discovered there is a JIRA issue for this. Please vote for the unblock !
https://jira.secondlife.com/browse/SVC-3122
- Mae

EDIT : OK after having read this article from LL: http://wiki.secondlife.com/wiki/SearchAPI, it seems proxy usage is allowed. So I modified the upper code in order to go through a proxy machine and it works again :)
- Mae

EDIT: After reviewing this (and it not working for me for some reason) I rewrote this to allow different proxies by a simple configuration. This now uses Google instead of bablefish. It now can handle multiple requests at once. Replies have changed slightly, as the found key is returned in the "key" field instead of the message field. In addition, failure of any kind results in a NULL_KEY being returned, and status information is returned in the message field.

<lsl>
integer SERVICE_NAME2KEY = 19790;
integer SERVICE_NAME2KEY_RET = 19791;

string proxy = "http://www.google.com/gwt/n?_gwt_noimg=1&u=";
string search = "http://search.secondlife.com/client_search.php?s=People&q=";
string result = "http%3A%2F%2Fworld.secondlife.com%2Fresident%2F";
string notfound = "There were no matches for ";

list requests;

default
{
on_rez(integer i) { llResetScript(); }

state_entry()
{
requests = [];
}

link_message(integer s, integer n, string m, key i)
{
if (n == SERVICE_NAME2KEY) {
if(llListFindList(requests,[m]) == -1) {
string url = proxy+llEscapeURL(search+m);
key id = llHTTPRequest(url, [], "");
requests += [(string)id,m];
}
}
}

http_response(key request_id, integer status, list metadata, string body)
{
integer p = llListFindList(requests,[(string)request_id]);
if (p != -1) {
string n = llList2String(requests,p+1);
integer f = llSubStringIndex(body,result);
if(f == -1) {
f = llSubStringIndex(body,notfound);
if(f == -1)
llMessageLinked(LINK_SET,SERVICE_NAME2KEY_RET,"Error with lookup!",NULL_KEY);
else
llMessageLinked(LINK_SET,SERVICE_NAME2KEY_RET,n+" not found.",NULL_KEY);
} else {
f += llStringLength(result);
string a = llGetSubString(body,f,f+35);

llMessageLinked(LINK_SET,SERVICE_NAME2KEY_RET,n,(key)a);
}
requests = llDeleteSubList(requests,p,p+1);
}
}
}
</lsl>

Example use (listens on channel /1 and looks up anything send in that channel):
<lsl>
integer SERVICE_NAME2KEY = 19790;
integer SERVICE_NAME2KEY_RET = 19791;

default
{
on_rez(integer i) { llResetScript(); }

state_entry()
{
llListen(1, "", "", "");
}

listen(integer c, string n, key i, string m)
{
llSay(0,"Requesting key for "+m);
llMessageLinked(LINK_THIS, SERVICE_NAME2KEY, m, "");
}

link_message(integer f, integer n, string s, key i)
{
if(n == SERVICE_NAME2KEY_RET) {
if(i == NULL_KEY)
llSay(0,"Lookup failed. Returned: "+s);
else
llSay(0,s+": "+(string)i);
}
}
}
</lsl>

{{LSLC|Library}}