User:Opensource Obscure/LSL/JIRA-Helper
<lsl> // JIRA helper by Moon Metty - Version 11
// This script says the title of a JIRA-issue in open chat, each time someone mentions the full URL of that jira. // When somoene mentions just the JIRA-number, the script says the full URL plus the title. // To avoid spam, calling a JIRA by number is not handled, if the full URL and title already were mentioned recently. // The script keeps a list of the last mentioned JIRAs. This first-in/first-out queue is recycled in one hour, or after a number of other JIRAs have been mentioned.
integer fifo = 12; // number of JIRAs to remember integer max_category_length = 6; // the maximum length of the alphabetical part of a jira_name string alphabet = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"; string no_cookie = "?os_authType=none"; // the cookie bypass list escapes = ["&", """, "'", "<", ">"]; list unescapes = ["&", "\"", "'", "<", ">"]; string url_base1 = "http://jira.secondlife.com/browse/"; string url_base2 = "https://jira.secondlife.com/browse/"; list used_issues; list http_requests; string extended_title = " - Second Life Bug Tracker ";
default {
state_entry()
{
llListen(0, "", "", ""); // listen to open chat
if (fifo) llSetTimerEvent(3600 / fifo); // the total fifo is cleared in one hour
fifo --; // adjust for indexing
}
listen(integer channel, string name, key id, string message)
{
integer idx = llSubStringIndex(message, "-"); // look if there's a dash in the message
while (~idx)
{ // a (new) dash is found
string right_string = llGetSubString(message + "d", idx + 1, -1); // copy the string to the right of the dash, "d" is a dummy to avoid index-wrapping
integer issue_number = (integer)right_string; // convert the right part into a number
if (issue_number > 0)
{ // the right part is a valid number
integer category_idx = idx - 1; // point just before the dash
integer category_num; // counter for the length of the category-string
while ( (~llSubStringIndex(alphabet, llToUpper(llGetSubString(message, category_idx, category_idx)))) && // it's an alphabetical character
(category_idx >= 0) && // don't look beyond the start of the message
(category_num <= max_category_length)) // don't try strings that are too long
{
category_idx --; // scan backwards
category_num ++;
}
if ((category_num > 1) && (category_num <= max_category_length))
{ // the criteria for a valid jira-number have been met
string jira_issue = llToUpper(llGetSubString(message, category_idx + 1, idx) + (string)(issue_number)); // assemble the title in a string
integer url_given; // presume a full url wasn't given
if (llGetSubString(message, category_idx - 33, category_idx) == url_base1) url_given = TRUE; // http url given
if (llGetSubString(message, category_idx - 34, category_idx) == url_base2) url_given = TRUE; // https url given
if (url_given || (llListFindList(used_issues, [jira_issue]) == -1))
// call a page when the full url was given, or the JIRA-number wasn't mentioned yet
http_requests += [llHTTPRequest(url_base1 + jira_issue + no_cookie, [], ""), // request the page, add the handle to the list
jira_issue, // add the issue-name
url_given, // add the flag to see if the full url was given
llGetAgentSize(id) != ZERO_VECTOR]; // add the flag to see if it was an agent
}
}
message = right_string; // discard the left part of the message
idx = llSubStringIndex(message, "-"); // look if there's another dash in the message
}
} // end listen
http_response(key request_id, integer status, list metadata, string body)
{
integer request = llListFindList(http_requests, [request_id]); // search the request
if (~request)
{ // a page was called
if (status == 200)
{ // a page was found
string title = llList2String(llParseString2List(body, ["<title>", "</title>"], []), 1); // extract the title
string jira_issue = llList2String(http_requests, request + 1); // store jira_issue for easy access
if (~llSubStringIndex(title, jira_issue))
{ // the jira_issue is found in the title, so the jira_issue exists, and can be accessed publicly
title = llGetSubString(title, 0, llSubStringIndex(title, extended_title)); // cut off the unnecessary part
integer idx = llGetListLength(escapes); // unescape the title
while (idx --) title = llDumpList2String(llParseString2List(title, [llList2String(escapes, idx)], []), llList2String(unescapes, idx));
if (llList2Integer(http_requests, request + 3))
{ // don't react to talking objects, only avatars
if (llList2Integer(http_requests, request + 2)) llSay(0, title); // say only the title if the full url was given
else llSay(0, url_base1 + jira_issue + "\n" + title); // say the url and the title
llMessageLinked(LINK_THIS, 0, jira_issue, NULL_KEY); // send the jira_issue to another script
}
if (fifo >= 0) used_issues = [jira_issue] + llDeleteSubList(used_issues, fifo, fifo); // add this to the list of used issues
}
}
http_requests = llDeleteSubList(http_requests, request, request + 3); // remove this entry from the http-requests
}
} // end http_response
timer() {used_issues = [FALSE] + llDeleteSubList(used_issues, fifo, fifo);} // push a dummy on the list of used issues
on_rez(integer param) {llResetScript();}
} </lsl>
Version 05
-Davy Linden added a line so the helper only responds to avatars
Version 06
-Moved Davy's line deeper into the code, so issues that were mentioned by an object are treated as "used".
Version 07
-Give a short error message when JIRA is down, or when it returns an abnormal status.
Version 08
-Improved title extraction. After Sue changed the extended title, the jira-helper didn't know where to cut off the string. Sue changed the extended title back, and we made plans to allow a change later on.
Version 09
-Removed categories ARVD, EVT, MOZ, MU and CT. -Added category STORM -Added code to support 5-letter categories. -Added a new extended title, so the website can be changed later on. (" - Second Life Jira ") -Added "?os_authType=guest" to the URL, so the LSL-http request doesn't fail on Jira4.
Version 10
-An atlassian change for the cookie bypass: "?os_authType=guest" is now "?os_authType=none"
Version 11
-Removed all categories, the script now bluntly tries to access everything in the format "letters dash number". The number of letters can be 2 to 6. If a page doesn't exist, or isn't accessible by the public, the script fails silently. This big change suggested by Oz gives the script (and the jira) more work to do. But ultimately, it makes the jira-helper more robust as a tool.
-Added a linked message which sends a string containing the jira_issue to other scripts in the prim. This can be used to trigger a sound, for example.
Version 12
Sue decided the extended title should be " - Second Life Bug Tracker ". Removed the old extended title.