Genshi example
From OpenSimulator
//********************* //****from notecard**** //********************* integer intchannel; integer paramchannel; integer scanrate; integer scanrange; integer salt; integer certificate; float logrange; float lograngewarning; string url; string sitetitle; vector textcolor; //********************* //********************* //*****avatar vars***** //********************* key av_key; string username; string av_name; string av_surname; string av_created; string av_payinfo; //********************* //********************* //******menu vars****** //********************* list menuAdmin = ["Settings", "My Account", "Website","Logoff"]; list menuRegistered = ["My Account", "Website", "Logoff"]; list menuInactive = ["Website", "About", "Logoff"]; list menuNewUser = ["Register", "Website", "About","Logoff"]; //********************* //********************* //*****http id's******* //********************* string item_request_id; string authenticate_request_id; string register_request_id; string logoff_request_id; string x_request_id; string account_request_id; //********************* //********************* //*****dataserver****** //********************* key settingsDS; key payinfoDS; key bornDS; //********************* //********************* //******handlers******* //********************* string settingsFileName="jSLplus Settings"; integer settingsEntry; integer defaultSalt=666; integer online=-2; string settingsNotify; string sid; string menu; list objectSpecs; string secretWord; string status; string itemName; //********************* //Settings Notecard stuff init() { if (llGetInventoryType(settingsFileName) == INVENTORY_NOTECARD) { online=-1; readSettings(); } else { llOwnerSay("===ERROR===\nNo settings-notecard found!"); } } //Settings Notecard stuff readSettings() { llOwnerSay("Initializing settings. Please wait..."); settingsEntry = 0; settingsNotify="===SETUP SETTINGS==="; settingsDS = llGetNotecardLine(settingsFileName, settingsEntry) ; } checkSettings(string entry) { if((entry != "") && (llGetSubString(entry, 0, 1) != "//")) { list Details = llParseString2List(entry, ["="], []); string keyname = llList2String(Details, 0); string contents = llList2String(Details, 1); if ((keyname != "") && (contents != "")) { if(keyname=="url") {url=contents;settingsNotify+="\nURL: "+contents;} if(keyname=="ssl") {if((integer)contents==1) {url="https://"+url;settingsNotify+="\nSSL: enabled";} else if((integer)contents==0){url="http://"+url;settingsNotify+="\nSSL: disabled (NOT recommended)";} } else if(keyname=="certificate") { certificate=(integer)contents; if(certificate==0) {settingsNotify+="\nCertificate: not required";} else if(certificate==1) {settingsNotify+="\nCertificate: required";} } else if(keyname=="sitetitle") {sitetitle=contents;settingsNotify+="\nSite-title: "+contents;} else if(keyname=="intchannel") {intchannel=(integer)contents;settingsNotify+="\nInternal channel: "+contents;} else if(keyname=="paramchannel") {paramchannel=(integer)contents;settingsNotify+="\nParameter channel: "+contents;} else if(keyname=="salt") {salt=(integer)contents;settingsNotify+="\nHash-Salt: "+contents;} else if(keyname=="scanrate") {scanrate=(integer)contents;settingsNotify+="\nIdle Scan: "+contents+" seconds per scan";} else if(keyname=="scanrange") {scanrange=(integer)contents;settingsNotify+="\nIdle Scanrange: "+contents+" meters";} else if(keyname=="logrange") {logrange=(float)contents;settingsNotify+="\nLogs off: "+contents+" meters from console";} else if(keyname=="lograngewarning") {lograngewarning=(float)contents;settingsNotify+="\nLogoff warning: "+contents+" meters from console";} else if(keyname=="textcolor") {textcolor=string2vector(contents);settingsNotify+="\nTextcolor: "+contents;} } } settingsEntry+=1; settingsDS = llGetNotecardLine(settingsFileName, settingsEntry) ; } vector string2vector(string s) { list foo = llCSV2List(s); vector v; v.x = llList2Float(foo,0); v.y = llList2Float(foo,1); v.z = llList2Float(foo,2); return v; } //Generates secretWord, and a MD5-hash from secretWord and Salt string generatePW(float uniqueness) { list primewords = ["alpha","beta","gamma","zulu","bravo","cappa","tango"]; string randomWord = llList2String(primewords,(integer)llFrand(llGetListLength(primewords))); string randomNumber = (string)llRound(llFrand(uniqueness)); secretWord = randomWord+randomNumber; return llMD5String(secretWord,salt); } returnDialog(string returnMenu) { if(returnMenu == "MENU_UNREGISTERED") { llDialog( av_key, "Select an option...", menuNewUser, intchannel); } else if(returnMenu == "MENU_PROFILE_ACTIVE") { llDialog( av_key, "Select an option...", menuRegistered, intchannel); } else if(returnMenu == "MENU_PROFILE_INACTIVE") { llDialog( av_key, "Select an option...", menuInactive, intchannel); } else if(returnMenu == "MENU_ADMIN") { llDialog( av_key, "Select an option...", menuAdmin, intchannel); } } httpRequest(string function,list params) { if(function=="login") { authenticate_request_id = llHTTPRequest(url+"index.php?option=com_jslplus&view=interface&controller=interface&task=login", [HTTP_METHOD,"POST",HTTP_VERIFY_CERT,certificate,HTTP_MIMETYPE,"application/x-www-form-urlencoded"], "&k="+llList2String(params,0)+"&n="+llList2String(params,1)+"&s="+llList2String(params,2)+"&p="+llList2String(params,3)+"&c=" +llList2String(params,4)+"&h="+generatePW(1000)+"&o="+llList2String(params,5)+"&format=raw"); } if(function =="logoff") { logoff_request_id = llHTTPRequest(url+"index.php?option=com_jslplus&view=interface&controller=interface&task=logoff", [HTTP_METHOD, "POST",HTTP_VERIFY_CERT,certificate,HTTP_MIMETYPE,"application/x-www-form-urlencoded"], "&sid="+llList2String(params,0)+"&format=raw"); } if(function=="register") { register_request_id = llHTTPRequest(url+"index.php?option=com_jslplus&view=interface&controller=interface&task=register", [HTTP_METHOD, "POST",HTTP_VERIFY_CERT,certificate,HTTP_MIMETYPE,"application/x-www-form-urlencoded"], "&h="+llList2String(params,0)+"&e="+llList2String(params,1)+"&sid="+sid+"&format=raw"); } if(function=="additem") { item_request_id = llHTTPRequest(url + "index.php?option=com_jslplus&view=interface&controller=interface&task=additem", [HTTP_METHOD, "POST",HTTP_VERIFY_CERT,certificate,HTTP_MIMETYPE,"application/x-www-form-urlencoded"], "&k="+llList2String(params,0)+"&n="+llList2String(params,1)+"&t="+llList2String(params,2)+"&p="+llList2String(params,3)+llList2String(params,4)+ llList2String(params,5)+"&sid="+sid+"&format=raw"); } } login(key id) { av_key = id; username = llKey2Name(av_key); av_surname = llGetSubString(username, llSubStringIndex(username, " ") + 1, -1); av_name = llGetSubString(username, 0, llSubStringIndex(username, " ")); llSetText("Controller: "+username, textcolor, 1); llInstantMessage(av_key, "Contacting server. Please wait..."); bornDS = llRequestAgentData(av_key, DATA_BORN); payinfoDS = llRequestAgentData(av_key, DATA_PAYINFO); } default { on_rez(integer startparam){ llResetScript(); } state_entry() { if(online==-2) { init(); } llAllowInventoryDrop(FALSE); if(online==TRUE || online==FALSE){ llSetText("Terminal online...",textcolor,1); } else { llSetText("Terminal offline...",<0,0,0>,1); } } touch_start( integer num ) { if(llDetectedKey(0)!=av_key) { return; } else { if(online==-1) { init(); } else { login(llDetectedKey(0)); } } } dataserver(key query_id, string data) { if(query_id == bornDS) { av_created=data; } else if (query_id == payinfoDS) { av_payinfo=data; httpRequest("login",[av_key,av_name,av_surname,av_payinfo,av_created,(string)llGetLinkKey(2)]); } else if (query_id == settingsDS) { if (data != EOF) { checkSettings(data) ; return; } else { llOwnerSay("Settings are loaded. Checking content..."); if(salt==defaultSalt) { llOwnerSay("You didn't setup a unique hash-salt. Please correct the problem..."); state restart_default; } else { llOwnerSay(settingsNotify+"\nSettings ok...\n"); settingsNotify=""; login(llGetOwner()); } } } } //RESPONSE FROM INITIAL HTTP-REQUEST http_response(key request_id, integer httpStatus, list metadata, string body) { if (authenticate_request_id == request_id) { body = llStringTrim(body, STRING_TRIM); list parameters; parameters = llCSV2List(body); status = llList2String(parameters,0); sid = llList2String(parameters,1); string visited = llList2String(parameters,2); //Send link-message to feedback-module(3) llMessageLinked(3,0,status+","+username+","+visited+","+secretWord,av_key); } } //Receives link-messages from feedback-module(3) link_message(integer sender_num, integer lineResponse, string str, key id) { if (sender_num==3) { list input = llCSV2List(str); menu = llList2String(input,0); //Positive message, proceed to logged-in state if(lineResponse==TRUE) { state inuse; } //Reboot when an error-message comes back... else { //Critical error(lineResponse=-1) or non-critical error(lineResponse=0/FALSE) online=lineResponse; state restart_default; } } } changed( integer change ) { if ( change == CHANGED_INVENTORY ) { integer itemCount = llGetInventoryNumber(INVENTORY_ALL); integer i=0; if(itemCount>3) { for(i=0;i<itemCount;i++) { string itemName = llGetInventoryName(INVENTORY_ALL, i); if (itemName != "About" && itemName!="jSLplus Interface" && itemName!="jSLplus Visitor-Tracker" && itemName!="jSLplus Settings") { llSay(0,"You must be logged in, before you may upload items to the ODS!"); llRemoveInventory(itemName); } } } else { llOwnerSay("Settings have been changed. Please wait while the terminal reboots..."); online=-2; state restart_default; } } } } state restart_default { state_entry() { state default; } } state inuse { state_entry() { llSensorRepeat( "", "", AGENT, scanrange, TWO_PI, scanrate); llListen(intchannel, "", av_key, "" ); llListen(paramchannel,"",av_key,""); if(menu=="MENU_PROFILE_ACTIVE" || status=="MENU_ADMIN") { llAllowInventoryDrop(TRUE); string folder = llGetObjectName(); } returnDialog(menu); } touch_start( integer number_detected ) { integer i; for( i = 0; i < number_detected; i++ ) { if (llDetectedKey(i) == av_key) { returnDialog(menu); } else { llSay(0,username+" is currently logged into this terminal. Please wait until this user logged off..."); } } } sensor( integer number_detected ) { integer i; for( i = 0; i < number_detected; i++ ) { key detected_key = llDetectedKey(i); if(av_key==detected_key) { vector agentPos = llDetectedPos(i); vector terminalPos = llGetPos(); float distance = llVecDist(agentPos, terminalPos); if (distance > logrange) { llInstantMessage(av_key, "===NOTICE===\nYou are out of range. logging off now..."); httpRequest("logoff",[]); llSensorRemove(); } else if(distance > lograngewarning){ llInstantMessage(av_key, "===NOTICE===\nYou are "+(string)(logrange-distance)+" meters from being logged out."); } } } } listen( integer chan, string name, key id, string msg ) { if(id == av_key) { msg = llStringTrim(msg, STRING_TRIM); list paramList; string command; if(msg!="") { paramList = llCSV2List(msg); command = llList2String(paramList,0); } if (command == "Website") { llLoadURL(av_key, sitetitle, url); returnDialog(menu); } else if (command == "About") { llGiveInventory(av_key,"About"); returnDialog(menu); } else if (command == "Request") { x_request_id = llHTTPRequest(url + "index.php?option=com_jslplus&view=interface&controller=interface&task=request&sid="+sid+ "&format=raw", [HTTP_METHOD, "GET"],""); } else if (command == "Logoff") { llSetText(username+" logs out...",textcolor,1); httpRequest("logoff",[sid]); llInstantMessage(av_key,"Preparing to log off..."); } if(menu=="MENU_UNREGISTERED") { if (command == "Register") { llInstantMessage(av_key,"===NOTICE===\nYou must provide a valid emailaddress.\nType: /"+(string)paramchannel+ " registermail,myemail@address.org' in order to finish the registration process."); } if (command == "registermail") { httpRequest("register",[generatePW(1000),llStringTrim(llList2String(paramList,1), STRING_TRIM)]); } } else if(menu=="MENU_PROFILE_ACTIVE") { if (command == "My Account") { string myAccount = "===MY ACCOUNT===\n"; myAccount += "Avatar-key: "+(string)av_key; llInstantMessage(av_key,myAccount); returnDialog(menu); } } else if(menu=="MENU_ADMIN") { if (command == "Settings") { string terminalSettings = "===SETTINGS===\n"; terminalSettings += "terminal-key: "+(string)llGetKey()+"\n"; terminalSettings += "heap: "+(string)llGetFreeMemory() + " bytes\n"; llInstantMessage(av_key, terminalSettings); llMessageLinked(2, 0, "settings",av_key); returnDialog(menu); } else if (command == "My Account") { string myAccount = "===MY ACCOUNT===\n"; account_request_id = llHTTPRequest(url + "index.php?option=com_jslplus&view=interface&controller=interface&task=getaccount&sid="+sid+ "&format=raw", [HTTP_METHOD, "GET"],""); myAccount += "Avatar-key: "+(string)av_key; llInstantMessage(av_key,myAccount); returnDialog(menu); } } } } http_response(key request_id, integer httpStatus, list metadata, string body) { list parameters; body = llStringTrim(body, STRING_TRIM); parameters = llCSV2List(body); status = llList2String(parameters,0); if (request_id == register_request_id) { llMessageLinked(3,0,status+","+username+","+secretWord,av_key); } if (request_id == item_request_id) { llMessageLinked(3,0,status+","+username,av_key); } if (request_id == logoff_request_id) { llMessageLinked(3,0,status+","+username,av_key); } if (request_id == x_request_id) { llMessageLinked(3,0,status+","+username,av_key); } if (request_id == account_request_id) { llMessageLinked(3,0,status+","+username,av_key); } } link_message(integer sender_num, integer lineResponse, string str, key id) { online = lineResponse; if(lineResponse==TRUE) { list input = llCSV2List(str); menu = llList2String(input,0); returnDialog(menu); } else { state default; } } changed( integer change ) { if (change & CHANGED_ALLOWED_DROP) { llOwnerSay("The inventory has changed as a result of a user without mod permissions dropping an item on the prim"+ "and it being allowed by the script."); } if ( change == CHANGED_INVENTORY ) { integer itemCount = llGetInventoryNumber(INVENTORY_ALL); if(itemCount>3) { llSay(0,"A new item was submitted!"); integer i=0; string newItem; for(i=0;i<itemCount;i++) { string itemName = llGetInventoryName(INVENTORY_ALL, i); if (itemName != "About" && itemName!="jSLplus Interface" && itemName!="jSLplus Visitor-Tracker" && itemName!="jSLplus Settings") { newItem = itemName; } } key itemKey = llGetInventoryKey(newItem); key itemCreatorKey = llGetInventoryCreator(newItem); if(av_key != itemCreatorKey) { llSay(0,"Item denied! You must be the creator of the submitted item!"); llRemoveInventory(newItem); return; } else { if (llStringLength(newItem) <=30) { llSay(0,"Item accepted. You have been recognised as the creator of this item..."); } else { llSay(0,"Item denied! Please shorten the objectname to a maximum of 30 characters..."); llRemoveInventory(newItem); return; } } integer itemType = llGetInventoryType(newItem); integer permCopy; integer permMod; integer permTransfer; string itemSpecs = "\n===Item specifications===\n"; itemSpecs+="item-Key: "+(string)itemKey+"\n"; itemSpecs+="item-Name: "+newItem+"\n"; itemSpecs+="=Permissions=\n"; if(llGetInventoryPermMask(newItem, MASK_NEXT) & PERM_COPY) {permCopy=1;itemSpecs+="Copy:Yes\n";} else {permCopy=0;itemSpecs+="Copy:No\n";} if(llGetInventoryPermMask(newItem, MASK_NEXT) & PERM_MODIFY) {permMod=1;itemSpecs+="Modify:Yes\n";} else {permMod=0;itemSpecs+="Modify:No\n";} if(llGetInventoryPermMask(newItem, MASK_NEXT) & PERM_TRANSFER) {permTransfer=1;itemSpecs+="Transfer:Yes\n";} else {permTransfer=0;itemSpecs+="Transfer:No\n";} llSay(0,itemSpecs); llGiveInventory(llGetLinkKey(2), newItem); llRemoveInventory(newItem); llSay(0,"Sending request to ODS-Site..."); newItem = llEscapeURL(newItem); httpRequest("additem",[itemKey,newItem,itemType,permCopy,permMod,permTransfer]); } } } }