Second Life Wiki - User contributions [en]

Shoutcast - radio controller v0.3 (remake of similar scripts)

Flennan Roffo — Thu, 10 Feb 2011 01:08:05 GMT

Flennan Roffo: /* Shoutcast - radio controller */

{{LSL Header}}
=Shoutcast - radio controller=
This script controls a shoutcast radio receiver and lets you select the stations that you configured on a notecard. Menu driven. Output of station description, genre and current song title using Xy text.
Credits for this script go to previous developers of similar scripts:
* '''Scripter Coba''' who wrote the ''LandOwnersRadio (V2.0)'' script. Menu driven / notecard config script to select genre and station to set parcel music url.
* '''Jamie Otis''' who wrote the ''Raven radio infoboard'' script. Shows what song is playing by fetching info using the sis.slserver.info/sis.php service (now offline). Display on Xytext.
* '''Darkie Minotaur''' who wrote the ''currentPlaying'' script. Shows what song is currently playing by fetching info from the /7.html shoutcast page.

Although this script is based upon similar functionality as provided in these scripts, this script is not simply a merge/copy of those scripts, but a complete make-over.
I use my own notecard format and processing of notecard info, and own menu system.

==Versions==

Current version: v0.3 released 10-2-2011

==Scripts==

===Shoutcast - radio controller===
This script should be put into the shoutcast - radio controller device.
<lsl>
// Script: Shoutcast - radio controller
// Version: 0.3 - released 10-2-2011
// Logic Scripts (Flennan Roffo)
// (c) 2010 - Flennan Roffo (Logic Scripts)
//
// This script is a remake of a couple of similar script:
// + LandOwnersRadio V2.0 by Scripter Coba (( menu driven / notecard config script to select the radio station and sets parcel music url ))
// + Raven radio infoboard by Jamie Otis (( worked at the basis of sis service [sis.slserver.com/sis.php] used Xy text display ))
// + currentPlaying by Darkie Minotaur (( used the /7.html info to fetch current song title info, displayed as float text ))
//
// Purpose:
// * Sets the parcel audio URL and displays the channel info
// * Uses Xytext to display the info.
// * Fetches song title info from the shoutcast url
///////////////////////////////////////////////////////////////////////////////////////
// Extra Features -- 0.1 release
// * On/Off option
// * Allows multiple menus (if options per menu > 12) using a prev/next button
// * Checks if your url is well-formatted
// * Will delete genres for which no stations exist
// * Will skip stations that have same url and same genre (you can however have an identical station url under different genres).
// * New notecard format
//////////////////////////////////////////////////////////////////////////////////////////
// Extra Features -- 0.2 release
// * Configurable button text
// * Gets parcel URL and automatically sets the genre/station and on/off status accordingly (<-- doesn't work)
//////////////////////////////////////////////////////////////////////////////////////////
// Update -- 0.3 release
// * Fixed bug (only first station in genre displayed in menu)
// * Auto reset script when config card updated
// Notes:
// * Expects url to be in the format: <ip>:<port>, where <ip> has the format: xxx.xxx.xxx.xxx (0 <= xxx <= 255)
// * Deletes entries in category (genre) for which no stations are configured with notice.
// * Skips stations which have identical url AND same category (genre).
//////////////////////////////////////////////////////////////////////////////////////////
// Upcoming release -- 0.4
// * Will add functions for remote controller(s) and remote display(s) using llRegionSay to communicate over a channel.
// * Should relax on the constraints about the input format of URL's (currently requires that URL has format: xxx.xxx.xxx.xxx/yyyy).
// * Fix button placement. Control buttons should be on the first line.
// * Implement script reset on change of owner.
// * Permit station to be put under multiple genres, using a comma-seperated list of genres in the section [STATION]
// (currently this is only possible by duplicating the entire line and change the genre.)
/////////////////////////////////////////////////////////////////////////////////////////
// Future plans:
// * Individual user preferences that can be stored on seperate note cards. A user has access to his own list of genres and stations and the system available genres/stations.
// * Feature for accessing online playlists (M3U, PLS, other formats) to play a list of songs provided by that playlist.
// * User provided url.
/////////////////////////////////////////////////////////////////////////////////////////
// BUGS & FEATURE REQUESTS
//
// Please inform the author, Logic Scripts (flennan.roffo) about any bugs or annoyances.
// Feature requests can also be submitted to the author.
/////////////////////////////////////////////////////////////////////////////////////////
// LICENCE INFO
//
// This program is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program. If not, see <http://www.gnu.org/licenses/>.
///////////////////////////////////////////////////////////////////////////////////////////

string info_notecard="Radio Control info"; /////// EDITABLE \\\\\\
string config_notecard="Radio Control config"; /////// EDITABLE \\\\\\
string comment_char="#"; /////// EDITABLE \\\\\\
list sep_char_list= ["|"]; /////// EDITABLE \\\\\\
float update_time=5.0; /////// EDITABLE \\\\\\
string no_title_info="(no title info available)"; /////// EDITABLE \\\\\\

// not used currently - for showing info on current song title elsewhere in the region
integer broadcast_channel=-1234; /////// EDITABLE \\\\\\

// Buttons

string button_MAIN = "MAIN"; /////// EDITABLE \\\\\\
string button_HELP = "HELP"; /////// EDITABLE \\\\\\
string button_NEXT = ">>"; /////// EDITABLE \\\\\\
string button_PREV = "<<"; /////// EDITABLE \\\\\\
string button_ON = "ON"; /////// EDITABLE \\\\\\
string button_OFF = "OFF"; /////// EDITABLE \\\\\\

//////////////////////////////////
// Don't touch the variables below
/////////////////////////////////

// List of categories (=genres)

list category_list=[];

// List of stations. KEEP THESE LISTS IN SYNCH!

list station_category=[];
list station_name=[];
list station_desc=[];
list station_url=[];

// Last song title played
string last_title_info="";

integer radio_status=0; // 0 - OFF 1 - ON
string parcel_url="";
integer lineno=0;
key reqid=NULL_KEY;
key httpreq_id=NULL_KEY;
integer config_error=FALSE;
integer flag;
integer section=0;

// Access values. Note that users who are banned can not access the device even when access is public
integer owner_access=TRUE;
integer group_access=FALSE;
integer public_access=TRUE;
list banned_keys=[];

// Channels for menu and user input
integer menu_channel;
integer listen_handle;

// Menu
integer menu_type=0; // 0 - Main menu (genres) 1 - Station menu (stations)
integer menu_num=0; // When more menu options need to be selectable then can be displayed on a menu (12), this is the menu number - menu number 0 is the first menu.

// Genres and stations

integer category_index=0; // Current index in category_list (genre)
integer station_index=0; // Current index in station_* (station)

integer num_categories=0;
integer num_stations=0;

// Make request for title info using HTTP request
retrieve_titelinfo()
{
string url=llList2String(station_url,station_index);
httpreq_id=llHTTPRequest(url + "/7.html HTTP/1.0\nUser-Agent: LSL Script (Mozilla Compatible)\n\n",[],"");
}

// Display a line on an Xytext device linked in
display_line(string line, string message)
{
// Setup XYtext Variables
integer DISPLAY_STRING = 204000;
// integer DISPLAY_EXTENDED = 204001; (not used)
// integer REMAP_INDICES = 204002; (not used)
// integer RESET_INDICES = 204003; (not used)
// integer SET_CELL_INFO = 204004; (not used)
// integer SET_FONT_TEXTURE = 204005; (not used)
// integer SET_THICKNESS = 204006; (not used)
// integer SET_COLOR = 204007; (not used)

llMessageLinked(LINK_SET,DISPLAY_STRING,message,line);
}

// Clear the Xytext display
clear_display()
{
// Clears the display
display_line("1","Radio Station ID");
display_line("2","Music Genre....");
display_line("3","Now Playing....");
}

// Make a menu / dialog
make_menu(key id)
{
menu_channel=random_channel();

if (radio_status == 0)
{
menu_type=0;
menu_num=0;
llDialog(id,"Menu: Status\n\nRadio is OFF", [ "ON", "HELP" ],menu_channel);
}
else
{
if (menu_type ==0)
{
llDialog(id,"Menu: Genres", category_menu(menu_num),menu_channel);
}
else
{
llDialog(id,"Menu: Stations\nGenre: " + llList2String(category_list,category_index), station_menu(menu_num),menu_channel);
}
}

if (listen_handle != 0) llListenRemove(listen_handle);
listen_handle=llListen(menu_channel,"",id,"");
}

// Make the menu option list for menu: catagories (genres)
list category_menu(integer num)
{
integer len=llGetListLength(category_list);
list menu=[];

if (len > 9) // If more then 9 items (12 minus the 3 buttons for MAIN/HELP and PREV, NEXT)
{
integer last_sub=(len-1)/9; // submenus start at 0. 9th entry is in submenu 0, 10th in 1, etc.

if (num > last_sub)
{
llWhisper(0,"error: wrong submenu number: " + (string) num + ".");
return [ "MAIN" ];
}
else
{
integer first=9*num;

while (--len >= first)
menu+=(list)llList2String(category_list,len);

if (num == 0)
menu+=(list)button_HELP;
else
menu+=(list)button_MAIN;

if (num == 0)
menu+=(list)button_OFF;
else
menu+=(list)button_PREV;

if (num != last_sub)
menu+=(list)button_NEXT;
}
}
else
{
while (--len >= 0)
menu+=(list)llList2String(category_list,len);

menu+=(list)button_OFF;
menu+=(list)button_HELP;
}

return menu; // order_buttons(menu);
}

// Returns the number of stations in a certain category
integer stations_in_category(integer cat)
{
integer count=0;
integer i;
integer len=llGetListLength(station_category);
string category=llList2String(category_list,cat);

for (i=0; i < len; i++)
if (category == llList2String(category_list,i))
count++;

return count;
}

// Not used currently -- to fix button placement
list order_buttons(list buttons)
{
integer offset;
list fixt;
integer flag=0;

while((offset = llGetListLength(buttons)))
{
if (offset > 3)
flag=1;
else
flag=0;

fixt += llList2List(buttons, offset = -3 * flag, -1);
buttons = llDeleteSubList(buttons, offset, -1);
}

return fixt;
}

// Returns a list of station names in a certain category (genre)
list station_list(integer category)
{
list s=[];
integer i;
string cname=llList2String(category_list,category_index);

for (i = 0; i < llGetListLength(station_name); i++)
if (llList2String(station_category,i) == cname)
s+=(list)llList2String(station_name,i);

return s;

}

// Returns the list of stations for the station menu, depending on the submenu number
list station_menu(integer num)
{
list stations=station_list(category_index);
integer len=llGetListLength(stations);
list menu=[];

if (len > 11) // 12 - 1 for MAIN menu
{
integer last_sub=(len-1)/9;

if (num >= last_sub)
{
llWhisper(0,"error: wrong submenu number: " + (string) num + ".");
return [ "MAIN" ];
}
else
{
integer first=9*num;
integer last=9*num+8;

menu+=(list)button_MAIN;

if (num > 0)
menu+=(list)button_PREV;

if (num < last_sub)
menu+=(list)button_NEXT;

if (len > last)
len =last;

while (--len >= first)
menu+=(list)llList2String(stations,len);
}
}
else
{
menu+=(list)button_MAIN;

while (--len >= 0)
menu+=(list)llList2String(stations,len);
}

return menu; // order_buttons(menu);
}

// Returns whether av with key id has access
integer has_access(key id)
{
if (llListFindList(banned_keys,(list)id) != -1)
return FALSE;

if (owner_access && id == llGetOwner())
return TRUE;

if (group_access && llSameGroup(id))
return TRUE;

if (public_access)
return TRUE;

return FALSE;
}

// Gets a random channel -- uses a wide range of big negative channel numbers seldomly used
integer random_channel()
{
integer min=-2147483647;
integer max=-1000;

return (integer) (min + llFrand(max-min));
}

// Check for the format of the url string -- is very selective about url format
// expects: xxx.xxx.xxx.xxx:xxxx (ip adress in number notation with port adress)
// Next release will relax on this constraint.
integer check_url(string url)
{
integer pos=0;

if (llGetSubString(url,0,6) == "http://")
pos=7;
if (llGetSubString(url,0,7) == "https://")
pos=8;

if (pos==0) return FALSE;

string str_ip_port=llGetSubString(url,pos,-1);
list list_ip_port=llParseString2List(str_ip_port,[":"],[]); // split in ip-adress and port
list list_ip=llParseString2List(llList2String(list_ip_port,0),["."],[]); // split ip-adress elements

if (llGetListLength(list_ip_port) != 2 || llGetListLength(list_ip) != 4)
return FALSE;

integer i;
integer test;

for (i=0;i<4;i++)
{
test=llList2Integer(list_ip,i);
if (llList2String(list_ip,i) != (string)test)
return FALSE;
if (test < 0 || test > 255)
return FALSE;
}

test=llList2Integer(list_ip_port,1);
if (llList2String(list_ip_port,1) != (string)test)
return FALSE;

return TRUE;
}

// Returns a true value depending on the first character in input - anything else is assumed false.
integer true_value(string input)
{
string value=llToLower(llGetSubString(input,0,0));

if (value == "y" || value == "t" || value =="1")
return TRUE;

return FALSE;
}

// Return if more input should be processed (if not at EOF) - sets ConfigError if any config error found. Reading config card stops at the first error.
integer process_line(string dataline)
{
string line=llStringTrim(dataline,STRING_TRIM);
integer index=llSubStringIndex(line,comment_char);

if (index==0) // line starts with comment - ignore line
return TRUE;

if (index!=-1)
line=llStringTrim(llGetSubString(line,0,index-1),STRING_TRIM_TAIL); // skip everything after comment_char and trim tail

if (line=="") // Ignore blank lines
return TRUE;

if (llToLower(line) == "[access]")
{
section = 1;
return TRUE;
}
else if (llToLower(line) == "[banned]")
{
section = 2;
return TRUE;
}
else if (llToLower(line) == "[genre]")
{
section = 3;
return TRUE;
}
else if (llToLower(line) == "[station]")
{
section = 4;
return TRUE;
}
else if (llGetSubString(line,0,0) == "[" && llGetSubString(line,-1,-1) == "]")
{
llWhisper(0,"error: malformed section found at line " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

if (section == 0)
{
llWhisper(0,"error: no section found on line: " + (string) lineno);
config_error = TRUE;
return FALSE;
}

list breakup=llParseString2List(line,["="],[]);
string field=llStringTrim(llList2String(breakup,0),STRING_TRIM);
string values=llStringTrim(llList2String(breakup,1),STRING_TRIM);

if (section == 1) // access
{
field=llToLower(field);

if (field=="owner")
{
owner_access=true_value(values);
return TRUE;
}
else if (field=="group")
{
group_access=true_value(values);
return TRUE;
}
else if (field=="public")
{
public_access=true_value(values);
return TRUE;
}
else
{
llWhisper(0,"error: invalid option on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

}
else if (section == 2) // ban list
{
key try=(key) field;

if (try)
{
banned_keys+=(list)((key) field);
return TRUE;
}
else
return FALSE;
}
else if (section == 3) // categories
{
if (llListFindList(category_list,(list)field) == -1)
{
category_list+=(list)field;
}
else
llWhisper(0,"genre: '" + field + "' already entered; double entry skipped.");

return TRUE;
}
else if (section == 4) // stations
{
list parse=llParseString2List(line,sep_char_list, []);
string category=llStringTrim(llList2String(parse,0),STRING_TRIM);
string name=llStringTrim(llList2String(parse,1),STRING_TRIM);
string desc=llStringTrim(llList2String(parse,2),STRING_TRIM);
string url=llStringTrim(llToLower(llList2String(parse,3)),STRING_TRIM);

if (!available_category(category))
{
llWhisper(0,"error: unknown genre on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

if (check_url(url))
{
if (llListFindList(station_url,(list)url) == -1 || llListFindList(station_category,(list)category) == -1)
{
num_stations++;
station_category+=(list)category;
station_name+=(list)name;
station_desc+=(list)desc;
station_url+=(list)url;
return TRUE;
}
else
{
llWhisper(0,"This station is already entered under the same genre and same url and is skipped.\nStation: " + name + "\nGenre: '" + category + "'\nURL: " + url);
return TRUE;
}
}
else
{
llWhisper(0,"error: malformed url on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}
}

return FALSE;
}

// Sets the parcel URL and updates the display
set_parcel_url(string url)
{
parcel_url=url;
llSetParcelMusicURL(parcel_url);

if (parcel_url=="")
{
clear_display();
display_line("1","Radio is OFF");
display_line("2","");
display_line("3","");
}
else
{
llWhisper(0,"station now set to " + llList2String(station_desc,station_index) + ".");
display_line("1","Station: " + llList2String(station_desc,station_index));
display_line("2","Genre : " + llList2String(category_list,category_index));
display_line("3","Now playing.....");
llSetTimerEvent(update_time);
}
}

// Returns if a category (genre) exists.
integer available_category(string category)
{
integer i;
integer len=llGetListLength(category_list);

for (i=0;i<len;i++)
if (llToLower(category) == llToLower(llList2String(category_list,i)))
return TRUE;

return FALSE;
}

// Returns if a category (genre) is empty (i.e. there are no stations for this catagory (genre))
integer empty_category(string category)
{
integer i;
integer len=llGetListLength(station_category);

for (i=0; i < len; i++)
if (llToLower(category) == llToLower(llList2String(station_category,i)))
return FALSE;

return TRUE;
}

// Removes categories (genres) for which no station is known.
skip_empty_categories()
{
integer i=0;

while (i<llGetListLength(category_list))
{
if (empty_category(llList2String(category_list,i)))
{
llWhisper(0,"Warning: Genre '" + llList2String(category_list,i) + "' contains no stations and is deleted.");
category_list=llDeleteSubList(category_list,i,i);
}
else
i++;
}

num_categories=llGetListLength(category_list);
}

/////////////////////////////////////////////
// state default
////////////////////////////////////////////

default
{
state_entry()
{
flag=FALSE;
lineno=0;
config_error=FALSE;
num_stations=0;
num_categories=0;
radio_status=0;
menu_num=0;
menu_type=0;

if (llGetInventoryType(config_notecard) == INVENTORY_NOTECARD)
{
reqid=llGetNotecardLine(config_notecard,lineno++);
llWhisper(0, "Reading config notecard...");
display_line("1","Reading configuration.");
display_line("2","Wait....");
display_line("3","");
}
else
{
llWhisper(0,"No config notecard '" + config_notecard + "' present.");
state offline;
}
}

on_rez(integer param)
{
llResetScript();
}

dataserver(key id, string data)
{
if (reqid==id)
{
if (data==EOF)
{
skip_empty_categories();
llWhisper(0,"Configuration ok.\n" + (string)num_categories + " genres and " + (string)num_stations + " stations.");
display_line("1","Configuration OK");
display_line("2","Genres : " + (string)num_categories);
display_line("3","Stations: " + (string)num_stations);
state menu;
}
else
{
if (process_line(data))
reqid=llGetNotecardLine(config_notecard,lineno++);
else if (config_error)
{
llWhisper(0,"errors found in configuration. please correct them.");
state offline;
}
}
}
}

touch_start(integer total_num)
{
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY)
llResetScript();
}
}

/////////////////////////////////////////////
// state offline
////////////////////////////////////////////

state offline
{
state_entry()
{
llWhisper(0,"Reset on owner touch or when notecard updated.");
}

touch_start(integer t)
{
if (llDetectedKey(0)==llGetOwner())
llResetScript();
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY)
llResetScript();
}
}

/////////////////////////////////////////////
// state menu
////////////////////////////////////////////

state menu
{
state_entry()
{
menu_type=0;
menu_num=0;
listen_handle=0;
}

on_rez(integer param)
{
llResetScript();
}

touch_start(integer total_num)
{
key toucher=llDetectedKey(0);

if (has_access(toucher))
{
make_menu(toucher);
}
else
llWhisper(0,"sorry, no access.");
}

listen(integer chan, string name,key id,string msg)
{
integer index;

if (menu_type == 0) // main menu
{
if (msg == button_MAIN)
{
menu_type=0;
menu_num =0;
make_menu(id);
}
else if (msg == button_NEXT)
{
menu_num++;
make_menu(id);
}
else if (msg == button_PREV)
{
menu_num--;
make_menu(id);
}
else if (msg == button_ON)
{
radio_status=1;
set_parcel_url(parcel_url);
display_line("1","Radio is ON");
menu_num=0;
llWhisper(0,"Radio now turned on.");
make_menu(id);
}
else if (msg == button_OFF)
{
radio_status=0;
set_parcel_url("");
llSetTimerEvent(0.0);
llWhisper(0,"Radio now turned off.");
}
else if (msg == button_HELP)
{
if (llGetInventoryType(info_notecard) == INVENTORY_NOTECARD)
{
llGiveInventory(id,info_notecard);
}
else
llWhisper(0,"sorry, help not available.");
}
else if (radio_status == 1)
{
index = llListFindList(category_list, (list)msg);

if (index == -1)
llWhisper(0,"error: genre not found: " + msg);
else
{
category_index=index;
llWhisper(0,"Genre now set to " + llList2String(category_list,category_index) + ".");
menu_type=1;
menu_num=0;
make_menu(id);
}
}
}
else if (menu_type == 1 && radio_status == 1) // station menu
{
if (msg == button_MAIN)
{
menu_type=0;
menu_num =0;
make_menu(id);
}
else if (msg == button_NEXT)
{
menu_num++;
make_menu(id);
}
else if (msg == button_PREV)
{
menu_num--;
make_menu(id);
}
else
{
index = llListFindList(station_name, (list)msg);

if (index == -1)
llWhisper(0,"error: station not found: " + msg);
else
{
station_index=index;
string new_url=llList2String(station_url,station_index);

if (new_url != parcel_url)
{
set_parcel_url(new_url);
}
}
}
}
}

timer()
{
retrieve_titelinfo();
llSetTimerEvent(update_time);
}

http_response(key id, integer status, list meta, string body)
{
if (id == httpreq_id)
{
if (status == 200)
{
string feed = llGetSubString(body,llSubStringIndex(body, "<body>") + llStringLength("<body>"), llSubStringIndex(body,"</body>") - 1);
list feed_list = llParseString2List(feed,[","],[]);
string current_title_info= llList2String(feed_list,6);
integer length = llGetListLength(feed_list);

if(llList2String(feed_list,7))
{
integer a = 7;
for(; a<length; ++a)
{
current_title_info += ", " + llList2String(feed_list,a);
}
}

if (current_title_info != last_title_info)
{
last_title_info = current_title_info;
display_line("3","Title : " + current_title_info);
}
}
else
{
display_line("3","Title : " + no_title_info);
}
}
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY)
llResetScript();
}
}

//////////////////////////////
// end of script
//////////////////////////////
</lsl>

===Notecard format===
Example notecard
<pre>
# New format Shoutcast - radio controller config notecard
# The format is divided in 4 sections:
# 1 - Access configuration
# 2 - Ban list (keys)
# 3 - Categories (same as genres)
# 4 - Station info (category, name, desc, url)
# The '#' character defines the start of a comment and can be anywhere on a line.
# Everything after the '#' incuding the '#' itself is ignored.
# Case is not important (but information on display will show as entered)
# Spaces before and/or after fields are trimmed.
# Empty lines are ignored.

[ACCESS]
owner=yes # yes, true,1 means owner has access. everything else not.
group=yes # ,, ,, ,, means group has acess. ,, ,, ,,
public=yes # ,, ,, ,, means public has access. ,, ,, ,,

[BANNED]
# keys of banned residents

[GENRE]
# genre name -- Use short genre names as the the length of menu buttons is short!
Hard Rock
Classic Rock
Oldies
Rap/Urban
Comedy
News
Dance
Country
Gothic
# etc.
[STATION]
# Shoutcast radio stations
# Use a '|' between each field - don't mind spaces before and after fields, they will be trimmed
# field1:genre, field2:station name, field3: station description, field4: station http://<ip>:<port> or https://<ip>:<port>
# Note that genre must match case-insensitive a value previously entered in section [GENRE]
Classic Rock | Absolute | Absolute Radio | http://205.188.215.226:8018
# etc.
</pre>

===TODO===

Planned for upcoming release 0.4:
* Add a llRegionSay to broadcast the <station>|<genre>|<current songtitle>|<url> to the region and add a script that displays that info on a remote Xytext board. (for use with a remote controller and/or remote display board anywhere in the region/parcel)
* llResetScript on owner change
* Relax on URL format
* Allow multiple genres per station

Shoutcast - radio controller v0.3 (remake of similar scripts)

Flennan Roffo — Thu, 10 Feb 2011 01:03:12 GMT

Flennan Roffo: /* Shoutcast - radio controller */

{{LSL Header}}
=Shoutcast - radio controller=
This script controls a shoutcast radio receiver and lets you select the stations that you configured on a notecard. Menu driven. Output of station description, genre and current song title using Xy text.
Credits for this script go to previous developers of similar scripts:
* '''Scripter Coba''' who wrote the ''LandOwnersRadio (V2.0)'' script. Menu driven / notecard config script to select genre and station to set parcel music url.
* '''Jamie Otis''' who wrote the ''Raven radio infoboard'' script. Shows what song is playing by fetching info using the sis.slserver.info/sis.php service (now offline). Display on Xytext.
* '''Darkie Minotaur''' who wrote the ''currentPlaying'' script. Shows what song is currently playing by fetching info from the /7.html shoutcast page.

Although this script is based upon similar functionality as provided in these scripts, this script is not simply a merge/copy of those scripts, but a complete make-over.
I use my own notecard format and processing of notecard info, and own menu system.

==Versions==

Current version: v0.3 released 10-2-2011

==Scripts==

===Shoutcast - radio controller===
This script should be put into the shoutcast - radio controller device.
<lsl>
// Script: Shoutcast - radio controller
// Version: 0.3 - released 10-2-2011
// Logic Scripts (Flennan Roffo)
// (c) 2010 - Flennan Roffo (Logic Scripts)
//
// This script is a remake of a couple of similar script:
// + LandOwnersRadio V2.0 by Scripter Coba (( menu driven / notecard config script to select the radio station and sets parcel music url ))
// + Raven radio infoboard by Jamie Otis (( worked at the basis of sis service [sis.slserver.com/sis.php] used Xy text display ))
// + currentPlaying by Darkie Minotaur (( used the /7.html info to fetch current song title info, displayed as float text ))
//
// Purpose:
// * Sets the parcel audio URL and displays the channel info
// * Uses Xytext to display the info.
// * Fetches song title info from the shoutcast url
///////////////////////////////////////////////////////////////////////////////////////
// Extra Features -- 0.1 release
// * On/Off option
// * Allows multiple menus (if options per menu > 12) using a prev/next button
// * Checks if your url is well-formatted
// * Will delete genres for which no stations exist
// * Will skip stations that have same url and same genre (you can however have an identical station url under different genres).
// * New notecard format
//////////////////////////////////////////////////////////////////////////////////////////
// Extra Features -- 0.2 release
// * Configurable button text
// * Gets parcel URL and automatically sets the genre/station and on/off status accordingly (<-- doesn't work)
//////////////////////////////////////////////////////////////////////////////////////////
// Update -- 0.3 release
// * Fixed bug (only first station in genre displayed in menu)
// * Auto reset script when config card updated
// Notes:
// * Expects url to be in the format: <ip>:<port>, where <ip> has the format: xxx.xxx.xxx.xxx (0 <= xxx <= 255)
// * Deletes entries in category (genre) for which no stations are configured with notice.
// * Skips stations which have identical url AND same category (genre).
//////////////////////////////////////////////////////////////////////////////////////////
// Upcoming release -- 0.4
// * Will add functions for remote controller(s) and remote display(s) using llRegionSay to communicate over a channel.
// * Should relax on the constraints about the input format of URL's (currently requires that URL has format: xxx.xxx.xxx.xxx/yyyy).
// * Fix button placement. Control buttons should be on the first line.
// * Implement script reset on change of owner.
// * Permit station to be put under multiple genres, using a comma-seperated list of genres in the section [STATION]
// (currently this is only possible by duplicating the entire line and change the genre.)
/////////////////////////////////////////////////////////////////////////////////////////
// Future plans:
// * Individual user preferences that can be stored on seperate note cards. A user has access to his own list of genres and stations and the system available genres/stations.
// * Feature for accessing online playlists (M3U, PLS, other formats) to play a list of songs provided by that playlist.
// * User provided url.
/////////////////////////////////////////////////////////////////////////////////////////
// BUGS & FEATURE REQUESTS
//
// Please inform the author, Logic Scripts (flennan.roffo) about any bugs or annoyances.
// Feature requests can also be submitted to the author.
/////////////////////////////////////////////////////////////////////////////////////////
// LICENCE INFO
//
// This program is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program. If not, see <http://www.gnu.org/licenses/>.
///////////////////////////////////////////////////////////////////////////////////////////

string info_notecard="Radio Control info"; /////// EDITABLE \\\\\\
string config_notecard="Radio Control config"; /////// EDITABLE \\\\\\
string comment_char="#"; /////// EDITABLE \\\\\\
list sep_char_list= ["|"]; /////// EDITABLE \\\\\\
float update_time=5.0; /////// EDITABLE \\\\\\
string no_title_info="(no title info available)"; /////// EDITABLE \\\\\\

// not used currently - for showing info on current song title elsewhere in the region
integer broadcast_channel=-1234; /////// EDITABLE \\\\\\

// Buttons

string button_MAIN = "MAIN"; /////// EDITABLE \\\\\\
string button_HELP = "HELP"; /////// EDITABLE \\\\\\
string button_NEXT = ">>"; /////// EDITABLE \\\\\\
string button_PREV = "<<"; /////// EDITABLE \\\\\\
string button_ON = "ON"; /////// EDITABLE \\\\\\
string button_OFF = "OFF"; /////// EDITABLE \\\\\\

//////////////////////////////////
// Don't touch the variables below
/////////////////////////////////

// List of categories (=genres)

list category_list=[];

// List of stations. KEEP THESE LISTS IN SYNCH!

list station_category=[];
list station_name=[];
list station_desc=[];
list station_url=[];

// Last song title played
string last_title_info="";

integer radio_status=0; // 0 - OFF 1 - ON
string parcel_url="";
integer lineno=0;
key reqid=NULL_KEY;
key httpreq_id=NULL_KEY;
integer config_error=FALSE;
integer flag;
integer section=0;

// Access values. Note that users who are banned can not access the device even when access is public
integer owner_access=TRUE;
integer group_access=FALSE;
integer public_access=TRUE;
list banned_keys=[];

// Channels for menu and user input
integer menu_channel;
integer listen_handle;

// Menu
integer menu_type=0; // 0 - Main menu (genres) 1 - Station menu (stations)
integer menu_num=0; // When more menu options need to be selectable then can be displayed on a menu (12), this is the menu number - menu number 0 is the first menu.

// Genres and stations

integer category_index=0; // Current index in category_list (genre)
integer station_index=0; // Current index in station_* (station)

integer num_categories=0;
integer num_stations=0;

// Make request for title info using HTTP request
retrieve_titelinfo()
{
string url=llList2String(station_url,station_index);
httpreq_id=llHTTPRequest(url + "/7.html HTTP/1.0\nUser-Agent: LSL Script (Mozilla Compatible)\n\n",[],"");
}

// Display a line on an Xytext device linked in
display_line(string line, string message)
{
// Setup XYtext Variables
integer DISPLAY_STRING = 204000;
// integer DISPLAY_EXTENDED = 204001; (not used)
// integer REMAP_INDICES = 204002; (not used)
// integer RESET_INDICES = 204003; (not used)
// integer SET_CELL_INFO = 204004; (not used)
// integer SET_FONT_TEXTURE = 204005; (not used)
// integer SET_THICKNESS = 204006; (not used)
// integer SET_COLOR = 204007; (not used)

llMessageLinked(LINK_SET,DISPLAY_STRING,message,line);
}

// Clear the Xytext display
clear_display()
{
// Clears the display
display_line("1","Radio Station ID");
display_line("2","Music Genre....");
display_line("3","Now Playing....");
}

// Make a menu / dialog
make_menu(key id)
{
menu_channel=random_channel();

if (radio_status == 0)
{
menu_type=0;
menu_num=0;
llDialog(id,"Menu: Status\n\nRadio is OFF", [ "ON", "HELP" ],menu_channel);
}
else
{
if (menu_type ==0)
{
llDialog(id,"Menu: Genres", category_menu(menu_num),menu_channel);
}
else
{
llDialog(id,"Menu: Stations\nGenre: " + llList2String(category_list,category_index), station_menu(menu_num),menu_channel);
}
}

if (listen_handle != 0) llListenRemove(listen_handle);
listen_handle=llListen(menu_channel,"",id,"");
}

// Make the menu option list for menu: catagories (genres)
list category_menu(integer num)
{
integer len=llGetListLength(category_list);
list menu=[];

if (len > 9) // If more then 9 items (12 minus the 3 buttons for MAIN/HELP and PREV, NEXT)
{
integer last_sub=(len-1)/9; // submenus start at 0. 9th entry is in submenu 0, 10th in 1, etc.

if (num > last_sub)
{
llWhisper(0,"error: wrong submenu number: " + (string) num + ".");
return [ "MAIN" ];
}
else
{
integer first=9*num;

while (--len >= first)
menu+=(list)llList2String(category_list,len);

if (num == 0)
menu+=(list)button_HELP;
else
menu+=(list)button_MAIN;

if (num == 0)
menu+=(list)button_OFF;
else
menu+=(list)button_PREV;

if (num != last_sub)
menu+=(list)button_NEXT;
}
}
else
{
while (--len >= 0)
menu+=(list)llList2String(category_list,len);

menu+=(list)button_OFF;
menu+=(list)button_HELP;
}

return menu; // order_buttons(menu);
}

// Returns the number of stations in a certain category
integer stations_in_category(integer cat)
{
integer count=0;
integer i;
integer len=llGetListLength(station_category);
string category=llList2String(category_list,cat);

for (i=0; i < len; i++)
if (category == llList2String(category_list,i))
count++;

return count;
}

// Not used currently -- to fix button placement
list order_buttons(list buttons)
{
integer offset;
list fixt;
integer flag=0;

while((offset = llGetListLength(buttons)))
{
if (offset > 3)
flag=1;
else
flag=0;

fixt += llList2List(buttons, offset = -3 * flag, -1);
buttons = llDeleteSubList(buttons, offset, -1);
}

return fixt;
}

// Returns a list of station names in a certain category (genre)
list station_list(integer category)
{
list s=[];
integer i;
string cname=llList2String(category_list,category_index);

for (i = 0; i < llGetListLength(station_name); i++)
if (llList2String(station_category,i) == cname)
s+=(list)llList2String(station_name,i);

return s;

}

// Returns the list of stations for the station menu, depending on the submenu number
list station_menu(integer num)
{
list stations=station_list(category_index);
integer len=llGetListLength(stations);
list menu=[];

if (len > 11) // 12 - 1 for MAIN menu
{
integer last_sub=(len-1)/9;

if (num >= last_sub)
{
llWhisper(0,"error: wrong submenu number: " + (string) num + ".");
return [ "MAIN" ];
}
else
{
integer first=9*num;
integer last=9*num+8;

menu+=(list)button_MAIN;

if (num > 0)
menu+=(list)button_PREV;

if (num < last_sub)
menu+=(list)button_NEXT;

if (len > last)
len =last;

while (--len >= first)
menu+=(list)llList2String(stations,len);
}
}
else
{
menu+=(list)button_MAIN;

while (--len >= 0)
menu+=(list)llList2String(stations,len);
}

return menu; // order_buttons(menu);
}

// Returns whether av with key id has access
integer has_access(key id)
{
if (llListFindList(banned_keys,(list)id) != -1)
return FALSE;

if (owner_access && id == llGetOwner())
return TRUE;

if (group_access && llSameGroup(id))
return TRUE;

if (public_access)
return TRUE;

return FALSE;
}

// Gets a random channel -- uses a wide range of big negative channel numbers seldomly used
integer random_channel()
{
integer min=-2147483647;
integer max=-1000;

return (integer) (min + llFrand(max-min));
}

// Check for the format of the url string -- is very selective about url format
// expects: xxx.xxx.xxx.xxx:xxxx (ip adress in number notation with port adress)
// Next release will relax on this constraint.
integer check_url(string url)
{
integer pos=0;

if (llGetSubString(url,0,6) == "http://")
pos=7;
if (llGetSubString(url,0,7) == "https://")
pos=8;

if (pos==0) return FALSE;

string str_ip_port=llGetSubString(url,pos,-1);
list list_ip_port=llParseString2List(str_ip_port,[":"],[]); // split in ip-adress and port
list list_ip=llParseString2List(llList2String(list_ip_port,0),["."],[]); // split ip-adress elements

if (llGetListLength(list_ip_port) != 2 || llGetListLength(list_ip) != 4)
return FALSE;

integer i;
integer test;

for (i=0;i<4;i++)
{
test=llList2Integer(list_ip,i);
if (llList2String(list_ip,i) != (string)test)
return FALSE;
if (test < 0 || test > 255)
return FALSE;
}

test=llList2Integer(list_ip_port,1);
if (llList2String(list_ip_port,1) != (string)test)
return FALSE;

return TRUE;
}

// Returns a true value depending on the first character in input - anything else is assumed false.
integer true_value(string input)
{
string value=llToLower(llGetSubString(input,0,0));

if (value == "y" || value == "t" || value =="1")
return TRUE;

return FALSE;
}

// Return if more input should be processed (if not at EOF) - sets ConfigError if any config error found. Reading config card stops at the first error.
integer process_line(string dataline)
{
string line=llStringTrim(dataline,STRING_TRIM);
integer index=llSubStringIndex(line,comment_char);

if (index==0) // line starts with comment - ignore line
return TRUE;

if (index!=-1)
line=llStringTrim(llGetSubString(line,0,index-1),STRING_TRIM_TAIL); // skip everything after comment_char and trim tail

if (line=="") // Ignore blank lines
return TRUE;

if (llToLower(line) == "[access]")
{
section = 1;
return TRUE;
}
else if (llToLower(line) == "[banned]")
{
section = 2;
return TRUE;
}
else if (llToLower(line) == "[genre]")
{
section = 3;
return TRUE;
}
else if (llToLower(line) == "[station]")
{
section = 4;
return TRUE;
}
else if (llGetSubString(line,0,0) == "[" && llGetSubString(line,-1,-1) == "]")
{
llWhisper(0,"error: malformed section found at line " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

if (section == 0)
{
llWhisper(0,"error: no section found on line: " + (string) lineno);
config_error = TRUE;
return FALSE;
}

list breakup=llParseString2List(line,["="],[]);
string field=llStringTrim(llList2String(breakup,0),STRING_TRIM);
string values=llStringTrim(llList2String(breakup,1),STRING_TRIM);

if (section == 1) // access
{
field=llToLower(field);

if (field=="owner")
{
owner_access=true_value(values);
return TRUE;
}
else if (field=="group")
{
group_access=true_value(values);
return TRUE;
}
else if (field=="public")
{
public_access=true_value(values);
return TRUE;
}
else
{
llWhisper(0,"error: invalid option on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

}
else if (section == 2) // ban list
{
key try=(key) field;

if (try)
{
banned_keys+=(list)((key) field);
return TRUE;
}
else
return FALSE;
}
else if (section == 3) // categories
{
if (llListFindList(category_list,(list)field) == -1)
{
category_list+=(list)field;
}
else
llWhisper(0,"genre: '" + field + "' already entered; double entry skipped.");

return TRUE;
}
else if (section == 4) // stations
{
list parse=llParseString2List(line,sep_char_list, []);
string category=llStringTrim(llList2String(parse,0),STRING_TRIM);
string name=llStringTrim(llList2String(parse,1),STRING_TRIM);
string desc=llStringTrim(llList2String(parse,2),STRING_TRIM);
string url=llStringTrim(llToLower(llList2String(parse,3)),STRING_TRIM);

if (!available_category(category))
{
llWhisper(0,"error: unknown genre on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

if (check_url(url))
{
if (llListFindList(station_url,(list)url) == -1 || llListFindList(station_category,(list)category) == -1)
{
num_stations++;
station_category+=(list)category;
station_name+=(list)name;
station_desc+=(list)desc;
station_url+=(list)url;
return TRUE;
}
else
{
llWhisper(0,"This station is already entered under the same genre and same url and is skipped.\nStation: " + name + "\nGenre: '" + category + "'\nURL: " + url);
return TRUE;
}
}
else
{
llWhisper(0,"error: malformed url on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}
}

return FALSE;
}

// Sets the parcel URL and updates the display
set_parcel_url(string url)
{
parcel_url=url;
llSetParcelMusicURL(parcel_url);

if (parcel_url=="")
{
clear_display();
display_line("1","Radio is OFF");
display_line("2","");
display_line("3","");
}
else
{
llWhisper(0,"station now set to " + llList2String(station_desc,station_index) + ".");
display_line("1","Station: " + llList2String(station_desc,station_index));
display_line("2","Genre : " + llList2String(category_list,category_index));
display_line("3","Now playing.....");
llSetTimerEvent(update_time);
}
}

// Returns if a category (genre) exists.
integer available_category(string category)
{
integer i;
integer len=llGetListLength(category_list);

for (i=0;i<len;i++)
if (llToLower(category) == llToLower(llList2String(category_list,i)))
return TRUE;

return FALSE;
}

// Returns if a category (genre) is empty (i.e. there are no stations for this catagory (genre))
integer empty_category(string category)
{
integer i;
integer len=llGetListLength(station_category);

for (i=0; i < len; i++)
if (llToLower(category) == llToLower(llList2String(station_category,i)))
return FALSE;

return TRUE;
}

// Removes categories (genres) for which no station is known.
skip_empty_categories()
{
integer i=0;

while (i<llGetListLength(category_list))
{
if (empty_category(llList2String(category_list,i)))
{
llWhisper(0,"Warning: Genre '" + llList2String(category_list,i) + "' contains no stations and is deleted.");
category_list=llDeleteSubList(category_list,i,i);
}
else
i++;
}

num_categories=llGetListLength(category_list);
}

/////////////////////////////////////////////
// state default
////////////////////////////////////////////

default
{
state_entry()
{
flag=FALSE;
lineno=0;
config_error=FALSE;
num_stations=0;
num_categories=0;
radio_status=0;
menu_num=0;
menu_type=0;

if (llGetInventoryType(config_notecard) == INVENTORY_NOTECARD)
{
reqid=llGetNotecardLine(config_notecard,lineno++);
llWhisper(0, "Reading config notecard...");
display_line("1","Reading configuration.");
display_line("2","Wait....");
display_line("3","");
}
else
{
llWhisper(0,"No config notecard '" + config_notecard + "' present.");
state offline;
}
}

on_rez(integer param)
{
llResetScript();
}

dataserver(key id, string data)
{
if (reqid==id)
{
if (data==EOF)
{
skip_empty_categories();
llWhisper(0,"Configuration ok.\n" + (string)num_categories + " genres and " + (string)num_stations + " stations.");
display_line("1","Configuration OK");
display_line("2","Genres : " + (string)num_categories);
display_line("3","Stations: " + (string)num_stations);
state menu;
}
else
{
if (process_line(data))
reqid=llGetNotecardLine(config_notecard,lineno++);
else if (config_error)
{
llWhisper(0,"errors found in configuration. please correct them.");
state offline;
}
}
}
}

touch_start(integer total_num)
{
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY)
llResetScript();
}
}

/////////////////////////////////////////////
// state offline
////////////////////////////////////////////

state offline
{
state_entry()
{
llWhisper(0,"Reset on owner touch or when notecard updated.");
}

touch_start(integer t)
{
if (llDetectedKey(0)==llGetOwner())
llResetScript();
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY)
llResetScript();
}
}

/////////////////////////////////////////////
// state menu
////////////////////////////////////////////

state menu
{
state_entry()
{
menu_type=0;
menu_num=0;
listen_handle=0;
}

changed(integer param)
{
if (param & CHANGED_INVENTORY)
llResetScript();
}

on_rez(integer param)
{
llResetScript();
}

touch_start(integer total_num)
{
key toucher=llDetectedKey(0);

if (has_access(toucher))
{
make_menu(toucher);
}
else
llWhisper(0,"sorry, no access.");
}

listen(integer chan, string name,key id,string msg)
{
integer index;

if (menu_type == 0) // main menu
{
if (msg == button_MAIN)
{
menu_type=0;
menu_num =0;
make_menu(id);
}
else if (msg == button_NEXT)
{
menu_num++;
make_menu(id);
}
else if (msg == button_PREV)
{
menu_num--;
make_menu(id);
}
else if (msg == button_ON)
{
radio_status=1;
set_parcel_url(parcel_url);
display_line("1","Radio is ON");
menu_num=0;
llWhisper(0,"Radio now turned on.");
make_menu(id);
}
else if (msg == button_OFF)
{
radio_status=0;
set_parcel_url("");
llSetTimerEvent(0.0);
llWhisper(0,"Radio now turned off.");
}
else if (msg == button_HELP)
{
if (llGetInventoryType(info_notecard) == INVENTORY_NOTECARD)
{
llGiveInventory(id,info_notecard);
}
else
llWhisper(0,"sorry, help not available.");
}
else if (radio_status == 1)
{
index = llListFindList(category_list, (list)msg);

if (index == -1)
llWhisper(0,"error: genre not found: " + msg);
else
{
category_index=index;
llWhisper(0,"Genre now set to " + llList2String(category_list,category_index) + ".");
menu_type=1;
menu_num=0;
make_menu(id);
}
}
}
else if (menu_type == 1 && radio_status == 1) // station menu
{
if (msg == button_MAIN)
{
menu_type=0;
menu_num =0;
make_menu(id);
}
else if (msg == button_NEXT)
{
menu_num++;
make_menu(id);
}
else if (msg == button_PREV)
{
menu_num--;
make_menu(id);
}
else
{
index = llListFindList(station_name, (list)msg);

if (index == -1)
llWhisper(0,"error: station not found: " + msg);
else
{
station_index=index;
string new_url=llList2String(station_url,station_index);

if (new_url != parcel_url)
{
set_parcel_url(new_url);
}
}
}
}
}

timer()
{
retrieve_titelinfo();
llSetTimerEvent(update_time);
}

http_response(key id, integer status, list meta, string body)
{
if (id == httpreq_id)
{
if (status == 200)
{
string feed = llGetSubString(body,llSubStringIndex(body, "<body>") + llStringLength("<body>"), llSubStringIndex(body,"</body>") - 1);
list feed_list = llParseString2List(feed,[","],[]);
string current_title_info= llList2String(feed_list,6);
integer length = llGetListLength(feed_list);

if(llList2String(feed_list,7))
{
integer a = 7;
for(; a<length; ++a)
{
current_title_info += ", " + llList2String(feed_list,a);
}
}

if (current_title_info != last_title_info)
{
last_title_info = current_title_info;
display_line("3","Title : " + current_title_info);
}
}
else
{
display_line("3","Title : " + no_title_info);
}
}
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY)
llResetScript();
}
}

//////////////////////////////
// end of script
//////////////////////////////
</lsl>

===Notecard format===
Example notecard
<pre>
# New format Shoutcast - radio controller config notecard
# The format is divided in 4 sections:
# 1 - Access configuration
# 2 - Ban list (keys)
# 3 - Categories (same as genres)
# 4 - Station info (category, name, desc, url)
# The '#' character defines the start of a comment and can be anywhere on a line.
# Everything after the '#' incuding the '#' itself is ignored.
# Case is not important (but information on display will show as entered)
# Spaces before and/or after fields are trimmed.
# Empty lines are ignored.

[ACCESS]
owner=yes # yes, true,1 means owner has access. everything else not.
group=yes # ,, ,, ,, means group has acess. ,, ,, ,,
public=yes # ,, ,, ,, means public has access. ,, ,, ,,

[BANNED]
# keys of banned residents

[GENRE]
# genre name -- Use short genre names as the the length of menu buttons is short!
Hard Rock
Classic Rock
Oldies
Rap/Urban
Comedy
News
Dance
Country
Gothic
# etc.
[STATION]
# Shoutcast radio stations
# Use a '|' between each field - don't mind spaces before and after fields, they will be trimmed
# field1:genre, field2:station name, field3: station description, field4: station http://<ip>:<port> or https://<ip>:<port>
# Note that genre must match case-insensitive a value previously entered in section [GENRE]
Classic Rock | Absolute | Absolute Radio | http://205.188.215.226:8018
# etc.
</pre>

===TODO===

Planned for upcoming release 0.4:
* Add a llRegionSay to broadcast the <station>|<genre>|<current songtitle>|<url> to the region and add a script that displays that info on a remote Xytext board. (for use with a remote controller and/or remote display board anywhere in the region/parcel)
* llResetScript on owner change
* Relax on URL format
* Allow multiple genres per station

Shoutcast - radio controller v0.3 (remake of similar scripts)

Flennan Roffo — Thu, 10 Feb 2011 00:59:44 GMT

Flennan Roffo: /* Shoutcast - radio controller */

{{LSL Header}}
=Shoutcast - radio controller=
This script controls a shoutcast radio receiver and lets you select the stations that you configured on a notecard. Menu driven. Output of station description, genre and current song title using Xy text.
Credits for this script go to previous developers of similar scripts:
* '''Scripter Coba''' who wrote the ''LandOwnersRadio (V2.0)'' script. Menu driven / notecard config script to select genre and station to set parcel music url.
* '''Jamie Otis''' who wrote the ''Raven radio infoboard'' script. Shows what song is playing by fetching info using the sis.slserver.info/sis.php service (now offline). Display on Xytext.
* '''Darkie Minotaur''' who wrote the ''currentPlaying'' script. Shows what song is currently playing by fetching info from the /7.html shoutcast page.

Although this script is based upon similar functionality as provided in these scripts, this script is not simply a merge/copy of those scripts, but a complete make-over.
I use my own notecard format and processing of notecard info, and own menu system.

==Versions==

Current version: v0.3 released 10-2-2011

==Scripts==

===Shoutcast - radio controller===
This script should be put into the shoutcast - radio controller device.
<lsl>
// Script: Shoutcast - radio controller
// Version: 0.3 - released 10-2-2011
// Logic Scripts (Flennan Roffo)
// (c) 2010 - Flennan Roffo (Logic Scripts)
//
// This script is a remake of a couple of similar script:
// + LandOwnersRadio V2.0 by Scripter Coba (( menu driven / notecard config script to select the radio station and sets parcel music url ))
// + Raven radio infoboard by Jamie Otis (( worked at the basis of sis service [sis.slserver.com/sis.php] used Xy text display ))
// + currentPlaying by Darkie Minotaur (( used the /7.html info to fetch current song title info, displayed as float text ))
//
// Purpose:
// * Sets the parcel audio URL and displays the channel info
// * Uses Xytext to display the info.
// * Fetches song title info from the shoutcast url
///////////////////////////////////////////////////////////////////////////////////////
// Extra Features -- 0.1 release
// * On/Off option
// * Allows multiple menus (if options per menu > 12) using a prev/next button
// * Checks if your url is well-formatted
// * Will delete genres for which no stations exist
// * Will skip stations that have same url and same genre (you can however have an identical station url under different genres).
// * New notecard format
//////////////////////////////////////////////////////////////////////////////////////////
// Extra Features -- 0.2 release
// * Configurable button text
// * Gets parcel URL and automatically sets the genre/station and on/off status accordingly (<-- doesn't work)
//////////////////////////////////////////////////////////////////////////////////////////
// Update -- 0.3 release
// * Fixed bug (only first station in genre displayed in menu)
// * Auto reset script when config card updated
// Notes:
// * Expects url to be in the format: <ip>:<port>, where <ip> has the format: xxx.xxx.xxx.xxx (0 <= xxx <= 255)
// * Deletes entries in category (genre) for which no stations are configured with notice.
// * Skips stations which have identical url AND same category (genre).
//////////////////////////////////////////////////////////////////////////////////////////
// Upcoming release -- 0.4
// * Will add functions for remote controller(s) and remote display(s) using llRegionSay to communicate over a channel.
// * Should relax on the constraints about the input format of URL's (currently requires that URL has format: xxx.xxx.xxx.xxx/yyyy).
// * Fix button placement. Control buttons should be on the first line.
// * Implement script reset on change of owner.
// * Permit station to be put under multiple genres, using a comma-seperated list of genres in the section [STATION]
// (currently this is only possible by duplicating the entire line and change the genre.)
/////////////////////////////////////////////////////////////////////////////////////////
// Future plans:
// * Individual user preferences that can be stored on seperate note cards. A user has access to his own list of genres and stations and the system available genres/stations.
// * Feature for accessing online playlists (M3U, PLS, other formats) to play a list of songs provided by that playlist.
// * User provided url.
/////////////////////////////////////////////////////////////////////////////////////////
// BUGS & FEATURE REQUESTS
//
// Please inform the author, Logic Scripts (flennan.roffo) about any bugs or annoyances.
// Feature requests can also be submitted to the author.
/////////////////////////////////////////////////////////////////////////////////////////
// LICENCE INFO
//
// This program is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program. If not, see <http://www.gnu.org/licenses/>.
///////////////////////////////////////////////////////////////////////////////////////////

string info_notecard="Radio Control info"; /////// EDITABLE \\\\\\
string config_notecard="Radio Control config"; /////// EDITABLE \\\\\\
string comment_char="#"; /////// EDITABLE \\\\\\
list sep_char_list= ["|"]; /////// EDITABLE \\\\\\
float update_time=5.0; /////// EDITABLE \\\\\\
string no_title_info="(no title info available)"; /////// EDITABLE \\\\\\

// not used currently - for showing info on current song title elsewhere in the region
integer broadcast_channel=-1234; /////// EDITABLE \\\\\\

// Buttons

string button_MAIN = "MAIN"; /////// EDITABLE \\\\\\
string button_HELP = "HELP"; /////// EDITABLE \\\\\\
string button_NEXT = ">>"; /////// EDITABLE \\\\\\
string button_PREV = "<<"; /////// EDITABLE \\\\\\
string button_ON = "ON"; /////// EDITABLE \\\\\\
string button_OFF = "OFF"; /////// EDITABLE \\\\\\

//////////////////////////////////
// Don't touch the variables below
/////////////////////////////////

// List of categories (=genres)

list category_list=[];

// List of stations. KEEP THESE LISTS IN SYNCH!

list station_category=[];
list station_name=[];
list station_desc=[];
list station_url=[];

// Last song title played
string last_title_info="";

integer radio_status=0; // 0 - OFF 1 - ON
string parcel_url="";
integer lineno=0;
key reqid=NULL_KEY;
key httpreq_id=NULL_KEY;
integer config_error=FALSE;
integer flag;
integer section=0;

// Access values. Note that users who are banned can not access the device even when access is public
integer owner_access=TRUE;
integer group_access=FALSE;
integer public_access=TRUE;
list banned_keys=[];

// Channels for menu and user input
integer menu_channel;
integer listen_handle;

// Menu
integer menu_type=0; // 0 - Main menu (genres) 1 - Station menu (stations)
integer menu_num=0; // When more menu options need to be selectable then can be displayed on a menu (12), this is the menu number - menu number 0 is the first menu.

// Genres and stations

integer category_index=0; // Current index in category_list (genre)
integer station_index=0; // Current index in station_* (station)

integer num_categories=0;
integer num_stations=0;

// Make request for title info using HTTP request
retrieve_titelinfo()
{
string url=llList2String(station_url,station_index);
httpreq_id=llHTTPRequest(url + "/7.html HTTP/1.0\nUser-Agent: LSL Script (Mozilla Compatible)\n\n",[],"");
}

// Display a line on an Xytext device linked in
display_line(string line, string message)
{
// Setup XYtext Variables
integer DISPLAY_STRING = 204000;
// integer DISPLAY_EXTENDED = 204001; (not used)
// integer REMAP_INDICES = 204002; (not used)
// integer RESET_INDICES = 204003; (not used)
// integer SET_CELL_INFO = 204004; (not used)
// integer SET_FONT_TEXTURE = 204005; (not used)
// integer SET_THICKNESS = 204006; (not used)
// integer SET_COLOR = 204007; (not used)

llMessageLinked(LINK_SET,DISPLAY_STRING,message,line);
}

// Clear the Xytext display
clear_display()
{
// Clears the display
display_line("1","Radio Station ID");
display_line("2","Music Genre....");
display_line("3","Now Playing....");
}

// Make a menu / dialog
make_menu(key id)
{
menu_channel=random_channel();

if (radio_status == 0)
{
menu_type=0;
menu_num=0;
llDialog(id,"Menu: Status\n\nRadio is OFF", [ "ON", "HELP" ],menu_channel);
}
else
{
if (menu_type ==0)
{
llDialog(id,"Menu: Genres", category_menu(menu_num),menu_channel);
}
else
{
llDialog(id,"Menu: Stations\nGenre: " + llList2String(category_list,category_index), station_menu(menu_num),menu_channel);
}
}

if (listen_handle != 0) llListenRemove(listen_handle);
listen_handle=llListen(menu_channel,"",id,"");
}

// Make the menu option list for menu: catagories (genres)
list category_menu(integer num)
{
integer len=llGetListLength(category_list);
list menu=[];

if (len > 9) // If more then 9 items (12 minus the 3 buttons for MAIN/HELP and PREV, NEXT)
{
integer last_sub=(len-1)/9; // submenus start at 0. 9th entry is in submenu 0, 10th in 1, etc.

if (num > last_sub)
{
llWhisper(0,"error: wrong submenu number: " + (string) num + ".");
return [ "MAIN" ];
}
else
{
integer first=9*num;

while (--len >= first)
menu+=(list)llList2String(category_list,len);

if (num == 0)
menu+=(list)button_HELP;
else
menu+=(list)button_MAIN;

if (num == 0)
menu+=(list)button_OFF;
else
menu+=(list)button_PREV;

if (num != last_sub)
menu+=(list)button_NEXT;
}
}
else
{
while (--len >= 0)
menu+=(list)llList2String(category_list,len);

menu+=(list)button_OFF;
menu+=(list)button_HELP;
}

return menu; // order_buttons(menu);
}

// Returns the number of stations in a certain category
integer stations_in_category(integer cat)
{
integer count=0;
integer i;
integer len=llGetListLength(station_category);
string category=llList2String(category_list,cat);

for (i=0; i < len; i++)
if (category == llList2String(category_list,i))
count++;

return count;
}

// Not used currently -- to fix button placement
list order_buttons(list buttons)
{
integer offset;
list fixt;
integer flag=0;

while((offset = llGetListLength(buttons)))
{
if (offset > 3)
flag=1;
else
flag=0;

fixt += llList2List(buttons, offset = -3 * flag, -1);
buttons = llDeleteSubList(buttons, offset, -1);
}

return fixt;
}

// Returns a list of station names in a certain category (genre)
list station_list(integer category)
{
list s=[];
integer i;
string cname=llList2String(category_list,category_index);

for (i = 0; i < llGetListLength(station_name); i++)
if (llList2String(station_category,i) == cname)
s+=(list)llList2String(station_name,i);

return s;

}

// Returns the list of stations for the station menu, depending on the submenu number
list station_menu(integer num)
{
list stations=station_list(category_index);
integer len=llGetListLength(stations);
list menu=[];

if (len > 11) // 12 - 1 for MAIN menu
{
integer last_sub=(len-1)/9;

if (num >= last_sub)
{
llWhisper(0,"error: wrong submenu number: " + (string) num + ".");
return [ "MAIN" ];
}
else
{
integer first=9*num;
integer last=9*num+8;

menu+=(list)button_MAIN;

if (num > 0)
menu+=(list)button_PREV;

if (num < last_sub)
menu+=(list)button_NEXT;

if (len > last)
len =last;

while (--len >= first)
menu+=(list)llList2String(stations,len);
}
}
else
{
menu+=(list)button_MAIN;

while (--len >= 0)
menu+=(list)llList2String(stations,len);
}

return menu; // order_buttons(menu);
}

// Returns whether av with key id has access
integer has_access(key id)
{
if (llListFindList(banned_keys,(list)id) != -1)
return FALSE;

if (owner_access && id == llGetOwner())
return TRUE;

if (group_access && llSameGroup(id))
return TRUE;

if (public_access)
return TRUE;

return FALSE;
}

// Gets a random channel -- uses a wide range of big negative channel numbers seldomly used
integer random_channel()
{
integer min=-2147483647;
integer max=-1000;

return (integer) (min + llFrand(max-min));
}

// Check for the format of the url string -- is very selective about url format
// expects: xxx.xxx.xxx.xxx:xxxx (ip adress in number notation with port adress)
// Next release will relax on this constraint.
integer check_url(string url)
{
integer pos=0;

if (llGetSubString(url,0,6) == "http://")
pos=7;
if (llGetSubString(url,0,7) == "https://")
pos=8;

if (pos==0) return FALSE;

string str_ip_port=llGetSubString(url,pos,-1);
list list_ip_port=llParseString2List(str_ip_port,[":"],[]); // split in ip-adress and port
list list_ip=llParseString2List(llList2String(list_ip_port,0),["."],[]); // split ip-adress elements

if (llGetListLength(list_ip_port) != 2 || llGetListLength(list_ip) != 4)
return FALSE;

integer i;
integer test;

for (i=0;i<4;i++)
{
test=llList2Integer(list_ip,i);
if (llList2String(list_ip,i) != (string)test)
return FALSE;
if (test < 0 || test > 255)
return FALSE;
}

test=llList2Integer(list_ip_port,1);
if (llList2String(list_ip_port,1) != (string)test)
return FALSE;

return TRUE;
}

// Returns a true value depending on the first character in input - anything else is assumed false.
integer true_value(string input)
{
string value=llToLower(llGetSubString(input,0,0));

if (value == "y" || value == "t" || value =="1")
return TRUE;

return FALSE;
}

// Return if more input should be processed (if not at EOF) - sets ConfigError if any config error found. Reading config card stops at the first error.
integer process_line(string dataline)
{
string line=llStringTrim(dataline,STRING_TRIM);
integer index=llSubStringIndex(line,comment_char);

if (index==0) // line starts with comment - ignore line
return TRUE;

if (index!=-1)
line=llStringTrim(llGetSubString(line,0,index-1),STRING_TRIM_TAIL); // skip everything after comment_char and trim tail

if (line=="") // Ignore blank lines
return TRUE;

if (llToLower(line) == "[access]")
{
section = 1;
return TRUE;
}
else if (llToLower(line) == "[banned]")
{
section = 2;
return TRUE;
}
else if (llToLower(line) == "[genre]")
{
section = 3;
return TRUE;
}
else if (llToLower(line) == "[station]")
{
section = 4;
return TRUE;
}
else if (llGetSubString(line,0,0) == "[" && llGetSubString(line,-1,-1) == "]")
{
llWhisper(0,"error: malformed section found at line " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

if (section == 0)
{
llWhisper(0,"error: no section found on line: " + (string) lineno);
config_error = TRUE;
return FALSE;
}

list breakup=llParseString2List(line,["="],[]);
string field=llStringTrim(llList2String(breakup,0),STRING_TRIM);
string values=llStringTrim(llList2String(breakup,1),STRING_TRIM);

if (section == 1) // access
{
field=llToLower(field);

if (field=="owner")
{
owner_access=true_value(values);
return TRUE;
}
else if (field=="group")
{
group_access=true_value(values);
return TRUE;
}
else if (field=="public")
{
public_access=true_value(values);
return TRUE;
}
else
{
llWhisper(0,"error: invalid option on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

}
else if (section == 2) // ban list
{
key try=(key) field;

if (try)
{
banned_keys+=(list)((key) field);
return TRUE;
}
else
return FALSE;
}
else if (section == 3) // categories
{
if (llListFindList(category_list,(list)field) == -1)
{
category_list+=(list)field;
}
else
llWhisper(0,"genre: '" + field + "' already entered; double entry skipped.");

return TRUE;
}
else if (section == 4) // stations
{
list parse=llParseString2List(line,sep_char_list, []);
string category=llStringTrim(llList2String(parse,0),STRING_TRIM);
string name=llStringTrim(llList2String(parse,1),STRING_TRIM);
string desc=llStringTrim(llList2String(parse,2),STRING_TRIM);
string url=llStringTrim(llToLower(llList2String(parse,3)),STRING_TRIM);

if (!available_category(category))
{
llWhisper(0,"error: unknown genre on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

if (check_url(url))
{
if (llListFindList(station_url,(list)url) == -1 || llListFindList(station_category,(list)category) == -1)
{
num_stations++;
station_category+=(list)category;
station_name+=(list)name;
station_desc+=(list)desc;
station_url+=(list)url;
return TRUE;
}
else
{
llWhisper(0,"This station is already entered under the same genre and same url and is skipped.\nStation: " + name + "\nGenre: '" + category + "'\nURL: " + url);
return TRUE;
}
}
else
{
llWhisper(0,"error: malformed url on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}
}

return FALSE;
}

// Sets the parcel URL and updates the display
set_parcel_url(string url)
{
parcel_url=url;
llSetParcelMusicURL(parcel_url);

if (parcel_url=="")
{
clear_display();
display_line("1","Radio is OFF");
display_line("2","");
display_line("3","");
}
else
{
llWhisper(0,"station now set to " + llList2String(station_desc,station_index) + ".");
display_line("1","Station: " + llList2String(station_desc,station_index));
display_line("2","Genre : " + llList2String(category_list,category_index));
display_line("3","Now playing.....");
llSetTimerEvent(update_time);
}
}

// Returns if a category (genre) exists.
integer available_category(string category)
{
integer i;
integer len=llGetListLength(category_list);

for (i=0;i<len;i++)
if (llToLower(category) == llToLower(llList2String(category_list,i)))
return TRUE;

return FALSE;
}

// Returns if a category (genre) is empty (i.e. there are no stations for this catagory (genre))
integer empty_category(string category)
{
integer i;
integer len=llGetListLength(station_category);

for (i=0; i < len; i++)
if (llToLower(category) == llToLower(llList2String(station_category,i)))
return FALSE;

return TRUE;
}

// Removes categories (genres) for which no station is known.
skip_empty_categories()
{
integer i=0;

while (i<llGetListLength(category_list))
{
if (empty_category(llList2String(category_list,i)))
{
llWhisper(0,"Warning: Genre '" + llList2String(category_list,i) + "' contains no stations and is deleted.");
category_list=llDeleteSubList(category_list,i,i);
}
else
i++;
}

num_categories=llGetListLength(category_list);
}

/////////////////////////////////////////////
// state default
////////////////////////////////////////////

default
{
state_entry()
{
flag=FALSE;
lineno=0;
config_error=FALSE;
num_stations=0;
num_categories=0;
radio_status=0;
menu_num=0;
menu_type=0;

if (llGetInventoryType(config_notecard) == INVENTORY_NOTECARD)
{
reqid=llGetNotecardLine(config_notecard,lineno++);
llWhisper(0, "Reading config notecard...");
display_line("1","Reading configuration.");
display_line("2","Wait....");
display_line("3","");
}
else
{
llWhisper(0,"No config notecard '" + config_notecard + "' present.");
state offline;
}
}

on_rez(integer param)
{
llResetScript();
}

dataserver(key id, string data)
{
if (reqid==id)
{
if (data==EOF)
{
skip_empty_categories();
llWhisper(0,"Configuration ok.\n" + (string)num_categories + " genres and " + (string)num_stations + " stations.");
display_line("1","Configuration OK");
display_line("2","Genres : " + (string)num_categories);
display_line("3","Stations: " + (string)num_stations);
state menu;
}
else
{
if (process_line(data))
reqid=llGetNotecardLine(config_notecard,lineno++);
else if (config_error)
{
llWhisper(0,"errors found in configuration. please correct them.");
state offline;
}
}
}
}

touch_start(integer total_num)
{
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY)
llResetScript();
}
}

/////////////////////////////////////////////
// state offline
////////////////////////////////////////////

state offline
{
state_entry()
{
llWhisper(0,"Reset on owner touch or when notecard updated.");
}

touch_start(integer t)
{
if (llDetectedKey(0)==llGetOwner())
llResetScript();
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY && flag)
llResetScript();
}
}

/////////////////////////////////////////////
// state menu
////////////////////////////////////////////

state menu
{
state_entry()
{
menu_type=0;
menu_num=0;
listen_handle=0;
}

changed(integer param)
{
if (param & CHANGED_INVENTORY)
llResetScript();
}

on_rez(integer param)
{
llResetScript();
}

touch_start(integer total_num)
{
key toucher=llDetectedKey(0);

if (has_access(toucher))
{
make_menu(toucher);
}
else
llWhisper(0,"sorry, no access.");
}

listen(integer chan, string name,key id,string msg)
{
integer index;

if (menu_type == 0) // main menu
{
if (msg == button_MAIN)
{
menu_type=0;
menu_num =0;
make_menu(id);
}
else if (msg == button_NEXT)
{
menu_num++;
make_menu(id);
}
else if (msg == button_PREV)
{
menu_num--;
make_menu(id);
}
else if (msg == button_ON)
{
radio_status=1;
set_parcel_url(parcel_url);
display_line("1","Radio is ON");
menu_num=0;
llWhisper(0,"Radio now turned on.");
make_menu(id);
}
else if (msg == button_OFF)
{
radio_status=0;
set_parcel_url("");
llSetTimerEvent(0.0);
llWhisper(0,"Radio now turned off.");
}
else if (msg == button_HELP)
{
if (llGetInventoryType(info_notecard) == INVENTORY_NOTECARD)
{
llGiveInventory(id,info_notecard);
}
else
llWhisper(0,"sorry, help not available.");
}
else if (radio_status == 1)
{
index = llListFindList(category_list, (list)msg);

if (index == -1)
llWhisper(0,"error: genre not found: " + msg);
else
{
category_index=index;
llWhisper(0,"Genre now set to " + llList2String(category_list,category_index) + ".");
menu_type=1;
menu_num=0;
make_menu(id);
}
}
}
else if (menu_type == 1 && radio_status == 1) // station menu
{
if (msg == button_MAIN)
{
menu_type=0;
menu_num =0;
make_menu(id);
}
else if (msg == button_NEXT)
{
menu_num++;
make_menu(id);
}
else if (msg == button_PREV)
{
menu_num--;
make_menu(id);
}
else
{
index = llListFindList(station_name, (list)msg);

if (index == -1)
llWhisper(0,"error: station not found: " + msg);
else
{
station_index=index;
string new_url=llList2String(station_url,station_index);

if (new_url != parcel_url)
{
set_parcel_url(new_url);
}
}
}
}
}

timer()
{
retrieve_titelinfo();
llSetTimerEvent(update_time);
}

http_response(key id, integer status, list meta, string body)
{
if (id == httpreq_id)
{
if (status == 200)
{
string feed = llGetSubString(body,llSubStringIndex(body, "<body>") + llStringLength("<body>"), llSubStringIndex(body,"</body>") - 1);
list feed_list = llParseString2List(feed,[","],[]);
string current_title_info= llList2String(feed_list,6);
integer length = llGetListLength(feed_list);

if(llList2String(feed_list,7))
{
integer a = 7;
for(; a<length; ++a)
{
current_title_info += ", " + llList2String(feed_list,a);
}
}

if (current_title_info != last_title_info)
{
last_title_info = current_title_info;
display_line("3","Title : " + current_title_info);
}
}
else
{
display_line("3","Title : " + no_title_info);
}
}
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY && flag)
llResetScript();
}
}

//////////////////////////////
// end of script
//////////////////////////////
</lsl>

===Notecard format===
Example notecard
<pre>
# New format Shoutcast - radio controller config notecard
# The format is divided in 4 sections:
# 1 - Access configuration
# 2 - Ban list (keys)
# 3 - Categories (same as genres)
# 4 - Station info (category, name, desc, url)
# The '#' character defines the start of a comment and can be anywhere on a line.
# Everything after the '#' incuding the '#' itself is ignored.
# Case is not important (but information on display will show as entered)
# Spaces before and/or after fields are trimmed.
# Empty lines are ignored.

[ACCESS]
owner=yes # yes, true,1 means owner has access. everything else not.
group=yes # ,, ,, ,, means group has acess. ,, ,, ,,
public=yes # ,, ,, ,, means public has access. ,, ,, ,,

[BANNED]
# keys of banned residents

[GENRE]
# genre name -- Use short genre names as the the length of menu buttons is short!
Hard Rock
Classic Rock
Oldies
Rap/Urban
Comedy
News
Dance
Country
Gothic
# etc.
[STATION]
# Shoutcast radio stations
# Use a '|' between each field - don't mind spaces before and after fields, they will be trimmed
# field1:genre, field2:station name, field3: station description, field4: station http://<ip>:<port> or https://<ip>:<port>
# Note that genre must match case-insensitive a value previously entered in section [GENRE]
Classic Rock | Absolute | Absolute Radio | http://205.188.215.226:8018
# etc.
</pre>

===TODO===

Planned for upcoming release 0.4:
* Add a llRegionSay to broadcast the <station>|<genre>|<current songtitle>|<url> to the region and add a script that displays that info on a remote Xytext board. (for use with a remote controller and/or remote display board anywhere in the region/parcel)
* llResetScript on owner change
* Relax on URL format
* Allow multiple genres per station

Shoutcast - radio controller v0.3 (remake of similar scripts)

Flennan Roffo — Thu, 10 Feb 2011 00:58:55 GMT

Flennan Roffo: /* Shoutcast - radio controller */

{{LSL Header}}
=Shoutcast - radio controller=
This script controls a shoutcast radio receiver and lets you select the stations that you configured on a notecard. Menu driven. Output of station description, genre and current song title using Xy text.
Credits for this script go to previous developers of similar scripts:
* ''Scripter Coba'' who wrote the LandOwnersRadio (V2.0) script. Menu driven / notecard config script to select genre and station to set parcel music url.
* ''Jamie Otis'' who wrote the Raven radio infoboard script. Shows what song is playing by fetching info using the sis.slserver.info/sis.php service (now offline). Display on Xytext.
* ''Darkie Minotaur'' who wrote the currentPlaying script. Shows what song is currently playing by fetching info from the /7.html shoutcast page.

Although this script is based upon similar functionality as provided in these scripts, this script is not simply a merge/copy of those scripts, but a complete make-over.
I use my own notecard format and processing of notecard info, and own menu system.

==Versions==

Current version: v0.3 released 10-2-2011

==Scripts==

===Shoutcast - radio controller===
This script should be put into the shoutcast - radio controller device.
<lsl>
// Script: Shoutcast - radio controller
// Version: 0.3 - released 10-2-2011
// Logic Scripts (Flennan Roffo)
// (c) 2010 - Flennan Roffo (Logic Scripts)
//
// This script is a remake of a couple of similar script:
// + LandOwnersRadio V2.0 by Scripter Coba (( menu driven / notecard config script to select the radio station and sets parcel music url ))
// + Raven radio infoboard by Jamie Otis (( worked at the basis of sis service [sis.slserver.com/sis.php] used Xy text display ))
// + currentPlaying by Darkie Minotaur (( used the /7.html info to fetch current song title info, displayed as float text ))
//
// Purpose:
// * Sets the parcel audio URL and displays the channel info
// * Uses Xytext to display the info.
// * Fetches song title info from the shoutcast url
///////////////////////////////////////////////////////////////////////////////////////
// Extra Features -- 0.1 release
// * On/Off option
// * Allows multiple menus (if options per menu > 12) using a prev/next button
// * Checks if your url is well-formatted
// * Will delete genres for which no stations exist
// * Will skip stations that have same url and same genre (you can however have an identical station url under different genres).
// * New notecard format
//////////////////////////////////////////////////////////////////////////////////////////
// Extra Features -- 0.2 release
// * Configurable button text
// * Gets parcel URL and automatically sets the genre/station and on/off status accordingly (<-- doesn't work)
//////////////////////////////////////////////////////////////////////////////////////////
// Update -- 0.3 release
// * Fixed bug (only first station in genre displayed in menu)
// * Auto reset script when config card updated
// Notes:
// * Expects url to be in the format: <ip>:<port>, where <ip> has the format: xxx.xxx.xxx.xxx (0 <= xxx <= 255)
// * Deletes entries in category (genre) for which no stations are configured with notice.
// * Skips stations which have identical url AND same category (genre).
//////////////////////////////////////////////////////////////////////////////////////////
// Upcoming release -- 0.4
// * Will add functions for remote controller(s) and remote display(s) using llRegionSay to communicate over a channel.
// * Should relax on the constraints about the input format of URL's (currently requires that URL has format: xxx.xxx.xxx.xxx/yyyy).
// * Fix button placement. Control buttons should be on the first line.
// * Implement script reset on change of owner.
// * Permit station to be put under multiple genres, using a comma-seperated list of genres in the section [STATION]
// (currently this is only possible by duplicating the entire line and change the genre.)
/////////////////////////////////////////////////////////////////////////////////////////
// Future plans:
// * Individual user preferences that can be stored on seperate note cards. A user has access to his own list of genres and stations and the system available genres/stations.
// * Feature for accessing online playlists (M3U, PLS, other formats) to play a list of songs provided by that playlist.
// * User provided url.
/////////////////////////////////////////////////////////////////////////////////////////
// BUGS & FEATURE REQUESTS
//
// Please inform the author, Logic Scripts (flennan.roffo) about any bugs or annoyances.
// Feature requests can also be submitted to the author.
/////////////////////////////////////////////////////////////////////////////////////////
// LICENCE INFO
//
// This program is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program. If not, see <http://www.gnu.org/licenses/>.
///////////////////////////////////////////////////////////////////////////////////////////

string info_notecard="Radio Control info"; /////// EDITABLE \\\\\\
string config_notecard="Radio Control config"; /////// EDITABLE \\\\\\
string comment_char="#"; /////// EDITABLE \\\\\\
list sep_char_list= ["|"]; /////// EDITABLE \\\\\\
float update_time=5.0; /////// EDITABLE \\\\\\
string no_title_info="(no title info available)"; /////// EDITABLE \\\\\\

// not used currently - for showing info on current song title elsewhere in the region
integer broadcast_channel=-1234; /////// EDITABLE \\\\\\

// Buttons

string button_MAIN = "MAIN"; /////// EDITABLE \\\\\\
string button_HELP = "HELP"; /////// EDITABLE \\\\\\
string button_NEXT = ">>"; /////// EDITABLE \\\\\\
string button_PREV = "<<"; /////// EDITABLE \\\\\\
string button_ON = "ON"; /////// EDITABLE \\\\\\
string button_OFF = "OFF"; /////// EDITABLE \\\\\\

//////////////////////////////////
// Don't touch the variables below
/////////////////////////////////

// List of categories (=genres)

list category_list=[];

// List of stations. KEEP THESE LISTS IN SYNCH!

list station_category=[];
list station_name=[];
list station_desc=[];
list station_url=[];

// Last song title played
string last_title_info="";

integer radio_status=0; // 0 - OFF 1 - ON
string parcel_url="";
integer lineno=0;
key reqid=NULL_KEY;
key httpreq_id=NULL_KEY;
integer config_error=FALSE;
integer flag;
integer section=0;

// Access values. Note that users who are banned can not access the device even when access is public
integer owner_access=TRUE;
integer group_access=FALSE;
integer public_access=TRUE;
list banned_keys=[];

// Channels for menu and user input
integer menu_channel;
integer listen_handle;

// Menu
integer menu_type=0; // 0 - Main menu (genres) 1 - Station menu (stations)
integer menu_num=0; // When more menu options need to be selectable then can be displayed on a menu (12), this is the menu number - menu number 0 is the first menu.

// Genres and stations

integer category_index=0; // Current index in category_list (genre)
integer station_index=0; // Current index in station_* (station)

integer num_categories=0;
integer num_stations=0;

// Make request for title info using HTTP request
retrieve_titelinfo()
{
string url=llList2String(station_url,station_index);
httpreq_id=llHTTPRequest(url + "/7.html HTTP/1.0\nUser-Agent: LSL Script (Mozilla Compatible)\n\n",[],"");
}

// Display a line on an Xytext device linked in
display_line(string line, string message)
{
// Setup XYtext Variables
integer DISPLAY_STRING = 204000;
// integer DISPLAY_EXTENDED = 204001; (not used)
// integer REMAP_INDICES = 204002; (not used)
// integer RESET_INDICES = 204003; (not used)
// integer SET_CELL_INFO = 204004; (not used)
// integer SET_FONT_TEXTURE = 204005; (not used)
// integer SET_THICKNESS = 204006; (not used)
// integer SET_COLOR = 204007; (not used)

llMessageLinked(LINK_SET,DISPLAY_STRING,message,line);
}

// Clear the Xytext display
clear_display()
{
// Clears the display
display_line("1","Radio Station ID");
display_line("2","Music Genre....");
display_line("3","Now Playing....");
}

// Make a menu / dialog
make_menu(key id)
{
menu_channel=random_channel();

if (radio_status == 0)
{
menu_type=0;
menu_num=0;
llDialog(id,"Menu: Status\n\nRadio is OFF", [ "ON", "HELP" ],menu_channel);
}
else
{
if (menu_type ==0)
{
llDialog(id,"Menu: Genres", category_menu(menu_num),menu_channel);
}
else
{
llDialog(id,"Menu: Stations\nGenre: " + llList2String(category_list,category_index), station_menu(menu_num),menu_channel);
}
}

if (listen_handle != 0) llListenRemove(listen_handle);
listen_handle=llListen(menu_channel,"",id,"");
}

// Make the menu option list for menu: catagories (genres)
list category_menu(integer num)
{
integer len=llGetListLength(category_list);
list menu=[];

if (len > 9) // If more then 9 items (12 minus the 3 buttons for MAIN/HELP and PREV, NEXT)
{
integer last_sub=(len-1)/9; // submenus start at 0. 9th entry is in submenu 0, 10th in 1, etc.

if (num > last_sub)
{
llWhisper(0,"error: wrong submenu number: " + (string) num + ".");
return [ "MAIN" ];
}
else
{
integer first=9*num;

while (--len >= first)
menu+=(list)llList2String(category_list,len);

if (num == 0)
menu+=(list)button_HELP;
else
menu+=(list)button_MAIN;

if (num == 0)
menu+=(list)button_OFF;
else
menu+=(list)button_PREV;

if (num != last_sub)
menu+=(list)button_NEXT;
}
}
else
{
while (--len >= 0)
menu+=(list)llList2String(category_list,len);

menu+=(list)button_OFF;
menu+=(list)button_HELP;
}

return menu; // order_buttons(menu);
}

// Returns the number of stations in a certain category
integer stations_in_category(integer cat)
{
integer count=0;
integer i;
integer len=llGetListLength(station_category);
string category=llList2String(category_list,cat);

for (i=0; i < len; i++)
if (category == llList2String(category_list,i))
count++;

return count;
}

// Not used currently -- to fix button placement
list order_buttons(list buttons)
{
integer offset;
list fixt;
integer flag=0;

while((offset = llGetListLength(buttons)))
{
if (offset > 3)
flag=1;
else
flag=0;

fixt += llList2List(buttons, offset = -3 * flag, -1);
buttons = llDeleteSubList(buttons, offset, -1);
}

return fixt;
}

// Returns a list of station names in a certain category (genre)
list station_list(integer category)
{
list s=[];
integer i;
string cname=llList2String(category_list,category_index);

for (i = 0; i < llGetListLength(station_name); i++)
if (llList2String(station_category,i) == cname)
s+=(list)llList2String(station_name,i);

return s;

}

// Returns the list of stations for the station menu, depending on the submenu number
list station_menu(integer num)
{
list stations=station_list(category_index);
integer len=llGetListLength(stations);
list menu=[];

if (len > 11) // 12 - 1 for MAIN menu
{
integer last_sub=(len-1)/9;

if (num >= last_sub)
{
llWhisper(0,"error: wrong submenu number: " + (string) num + ".");
return [ "MAIN" ];
}
else
{
integer first=9*num;
integer last=9*num+8;

menu+=(list)button_MAIN;

if (num > 0)
menu+=(list)button_PREV;

if (num < last_sub)
menu+=(list)button_NEXT;

if (len > last)
len =last;

while (--len >= first)
menu+=(list)llList2String(stations,len);
}
}
else
{
menu+=(list)button_MAIN;

while (--len >= 0)
menu+=(list)llList2String(stations,len);
}

return menu; // order_buttons(menu);
}

// Returns whether av with key id has access
integer has_access(key id)
{
if (llListFindList(banned_keys,(list)id) != -1)
return FALSE;

if (owner_access && id == llGetOwner())
return TRUE;

if (group_access && llSameGroup(id))
return TRUE;

if (public_access)
return TRUE;

return FALSE;
}

// Gets a random channel -- uses a wide range of big negative channel numbers seldomly used
integer random_channel()
{
integer min=-2147483647;
integer max=-1000;

return (integer) (min + llFrand(max-min));
}

// Check for the format of the url string -- is very selective about url format
// expects: xxx.xxx.xxx.xxx:xxxx (ip adress in number notation with port adress)
// Next release will relax on this constraint.
integer check_url(string url)
{
integer pos=0;

if (llGetSubString(url,0,6) == "http://")
pos=7;
if (llGetSubString(url,0,7) == "https://")
pos=8;

if (pos==0) return FALSE;

string str_ip_port=llGetSubString(url,pos,-1);
list list_ip_port=llParseString2List(str_ip_port,[":"],[]); // split in ip-adress and port
list list_ip=llParseString2List(llList2String(list_ip_port,0),["."],[]); // split ip-adress elements

if (llGetListLength(list_ip_port) != 2 || llGetListLength(list_ip) != 4)
return FALSE;

integer i;
integer test;

for (i=0;i<4;i++)
{
test=llList2Integer(list_ip,i);
if (llList2String(list_ip,i) != (string)test)
return FALSE;
if (test < 0 || test > 255)
return FALSE;
}

test=llList2Integer(list_ip_port,1);
if (llList2String(list_ip_port,1) != (string)test)
return FALSE;

return TRUE;
}

// Returns a true value depending on the first character in input - anything else is assumed false.
integer true_value(string input)
{
string value=llToLower(llGetSubString(input,0,0));

if (value == "y" || value == "t" || value =="1")
return TRUE;

return FALSE;
}

// Return if more input should be processed (if not at EOF) - sets ConfigError if any config error found. Reading config card stops at the first error.
integer process_line(string dataline)
{
string line=llStringTrim(dataline,STRING_TRIM);
integer index=llSubStringIndex(line,comment_char);

if (index==0) // line starts with comment - ignore line
return TRUE;

if (index!=-1)
line=llStringTrim(llGetSubString(line,0,index-1),STRING_TRIM_TAIL); // skip everything after comment_char and trim tail

if (line=="") // Ignore blank lines
return TRUE;

if (llToLower(line) == "[access]")
{
section = 1;
return TRUE;
}
else if (llToLower(line) == "[banned]")
{
section = 2;
return TRUE;
}
else if (llToLower(line) == "[genre]")
{
section = 3;
return TRUE;
}
else if (llToLower(line) == "[station]")
{
section = 4;
return TRUE;
}
else if (llGetSubString(line,0,0) == "[" && llGetSubString(line,-1,-1) == "]")
{
llWhisper(0,"error: malformed section found at line " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

if (section == 0)
{
llWhisper(0,"error: no section found on line: " + (string) lineno);
config_error = TRUE;
return FALSE;
}

list breakup=llParseString2List(line,["="],[]);
string field=llStringTrim(llList2String(breakup,0),STRING_TRIM);
string values=llStringTrim(llList2String(breakup,1),STRING_TRIM);

if (section == 1) // access
{
field=llToLower(field);

if (field=="owner")
{
owner_access=true_value(values);
return TRUE;
}
else if (field=="group")
{
group_access=true_value(values);
return TRUE;
}
else if (field=="public")
{
public_access=true_value(values);
return TRUE;
}
else
{
llWhisper(0,"error: invalid option on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

}
else if (section == 2) // ban list
{
key try=(key) field;

if (try)
{
banned_keys+=(list)((key) field);
return TRUE;
}
else
return FALSE;
}
else if (section == 3) // categories
{
if (llListFindList(category_list,(list)field) == -1)
{
category_list+=(list)field;
}
else
llWhisper(0,"genre: '" + field + "' already entered; double entry skipped.");

return TRUE;
}
else if (section == 4) // stations
{
list parse=llParseString2List(line,sep_char_list, []);
string category=llStringTrim(llList2String(parse,0),STRING_TRIM);
string name=llStringTrim(llList2String(parse,1),STRING_TRIM);
string desc=llStringTrim(llList2String(parse,2),STRING_TRIM);
string url=llStringTrim(llToLower(llList2String(parse,3)),STRING_TRIM);

if (!available_category(category))
{
llWhisper(0,"error: unknown genre on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

if (check_url(url))
{
if (llListFindList(station_url,(list)url) == -1 || llListFindList(station_category,(list)category) == -1)
{
num_stations++;
station_category+=(list)category;
station_name+=(list)name;
station_desc+=(list)desc;
station_url+=(list)url;
return TRUE;
}
else
{
llWhisper(0,"This station is already entered under the same genre and same url and is skipped.\nStation: " + name + "\nGenre: '" + category + "'\nURL: " + url);
return TRUE;
}
}
else
{
llWhisper(0,"error: malformed url on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}
}

return FALSE;
}

// Sets the parcel URL and updates the display
set_parcel_url(string url)
{
parcel_url=url;
llSetParcelMusicURL(parcel_url);

if (parcel_url=="")
{
clear_display();
display_line("1","Radio is OFF");
display_line("2","");
display_line("3","");
}
else
{
llWhisper(0,"station now set to " + llList2String(station_desc,station_index) + ".");
display_line("1","Station: " + llList2String(station_desc,station_index));
display_line("2","Genre : " + llList2String(category_list,category_index));
display_line("3","Now playing.....");
llSetTimerEvent(update_time);
}
}

// Returns if a category (genre) exists.
integer available_category(string category)
{
integer i;
integer len=llGetListLength(category_list);

for (i=0;i<len;i++)
if (llToLower(category) == llToLower(llList2String(category_list,i)))
return TRUE;

return FALSE;
}

// Returns if a category (genre) is empty (i.e. there are no stations for this catagory (genre))
integer empty_category(string category)
{
integer i;
integer len=llGetListLength(station_category);

for (i=0; i < len; i++)
if (llToLower(category) == llToLower(llList2String(station_category,i)))
return FALSE;

return TRUE;
}

// Removes categories (genres) for which no station is known.
skip_empty_categories()
{
integer i=0;

while (i<llGetListLength(category_list))
{
if (empty_category(llList2String(category_list,i)))
{
llWhisper(0,"Warning: Genre '" + llList2String(category_list,i) + "' contains no stations and is deleted.");
category_list=llDeleteSubList(category_list,i,i);
}
else
i++;
}

num_categories=llGetListLength(category_list);
}

/////////////////////////////////////////////
// state default
////////////////////////////////////////////

default
{
state_entry()
{
flag=FALSE;
lineno=0;
config_error=FALSE;
num_stations=0;
num_categories=0;
radio_status=0;
menu_num=0;
menu_type=0;

if (llGetInventoryType(config_notecard) == INVENTORY_NOTECARD)
{
reqid=llGetNotecardLine(config_notecard,lineno++);
llWhisper(0, "Reading config notecard...");
display_line("1","Reading configuration.");
display_line("2","Wait....");
display_line("3","");
}
else
{
llWhisper(0,"No config notecard '" + config_notecard + "' present.");
state offline;
}
}

on_rez(integer param)
{
llResetScript();
}

dataserver(key id, string data)
{
if (reqid==id)
{
if (data==EOF)
{
skip_empty_categories();
llWhisper(0,"Configuration ok.\n" + (string)num_categories + " genres and " + (string)num_stations + " stations.");
display_line("1","Configuration OK");
display_line("2","Genres : " + (string)num_categories);
display_line("3","Stations: " + (string)num_stations);
state menu;
}
else
{
if (process_line(data))
reqid=llGetNotecardLine(config_notecard,lineno++);
else if (config_error)
{
llWhisper(0,"errors found in configuration. please correct them.");
state offline;
}
}
}
}

touch_start(integer total_num)
{
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY)
llResetScript();
}
}

/////////////////////////////////////////////
// state offline
////////////////////////////////////////////

state offline
{
state_entry()
{
llWhisper(0,"Reset on owner touch or when notecard updated.");
}

touch_start(integer t)
{
if (llDetectedKey(0)==llGetOwner())
llResetScript();
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY && flag)
llResetScript();
}
}

/////////////////////////////////////////////
// state menu
////////////////////////////////////////////

state menu
{
state_entry()
{
menu_type=0;
menu_num=0;
listen_handle=0;
}

changed(integer param)
{
if (param & CHANGED_INVENTORY)
llResetScript();
}

on_rez(integer param)
{
llResetScript();
}

touch_start(integer total_num)
{
key toucher=llDetectedKey(0);

if (has_access(toucher))
{
make_menu(toucher);
}
else
llWhisper(0,"sorry, no access.");
}

listen(integer chan, string name,key id,string msg)
{
integer index;

if (menu_type == 0) // main menu
{
if (msg == button_MAIN)
{
menu_type=0;
menu_num =0;
make_menu(id);
}
else if (msg == button_NEXT)
{
menu_num++;
make_menu(id);
}
else if (msg == button_PREV)
{
menu_num--;
make_menu(id);
}
else if (msg == button_ON)
{
radio_status=1;
set_parcel_url(parcel_url);
display_line("1","Radio is ON");
menu_num=0;
llWhisper(0,"Radio now turned on.");
make_menu(id);
}
else if (msg == button_OFF)
{
radio_status=0;
set_parcel_url("");
llSetTimerEvent(0.0);
llWhisper(0,"Radio now turned off.");
}
else if (msg == button_HELP)
{
if (llGetInventoryType(info_notecard) == INVENTORY_NOTECARD)
{
llGiveInventory(id,info_notecard);
}
else
llWhisper(0,"sorry, help not available.");
}
else if (radio_status == 1)
{
index = llListFindList(category_list, (list)msg);

if (index == -1)
llWhisper(0,"error: genre not found: " + msg);
else
{
category_index=index;
llWhisper(0,"Genre now set to " + llList2String(category_list,category_index) + ".");
menu_type=1;
menu_num=0;
make_menu(id);
}
}
}
else if (menu_type == 1 && radio_status == 1) // station menu
{
if (msg == button_MAIN)
{
menu_type=0;
menu_num =0;
make_menu(id);
}
else if (msg == button_NEXT)
{
menu_num++;
make_menu(id);
}
else if (msg == button_PREV)
{
menu_num--;
make_menu(id);
}
else
{
index = llListFindList(station_name, (list)msg);

if (index == -1)
llWhisper(0,"error: station not found: " + msg);
else
{
station_index=index;
string new_url=llList2String(station_url,station_index);

if (new_url != parcel_url)
{
set_parcel_url(new_url);
}
}
}
}
}

timer()
{
retrieve_titelinfo();
llSetTimerEvent(update_time);
}

http_response(key id, integer status, list meta, string body)
{
if (id == httpreq_id)
{
if (status == 200)
{
string feed = llGetSubString(body,llSubStringIndex(body, "<body>") + llStringLength("<body>"), llSubStringIndex(body,"</body>") - 1);
list feed_list = llParseString2List(feed,[","],[]);
string current_title_info= llList2String(feed_list,6);
integer length = llGetListLength(feed_list);

if(llList2String(feed_list,7))
{
integer a = 7;
for(; a<length; ++a)
{
current_title_info += ", " + llList2String(feed_list,a);
}
}

if (current_title_info != last_title_info)
{
last_title_info = current_title_info;
display_line("3","Title : " + current_title_info);
}
}
else
{
display_line("3","Title : " + no_title_info);
}
}
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY && flag)
llResetScript();
}
}

//////////////////////////////
// end of script
//////////////////////////////
</lsl>

===Notecard format===
Example notecard
<pre>
# New format Shoutcast - radio controller config notecard
# The format is divided in 4 sections:
# 1 - Access configuration
# 2 - Ban list (keys)
# 3 - Categories (same as genres)
# 4 - Station info (category, name, desc, url)
# The '#' character defines the start of a comment and can be anywhere on a line.
# Everything after the '#' incuding the '#' itself is ignored.
# Case is not important (but information on display will show as entered)
# Spaces before and/or after fields are trimmed.
# Empty lines are ignored.

[ACCESS]
owner=yes # yes, true,1 means owner has access. everything else not.
group=yes # ,, ,, ,, means group has acess. ,, ,, ,,
public=yes # ,, ,, ,, means public has access. ,, ,, ,,

[BANNED]
# keys of banned residents

[GENRE]
# genre name -- Use short genre names as the the length of menu buttons is short!
Hard Rock
Classic Rock
Oldies
Rap/Urban
Comedy
News
Dance
Country
Gothic
# etc.
[STATION]
# Shoutcast radio stations
# Use a '|' between each field - don't mind spaces before and after fields, they will be trimmed
# field1:genre, field2:station name, field3: station description, field4: station http://<ip>:<port> or https://<ip>:<port>
# Note that genre must match case-insensitive a value previously entered in section [GENRE]
Classic Rock | Absolute | Absolute Radio | http://205.188.215.226:8018
# etc.
</pre>

===TODO===

Planned for upcoming release 0.4:
* Add a llRegionSay to broadcast the <station>|<genre>|<current songtitle>|<url> to the region and add a script that displays that info on a remote Xytext board. (for use with a remote controller and/or remote display board anywhere in the region/parcel)
* llResetScript on owner change
* Relax on URL format
* Allow multiple genres per station

Shoutcast - radio controller v0.3 (remake of similar scripts)

Flennan Roffo — Thu, 10 Feb 2011 00:58:12 GMT

Flennan Roffo: /* Shoutcast - radio controller */

{{LSL Header}}
=Shoutcast - radio controller=
This script controls a shoutcast radio receiver and lets you select the stations that you configured on a notecard. Menu driven. Output of station description, genre and current song title using Xy text.
Credits for this script go to previous developers of similar scripts:
* Scripter Coba who wrote the LandOwnersRadio (V2.0) script. Menu driven / notecard config script to select genre and station to set parcel music url.
* Jamie Otis who wrote the Raven radio infoboard script. Shows what song is playing by fetching info using the sis.slserver.info/sis.php service (now offline). Display on Xytext.
* Darkie Minotaur who wrote the currentPlaying script. Shows what song is currently playing by fetching info from the /7.html shoutcast page.

Although this script is based upon similar functionality as provided in these scripts, this script is not simply a merge/copy of those scripts, but a complete make-over.
I use my own notecard format and processing of notecard info, and own menu system.

==Versions==

Current version: v0.3 released 10-2-2011

==Scripts==

===Shoutcast - radio controller===
This script should be put into the shoutcast - radio controller device.
<lsl>
// Script: Shoutcast - radio controller
// Version: 0.3 - released 10-2-2011
// Logic Scripts (Flennan Roffo)
// (c) 2010 - Flennan Roffo (Logic Scripts)
//
// This script is a remake of a couple of similar script:
// + LandOwnersRadio V2.0 by Scripter Coba (( menu driven / notecard config script to select the radio station and sets parcel music url ))
// + Raven radio infoboard by Jamie Otis (( worked at the basis of sis service [sis.slserver.com/sis.php] used Xy text display ))
// + currentPlaying by Darkie Minotaur (( used the /7.html info to fetch current song title info, displayed as float text ))
//
// Purpose:
// * Sets the parcel audio URL and displays the channel info
// * Uses Xytext to display the info.
// * Fetches song title info from the shoutcast url
///////////////////////////////////////////////////////////////////////////////////////
// Extra Features -- 0.1 release
// * On/Off option
// * Allows multiple menus (if options per menu > 12) using a prev/next button
// * Checks if your url is well-formatted
// * Will delete genres for which no stations exist
// * Will skip stations that have same url and same genre (you can however have an identical station url under different genres).
// * New notecard format
//////////////////////////////////////////////////////////////////////////////////////////
// Extra Features -- 0.2 release
// * Configurable button text
// * Gets parcel URL and automatically sets the genre/station and on/off status accordingly (<-- doesn't work)
//////////////////////////////////////////////////////////////////////////////////////////
// Update -- 0.3 release
// * Fixed bug (only first station in genre displayed in menu)
// * Auto reset script when config card updated
// Notes:
// * Expects url to be in the format: <ip>:<port>, where <ip> has the format: xxx.xxx.xxx.xxx (0 <= xxx <= 255)
// * Deletes entries in category (genre) for which no stations are configured with notice.
// * Skips stations which have identical url AND same category (genre).
//////////////////////////////////////////////////////////////////////////////////////////
// Upcoming release -- 0.4
// * Will add functions for remote controller(s) and remote display(s) using llRegionSay to communicate over a channel.
// * Should relax on the constraints about the input format of URL's (currently requires that URL has format: xxx.xxx.xxx.xxx/yyyy).
// * Fix button placement. Control buttons should be on the first line.
// * Implement script reset on change of owner.
// * Permit station to be put under multiple genres, using a comma-seperated list of genres in the section [STATION]
// (currently this is only possible by duplicating the entire line and change the genre.)
/////////////////////////////////////////////////////////////////////////////////////////
// Future plans:
// * Individual user preferences that can be stored on seperate note cards. A user has access to his own list of genres and stations and the system available genres/stations.
// * Feature for accessing online playlists (M3U, PLS, other formats) to play a list of songs provided by that playlist.
// * User provided url.
/////////////////////////////////////////////////////////////////////////////////////////
// BUGS & FEATURE REQUESTS
//
// Please inform the author, Logic Scripts (flennan.roffo) about any bugs or annoyances.
// Feature requests can also be submitted to the author.
/////////////////////////////////////////////////////////////////////////////////////////
// LICENCE INFO
//
// This program is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program. If not, see <http://www.gnu.org/licenses/>.
///////////////////////////////////////////////////////////////////////////////////////////

string info_notecard="Radio Control info"; /////// EDITABLE \\\\\\
string config_notecard="Radio Control config"; /////// EDITABLE \\\\\\
string comment_char="#"; /////// EDITABLE \\\\\\
list sep_char_list= ["|"]; /////// EDITABLE \\\\\\
float update_time=5.0; /////// EDITABLE \\\\\\
string no_title_info="(no title info available)"; /////// EDITABLE \\\\\\

// not used currently - for showing info on current song title elsewhere in the region
integer broadcast_channel=-1234; /////// EDITABLE \\\\\\

// Buttons

string button_MAIN = "MAIN"; /////// EDITABLE \\\\\\
string button_HELP = "HELP"; /////// EDITABLE \\\\\\
string button_NEXT = ">>"; /////// EDITABLE \\\\\\
string button_PREV = "<<"; /////// EDITABLE \\\\\\
string button_ON = "ON"; /////// EDITABLE \\\\\\
string button_OFF = "OFF"; /////// EDITABLE \\\\\\

//////////////////////////////////
// Don't touch the variables below
/////////////////////////////////

// List of categories (=genres)

list category_list=[];

// List of stations. KEEP THESE LISTS IN SYNCH!

list station_category=[];
list station_name=[];
list station_desc=[];
list station_url=[];

// Last song title played
string last_title_info="";

integer radio_status=0; // 0 - OFF 1 - ON
string parcel_url="";
integer lineno=0;
key reqid=NULL_KEY;
key httpreq_id=NULL_KEY;
integer config_error=FALSE;
integer flag;
integer section=0;

// Access values. Note that users who are banned can not access the device even when access is public
integer owner_access=TRUE;
integer group_access=FALSE;
integer public_access=TRUE;
list banned_keys=[];

// Channels for menu and user input
integer menu_channel;
integer listen_handle;

// Menu
integer menu_type=0; // 0 - Main menu (genres) 1 - Station menu (stations)
integer menu_num=0; // When more menu options need to be selectable then can be displayed on a menu (12), this is the menu number - menu number 0 is the first menu.

// Genres and stations

integer category_index=0; // Current index in category_list (genre)
integer station_index=0; // Current index in station_* (station)

integer num_categories=0;
integer num_stations=0;

// Make request for title info using HTTP request
retrieve_titelinfo()
{
string url=llList2String(station_url,station_index);
httpreq_id=llHTTPRequest(url + "/7.html HTTP/1.0\nUser-Agent: LSL Script (Mozilla Compatible)\n\n",[],"");
}

// Display a line on an Xytext device linked in
display_line(string line, string message)
{
// Setup XYtext Variables
integer DISPLAY_STRING = 204000;
// integer DISPLAY_EXTENDED = 204001; (not used)
// integer REMAP_INDICES = 204002; (not used)
// integer RESET_INDICES = 204003; (not used)
// integer SET_CELL_INFO = 204004; (not used)
// integer SET_FONT_TEXTURE = 204005; (not used)
// integer SET_THICKNESS = 204006; (not used)
// integer SET_COLOR = 204007; (not used)

llMessageLinked(LINK_SET,DISPLAY_STRING,message,line);
}

// Clear the Xytext display
clear_display()
{
// Clears the display
display_line("1","Radio Station ID");
display_line("2","Music Genre....");
display_line("3","Now Playing....");
}

// Make a menu / dialog
make_menu(key id)
{
menu_channel=random_channel();

if (radio_status == 0)
{
menu_type=0;
menu_num=0;
llDialog(id,"Menu: Status\n\nRadio is OFF", [ "ON", "HELP" ],menu_channel);
}
else
{
if (menu_type ==0)
{
llDialog(id,"Menu: Genres", category_menu(menu_num),menu_channel);
}
else
{
llDialog(id,"Menu: Stations\nGenre: " + llList2String(category_list,category_index), station_menu(menu_num),menu_channel);
}
}

if (listen_handle != 0) llListenRemove(listen_handle);
listen_handle=llListen(menu_channel,"",id,"");
}

// Make the menu option list for menu: catagories (genres)
list category_menu(integer num)
{
integer len=llGetListLength(category_list);
list menu=[];

if (len > 9) // If more then 9 items (12 minus the 3 buttons for MAIN/HELP and PREV, NEXT)
{
integer last_sub=(len-1)/9; // submenus start at 0. 9th entry is in submenu 0, 10th in 1, etc.

if (num > last_sub)
{
llWhisper(0,"error: wrong submenu number: " + (string) num + ".");
return [ "MAIN" ];
}
else
{
integer first=9*num;

while (--len >= first)
menu+=(list)llList2String(category_list,len);

if (num == 0)
menu+=(list)button_HELP;
else
menu+=(list)button_MAIN;

if (num == 0)
menu+=(list)button_OFF;
else
menu+=(list)button_PREV;

if (num != last_sub)
menu+=(list)button_NEXT;
}
}
else
{
while (--len >= 0)
menu+=(list)llList2String(category_list,len);

menu+=(list)button_OFF;
menu+=(list)button_HELP;
}

return menu; // order_buttons(menu);
}

// Returns the number of stations in a certain category
integer stations_in_category(integer cat)
{
integer count=0;
integer i;
integer len=llGetListLength(station_category);
string category=llList2String(category_list,cat);

for (i=0; i < len; i++)
if (category == llList2String(category_list,i))
count++;

return count;
}

// Not used currently -- to fix button placement
list order_buttons(list buttons)
{
integer offset;
list fixt;
integer flag=0;

while((offset = llGetListLength(buttons)))
{
if (offset > 3)
flag=1;
else
flag=0;

fixt += llList2List(buttons, offset = -3 * flag, -1);
buttons = llDeleteSubList(buttons, offset, -1);
}

return fixt;
}

// Returns a list of station names in a certain category (genre)
list station_list(integer category)
{
list s=[];
integer i;
string cname=llList2String(category_list,category_index);

for (i = 0; i < llGetListLength(station_name); i++)
if (llList2String(station_category,i) == cname)
s+=(list)llList2String(station_name,i);

return s;

}

// Returns the list of stations for the station menu, depending on the submenu number
list station_menu(integer num)
{
list stations=station_list(category_index);
integer len=llGetListLength(stations);
list menu=[];

if (len > 11) // 12 - 1 for MAIN menu
{
integer last_sub=(len-1)/9;

if (num >= last_sub)
{
llWhisper(0,"error: wrong submenu number: " + (string) num + ".");
return [ "MAIN" ];
}
else
{
integer first=9*num;
integer last=9*num+8;

menu+=(list)button_MAIN;

if (num > 0)
menu+=(list)button_PREV;

if (num < last_sub)
menu+=(list)button_NEXT;

if (len > last)
len =last;

while (--len >= first)
menu+=(list)llList2String(stations,len);
}
}
else
{
menu+=(list)button_MAIN;

while (--len >= 0)
menu+=(list)llList2String(stations,len);
}

return menu; // order_buttons(menu);
}

// Returns whether av with key id has access
integer has_access(key id)
{
if (llListFindList(banned_keys,(list)id) != -1)
return FALSE;

if (owner_access && id == llGetOwner())
return TRUE;

if (group_access && llSameGroup(id))
return TRUE;

if (public_access)
return TRUE;

return FALSE;
}

// Gets a random channel -- uses a wide range of big negative channel numbers seldomly used
integer random_channel()
{
integer min=-2147483647;
integer max=-1000;

return (integer) (min + llFrand(max-min));
}

// Check for the format of the url string -- is very selective about url format
// expects: xxx.xxx.xxx.xxx:xxxx (ip adress in number notation with port adress)
// Next release will relax on this constraint.
integer check_url(string url)
{
integer pos=0;

if (llGetSubString(url,0,6) == "http://")
pos=7;
if (llGetSubString(url,0,7) == "https://")
pos=8;

if (pos==0) return FALSE;

string str_ip_port=llGetSubString(url,pos,-1);
list list_ip_port=llParseString2List(str_ip_port,[":"],[]); // split in ip-adress and port
list list_ip=llParseString2List(llList2String(list_ip_port,0),["."],[]); // split ip-adress elements

if (llGetListLength(list_ip_port) != 2 || llGetListLength(list_ip) != 4)
return FALSE;

integer i;
integer test;

for (i=0;i<4;i++)
{
test=llList2Integer(list_ip,i);
if (llList2String(list_ip,i) != (string)test)
return FALSE;
if (test < 0 || test > 255)
return FALSE;
}

test=llList2Integer(list_ip_port,1);
if (llList2String(list_ip_port,1) != (string)test)
return FALSE;

return TRUE;
}

// Returns a true value depending on the first character in input - anything else is assumed false.
integer true_value(string input)
{
string value=llToLower(llGetSubString(input,0,0));

if (value == "y" || value == "t" || value =="1")
return TRUE;

return FALSE;
}

// Return if more input should be processed (if not at EOF) - sets ConfigError if any config error found. Reading config card stops at the first error.
integer process_line(string dataline)
{
string line=llStringTrim(dataline,STRING_TRIM);
integer index=llSubStringIndex(line,comment_char);

if (index==0) // line starts with comment - ignore line
return TRUE;

if (index!=-1)
line=llStringTrim(llGetSubString(line,0,index-1),STRING_TRIM_TAIL); // skip everything after comment_char and trim tail

if (line=="") // Ignore blank lines
return TRUE;

if (llToLower(line) == "[access]")
{
section = 1;
return TRUE;
}
else if (llToLower(line) == "[banned]")
{
section = 2;
return TRUE;
}
else if (llToLower(line) == "[genre]")
{
section = 3;
return TRUE;
}
else if (llToLower(line) == "[station]")
{
section = 4;
return TRUE;
}
else if (llGetSubString(line,0,0) == "[" && llGetSubString(line,-1,-1) == "]")
{
llWhisper(0,"error: malformed section found at line " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

if (section == 0)
{
llWhisper(0,"error: no section found on line: " + (string) lineno);
config_error = TRUE;
return FALSE;
}

list breakup=llParseString2List(line,["="],[]);
string field=llStringTrim(llList2String(breakup,0),STRING_TRIM);
string values=llStringTrim(llList2String(breakup,1),STRING_TRIM);

if (section == 1) // access
{
field=llToLower(field);

if (field=="owner")
{
owner_access=true_value(values);
return TRUE;
}
else if (field=="group")
{
group_access=true_value(values);
return TRUE;
}
else if (field=="public")
{
public_access=true_value(values);
return TRUE;
}
else
{
llWhisper(0,"error: invalid option on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

}
else if (section == 2) // ban list
{
key try=(key) field;

if (try)
{
banned_keys+=(list)((key) field);
return TRUE;
}
else
return FALSE;
}
else if (section == 3) // categories
{
if (llListFindList(category_list,(list)field) == -1)
{
category_list+=(list)field;
}
else
llWhisper(0,"genre: '" + field + "' already entered; double entry skipped.");

return TRUE;
}
else if (section == 4) // stations
{
list parse=llParseString2List(line,sep_char_list, []);
string category=llStringTrim(llList2String(parse,0),STRING_TRIM);
string name=llStringTrim(llList2String(parse,1),STRING_TRIM);
string desc=llStringTrim(llList2String(parse,2),STRING_TRIM);
string url=llStringTrim(llToLower(llList2String(parse,3)),STRING_TRIM);

if (!available_category(category))
{
llWhisper(0,"error: unknown genre on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

if (check_url(url))
{
if (llListFindList(station_url,(list)url) == -1 || llListFindList(station_category,(list)category) == -1)
{
num_stations++;
station_category+=(list)category;
station_name+=(list)name;
station_desc+=(list)desc;
station_url+=(list)url;
return TRUE;
}
else
{
llWhisper(0,"This station is already entered under the same genre and same url and is skipped.\nStation: " + name + "\nGenre: '" + category + "'\nURL: " + url);
return TRUE;
}
}
else
{
llWhisper(0,"error: malformed url on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}
}

return FALSE;
}

// Sets the parcel URL and updates the display
set_parcel_url(string url)
{
parcel_url=url;
llSetParcelMusicURL(parcel_url);

if (parcel_url=="")
{
clear_display();
display_line("1","Radio is OFF");
display_line("2","");
display_line("3","");
}
else
{
llWhisper(0,"station now set to " + llList2String(station_desc,station_index) + ".");
display_line("1","Station: " + llList2String(station_desc,station_index));
display_line("2","Genre : " + llList2String(category_list,category_index));
display_line("3","Now playing.....");
llSetTimerEvent(update_time);
}
}

// Returns if a category (genre) exists.
integer available_category(string category)
{
integer i;
integer len=llGetListLength(category_list);

for (i=0;i<len;i++)
if (llToLower(category) == llToLower(llList2String(category_list,i)))
return TRUE;

return FALSE;
}

// Returns if a category (genre) is empty (i.e. there are no stations for this catagory (genre))
integer empty_category(string category)
{
integer i;
integer len=llGetListLength(station_category);

for (i=0; i < len; i++)
if (llToLower(category) == llToLower(llList2String(station_category,i)))
return FALSE;

return TRUE;
}

// Removes categories (genres) for which no station is known.
skip_empty_categories()
{
integer i=0;

while (i<llGetListLength(category_list))
{
if (empty_category(llList2String(category_list,i)))
{
llWhisper(0,"Warning: Genre '" + llList2String(category_list,i) + "' contains no stations and is deleted.");
category_list=llDeleteSubList(category_list,i,i);
}
else
i++;
}

num_categories=llGetListLength(category_list);
}

/////////////////////////////////////////////
// state default
////////////////////////////////////////////

default
{
state_entry()
{
flag=FALSE;
lineno=0;
config_error=FALSE;
num_stations=0;
num_categories=0;
radio_status=0;
menu_num=0;
menu_type=0;

if (llGetInventoryType(config_notecard) == INVENTORY_NOTECARD)
{
reqid=llGetNotecardLine(config_notecard,lineno++);
llWhisper(0, "Reading config notecard...");
display_line("1","Reading configuration.");
display_line("2","Wait....");
display_line("3","");
}
else
{
llWhisper(0,"No config notecard '" + config_notecard + "' present.");
state offline;
}
}

on_rez(integer param)
{
llResetScript();
}

dataserver(key id, string data)
{
if (reqid==id)
{
if (data==EOF)
{
skip_empty_categories();
llWhisper(0,"Configuration ok.\n" + (string)num_categories + " genres and " + (string)num_stations + " stations.");
display_line("1","Configuration OK");
display_line("2","Genres : " + (string)num_categories);
display_line("3","Stations: " + (string)num_stations);
state menu;
}
else
{
if (process_line(data))
reqid=llGetNotecardLine(config_notecard,lineno++);
else if (config_error)
{
llWhisper(0,"errors found in configuration. please correct them.");
state offline;
}
}
}
}

touch_start(integer total_num)
{
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY)
llResetScript();
}
}

/////////////////////////////////////////////
// state offline
////////////////////////////////////////////

state offline
{
state_entry()
{
llWhisper(0,"Reset on owner touch or when notecard updated.");
}

touch_start(integer t)
{
if (llDetectedKey(0)==llGetOwner())
llResetScript();
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY && flag)
llResetScript();
}
}

/////////////////////////////////////////////
// state menu
////////////////////////////////////////////

state menu
{
state_entry()
{
menu_type=0;
menu_num=0;
listen_handle=0;
}

changed(integer param)
{
if (param & CHANGED_INVENTORY)
llResetScript();
}

on_rez(integer param)
{
llResetScript();
}

touch_start(integer total_num)
{
key toucher=llDetectedKey(0);

if (has_access(toucher))
{
make_menu(toucher);
}
else
llWhisper(0,"sorry, no access.");
}

listen(integer chan, string name,key id,string msg)
{
integer index;

if (menu_type == 0) // main menu
{
if (msg == button_MAIN)
{
menu_type=0;
menu_num =0;
make_menu(id);
}
else if (msg == button_NEXT)
{
menu_num++;
make_menu(id);
}
else if (msg == button_PREV)
{
menu_num--;
make_menu(id);
}
else if (msg == button_ON)
{
radio_status=1;
set_parcel_url(parcel_url);
display_line("1","Radio is ON");
menu_num=0;
llWhisper(0,"Radio now turned on.");
make_menu(id);
}
else if (msg == button_OFF)
{
radio_status=0;
set_parcel_url("");
llSetTimerEvent(0.0);
llWhisper(0,"Radio now turned off.");
}
else if (msg == button_HELP)
{
if (llGetInventoryType(info_notecard) == INVENTORY_NOTECARD)
{
llGiveInventory(id,info_notecard);
}
else
llWhisper(0,"sorry, help not available.");
}
else if (radio_status == 1)
{
index = llListFindList(category_list, (list)msg);

if (index == -1)
llWhisper(0,"error: genre not found: " + msg);
else
{
category_index=index;
llWhisper(0,"Genre now set to " + llList2String(category_list,category_index) + ".");
menu_type=1;
menu_num=0;
make_menu(id);
}
}
}
else if (menu_type == 1 && radio_status == 1) // station menu
{
if (msg == button_MAIN)
{
menu_type=0;
menu_num =0;
make_menu(id);
}
else if (msg == button_NEXT)
{
menu_num++;
make_menu(id);
}
else if (msg == button_PREV)
{
menu_num--;
make_menu(id);
}
else
{
index = llListFindList(station_name, (list)msg);

if (index == -1)
llWhisper(0,"error: station not found: " + msg);
else
{
station_index=index;
string new_url=llList2String(station_url,station_index);

if (new_url != parcel_url)
{
set_parcel_url(new_url);
}
}
}
}
}

timer()
{
retrieve_titelinfo();
llSetTimerEvent(update_time);
}

http_response(key id, integer status, list meta, string body)
{
if (id == httpreq_id)
{
if (status == 200)
{
string feed = llGetSubString(body,llSubStringIndex(body, "<body>") + llStringLength("<body>"), llSubStringIndex(body,"</body>") - 1);
list feed_list = llParseString2List(feed,[","],[]);
string current_title_info= llList2String(feed_list,6);
integer length = llGetListLength(feed_list);

if(llList2String(feed_list,7))
{
integer a = 7;
for(; a<length; ++a)
{
current_title_info += ", " + llList2String(feed_list,a);
}
}

if (current_title_info != last_title_info)
{
last_title_info = current_title_info;
display_line("3","Title : " + current_title_info);
}
}
else
{
display_line("3","Title : " + no_title_info);
}
}
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY && flag)
llResetScript();
}
}

//////////////////////////////
// end of script
//////////////////////////////
</lsl>

===Notecard format===
Example notecard
<pre>
# New format Shoutcast - radio controller config notecard
# The format is divided in 4 sections:
# 1 - Access configuration
# 2 - Ban list (keys)
# 3 - Categories (same as genres)
# 4 - Station info (category, name, desc, url)
# The '#' character defines the start of a comment and can be anywhere on a line.
# Everything after the '#' incuding the '#' itself is ignored.
# Case is not important (but information on display will show as entered)
# Spaces before and/or after fields are trimmed.
# Empty lines are ignored.

[ACCESS]
owner=yes # yes, true,1 means owner has access. everything else not.
group=yes # ,, ,, ,, means group has acess. ,, ,, ,,
public=yes # ,, ,, ,, means public has access. ,, ,, ,,

[BANNED]
# keys of banned residents

[GENRE]
# genre name -- Use short genre names as the the length of menu buttons is short!
Hard Rock
Classic Rock
Oldies
Rap/Urban
Comedy
News
Dance
Country
Gothic
# etc.
[STATION]
# Shoutcast radio stations
# Use a '|' between each field - don't mind spaces before and after fields, they will be trimmed
# field1:genre, field2:station name, field3: station description, field4: station http://<ip>:<port> or https://<ip>:<port>
# Note that genre must match case-insensitive a value previously entered in section [GENRE]
Classic Rock | Absolute | Absolute Radio | http://205.188.215.226:8018
# etc.
</pre>

===TODO===

Planned for upcoming release 0.4:
* Add a llRegionSay to broadcast the <station>|<genre>|<current songtitle>|<url> to the region and add a script that displays that info on a remote Xytext board. (for use with a remote controller and/or remote display board anywhere in the region/parcel)
* llResetScript on owner change
* Relax on URL format
* Allow multiple genres per station

Shoutcast - radio controller v0.3 (remake of similar scripts)

Flennan Roffo — Thu, 10 Feb 2011 00:54:55 GMT

Flennan Roffo: /* Main script */

{{LSL Header}}
=Shoutcast - radio controller=
This script controls a shoutcast radio receiver and lets you select the stations that you configured on a notecard. Menu driven. Output of station description, genre and current song title using Xy text.
Credits for this script go to previous developers of similar scripts:
* Scripter Coba who wrote the LandOwnersRadio (V2.0) script. Menu driven / notecard config script to select genre and station to set parcel music url.
* Jamie Otis who wrote the Raven radio infoboard script. Shows what song is playing by fetching info using the sis.slserver.info/sis.php service (now offline). Display on Xytext.
* Darkie Minotaur who wrote the currentPlaying script. Shows what song is currently playing by fetching info from the /7.html shoutcast page.

Although this script is based upon similar functionality as provided in these scripts, this script is not simply a merge/copy of those scripts, but a complete make-over.
I use my own notecard format and processing of notecard info, and own menu system.

==Versions==

Current version: v0.3 released 10-2-2011

==Scripts==

===Shoutcast - radio controller===
This script should be put into the shoutcast - radio controller device.
<lsl>
// Script: Shoutcast - radio controller
// Version: 0.3 - released 10-2-2011
// Logic Scripts (Flennan Roffo)
// (c) 2010 - Flennan Roffo (Logic Scripts)
//
// This script is a remake of a couple of similar script:
// + LandOwnersRadio V2.0 by Scripter Coba (( menu driven / notecard config script to select the radio station and sets parcel music url ))
// + Raven radio infoboard by Jamie Otis (( worked at the basis of sis service [sis.slserver.com/sis.php] used Xy text display ))
// + currentPlaying by Darkie Minotaur (( used the /7.html info to fetch current song title info, displayed as float text ))
//
// Purpose:
// * Sets the parcel audio URL and displays the channel info
// * Uses Xytext to display the info.
// * Fetches song title info from the shoutcast url
///////////////////////////////////////////////////////////////////////////////////////
// Extra Features -- 0.1 release
// * On/Off option
// * Allows multiple menus (if options per menu > 12) using a prev/next button
// * Checks if your url is well-formatted
// * Will delete genres for which no stations exist
// * Will skip stations that have same url and same genre (you can however have an identical station url under different genres).
// * New notecard format
//////////////////////////////////////////////////////////////////////////////////////////
// Extra Features -- 0.2 release
// * Configurable button text
// * Gets parcel URL and automatically sets the genre/station and on/off status accordingly (<-- doesn't work)
//////////////////////////////////////////////////////////////////////////////////////////
// Update -- 0.3 release
// * Fixed bug (only first station in genre displayed in menu)
// * Auto reset script when config card updated
// Notes:
// * Expects url to be in the format: <ip>:<port>, where <ip> has the format: xxx.xxx.xxx.xxx (0 <= xxx <= 255)
// * Deletes entries in category (genre) for which no stations are configured with notice.
// * Skips stations which have identical url AND same category (genre).
//////////////////////////////////////////////////////////////////////////////////////////
// Upcoming release -- 0.4
// * Will add functions for remote controller(s) and remote display(s) using llRegionSay to communicate over a channel.
// * Should relax on the constraints about the input format of URL's (currently requires that URL has format: xxx.xxx.xxx.xxx/yyyy).
// * Fix button placement. Control buttons should be on the first line.
// * Implement script reset on change of owner.
// * Permit station to be put under multiple genres, using a comma-seperated list of genres in the section [STATION]
// (currently this is only possible by duplicating the entire line and change the genre.)
/////////////////////////////////////////////////////////////////////////////////////////
// Future plans:
// * Individual user preferences that can be stored on seperate note cards. A user has access to his own list of genres and stations and the system available genres/stations.
// * Feature for accessing online playlists (M3U, PLS, other formats) to play a list of songs provided by that playlist.
// * User provided url.
/////////////////////////////////////////////////////////////////////////////////////////
// BUGS & FEATURE REQUESTS
//
// Please inform the author, Logic Scripts (flennan.roffo) about any bugs or annoyances.
// Feature requests can also be submitted to the author.
/////////////////////////////////////////////////////////////////////////////////////////
// LICENCE INFO
//
// This program is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program. If not, see <http://www.gnu.org/licenses/>.
///////////////////////////////////////////////////////////////////////////////////////////

string info_notecard="Radio Control info"; /////// EDITABLE \\\\\\
string config_notecard="Radio Control config"; /////// EDITABLE \\\\\\
string comment_char="#"; /////// EDITABLE \\\\\\
list sep_char_list= ["|"]; /////// EDITABLE \\\\\\
float update_time=5.0; /////// EDITABLE \\\\\\
string no_title_info="(no title info available)"; /////// EDITABLE \\\\\\

// not used currently - for showing info on current song title elsewhere in the region
integer broadcast_channel=-1234; /////// EDITABLE \\\\\\

// Buttons

string button_MAIN = "MAIN";
string button_HELP = "HELP";
string button_NEXT = ">>";
string button_PREV = "<<";
string button_ON = "ON";
string button_OFF = "OFF";

// List of categories (=genres)

list category_list=[];

// List of stations. KEEP THESE LISTS IN SYNCH!

list station_category=[];
list station_name=[];
list station_desc=[];
list station_url=[];

// Last song title played
string last_title_info="";

integer radio_status=0; // 0 - OFF 1 - ON
string parcel_url="";
integer lineno=0;
key reqid=NULL_KEY;
key httpreq_id=NULL_KEY;
integer config_error=FALSE;
integer flag;
integer section=0;

// Access values. Note that users who are banned can not access the device even when access is public
integer owner_access=TRUE;
integer group_access=FALSE;
integer public_access=TRUE;
list banned_keys=[];

// Channels for menu and user input
integer menu_channel;
integer listen_handle;

// Menu
integer menu_type=0; // 0 - Main menu (genres) 1 - Station menu (stations)
integer menu_num=0; // When more menu options need to be selectable then can be displayed on a menu (12), this is the menu number - menu number 0 is the first menu.

// Genres and stations

integer category_index=0; // Current index in category_list (genre)
integer station_index=0; // Current index in station_* (station)

integer num_categories=0;
integer num_stations=0;

// Make request for title info using HTTP request
retrieve_titelinfo()
{
string url=llList2String(station_url,station_index);
httpreq_id=llHTTPRequest(url + "/7.html HTTP/1.0\nUser-Agent: LSL Script (Mozilla Compatible)\n\n",[],"");
}

// Display a line on an Xytext device linked in
display_line(string line, string message)
{
// Setup XYtext Variables
integer DISPLAY_STRING = 204000;
// integer DISPLAY_EXTENDED = 204001; (not used)
// integer REMAP_INDICES = 204002; (not used)
// integer RESET_INDICES = 204003; (not used)
// integer SET_CELL_INFO = 204004; (not used)
// integer SET_FONT_TEXTURE = 204005; (not used)
// integer SET_THICKNESS = 204006; (not used)
// integer SET_COLOR = 204007; (not used)

llMessageLinked(LINK_SET,DISPLAY_STRING,message,line);
}

// Clear the Xytext display
clear_display()
{
// Clears the display
display_line("1","Radio Station ID");
display_line("2","Music Genre....");
display_line("3","Now Playing....");
}

// Make a menu / dialog
make_menu(key id)
{
menu_channel=random_channel();

if (radio_status == 0)
{
menu_type=0;
menu_num=0;
llDialog(id,"Menu: Status\n\nRadio is OFF", [ "ON", "HELP" ],menu_channel);
}
else
{
if (menu_type ==0)
{
llDialog(id,"Menu: Genres", category_menu(menu_num),menu_channel);
}
else
{
llDialog(id,"Menu: Stations\nGenre: " + llList2String(category_list,category_index), station_menu(menu_num),menu_channel);
}
}

if (listen_handle != 0) llListenRemove(listen_handle);
listen_handle=llListen(menu_channel,"",id,"");
}

// Make the menu option list for menu: catagories (genres)
list category_menu(integer num)
{
integer len=llGetListLength(category_list);
list menu=[];

if (len > 9) // If more then 9 items (12 minus the 3 buttons for MAIN/HELP and PREV, NEXT)
{
integer last_sub=(len-1)/9; // submenus start at 0. 9th entry is in submenu 0, 10th in 1, etc.

if (num > last_sub)
{
llWhisper(0,"error: wrong submenu number: " + (string) num + ".");
return [ "MAIN" ];
}
else
{
integer first=9*num;

while (--len >= first)
menu+=(list)llList2String(category_list,len);

if (num == 0)
menu+=(list)button_HELP;
else
menu+=(list)button_MAIN;

if (num == 0)
menu+=(list)button_OFF;
else
menu+=(list)button_PREV;

if (num != last_sub)
menu+=(list)button_NEXT;
}
}
else
{
while (--len >= 0)
menu+=(list)llList2String(category_list,len);

menu+=(list)button_OFF;
menu+=(list)button_HELP;
}

return menu; // order_buttons(menu);
}

// Returns the number of stations in a certain category
integer stations_in_category(integer cat)
{
integer count=0;
integer i;
integer len=llGetListLength(station_category);
string category=llList2String(category_list,cat);

for (i=0; i < len; i++)
if (category == llList2String(category_list,i))
count++;

return count;
}

// Not used currently -- to fix button placement
list order_buttons(list buttons)
{
integer offset;
list fixt;
integer flag=0;

while((offset = llGetListLength(buttons)))
{
if (offset > 3)
flag=1;
else
flag=0;

fixt += llList2List(buttons, offset = -3 * flag, -1);
buttons = llDeleteSubList(buttons, offset, -1);
}

return fixt;
}

// Returns a list of station names in a certain category (genre)
list station_list(integer category)
{
list s=[];
integer i;
string cname=llList2String(category_list,category_index);

for (i = 0; i < llGetListLength(station_name); i++)
if (llList2String(station_category,i) == cname)
s+=(list)llList2String(station_name,i);

return s;

}

// Returns the list of stations for the station menu, depending on the submenu number
list station_menu(integer num)
{
list stations=station_list(category_index);
integer len=llGetListLength(stations);
list menu=[];

if (len > 11) // 12 - 1 for MAIN menu
{
integer last_sub=(len-1)/9;

if (num >= last_sub)
{
llWhisper(0,"error: wrong submenu number: " + (string) num + ".");
return [ "MAIN" ];
}
else
{
integer first=9*num;
integer last=9*num+8;

menu+=(list)button_MAIN;

if (num > 0)
menu+=(list)button_PREV;

if (num < last_sub)
menu+=(list)button_NEXT;

if (len > last)
len =last;

while (--len >= first)
menu+=(list)llList2String(stations,len);
}
}
else
{
menu+=(list)button_MAIN;

while (--len >= 0)
menu+=(list)llList2String(stations,len);
}

return menu; // order_buttons(menu);
}

// Returns whether av with key id has access
integer has_access(key id)
{
if (llListFindList(banned_keys,(list)id) != -1)
return FALSE;

if (owner_access && id == llGetOwner())
return TRUE;

if (group_access && llSameGroup(id))
return TRUE;

if (public_access)
return TRUE;

return FALSE;
}

// Gets a random channel -- uses a wide range of big negative channel numbers seldomly used
integer random_channel()
{
integer min=-2147483647;
integer max=-1000;

return (integer) (min + llFrand(max-min));
}

// Check for the format of the url string -- is very selective about url format
// expects: xxx.xxx.xxx.xxx:xxxx (ip adress in number notation with port adress)
// Next release will relax on this constraint.
integer check_url(string url)
{
integer pos=0;

if (llGetSubString(url,0,6) == "http://")
pos=7;
if (llGetSubString(url,0,7) == "https://")
pos=8;

if (pos==0) return FALSE;

string str_ip_port=llGetSubString(url,pos,-1);
list list_ip_port=llParseString2List(str_ip_port,[":"],[]); // split in ip-adress and port
list list_ip=llParseString2List(llList2String(list_ip_port,0),["."],[]); // split ip-adress elements

if (llGetListLength(list_ip_port) != 2 || llGetListLength(list_ip) != 4)
return FALSE;

integer i;
integer test;

for (i=0;i<4;i++)
{
test=llList2Integer(list_ip,i);
if (llList2String(list_ip,i) != (string)test)
return FALSE;
if (test < 0 || test > 255)
return FALSE;
}

test=llList2Integer(list_ip_port,1);
if (llList2String(list_ip_port,1) != (string)test)
return FALSE;

return TRUE;
}

// Returns a true value depending on the first character in input - anything else is assumed false.
integer true_value(string input)
{
string value=llToLower(llGetSubString(input,0,0));

if (value == "y" || value == "t" || value =="1")
return TRUE;

return FALSE;
}

// Return if more input should be processed (if not at EOF) - sets ConfigError if any config error found. Reading config card stops at the first error.
integer process_line(string dataline)
{
string line=llStringTrim(dataline,STRING_TRIM);
integer index=llSubStringIndex(line,comment_char);

if (index==0) // line starts with comment - ignore line
return TRUE;

if (index!=-1)
line=llStringTrim(llGetSubString(line,0,index-1),STRING_TRIM_TAIL); // skip everything after comment_char and trim tail

if (line=="") // Ignore blank lines
return TRUE;

if (llToLower(line) == "[access]")
{
section = 1;
return TRUE;
}
else if (llToLower(line) == "[banned]")
{
section = 2;
return TRUE;
}
else if (llToLower(line) == "[genre]")
{
section = 3;
return TRUE;
}
else if (llToLower(line) == "[station]")
{
section = 4;
return TRUE;
}
else if (llGetSubString(line,0,0) == "[" && llGetSubString(line,-1,-1) == "]")
{
llWhisper(0,"error: malformed section found at line " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

if (section == 0)
{
llWhisper(0,"error: no section found on line: " + (string) lineno);
config_error = TRUE;
return FALSE;
}

list breakup=llParseString2List(line,["="],[]);
string field=llStringTrim(llList2String(breakup,0),STRING_TRIM);
string values=llStringTrim(llList2String(breakup,1),STRING_TRIM);

if (section == 1) // access
{
field=llToLower(field);

if (field=="owner")
{
owner_access=true_value(values);
return TRUE;
}
else if (field=="group")
{
group_access=true_value(values);
return TRUE;
}
else if (field=="public")
{
public_access=true_value(values);
return TRUE;
}
else
{
llWhisper(0,"error: invalid option on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

}
else if (section == 2) // ban list
{
key try=(key) field;

if (try)
{
banned_keys+=(list)((key) field);
return TRUE;
}
else
return FALSE;
}
else if (section == 3) // categories
{
if (llListFindList(category_list,(list)field) == -1)
{
category_list+=(list)field;
}
else
llWhisper(0,"genre: '" + field + "' already entered; double entry skipped.");

return TRUE;
}
else if (section == 4) // stations
{
list parse=llParseString2List(line,sep_char_list, []);
string category=llStringTrim(llList2String(parse,0),STRING_TRIM);
string name=llStringTrim(llList2String(parse,1),STRING_TRIM);
string desc=llStringTrim(llList2String(parse,2),STRING_TRIM);
string url=llStringTrim(llToLower(llList2String(parse,3)),STRING_TRIM);

if (!available_category(category))
{
llWhisper(0,"error: unknown genre on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

if (check_url(url))
{
if (llListFindList(station_url,(list)url) == -1 || llListFindList(station_category,(list)category) == -1)
{
num_stations++;
station_category+=(list)category;
station_name+=(list)name;
station_desc+=(list)desc;
station_url+=(list)url;
return TRUE;
}
else
{
llWhisper(0,"This station is already entered under the same genre and same url and is skipped.\nStation: " + name + "\nGenre: '" + category + "'\nURL: " + url);
return TRUE;
}
}
else
{
llWhisper(0,"error: malformed url on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}
}

return FALSE;
}

// Sets the parcel URL and updates the display
set_parcel_url(string url)
{
parcel_url=url;
llSetParcelMusicURL(parcel_url);

if (parcel_url=="")
{
clear_display();
display_line("1","Radio is OFF");
display_line("2","");
display_line("3","");
}
else
{
llWhisper(0,"station now set to " + llList2String(station_desc,station_index) + ".");
display_line("1","Station: " + llList2String(station_desc,station_index));
display_line("2","Genre : " + llList2String(category_list,category_index));
display_line("3","Now playing.....");
llSetTimerEvent(update_time);
}
}

// Returns if a category (genre) exists.
integer available_category(string category)
{
integer i;
integer len=llGetListLength(category_list);

for (i=0;i<len;i++)
if (llToLower(category) == llToLower(llList2String(category_list,i)))
return TRUE;

return FALSE;
}

// Returns if a category (genre) is empty (i.e. there are no stations for this catagory (genre))
integer empty_category(string category)
{
integer i;
integer len=llGetListLength(station_category);

for (i=0; i < len; i++)
if (llToLower(category) == llToLower(llList2String(station_category,i)))
return FALSE;

return TRUE;
}

// Removes categories (genres) for which no station is known.
skip_empty_categories()
{
integer i=0;

while (i<llGetListLength(category_list))
{
if (empty_category(llList2String(category_list,i)))
{
llWhisper(0,"Warning: Genre '" + llList2String(category_list,i) + "' contains no stations and is deleted.");
category_list=llDeleteSubList(category_list,i,i);
}
else
i++;
}

num_categories=llGetListLength(category_list);
}

/////////////////////////////////////////////
// state default
////////////////////////////////////////////

default
{
state_entry()
{
flag=FALSE;
lineno=0;
config_error=FALSE;
num_stations=0;
num_categories=0;
radio_status=0;
menu_num=0;
menu_type=0;

if (llGetInventoryType(config_notecard) == INVENTORY_NOTECARD)
{
reqid=llGetNotecardLine(config_notecard,lineno++);
llWhisper(0, "Reading config notecard...");
display_line("1","Reading configuration.");
display_line("2","Wait....");
display_line("3","");
}
else
{
llWhisper(0,"No config notecard '" + config_notecard + "' present.");
state offline;
}
}

on_rez(integer param)
{
llResetScript();
}

dataserver(key id, string data)
{
if (reqid==id)
{
if (data==EOF)
{
skip_empty_categories();
llWhisper(0,"Configuration ok.\n" + (string)num_categories + " genres and " + (string)num_stations + " stations.");
display_line("1","Configuration OK");
display_line("2","Genres : " + (string)num_categories);
display_line("3","Stations: " + (string)num_stations);
state menu;
}
else
{
if (process_line(data))
reqid=llGetNotecardLine(config_notecard,lineno++);
else if (config_error)
{
llWhisper(0,"errors found in configuration. please correct them.");
state offline;
}
}
}
}

touch_start(integer total_num)
{
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY)
llResetScript();
}
}

/////////////////////////////////////////////
// state offline
////////////////////////////////////////////

state offline
{
state_entry()
{
llWhisper(0,"Reset on owner touch or when notecard updated.");
}

touch_start(integer t)
{
if (llDetectedKey(0)==llGetOwner())
llResetScript();
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY && flag)
llResetScript();
}
}

/////////////////////////////////////////////
// state menu
////////////////////////////////////////////

state menu
{
state_entry()
{
menu_type=0;
menu_num=0;
listen_handle=0;
}

changed(integer param)
{
if (param & CHANGED_INVENTORY)
llResetScript();
}

on_rez(integer param)
{
llResetScript();
}

touch_start(integer total_num)
{
key toucher=llDetectedKey(0);

if (has_access(toucher))
{
make_menu(toucher);
}
else
llWhisper(0,"sorry, no access.");
}

listen(integer chan, string name,key id,string msg)
{
integer index;

if (menu_type == 0) // main menu
{
if (msg == button_MAIN)
{
menu_type=0;
menu_num =0;
make_menu(id);
}
else if (msg == button_NEXT)
{
menu_num++;
make_menu(id);
}
else if (msg == button_PREV)
{
menu_num--;
make_menu(id);
}
else if (msg == button_ON)
{
radio_status=1;
set_parcel_url(parcel_url);
display_line("1","Radio is ON");
menu_num=0;
llWhisper(0,"Radio now turned on.");
make_menu(id);
}
else if (msg == button_OFF)
{
radio_status=0;
set_parcel_url("");
llSetTimerEvent(0.0);
llWhisper(0,"Radio now turned off.");
}
else if (msg == button_HELP)
{
if (llGetInventoryType(info_notecard) == INVENTORY_NOTECARD)
{
llGiveInventory(id,info_notecard);
}
else
llWhisper(0,"sorry, help not available.");
}
else if (radio_status == 1)
{
index = llListFindList(category_list, (list)msg);

if (index == -1)
llWhisper(0,"error: genre not found: " + msg);
else
{
category_index=index;
llWhisper(0,"Genre now set to " + llList2String(category_list,category_index) + ".");
menu_type=1;
menu_num=0;
make_menu(id);
}
}
}
else if (menu_type == 1 && radio_status == 1) // station menu
{
if (msg == button_MAIN)
{
menu_type=0;
menu_num =0;
make_menu(id);
}
else if (msg == button_NEXT)
{
menu_num++;
make_menu(id);
}
else if (msg == button_PREV)
{
menu_num--;
make_menu(id);
}
else
{
index = llListFindList(station_name, (list)msg);

if (index == -1)
llWhisper(0,"error: station not found: " + msg);
else
{
station_index=index;
string new_url=llList2String(station_url,station_index);

if (new_url != parcel_url)
{
set_parcel_url(new_url);
}
}
}
}
}

timer()
{
retrieve_titelinfo();
llSetTimerEvent(update_time);
}

http_response(key id, integer status, list meta, string body)
{
if (id == httpreq_id)
{
if (status == 200)
{
string feed = llGetSubString(body,llSubStringIndex(body, "<body>") + llStringLength("<body>"), llSubStringIndex(body,"</body>") - 1);
list feed_list = llParseString2List(feed,[","],[]);
string current_title_info= llList2String(feed_list,6);
integer length = llGetListLength(feed_list);

if(llList2String(feed_list,7))
{
integer a = 7;
for(; a<length; ++a)
{
current_title_info += ", " + llList2String(feed_list,a);
}
}

if (current_title_info != last_title_info)
{
last_title_info = current_title_info;
display_line("3","Title : " + current_title_info);
}
}
else
{
display_line("3","Title : " + no_title_info);
}
}
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY && flag)
llResetScript();
}
}

//////////////////////////////
// end of script
//////////////////////////////
</lsl>
===Notecard format===
Example notecard
<pre>
# New format Shoutcast - radio controller config notecard
# The format is divided in 4 sections:
# 1 - Access configuration
# 2 - Ban list (keys)
# 3 - Categories (same as genres)
# 4 - Station info (category, name, desc, url)
# The '#' character defines the start of a comment and can be anywhere on a line.
# Everything after the '#' incuding the '#' itself is ignored.
# Case is not important (but information on display will show as entered)
# Spaces before and/or after fields are trimmed.
# Empty lines are ignored.

[ACCESS]
owner=yes # yes, true,1 means owner has access. everything else not.
group=yes # ,, ,, ,, means group has acess. ,, ,, ,,
public=yes # ,, ,, ,, means public has access. ,, ,, ,,

[BANNED]
# keys of banned residents

[GENRE]
# genre name -- Use short genre names as the the length of menu buttons is short!
Hard Rock
Classic Rock
Oldies
Rap/Urban
Comedy
News
Dance
Country
Gothic
# etc.
[STATION]
# Shoutcast radio stations
# Use a '|' between each field - don't mind spaces before and after fields, they will be trimmed
# field1:genre, field2:station name, field3: station description, field4: station http://<ip>:<port> or https://<ip>:<port>
# Note that genre must match case-insensitive a value previously entered in section [GENRE]
Classic Rock | Absolute | Absolute Radio | http://205.188.215.226:8018
# etc.
</pre>

===TODO===

Planned for upcoming release 0.4:
* Add a llRegionSay to broadcast the <station>|<genre>|<current songtitle>|<url> to the region and add a script that displays that info on a remote Xytext board. (for use with a remote controller and/or remote display board anywhere in the region/parcel)
* llResetScript on owner change
* Relax on URL format
* Allow multiple genres per station

Shoutcast - radio controller v0.3 (remake of similar scripts)

Flennan Roffo — Thu, 10 Feb 2011 00:43:37 GMT

Flennan Roffo: /* Shoutcast - radio controller */

{{LSL Header}}
=Shoutcast - radio controller=
This script controls a shoutcast radio receiver and lets you select the stations that you configured on a notecard. Menu driven. Output of station description, genre and current song title using Xy text.
Credits for this script go to previous developers of similar scripts:
* Scripter Coba who wrote the LandOwnersRadio (V2.0) script. Menu driven / notecard config script to select genre and station to set parcel music url.
* Jamie Otis who wrote the Raven radio infoboard script. Shows what song is playing by fetching info using the sis.slserver.info/sis.php service (now offline). Display on Xytext.
* Darkie Minotaur who wrote the currentPlaying script. Shows what song is currently playing by fetching info from the /7.html shoutcast page.

Although this script is based upon similar functionality as provided in these scripts, this script is not simply a merge/copy of those scripts, but a complete make-over.
I use my own notecard format and processing of notecard info, and own menu system.

==Versions==

Current version: v0.3 released 10-2-2011

==Main script==

This script should be put into the shoutcast - radio controller device.
<lsl>
// Script: Shoutcast - radio controller
// Version: 0.3 - released 10-2-2011
// Logic Scripts (Flennan Roffo)
// (c) 2010 - Flennan Roffo (Logic Scripts)
//
// This script is a remake of a couple of similar script:
// + LandOwnersRadio V2.0 by Scripter Coba (( menu driven / notecard config script to select the radio station and sets parcel music url ))
// + Raven radio infoboard by Jamie Otis (( worked at the basis of sis service [sis.slserver.com/sis.php] used Xy text display ))
// + currentPlaying by Darkie Minotaur (( used the /7.html info to fetch current song title info, displayed as float text ))
//
// Purpose:
// * Sets the parcel audio URL and displays the channel info
// * Uses Xytext to display the info.
// * Fetches song title info from the shoutcast url
///////////////////////////////////////////////////////////////////////////////////////
// Extra Features -- 0.1 release
// * On/Off option
// * Allows multiple menus (if options per menu > 12) using a prev/next button
// * Checks if your url is well-formatted
// * Will delete genres for which no stations exist
// * Will skip stations that have same url and same genre (you can however have an identical station url under different genres).
// * New notecard format
//////////////////////////////////////////////////////////////////////////////////////////
// Extra Features -- 0.2 release
// * Configurable button text
// * Gets parcel URL and automatically sets the genre/station and on/off status accordingly (<-- doesn't work)
//////////////////////////////////////////////////////////////////////////////////////////
// Update -- 0.3 release
// * Fixed bug (only first station in genre displayed in menu)
// * Auto reset script when config card updated
// Notes:
// * Expects url to be in the format: <ip>:<port>, where <ip> has the format: xxx.xxx.xxx.xxx
// * Deletes entries in category (genre) for which no stations are configured with notice.
// * Skips stations which have identical URL AND same category (genre).
//////////////////////////////////////////////////////////////////////////////////////////
// Upcoming release -- 0.4
// * Will add functions for remote controller(s) and remote display(s) using llRegionSay to communicate over a channel.
// * Should relax on the constraints about the input format of URL's (currently requires that URL has format: xxx.xxx.xxx.xxx/yyyy)
// * Fix button placement
// * Implement script reset on change of owner
// * Permit station to be put under multiple genres, using a comma-seperated list of genres in the section [STATION]
// (currently this is only possible by duplicating the entire line and change the genre.)
/////////////////////////////////////////////////////////////////////////////////////////
// BUGS & FEATURE REQUESTS
//
// Please inform the author, Logic Scripts (flennan.roffo) about any bugs or annoyances.
// Feature requests can also be submitted to the author.
/////////////////////////////////////////////////////////////////////////////////////////
// LICENCE INFO
//
// This program is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program. If not, see <http://www.gnu.org/licenses/>.
///////////////////////////////////////////////////////////////////////////////////////////

string info_notecard="Radio Control info"; /////// EDITABLE \\\\\\
string config_notecard="Radio Control config"; /////// EDITABLE \\\\\\
string comment_char="#"; /////// EDITABLE \\\\\\
list sep_char_list= ["|"]; /////// EDITABLE \\\\\\
float update_time=5.0; /////// EDITABLE \\\\\\
string no_title_info="(no title info available)"; /////// EDITABLE \\\\\\

// not used currently - for showing info on current song title elsewhere in the region
integer broadcast_channel=-1234; /////// EDITABLE \\\\\\

// Buttons

string button_MAIN = "MAIN";
string button_HELP = "HELP";
string button_NEXT = ">>";
string button_PREV = "<<";
string button_ON = "ON";
string button_OFF = "OFF";

// List of categories (=genres)

list category_list=[];

// List of stations. KEEP THESE LISTS IN SYNCH!

list station_category=[];
list station_name=[];
list station_desc=[];
list station_url=[];

// Last song title played
string last_title_info="";

integer radio_status=0; // 0 - OFF 1 - ON
string parcel_url="";
integer lineno=0;
key reqid=NULL_KEY;
key httpreq_id=NULL_KEY;
integer config_error=FALSE;
integer flag;
integer section=0;

// Access values. Note that users who are banned can not access the device even when access is public
integer owner_access=TRUE;
integer group_access=FALSE;
integer public_access=TRUE;
list banned_keys=[];

// Channels for menu and user input
integer menu_channel;
integer listen_handle;

// Menu
integer menu_type=0; // 0 - Main menu (genres) 1 - Station menu (stations)
integer menu_num=0; // When more menu options need to be selectable then can be displayed on a menu (12), this is the menu number - menu number 0 is the first menu.

// Genres and stations

integer category_index=0; // Current index in category_list (genre)
integer station_index=0; // Current index in station_* (station)

integer num_categories=0;
integer num_stations=0;

// Make request for title info using HTTP request
retrieve_titelinfo()
{
string url=llList2String(station_url,station_index);
httpreq_id=llHTTPRequest(url + "/7.html HTTP/1.0\nUser-Agent: LSL Script (Mozilla Compatible)\n\n",[],"");
}

// Display a line on an Xytext device linked in
display_line(string line, string message)
{
// Setup XYtext Variables
integer DISPLAY_STRING = 204000;
// integer DISPLAY_EXTENDED = 204001; (not used)
// integer REMAP_INDICES = 204002; (not used)
// integer RESET_INDICES = 204003; (not used)
// integer SET_CELL_INFO = 204004; (not used)
// integer SET_FONT_TEXTURE = 204005; (not used)
// integer SET_THICKNESS = 204006; (not used)
// integer SET_COLOR = 204007; (not used)

llMessageLinked(LINK_SET,DISPLAY_STRING,message,line);
}

// Clear the Xytext display
clear_display()
{
// Clears the display
display_line("1","Radio Station ID");
display_line("2","Music Genre....");
display_line("3","Now Playing....");
}

// Make a menu / dialog
make_menu(key id)
{
menu_channel=random_channel();

if (radio_status == 0)
{
menu_type=0;
menu_num=0;
llDialog(id,"Menu: Status\n\nRadio is OFF", [ "ON", "HELP" ],menu_channel);
}
else
{
if (menu_type ==0)
{
llDialog(id,"Menu: Genres", category_menu(menu_num),menu_channel);
}
else
{
llDialog(id,"Menu: Stations\nGenre: " + llList2String(category_list,category_index), station_menu(menu_num),menu_channel);
}
}

if (listen_handle != 0) llListenRemove(listen_handle);
listen_handle=llListen(menu_channel,"",id,"");
}

// Make the menu option list for menu: catagories (genres)
list category_menu(integer num)
{
integer len=llGetListLength(category_list);
list menu=[];

if (len > 9) // If more then 9 items (12 minus the 3 buttons for MAIN/HELP and PREV, NEXT)
{
integer last_sub=(len-1)/9; // submenus start at 0. 9th entry is in submenu 0, 10th in 1, etc.

if (num > last_sub)
{
llWhisper(0,"error: wrong submenu number: " + (string) num + ".");
return [ "MAIN" ];
}
else
{
integer first=9*num;

while (--len >= first)
menu+=(list)llList2String(category_list,len);

if (num == 0)
menu+=(list)button_HELP;
else
menu+=(list)button_MAIN;

if (num == 0)
menu+=(list)button_OFF;
else
menu+=(list)button_PREV;

if (num != last_sub)
menu+=(list)button_NEXT;
}
}
else
{
while (--len >= 0)
menu+=(list)llList2String(category_list,len);

menu+=(list)button_OFF;
menu+=(list)button_HELP;
}

return menu; // order_buttons(menu);
}

// Returns the number of stations in a certain category
integer stations_in_category(integer cat)
{
integer count=0;
integer i;
integer len=llGetListLength(station_category);
string category=llList2String(category_list,cat);

for (i=0; i < len; i++)
if (category == llList2String(category_list,i))
count++;

return count;
}

// Not used currently -- to fix button placement
list order_buttons(list buttons)
{
integer offset;
list fixt;
integer flag=0;

while((offset = llGetListLength(buttons)))
{
if (offset > 3)
flag=1;
else
flag=0;

fixt += llList2List(buttons, offset = -3 * flag, -1);
buttons = llDeleteSubList(buttons, offset, -1);
}

return fixt;
}

// Returns a list of station names in a certain category (genre)
list station_list(integer category)
{
list s=[];
integer i;
string cname=llList2String(category_list,category_index);

for (i = 0; i < llGetListLength(station_name); i++)
if (llList2String(station_category,i) == cname)
s+=(list)llList2String(station_name,i);

return s;

}

// Returns the list of stations for the station menu, depending on the submenu number
list station_menu(integer num)
{
list stations=station_list(category_index);
integer len=llGetListLength(stations);
list menu=[];

if (len > 11) // 12 - 1 for MAIN menu
{
integer last_sub=(len-1)/9;

if (num >= last_sub)
{
llWhisper(0,"error: wrong submenu number: " + (string) num + ".");
return [ "MAIN" ];
}
else
{
integer first=9*num;
integer last=9*num+8;

menu+=(list)button_MAIN;

if (num > 0)
menu+=(list)button_PREV;

if (num < last_sub)
menu+=(list)button_NEXT;

if (len > last)
len =last;

while (--len >= first)
menu+=(list)llList2String(stations,len);
}
}
else
{
menu+=(list)button_MAIN;

while (--len >= 0)
menu+=(list)llList2String(stations,len);
}

return menu; // order_buttons(menu);
}

// Returns whether av with key id has access
integer has_access(key id)
{
if (llListFindList(banned_keys,(list)id) != -1)
return FALSE;

if (owner_access && id == llGetOwner())
return TRUE;

if (group_access && llSameGroup(id))
return TRUE;

if (public_access)
return TRUE;

return FALSE;
}

// Gets a random channel -- uses a wide range of big negative channel numbers seldomly used
integer random_channel()
{
integer min=-2147483647;
integer max=-1000;

return (integer) (min + llFrand(max-min));
}

// Check for the format of the url string -- is very selective about url format
// expects: xxx.xxx.xxx.xxx:xxxx (ip adress in number notation with port adress)
// Next release will relax on this constraint.
integer check_url(string url)
{
integer pos=0;

if (llGetSubString(url,0,6) == "http://")
pos=7;
if (llGetSubString(url,0,7) == "https://")
pos=8;

if (pos==0) return FALSE;

string str_ip_port=llGetSubString(url,pos,-1);
list list_ip_port=llParseString2List(str_ip_port,[":"],[]); // split in ip-adress and port
list list_ip=llParseString2List(llList2String(list_ip_port,0),["."],[]); // split ip-adress elements

if (llGetListLength(list_ip_port) != 2 || llGetListLength(list_ip) != 4)
return FALSE;

integer i;
integer test;

for (i=0;i<4;i++)
{
test=llList2Integer(list_ip,i);
if (llList2String(list_ip,i) != (string)test)
return FALSE;
if (test < 0 || test > 255)
return FALSE;
}

test=llList2Integer(list_ip_port,1);
if (llList2String(list_ip_port,1) != (string)test)
return FALSE;

return TRUE;
}

// Returns a true value depending on the first character in input - anything else is assumed false.
integer true_value(string input)
{
string value=llToLower(llGetSubString(input,0,0));

if (value == "y" || value == "t" || value =="1")
return TRUE;

return FALSE;
}

// Return if more input should be processed (if not at EOF) - sets ConfigError if any config error found. Reading config card stops at the first error.
integer process_line(string dataline)
{
string line=llStringTrim(dataline,STRING_TRIM);
integer index=llSubStringIndex(line,comment_char);

if (index==0) // line starts with comment - ignore line
return TRUE;

if (index!=-1)
line=llStringTrim(llGetSubString(line,0,index-1),STRING_TRIM_TAIL); // skip everything after comment_char and trim tail

if (line=="") // Ignore blank lines
return TRUE;

if (llToLower(line) == "[access]")
{
section = 1;
return TRUE;
}
else if (llToLower(line) == "[banned]")
{
section = 2;
return TRUE;
}
else if (llToLower(line) == "[genre]")
{
section = 3;
return TRUE;
}
else if (llToLower(line) == "[station]")
{
section = 4;
return TRUE;
}
else if (llGetSubString(line,0,0) == "[" && llGetSubString(line,-1,-1) == "]")
{
llWhisper(0,"error: malformed section found at line " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

if (section == 0)
{
llWhisper(0,"error: no section found on line: " + (string) lineno);
config_error = TRUE;
return FALSE;
}

list breakup=llParseString2List(line,["="],[]);
string field=llStringTrim(llList2String(breakup,0),STRING_TRIM);
string values=llStringTrim(llList2String(breakup,1),STRING_TRIM);

if (section == 1) // access
{
field=llToLower(field);

if (field=="owner")
{
owner_access=true_value(values);
return TRUE;
}
else if (field=="group")
{
group_access=true_value(values);
return TRUE;
}
else if (field=="public")
{
public_access=true_value(values);
return TRUE;
}
else
{
llWhisper(0,"error: invalid option on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

}
else if (section == 2) // ban list
{
key try=(key) field;

if (try)
{
banned_keys+=(list)((key) field);
return TRUE;
}
else
return FALSE;
}
else if (section == 3) // categories
{
if (llListFindList(category_list,(list)field) == -1)
{
category_list+=(list)field;
}
else
llWhisper(0,"genre: '" + field + "' already entered; double entry skipped.");

return TRUE;
}
else if (section == 4) // stations
{
list parse=llParseString2List(line,sep_char_list, []);
string category=llStringTrim(llList2String(parse,0),STRING_TRIM);
string name=llStringTrim(llList2String(parse,1),STRING_TRIM);
string desc=llStringTrim(llList2String(parse,2),STRING_TRIM);
string url=llStringTrim(llToLower(llList2String(parse,3)),STRING_TRIM);

if (!available_category(category))
{
llWhisper(0,"error: unknown genre on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

if (check_url(url))
{
if (llListFindList(station_url,(list)url) == -1 || llListFindList(station_category,(list)category) == -1)
{
num_stations++;
station_category+=(list)category;
station_name+=(list)name;
station_desc+=(list)desc;
station_url+=(list)url;
return TRUE;
}
else
{
llWhisper(0,"This station is already entered under the same genre and same url and is skipped.\nStation: " + name + "\nGenre: '" + category + "'\nURL: " + url);
return TRUE;
}
}
else
{
llWhisper(0,"error: malformed url on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}
}

return FALSE;
}

// Sets the parcel URL and updates the display
set_parcel_url(string url)
{
parcel_url=url;
llSetParcelMusicURL(parcel_url);

if (parcel_url=="")
{
clear_display();
display_line("1","Radio is OFF");
display_line("2","");
display_line("3","");
}
else
{
llWhisper(0,"station now set to " + llList2String(station_desc,station_index) + ".");
display_line("1","Station: " + llList2String(station_desc,station_index));
display_line("2","Genre : " + llList2String(category_list,category_index));
display_line("3","Now playing.....");
llSetTimerEvent(update_time);
}
}

// Returns if a category (genre) exists.
integer available_category(string category)
{
integer i;
integer len=llGetListLength(category_list);

for (i=0;i<len;i++)
if (llToLower(category) == llToLower(llList2String(category_list,i)))
return TRUE;

return FALSE;
}

// Returns if a category (genre) is empty (i.e. there are no stations for this catagory (genre))
integer empty_category(string category)
{
integer i;
integer len=llGetListLength(station_category);

for (i=0; i < len; i++)
if (llToLower(category) == llToLower(llList2String(station_category,i)))
return FALSE;

return TRUE;
}

// Removes categories (genres) for which no station is known.
skip_empty_categories()
{
integer i=0;

while (i<llGetListLength(category_list))
{
if (empty_category(llList2String(category_list,i)))
{
llWhisper(0,"Warning: Genre '" + llList2String(category_list,i) + "' contains no stations and is deleted.");
category_list=llDeleteSubList(category_list,i,i);
}
else
i++;
}

num_categories=llGetListLength(category_list);
}

/////////////////////////////////////////////
// state default
////////////////////////////////////////////

default
{
state_entry()
{
flag=FALSE;
lineno=0;
config_error=FALSE;
num_stations=0;
num_categories=0;
radio_status=0;
menu_num=0;
menu_type=0;

if (llGetInventoryType(config_notecard) == INVENTORY_NOTECARD)
{
reqid=llGetNotecardLine(config_notecard,lineno++);
llWhisper(0, "Reading config notecard...");
display_line("1","Reading configuration.");
display_line("2","Wait....");
display_line("3","");
}
else
{
llWhisper(0,"No config notecard '" + config_notecard + "' present.");
state offline;
}
}

on_rez(integer param)
{
llResetScript();
}

dataserver(key id, string data)
{
if (reqid==id)
{
if (data==EOF)
{
skip_empty_categories();
llWhisper(0,"Configuration ok.\n" + (string)num_categories + " genres and " + (string)num_stations + " stations.");
display_line("1","Configuration OK");
display_line("2","Genres : " + (string)num_categories);
display_line("3","Stations: " + (string)num_stations);
state menu;
}
else
{
if (process_line(data))
reqid=llGetNotecardLine(config_notecard,lineno++);
else if (config_error)
{
llWhisper(0,"errors found in configuration. please correct them.");
state offline;
}
}
}
}

touch_start(integer total_num)
{
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY)
llResetScript();
}
}

/////////////////////////////////////////////
// state offline
////////////////////////////////////////////

state offline
{
state_entry()
{
llWhisper(0,"Reset on owner touch or when notecard updated.");
}

touch_start(integer t)
{
if (llDetectedKey(0)==llGetOwner())
llResetScript();
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY && flag)
llResetScript();
}
}

/////////////////////////////////////////////
// state menu
////////////////////////////////////////////

state menu
{
state_entry()
{
menu_type=0;
menu_num=0;
listen_handle=0;
}

changed(integer param)
{
if (param & CHANGED_INVENTORY)
llResetScript();
}

on_rez(integer param)
{
llResetScript();
}

touch_start(integer total_num)
{
key toucher=llDetectedKey(0);

if (has_access(toucher))
{
make_menu(toucher);
}
else
llWhisper(0,"sorry, no access.");
}

listen(integer chan, string name,key id,string msg)
{
integer index;

if (menu_type == 0) // main menu
{
if (msg == button_MAIN)
{
menu_type=0;
menu_num =0;
make_menu(id);
}
else if (msg == button_NEXT)
{
menu_num++;
make_menu(id);
}
else if (msg == button_PREV)
{
menu_num--;
make_menu(id);
}
else if (msg == button_ON)
{
radio_status=1;
set_parcel_url(parcel_url);
display_line("1","Radio is ON");
menu_num=0;
llWhisper(0,"Radio now turned on.");
make_menu(id);
}
else if (msg == button_OFF)
{
radio_status=0;
set_parcel_url("");
llSetTimerEvent(0.0);
llWhisper(0,"Radio now turned off.");
}
else if (msg == button_HELP)
{
if (llGetInventoryType(info_notecard) == INVENTORY_NOTECARD)
{
llGiveInventory(id,info_notecard);
}
else
llWhisper(0,"sorry, help not available.");
}
else if (radio_status == 1)
{
index = llListFindList(category_list, (list)msg);

if (index == -1)
llWhisper(0,"error: genre not found: " + msg);
else
{
category_index=index;
llWhisper(0,"Genre now set to " + llList2String(category_list,category_index) + ".");
menu_type=1;
menu_num=0;
make_menu(id);
}
}
}
else if (menu_type == 1 && radio_status == 1) // station menu
{
if (msg == button_MAIN)
{
menu_type=0;
menu_num =0;
make_menu(id);
}
else if (msg == button_NEXT)
{
menu_num++;
make_menu(id);
}
else if (msg == button_PREV)
{
menu_num--;
make_menu(id);
}
else
{
index = llListFindList(station_name, (list)msg);

if (index == -1)
llWhisper(0,"error: station not found: " + msg);
else
{
station_index=index;
string new_url=llList2String(station_url,station_index);

if (new_url != parcel_url)
{
set_parcel_url(new_url);
}
}
}
}
}

timer()
{
retrieve_titelinfo();
llSetTimerEvent(update_time);
}

http_response(key id, integer status, list meta, string body)
{
if (id == httpreq_id)
{
if (status == 200)
{
string feed = llGetSubString(body,llSubStringIndex(body, "<body>") + llStringLength("<body>"), llSubStringIndex(body,"</body>") - 1);
list feed_list = llParseString2List(feed,[","],[]);
string current_title_info= llList2String(feed_list,6);
integer length = llGetListLength(feed_list);

if(llList2String(feed_list,7))
{
integer a = 7;
for(; a<length; ++a)
{
current_title_info += ", " + llList2String(feed_list,a);
}
}

if (current_title_info != last_title_info)
{
last_title_info = current_title_info;
display_line("3","Title : " + current_title_info);
}
}
else
{
display_line("3","Title : " + no_title_info);
}
}
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY && flag)
llResetScript();
}
}

//////////////////////////////
// end of script
//////////////////////////////
</lsl>
===Notecard format===
Example notecard
<pre>
# New format Shoutcast - radio controller config notecard
# The format is divided in 4 sections:
# 1 - Access configuration
# 2 - Ban list (keys)
# 3 - Categories (same as genres)
# 4 - Station info (category, name, desc, url)
# The '#' character defines the start of a comment and can be anywhere on a line.
# Everything after the '#' incuding the '#' itself is ignored.
# Case is not important (but information on display will show as entered)
# Spaces before and/or after fields are trimmed.
# Empty lines are ignored.

[ACCESS]
owner=yes # yes, true,1 means owner has access. everything else not.
group=yes # ,, ,, ,, means group has acess. ,, ,, ,,
public=yes # ,, ,, ,, means public has access. ,, ,, ,,

[BANNED]
# keys of banned residents

[GENRE]
# genre name -- Use short genre names as the the length of menu buttons is short!
Hard Rock
Classic Rock
Oldies
Rap/Urban
Comedy
News
Dance
Country
Gothic
# etc.
[STATION]
# Shoutcast radio stations
# Use a '|' between each field - don't mind spaces before and after fields, they will be trimmed
# field1:genre, field2:station name, field3: station description, field4: station http://<ip>:<port> or https://<ip>:<port>
# Note that genre must match case-insensitive a value previously entered in section [GENRE]
Classic Rock | Absolute | Absolute Radio | http://205.188.215.226:8018
# etc.
</pre>

===TODO===

Planned for upcoming release 0.4:
* Add a llRegionSay to broadcast the <station>|<genre>|<current songtitle>|<url> to the region and add a script that displays that info on a remote Xytext board. (for use with a remote controller and/or remote display board anywhere in the region/parcel)
* llResetScript on owner change
* Relax on URL format
* Allow multiple genres per station

Shoutcast - radio controller v0.3 (remake of similar scripts)

Flennan Roffo — Thu, 10 Feb 2011 00:36:14 GMT

Flennan Roffo: /* Main script */

{{LSL Header}}
=Shoutcast - radio controller=
This script controls a shoutcast radio receiver and lets you select the stations that you configured on a notecard. Menu driven. Output of station description, genre and current song title using Xy text.

==Versions==

Current version: v0.3 released 10-2-2011

==Main script==

This script should be put into the shoutcast - radio controller device.
<lsl>
// Script: Shoutcast - radio controller
// Version: 0.3 - released 10-2-2011
// Logic Scripts (Flennan Roffo)
// (c) 2010 - Flennan Roffo (Logic Scripts)
//
// This script is a remake of a couple of similar script:
// + LandOwnersRadio V2.0 by Scripter Coba (( menu driven / notecard config script to select the radio station and sets parcel music url ))
// + Raven radio infoboard by Jamie Otis (( worked at the basis of sis service [sis.slserver.com/sis.php] used Xy text display ))
// + currentPlaying by Darkie Minotaur (( used the /7.html info to fetch current song title info, displayed as float text ))
//
// Purpose:
// * Sets the parcel audio URL and displays the channel info
// * Uses Xytext to display the info.
// * Fetches song title info from the shoutcast url
///////////////////////////////////////////////////////////////////////////////////////
// Extra Features -- 0.1 release
// * On/Off option
// * Allows multiple menus (if options per menu > 12) using a prev/next button
// * Checks if your url is well-formatted
// * Will delete genres for which no stations exist
// * Will skip stations that have same url and same genre (you can however have an identical station url under different genres).
// * New notecard format
//////////////////////////////////////////////////////////////////////////////////////////
// Extra Features -- 0.2 release
// * Configurable button text
// * Gets parcel URL and automatically sets the genre/station and on/off status accordingly (<-- doesn't work)
//////////////////////////////////////////////////////////////////////////////////////////
// Update -- 0.3 release
// * Fixed bug (only first station in genre displayed in menu)
// * Auto reset script when config card updated
// Notes:
// * Expects url to be in the format: <ip>:<port>, where <ip> has the format: xxx.xxx.xxx.xxx
// * Deletes entries in category (genre) for which no stations are configured with notice.
// * Skips stations which have identical URL AND same category (genre).
//////////////////////////////////////////////////////////////////////////////////////////
// Upcoming release -- 0.4
// * Will add functions for remote controller(s) and remote display(s) using llRegionSay to communicate over a channel.
// * Should relax on the constraints about the input format of URL's (currently requires that URL has format: xxx.xxx.xxx.xxx/yyyy)
// * Fix button placement
// * Implement script reset on change of owner
// * Permit station to be put under multiple genres, using a comma-seperated list of genres in the section [STATION]
// (currently this is only possible by duplicating the entire line and change the genre.)
/////////////////////////////////////////////////////////////////////////////////////////
// BUGS & FEATURE REQUESTS
//
// Please inform the author, Logic Scripts (flennan.roffo) about any bugs or annoyances.
// Feature requests can also be submitted to the author.
/////////////////////////////////////////////////////////////////////////////////////////
// LICENCE INFO
//
// This program is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program. If not, see <http://www.gnu.org/licenses/>.
///////////////////////////////////////////////////////////////////////////////////////////

string info_notecard="Radio Control info"; /////// EDITABLE \\\\\\
string config_notecard="Radio Control config"; /////// EDITABLE \\\\\\
string comment_char="#"; /////// EDITABLE \\\\\\
list sep_char_list= ["|"]; /////// EDITABLE \\\\\\
float update_time=5.0; /////// EDITABLE \\\\\\
string no_title_info="(no title info available)"; /////// EDITABLE \\\\\\

// not used currently - for showing info on current song title elsewhere in the region
integer broadcast_channel=-1234; /////// EDITABLE \\\\\\

// Buttons

string button_MAIN = "MAIN";
string button_HELP = "HELP";
string button_NEXT = ">>";
string button_PREV = "<<";
string button_ON = "ON";
string button_OFF = "OFF";

// List of categories (=genres)

list category_list=[];

// List of stations. KEEP THESE LISTS IN SYNCH!

list station_category=[];
list station_name=[];
list station_desc=[];
list station_url=[];

// Last song title played
string last_title_info="";

integer radio_status=0; // 0 - OFF 1 - ON
string parcel_url="";
integer lineno=0;
key reqid=NULL_KEY;
key httpreq_id=NULL_KEY;
integer config_error=FALSE;
integer flag;
integer section=0;

// Access values. Note that users who are banned can not access the device even when access is public
integer owner_access=TRUE;
integer group_access=FALSE;
integer public_access=TRUE;
list banned_keys=[];

// Channels for menu and user input
integer menu_channel;
integer listen_handle;

// Menu
integer menu_type=0; // 0 - Main menu (genres) 1 - Station menu (stations)
integer menu_num=0; // When more menu options need to be selectable then can be displayed on a menu (12), this is the menu number - menu number 0 is the first menu.

// Genres and stations

integer category_index=0; // Current index in category_list (genre)
integer station_index=0; // Current index in station_* (station)

integer num_categories=0;
integer num_stations=0;

// Make request for title info using HTTP request
retrieve_titelinfo()
{
string url=llList2String(station_url,station_index);
httpreq_id=llHTTPRequest(url + "/7.html HTTP/1.0\nUser-Agent: LSL Script (Mozilla Compatible)\n\n",[],"");
}

// Display a line on an Xytext device linked in
display_line(string line, string message)
{
// Setup XYtext Variables
integer DISPLAY_STRING = 204000;
// integer DISPLAY_EXTENDED = 204001; (not used)
// integer REMAP_INDICES = 204002; (not used)
// integer RESET_INDICES = 204003; (not used)
// integer SET_CELL_INFO = 204004; (not used)
// integer SET_FONT_TEXTURE = 204005; (not used)
// integer SET_THICKNESS = 204006; (not used)
// integer SET_COLOR = 204007; (not used)

llMessageLinked(LINK_SET,DISPLAY_STRING,message,line);
}

// Clear the Xytext display
clear_display()
{
// Clears the display
display_line("1","Radio Station ID");
display_line("2","Music Genre....");
display_line("3","Now Playing....");
}

// Make a menu / dialog
make_menu(key id)
{
menu_channel=random_channel();

if (radio_status == 0)
{
menu_type=0;
menu_num=0;
llDialog(id,"Menu: Status\n\nRadio is OFF", [ "ON", "HELP" ],menu_channel);
}
else
{
if (menu_type ==0)
{
llDialog(id,"Menu: Genres", category_menu(menu_num),menu_channel);
}
else
{
llDialog(id,"Menu: Stations\nGenre: " + llList2String(category_list,category_index), station_menu(menu_num),menu_channel);
}
}

if (listen_handle != 0) llListenRemove(listen_handle);
listen_handle=llListen(menu_channel,"",id,"");
}

// Make the menu option list for menu: catagories (genres)
list category_menu(integer num)
{
integer len=llGetListLength(category_list);
list menu=[];

if (len > 9) // If more then 9 items (12 minus the 3 buttons for MAIN/HELP and PREV, NEXT)
{
integer last_sub=(len-1)/9; // submenus start at 0. 9th entry is in submenu 0, 10th in 1, etc.

if (num > last_sub)
{
llWhisper(0,"error: wrong submenu number: " + (string) num + ".");
return [ "MAIN" ];
}
else
{
integer first=9*num;

while (--len >= first)
menu+=(list)llList2String(category_list,len);

if (num == 0)
menu+=(list)button_HELP;
else
menu+=(list)button_MAIN;

if (num == 0)
menu+=(list)button_OFF;
else
menu+=(list)button_PREV;

if (num != last_sub)
menu+=(list)button_NEXT;
}
}
else
{
while (--len >= 0)
menu+=(list)llList2String(category_list,len);

menu+=(list)button_OFF;
menu+=(list)button_HELP;
}

return menu; // order_buttons(menu);
}

// Returns the number of stations in a certain category
integer stations_in_category(integer cat)
{
integer count=0;
integer i;
integer len=llGetListLength(station_category);
string category=llList2String(category_list,cat);

for (i=0; i < len; i++)
if (category == llList2String(category_list,i))
count++;

return count;
}

// Not used currently -- to fix button placement
list order_buttons(list buttons)
{
integer offset;
list fixt;
integer flag=0;

while((offset = llGetListLength(buttons)))
{
if (offset > 3)
flag=1;
else
flag=0;

fixt += llList2List(buttons, offset = -3 * flag, -1);
buttons = llDeleteSubList(buttons, offset, -1);
}

return fixt;
}

// Returns a list of station names in a certain category (genre)
list station_list(integer category)
{
list s=[];
integer i;
string cname=llList2String(category_list,category_index);

for (i = 0; i < llGetListLength(station_name); i++)
if (llList2String(station_category,i) == cname)
s+=(list)llList2String(station_name,i);

return s;

}

// Returns the list of stations for the station menu, depending on the submenu number
list station_menu(integer num)
{
list stations=station_list(category_index);
integer len=llGetListLength(stations);
list menu=[];

if (len > 11) // 12 - 1 for MAIN menu
{
integer last_sub=(len-1)/9;

if (num >= last_sub)
{
llWhisper(0,"error: wrong submenu number: " + (string) num + ".");
return [ "MAIN" ];
}
else
{
integer first=9*num;
integer last=9*num+8;

menu+=(list)button_MAIN;

if (num > 0)
menu+=(list)button_PREV;

if (num < last_sub)
menu+=(list)button_NEXT;

if (len > last)
len =last;

while (--len >= first)
menu+=(list)llList2String(stations,len);
}
}
else
{
menu+=(list)button_MAIN;

while (--len >= 0)
menu+=(list)llList2String(stations,len);
}

return menu; // order_buttons(menu);
}

// Returns whether av with key id has access
integer has_access(key id)
{
if (llListFindList(banned_keys,(list)id) != -1)
return FALSE;

if (owner_access && id == llGetOwner())
return TRUE;

if (group_access && llSameGroup(id))
return TRUE;

if (public_access)
return TRUE;

return FALSE;
}

// Gets a random channel -- uses a wide range of big negative channel numbers seldomly used
integer random_channel()
{
integer min=-2147483647;
integer max=-1000;

return (integer) (min + llFrand(max-min));
}

// Check for the format of the url string -- is very selective about url format
// expects: xxx.xxx.xxx.xxx:xxxx (ip adress in number notation with port adress)
// Next release will relax on this constraint.
integer check_url(string url)
{
integer pos=0;

if (llGetSubString(url,0,6) == "http://")
pos=7;
if (llGetSubString(url,0,7) == "https://")
pos=8;

if (pos==0) return FALSE;

string str_ip_port=llGetSubString(url,pos,-1);
list list_ip_port=llParseString2List(str_ip_port,[":"],[]); // split in ip-adress and port
list list_ip=llParseString2List(llList2String(list_ip_port,0),["."],[]); // split ip-adress elements

if (llGetListLength(list_ip_port) != 2 || llGetListLength(list_ip) != 4)
return FALSE;

integer i;
integer test;

for (i=0;i<4;i++)
{
test=llList2Integer(list_ip,i);
if (llList2String(list_ip,i) != (string)test)
return FALSE;
if (test < 0 || test > 255)
return FALSE;
}

test=llList2Integer(list_ip_port,1);
if (llList2String(list_ip_port,1) != (string)test)
return FALSE;

return TRUE;
}

// Returns a true value depending on the first character in input - anything else is assumed false.
integer true_value(string input)
{
string value=llToLower(llGetSubString(input,0,0));

if (value == "y" || value == "t" || value =="1")
return TRUE;

return FALSE;
}

// Return if more input should be processed (if not at EOF) - sets ConfigError if any config error found. Reading config card stops at the first error.
integer process_line(string dataline)
{
string line=llStringTrim(dataline,STRING_TRIM);
integer index=llSubStringIndex(line,comment_char);

if (index==0) // line starts with comment - ignore line
return TRUE;

if (index!=-1)
line=llStringTrim(llGetSubString(line,0,index-1),STRING_TRIM_TAIL); // skip everything after comment_char and trim tail

if (line=="") // Ignore blank lines
return TRUE;

if (llToLower(line) == "[access]")
{
section = 1;
return TRUE;
}
else if (llToLower(line) == "[banned]")
{
section = 2;
return TRUE;
}
else if (llToLower(line) == "[genre]")
{
section = 3;
return TRUE;
}
else if (llToLower(line) == "[station]")
{
section = 4;
return TRUE;
}
else if (llGetSubString(line,0,0) == "[" && llGetSubString(line,-1,-1) == "]")
{
llWhisper(0,"error: malformed section found at line " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

if (section == 0)
{
llWhisper(0,"error: no section found on line: " + (string) lineno);
config_error = TRUE;
return FALSE;
}

list breakup=llParseString2List(line,["="],[]);
string field=llStringTrim(llList2String(breakup,0),STRING_TRIM);
string values=llStringTrim(llList2String(breakup,1),STRING_TRIM);

if (section == 1) // access
{
field=llToLower(field);

if (field=="owner")
{
owner_access=true_value(values);
return TRUE;
}
else if (field=="group")
{
group_access=true_value(values);
return TRUE;
}
else if (field=="public")
{
public_access=true_value(values);
return TRUE;
}
else
{
llWhisper(0,"error: invalid option on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

}
else if (section == 2) // ban list
{
key try=(key) field;

if (try)
{
banned_keys+=(list)((key) field);
return TRUE;
}
else
return FALSE;
}
else if (section == 3) // categories
{
if (llListFindList(category_list,(list)field) == -1)
{
category_list+=(list)field;
}
else
llWhisper(0,"genre: '" + field + "' already entered; double entry skipped.");

return TRUE;
}
else if (section == 4) // stations
{
list parse=llParseString2List(line,sep_char_list, []);
string category=llStringTrim(llList2String(parse,0),STRING_TRIM);
string name=llStringTrim(llList2String(parse,1),STRING_TRIM);
string desc=llStringTrim(llList2String(parse,2),STRING_TRIM);
string url=llStringTrim(llToLower(llList2String(parse,3)),STRING_TRIM);

if (!available_category(category))
{
llWhisper(0,"error: unknown genre on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

if (check_url(url))
{
if (llListFindList(station_url,(list)url) == -1 || llListFindList(station_category,(list)category) == -1)
{
num_stations++;
station_category+=(list)category;
station_name+=(list)name;
station_desc+=(list)desc;
station_url+=(list)url;
return TRUE;
}
else
{
llWhisper(0,"This station is already entered under the same genre and same url and is skipped.\nStation: " + name + "\nGenre: '" + category + "'\nURL: " + url);
return TRUE;
}
}
else
{
llWhisper(0,"error: malformed url on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}
}

return FALSE;
}

// Sets the parcel URL and updates the display
set_parcel_url(string url)
{
parcel_url=url;
llSetParcelMusicURL(parcel_url);

if (parcel_url=="")
{
clear_display();
display_line("1","Radio is OFF");
display_line("2","");
display_line("3","");
}
else
{
llWhisper(0,"station now set to " + llList2String(station_desc,station_index) + ".");
display_line("1","Station: " + llList2String(station_desc,station_index));
display_line("2","Genre : " + llList2String(category_list,category_index));
display_line("3","Now playing.....");
llSetTimerEvent(update_time);
}
}

// Returns if a category (genre) exists.
integer available_category(string category)
{
integer i;
integer len=llGetListLength(category_list);

for (i=0;i<len;i++)
if (llToLower(category) == llToLower(llList2String(category_list,i)))
return TRUE;

return FALSE;
}

// Returns if a category (genre) is empty (i.e. there are no stations for this catagory (genre))
integer empty_category(string category)
{
integer i;
integer len=llGetListLength(station_category);

for (i=0; i < len; i++)
if (llToLower(category) == llToLower(llList2String(station_category,i)))
return FALSE;

return TRUE;
}

// Removes categories (genres) for which no station is known.
skip_empty_categories()
{
integer i=0;

while (i<llGetListLength(category_list))
{
if (empty_category(llList2String(category_list,i)))
{
llWhisper(0,"Warning: Genre '" + llList2String(category_list,i) + "' contains no stations and is deleted.");
category_list=llDeleteSubList(category_list,i,i);
}
else
i++;
}

num_categories=llGetListLength(category_list);
}

/////////////////////////////////////////////
// state default
////////////////////////////////////////////

default
{
state_entry()
{
flag=FALSE;
lineno=0;
config_error=FALSE;
num_stations=0;
num_categories=0;
radio_status=0;
menu_num=0;
menu_type=0;

if (llGetInventoryType(config_notecard) == INVENTORY_NOTECARD)
{
reqid=llGetNotecardLine(config_notecard,lineno++);
llWhisper(0, "Reading config notecard...");
display_line("1","Reading configuration.");
display_line("2","Wait....");
display_line("3","");
}
else
{
llWhisper(0,"No config notecard '" + config_notecard + "' present.");
state offline;
}
}

on_rez(integer param)
{
llResetScript();
}

dataserver(key id, string data)
{
if (reqid==id)
{
if (data==EOF)
{
skip_empty_categories();
llWhisper(0,"Configuration ok.\n" + (string)num_categories + " genres and " + (string)num_stations + " stations.");
display_line("1","Configuration OK");
display_line("2","Genres : " + (string)num_categories);
display_line("3","Stations: " + (string)num_stations);
state menu;
}
else
{
if (process_line(data))
reqid=llGetNotecardLine(config_notecard,lineno++);
else if (config_error)
{
llWhisper(0,"errors found in configuration. please correct them.");
state offline;
}
}
}
}

touch_start(integer total_num)
{
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY)
llResetScript();
}
}

/////////////////////////////////////////////
// state offline
////////////////////////////////////////////

state offline
{
state_entry()
{
llWhisper(0,"Reset on owner touch or when notecard updated.");
}

touch_start(integer t)
{
if (llDetectedKey(0)==llGetOwner())
llResetScript();
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY && flag)
llResetScript();
}
}

/////////////////////////////////////////////
// state menu
////////////////////////////////////////////

state menu
{
state_entry()
{
menu_type=0;
menu_num=0;
listen_handle=0;
}

changed(integer param)
{
if (param & CHANGED_INVENTORY)
llResetScript();
}

on_rez(integer param)
{
llResetScript();
}

touch_start(integer total_num)
{
key toucher=llDetectedKey(0);

if (has_access(toucher))
{
make_menu(toucher);
}
else
llWhisper(0,"sorry, no access.");
}

listen(integer chan, string name,key id,string msg)
{
integer index;

if (menu_type == 0) // main menu
{
if (msg == button_MAIN)
{
menu_type=0;
menu_num =0;
make_menu(id);
}
else if (msg == button_NEXT)
{
menu_num++;
make_menu(id);
}
else if (msg == button_PREV)
{
menu_num--;
make_menu(id);
}
else if (msg == button_ON)
{
radio_status=1;
set_parcel_url(parcel_url);
display_line("1","Radio is ON");
menu_num=0;
llWhisper(0,"Radio now turned on.");
make_menu(id);
}
else if (msg == button_OFF)
{
radio_status=0;
set_parcel_url("");
llSetTimerEvent(0.0);
llWhisper(0,"Radio now turned off.");
}
else if (msg == button_HELP)
{
if (llGetInventoryType(info_notecard) == INVENTORY_NOTECARD)
{
llGiveInventory(id,info_notecard);
}
else
llWhisper(0,"sorry, help not available.");
}
else if (radio_status == 1)
{
index = llListFindList(category_list, (list)msg);

if (index == -1)
llWhisper(0,"error: genre not found: " + msg);
else
{
category_index=index;
llWhisper(0,"Genre now set to " + llList2String(category_list,category_index) + ".");
menu_type=1;
menu_num=0;
make_menu(id);
}
}
}
else if (menu_type == 1 && radio_status == 1) // station menu
{
if (msg == button_MAIN)
{
menu_type=0;
menu_num =0;
make_menu(id);
}
else if (msg == button_NEXT)
{
menu_num++;
make_menu(id);
}
else if (msg == button_PREV)
{
menu_num--;
make_menu(id);
}
else
{
index = llListFindList(station_name, (list)msg);

if (index == -1)
llWhisper(0,"error: station not found: " + msg);
else
{
station_index=index;
string new_url=llList2String(station_url,station_index);

if (new_url != parcel_url)
{
set_parcel_url(new_url);
}
}
}
}
}

timer()
{
retrieve_titelinfo();
llSetTimerEvent(update_time);
}

http_response(key id, integer status, list meta, string body)
{
if (id == httpreq_id)
{
if (status == 200)
{
string feed = llGetSubString(body,llSubStringIndex(body, "<body>") + llStringLength("<body>"), llSubStringIndex(body,"</body>") - 1);
list feed_list = llParseString2List(feed,[","],[]);
string current_title_info= llList2String(feed_list,6);
integer length = llGetListLength(feed_list);

if(llList2String(feed_list,7))
{
integer a = 7;
for(; a<length; ++a)
{
current_title_info += ", " + llList2String(feed_list,a);
}
}

if (current_title_info != last_title_info)
{
last_title_info = current_title_info;
display_line("3","Title : " + current_title_info);
}
}
else
{
display_line("3","Title : " + no_title_info);
}
}
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY && flag)
llResetScript();
}
}

//////////////////////////////
// end of script
//////////////////////////////
</lsl>
===Notecard format===
Example notecard
<pre>
# New format Shoutcast - radio controller config notecard
# The format is divided in 4 sections:
# 1 - Access configuration
# 2 - Ban list (keys)
# 3 - Categories (same as genres)
# 4 - Station info (category, name, desc, url)
# The '#' character defines the start of a comment and can be anywhere on a line.
# Everything after the '#' incuding the '#' itself is ignored.
# Case is not important (but information on display will show as entered)
# Spaces before and/or after fields are trimmed.
# Empty lines are ignored.

[ACCESS]
owner=yes # yes, true,1 means owner has access. everything else not.
group=yes # ,, ,, ,, means group has acess. ,, ,, ,,
public=yes # ,, ,, ,, means public has access. ,, ,, ,,

[BANNED]
# keys of banned residents

[GENRE]
# genre name -- Use short genre names as the the length of menu buttons is short!
Hard Rock
Classic Rock
Oldies
Rap/Urban
Comedy
News
Dance
Country
Gothic
# etc.
[STATION]
# Shoutcast radio stations
# Use a '|' between each field - don't mind spaces before and after fields, they will be trimmed
# field1:genre, field2:station name, field3: station description, field4: station http://<ip>:<port> or https://<ip>:<port>
# Note that genre must match case-insensitive a value previously entered in section [GENRE]
Classic Rock | Absolute | Absolute Radio | http://205.188.215.226:8018
# etc.
</pre>

===TODO===

Planned for upcoming release 0.4:
* Add a llRegionSay to broadcast the <station>|<genre>|<current songtitle>|<url> to the region and add a script that displays that info on a remote Xytext board. (for use with a remote controller and/or remote display board anywhere in the region/parcel)
* llResetScript on owner change
* Relax on URL format
* Allow multiple genres per station

Shoutcast - radio controller v0.3 (remake of similar scripts)

Flennan Roffo — Thu, 10 Feb 2011 00:29:17 GMT

Flennan Roffo: /* Main script */

{{LSL Header}}
=Shoutcast - radio controller=
This script controls a shoutcast radio receiver and lets you select the stations that you configured on a notecard. Menu driven. Output of station description, genre and current song title using Xy text.

==Versions==

Current version: v0.3 released 10-2-2011

==Main script==

This script should be put into the shoutcast - radio controller device.
<lsl>
// Script: Shoutcast - radio controller
// Version: 0.3 - released 10-2-2011
// Logic Scripts (Flennan Roffo)
// (c) 2010 - Flennan Roffo (Logic Scripts)
//
// This script is a remake of a couple of similar script:
// + LandOwnersRadio V2.0 by Scripter Coba (( menu driven / notecard config script to select the radio station and sets parcel music url ))
// + Raven radio infoboard by Jamie Otis (( worked at the basis of sis service [sis.slserver.com/sis.php] used Xy text display ))
// + currentPlaying by Darkie Minotaur (( used the /7.html info to fetch current song title info, displayed as float text ))
//
// Purpose:
// * Sets the parcel audio URL and displays the channel info
// * Uses Xytext to display the info.
// * Fetches song title info from the shoutcast url
///////////////////////////////////////////////////////////////////////////////////////
// Extra Features -- 0.1 release
// * On/Off option
// * Allows multiple menus (if options per menu > 12) using a prev/next button
// * Checks if your url is well-formatted
// * Will delete genres for which no stations exist
// * Will skip stations that have same url and same genre (you can however have an identical station url under different genres).
// * New notecard format
//////////////////////////////////////////////////////////////////////////////////////////
// Extra Features -- 0.2 release
// * Configurable button text
// * Gets parcel URL and automatically sets the genre/station and on/off status accordingly (<-- doesn't work)
//////////////////////////////////////////////////////////////////////////////////////////
// Update -- 0.3 release
// * Fixed bug (only first station in genre displayed in menu)
// * Auto reset script when config card updated
// Notes:
// * Expects url to be in the format: <ip>:<port>, where <ip> has the format: xxx.xxx.xxx.xxx
// * Deletes entries in category (genre) for which no stations are configured with notice.
// * Skips stations which have identical URL AND same category (genre).
//////////////////////////////////////////////////////////////////////////////////////////
// Upcoming release -- 0.4
// * Will add functions for remote controller(s) and remote display(s) using llRegionSay to communicate over a channel.
// * Should relax on the constraints about the input format of URL's (currently requires that URL has format: xxx.xxx.xxx.xxx/yyyy)
// * Fix button placement
// * Implement script reset on change of owner
// * Permit station to be put under multiple genres, using a comma-seperated list of genres in the section [STATION]
// (currently this is only possible by duplicating the entire line and change the genre.)
/////////////////////////////////////////////////////////////////////////////////////////
// BUGS & FEATURE REQUESTS
//
// Please inform the author, Logic Scripts (flennan.roffo) about any bugs or annoyances.
// Feature requests can also be submitted to the author.
/////////////////////////////////////////////////////////////////////////////////////////
// LICENCE INFO
//
// This program is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program. If not, see <http://www.gnu.org/licenses/>.
///////////////////////////////////////////////////////////////////////////////////////////

string info_notecard="Radio Control info"; /////// EDITABLE \\\\\\
string config_notecard="Radio Control config"; /////// EDITABLE \\\\\\
string comment_char="#"; /////// EDITABLE \\\\\\
list sep_char_list= ["|"]; /////// EDITABLE \\\\\\
float update_time=5.0; /////// EDITABLE \\\\\\
string no_title_info="(no title info available)"; /////// EDITABLE \\\\\\

// not used currently - for showing info on current song title elsewhere in the region
integer broadcast_channel=-1234; /////// EDITABLE \\\\\\

// Buttons

string button_MAIN = "MAIN";
string button_HELP = "HELP";
string button_NEXT = ">>";
string button_PREV = "<<";
string button_ON = "ON";
string button_OFF = "OFF";

// List of categories (=genres)

list category_list=[];

// List of stations. KEEP THESE LISTS IN SYNCH!

list station_category=[];
list station_name=[];
list station_desc=[];
list station_url=[];

// Last song title played
string last_title_info="";

integer radio_status=0; // 0 - OFF 1 - ON
string parcel_url="";
integer lineno=0;
key reqid=NULL_KEY;
key httpreq_id=NULL_KEY;
integer config_error=FALSE;
integer flag;
integer section=0;

// Access values. Note that users who are banned can not access the device even when access is public
integer owner_access=TRUE;
integer group_access=FALSE;
integer public_access=TRUE;
list banned_keys=[];

// Channels for menu and user input
integer menu_channel;
integer listen_handle;

// Menu
integer menu_type=0; // 0 - Main menu (genres) 1 - Station menu (stations)
integer menu_num=0; // When more menu options need to be selectable then can be displayed on a menu (12), this is the menu number - menu number 0 is the first menu.

// Genres and stations

integer category_index=0; // Current index in category_list (genre)
integer station_index=0; // Current index in station_* (station)

integer num_categories=0;
integer num_stations=0;

// Make request for title info using HTTP request
retrieve_titelinfo()
{
string url=llList2String(station_url,station_index);
httpreq_id=llHTTPRequest(url + "/7.html HTTP/1.0\nUser-Agent: LSL Script (Mozilla Compatible)\n\n",[],"");
}

// Display a line on an Xytext device linked in
display_line(string line, string message)
{
// Setup XYtext Variables
integer DISPLAY_STRING = 204000;
// integer DISPLAY_EXTENDED = 204001; (not used)
// integer REMAP_INDICES = 204002; (not used)
// integer RESET_INDICES = 204003; (not used)
// integer SET_CELL_INFO = 204004; (not used)
// integer SET_FONT_TEXTURE = 204005; (not used)
// integer SET_THICKNESS = 204006; (not used)
// integer SET_COLOR = 204007; (not used)

llMessageLinked(LINK_SET,DISPLAY_STRING,message,line);
}

// Clear the Xytext display
clear_display()
{
// Clears the display
display_line("1","Radio Station ID");
display_line("2","Music Genre....");
display_line("3","Now Playing....");
}

// Make a menu / dialog
make_menu(key id)
{
menu_channel=random_channel();

if (radio_status == 0)
{
menu_type=0;
menu_num=0;
llDialog(id,"Menu: Status\n\nRadio is OFF", [ "ON", "HELP" ],menu_channel);
}
else
{
if (menu_type ==0)
{
llDialog(id,"Menu: Genres", category_menu(menu_num),menu_channel);
}
else
{
llDialog(id,"Menu: Stations\nGenre: " + llList2String(category_list,category_index), station_menu(menu_num),menu_channel);
}
}

if (listen_handle != 0) llListenRemove(listen_handle);
listen_handle=llListen(menu_channel,"",id,"");
}

// Make the menu option list for menu: catagories (genres)
list category_menu(integer num)
{
integer len=llGetListLength(category_list);
list menu=[];

if (len > 9) // If more then 9 items (12 minus the 3 buttons for MAIN/HELP and PREV, NEXT)
{
integer last_sub=(len-1)/9; // submenus start at 0. 9th entry is in submenu 0, 10th in 1, etc.

if (num > last_sub)
{
llWhisper(0,"error: wrong submenu number: " + (string) num + ".");
return [ "MAIN" ];
}
else
{
integer first=9*num;

while (--len >= first)
menu+=(list)llList2String(category_list,len);

if (num == 0)
menu+=(list)button_HELP;
else
menu+=(list)button_MAIN;

if (num == 0)
menu+=(list)button_OFF;
else
menu+=(list)button_PREV;

if (num != last_sub)
menu+=(list)button_NEXT;
}
}
else
{
while (--len >= 0)
menu+=(list)llList2String(category_list,len);

menu+=(list)button_OFF;
menu+=(list)button_HELP;
}

return menu; // order_buttons(menu);
}

// Returns the number of stations in a certain category
integer stations_in_category(integer cat)
{
integer count=0;
integer i;
integer len=llGetListLength(station_category);
string category=llList2String(category_list,cat);

for (i=0; i < len; i++)
if (category == llList2String(category_list,i))
count++;

return count;
}

// Not used currently -- to fix button placement
list order_buttons(list buttons)
{
integer offset;
list fixt;
integer flag=0;

while((offset = llGetListLength(buttons)))
{
if (offset > 3)
flag=1;
else
flag=0;

fixt += llList2List(buttons, offset = -3 * flag, -1);
buttons = llDeleteSubList(buttons, offset, -1);
}

return fixt;
}

// Returns a list of station names in a certain category (genre)
list station_list(integer category)
{
list s=[];
integer i;
string cname=llList2String(category_list,category_index);

for (i = 0; i < llGetListLength(station_name); i++)
if (llList2String(station_category,i) == cname)
s+=(list)llList2String(station_name,i);

return s;

}

// Returns the list of stations for the station menu, depending on the submenu number
list station_menu(integer num)
{
list stations=station_list(category_index);
integer len=llGetListLength(stations);
list menu=[];

if (len > 11) // 12 - 1 for MAIN menu
{
integer last_sub=(len-1)/9;

if (num >= last_sub)
{
llWhisper(0,"error: wrong submenu number: " + (string) num + ".");
return [ "MAIN" ];
}
else
{
integer first=9*num;
integer last=9*num+8;

menu+=(list)button_MAIN;

if (num > 0)
menu+=(list)button_PREV;

if (num < last_sub)
menu+=(list)button_NEXT;

if (len > last)
len =last;

while (--len >= first)
menu+=(list)llList2String(stations,len);
}
}
else
{
menu+=(list)button_MAIN;

while (--len >= 0)
menu+=(list)llList2String(stations,len);
}

return menu; // order_buttons(menu);
}

// Returns whether av with key id has access
integer has_access(key id)
{
if (llListFindList(banned_keys,(list)id) != -1)
return FALSE;

if (owner_access && id == llGetOwner())
return TRUE;

if (group_access && llSameGroup(id))
return TRUE;

if (public_access)
return TRUE;

return FALSE;
}

// Gets a random channel -- uses a wide range of big negative channel numbers seldomly used
integer random_channel()
{
integer min=-2147483647;
integer max=-1000;

return (integer) (min + llFrand(max-min));
}

// Check for the format of the url string -- is very selective about url format
// expects: xxx.xxx.xxx.xxx:xxxx (ip adress in number notation with port adress)
// Next release will relax on this constraint.
integer check_url(string url)
{
integer pos=0;

if (llGetSubString(url,0,6) == "http://")
pos=7;
if (llGetSubString(url,0,7) == "https://")
pos=8;

if (pos==0) return FALSE;

string str_ip_port=llGetSubString(url,pos,-1);
list list_ip_port=llParseString2List(str_ip_port,[":"],[]); // split in ip-adress and port
list list_ip=llParseString2List(llList2String(list_ip_port,0),["."],[]); // split ip-adress elements

if (llGetListLength(list_ip_port) != 2 || llGetListLength(list_ip) != 4)
return FALSE;

integer i;
integer test;

for (i=0;i<4;i++)
{
test=llList2Integer(list_ip,i);
if (llList2String(list_ip,i) != (string)test)
return FALSE;
if (test < 0 || test > 255)
return FALSE;
}

test=llList2Integer(list_ip_port,1);
if (llList2String(list_ip_port,1) != (string)test)
return FALSE;

return TRUE;
}

// Returns a true value depending on the first character in input - anything else is assumed false.
integer true_value(string input)
{
string value=llToLower(llGetSubString(input,0,0));

if (value == "y" || value == "t" || value =="1")
return TRUE;

return FALSE;
}

// Return if more input should be processed (if not at EOF) - sets ConfigError if any config error found.
integer process_line(string dataline)
{
string line=llStringTrim(dataline,STRING_TRIM);
integer index=llSubStringIndex(line,comment_char);

if (index==0) // line starts with comment - ignore line
return TRUE;

if (index!=-1)
line=llStringTrim(llGetSubString(line,0,index-1),STRING_TRIM_TAIL); // skip everything after comment_char and trim tail

if (line=="") // Ignore blank lines
return TRUE;

if (llToLower(line) == "[access]")
{
section = 1;
return TRUE;
}
else if (llToLower(line) == "[banned]")
{
section = 2;
return TRUE;
}
else if (llToLower(line) == "[genre]")
{
section = 3;
return TRUE;
}
else if (llToLower(line) == "[station]")
{
section = 4;
return TRUE;
}
else if (llGetSubString(line,0,0) == "[" && llGetSubString(line,-1,-1) == "]")
{
llWhisper(0,"error: malformed section found at line " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

if (section == 0)
{
llWhisper(0,"error: no section found on line: " + (string) lineno);
config_error = TRUE;
return FALSE;
}

list breakup=llParseString2List(line,["="],[]);
string field=llStringTrim(llList2String(breakup,0),STRING_TRIM);
string values=llStringTrim(llList2String(breakup,1),STRING_TRIM);

if (section == 1) // access
{
field=llToLower(field);

if (field=="owner")
{
owner_access=true_value(values);
return TRUE;
}
else if (field=="group")
{
group_access=true_value(values);
return TRUE;
}
else if (field=="public")
{
public_access=true_value(values);
return TRUE;
}
else
{
llWhisper(0,"error: invalid option on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

}
else if (section == 2) // ban list
{
key try=(key) field;

if (try)
{
banned_keys+=(list)((key) field);
return TRUE;
}
else
return FALSE;
}
else if (section == 3) // categories
{
if (llListFindList(category_list,(list)field) == -1)
{
category_list+=(list)field;
}
else
llWhisper(0,"genre: '" + field + "' already entered; double entry skipped.");

return TRUE;
}
else if (section == 4) // stations
{
list parse=llParseString2List(line,sep_char_list, []);
string category=llStringTrim(llList2String(parse,0),STRING_TRIM);
string name=llStringTrim(llList2String(parse,1),STRING_TRIM);
string desc=llStringTrim(llList2String(parse,2),STRING_TRIM);
string url=llStringTrim(llToLower(llList2String(parse,3)),STRING_TRIM);

if (!available_category(category))
{
llWhisper(0,"error: unknown genre on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

if (check_url(url))
{
if (llListFindList(station_url,(list)url) == -1 || llListFindList(station_category,(list)category) == -1)
{
num_stations++;
station_category+=(list)category;
station_name+=(list)name;
station_desc+=(list)desc;
station_url+=(list)url;
return TRUE;
}
else
{
llWhisper(0,"This station is already entered under the same genre and same url and is skipped.\nStation: " + name + "\nGenre: '" + category + "'\nURL: " + url);
return TRUE;
}
}
else
{
llWhisper(0,"error: malformed url on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}
}

return FALSE;
}

// Sets the parcel URL and updates the display
set_parcel_url(string url)
{
parcel_url=url;
llSetParcelMusicURL(parcel_url);

if (parcel_url=="")
{
clear_display();
display_line("1","Radio is OFF");
display_line("2","");
display_line("3","");
}
else
{
llWhisper(0,"station now set to " + llList2String(station_desc,station_index) + ".");
display_line("1","Station: " + llList2String(station_desc,station_index));
display_line("2","Genre : " + llList2String(category_list,category_index));
display_line("3","Now playing.....");
llSetTimerEvent(update_time);
}
}

// Returns if a category (genre) exists.
integer available_category(string category)
{
integer i;
integer len=llGetListLength(category_list);

for (i=0;i<len;i++)
if (llToLower(category) == llToLower(llList2String(category_list,i)))
return TRUE;

return FALSE;
}

// Returns if a category (genre) is empty (NOTE: same function as available_category(), but logical negate of it. One of these can be removed.)
integer empty_category(string category)
{
integer i;
integer len=llGetListLength(station_category);

for (i=0; i < len; i++)
if (llToLower(category) == llToLower(llList2String(station_category,i)))
return FALSE;

return TRUE;
}

// Removes categories (genres) for which no station is known.
skip_empty_categories()
{
integer i=0;

while (i<llGetListLength(category_list))
{
if (empty_category(llList2String(category_list,i)))
{
llWhisper(0,"Warning: Genre '" + llList2String(category_list,i) + "' contains no stations and is deleted.");
category_list=llDeleteSubList(category_list,i,i);
}
else
i++;
}

num_categories=llGetListLength(category_list);
}

/////////////////////////////////////////////
// state default
////////////////////////////////////////////

default
{
state_entry()
{
flag=FALSE;
lineno=0;
config_error=FALSE;
num_stations=0;
num_categories=0;
radio_status=0;
menu_num=0;
menu_type=0;

if (llGetInventoryType(config_notecard) == INVENTORY_NOTECARD)
{
reqid=llGetNotecardLine(config_notecard,lineno++);
llWhisper(0, "Reading config notecard...");
display_line("1","Reading configuration.");
display_line("2","Wait....");
display_line("3","");
}
else
{
llWhisper(0,"No config notecard '" + config_notecard + "' present.");
state offline;
}
}

on_rez(integer param)
{
llResetScript();
}

dataserver(key id, string data)
{
if (reqid==id)
{
if (data==EOF)
{
skip_empty_categories();
llWhisper(0,"Configuration ok.\n" + (string)num_categories + " genres and " + (string)num_stations + " stations.");
display_line("1","Configuration OK");
display_line("2","Genres : " + (string)num_categories);
display_line("3","Stations: " + (string)num_stations);
state menu;
}
else
{
if (process_line(data))
reqid=llGetNotecardLine(config_notecard,lineno++);
else if (config_error)
{
llWhisper(0,"errors found in configuration. please correct them.");
state offline;
}
}
}
}

touch_start(integer total_num)
{
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY)
llResetScript();
}
}

/////////////////////////////////////////////
// state offline
////////////////////////////////////////////

state offline
{
state_entry()
{
llWhisper(0,"Reset on owner touch or when notecard updated.");
}

touch_start(integer t)
{
if (llDetectedKey(0)==llGetOwner())
llResetScript();
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY && flag)
llResetScript();
}
}

/////////////////////////////////////////////
// state menu
////////////////////////////////////////////

state menu
{
state_entry()
{
menu_type=0;
menu_num=0;
listen_handle=0;
}

changed(integer param)
{
if (param & CHANGED_INVENTORY)
llResetScript();
}

on_rez(integer param)
{
llResetScript();
}

touch_start(integer total_num)
{
key toucher=llDetectedKey(0);

if (has_access(toucher))
{
make_menu(toucher);
}
else
llWhisper(0,"sorry, no access.");
}

listen(integer chan, string name,key id,string msg)
{
integer index;

if (menu_type == 0) // main menu
{
if (msg == button_MAIN)
{
menu_type=0;
menu_num =0;
make_menu(id);
}
else if (msg == button_NEXT)
{
menu_num++;
make_menu(id);
}
else if (msg == button_PREV)
{
menu_num--;
make_menu(id);
}
else if (msg == button_ON)
{
radio_status=1;
set_parcel_url(parcel_url);
display_line("1","Radio is ON");
menu_num=0;
llWhisper(0,"Radio now turned on.");
make_menu(id);
}
else if (msg == button_OFF)
{
radio_status=0;
set_parcel_url("");
llSetTimerEvent(0.0);
llWhisper(0,"Radio now turned off.");
}
else if (msg == button_HELP)
{
if (llGetInventoryType(info_notecard) == INVENTORY_NOTECARD)
{
llGiveInventory(id,info_notecard);
}
else
llWhisper(0,"sorry, help not available.");
}
else if (radio_status == 1)
{
index = llListFindList(category_list, (list)msg);

if (index == -1)
llWhisper(0,"error: genre not found: " + msg);
else
{
category_index=index;
llWhisper(0,"Genre now set to " + llList2String(category_list,category_index) + ".");
menu_type=1;
menu_num=0;
make_menu(id);
}
}
}
else if (menu_type == 1 && radio_status == 1) // station menu
{
if (msg == button_MAIN)
{
menu_type=0;
menu_num =0;
make_menu(id);
}
else if (msg == button_NEXT)
{
menu_num++;
make_menu(id);
}
else if (msg == button_PREV)
{
menu_num--;
make_menu(id);
}
else
{
index = llListFindList(station_name, (list)msg);

if (index == -1)
llWhisper(0,"error: station not found: " + msg);
else
{
station_index=index;
string new_url=llList2String(station_url,station_index);

if (new_url != parcel_url)
{
set_parcel_url(new_url);
}
}
}
}
}

timer()
{
retrieve_titelinfo();
llSetTimerEvent(update_time);
}

http_response(key id, integer status, list meta, string body)
{
if (id == httpreq_id)
{
if (status == 200)
{
string feed = llGetSubString(body,llSubStringIndex(body, "<body>") + llStringLength("<body>"), llSubStringIndex(body,"</body>") - 1);
list feed_list = llParseString2List(feed,[","],[]);
string current_title_info= llList2String(feed_list,6);
integer length = llGetListLength(feed_list);

if(llList2String(feed_list,7))
{
integer a = 7;
for(; a<length; ++a)
{
current_title_info += ", " + llList2String(feed_list,a);
}
}

if (current_title_info != last_title_info)
{
last_title_info = current_title_info;
display_line("3","Title : " + current_title_info);
}
}
else
{
display_line("3","Title : " + no_title_info);
}
}
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY && flag)
llResetScript();
}
}

//////////////////////////////
// end of script
//////////////////////////////
</lsl>
===Notecard format===
Example notecard
<pre>
# New format Shoutcast - radio controller config notecard
# The format is divided in 4 sections:
# 1 - Access configuration
# 2 - Ban list (keys)
# 3 - Categories (same as genres)
# 4 - Station info (category, name, desc, url)
# The '#' character defines the start of a comment and can be anywhere on a line.
# Everything after the '#' incuding the '#' itself is ignored.
# Case is not important (but information on display will show as entered)
# Spaces before and/or after fields are trimmed.
# Empty lines are ignored.

[ACCESS]
owner=yes # yes, true,1 means owner has access. everything else not.
group=yes # ,, ,, ,, means group has acess. ,, ,, ,,
public=yes # ,, ,, ,, means public has access. ,, ,, ,,

[BANNED]
# keys of banned residents

[GENRE]
# genre name -- Use short genre names as the the length of menu buttons is short!
Hard Rock
Classic Rock
Oldies
Rap/Urban
Comedy
News
Dance
Country
Gothic
# etc.
[STATION]
# Shoutcast radio stations
# Use a '|' between each field - don't mind spaces before and after fields, they will be trimmed
# field1:genre, field2:station name, field3: station description, field4: station http://<ip>:<port> or https://<ip>:<port>
# Note that genre must match case-insensitive a value previously entered in section [GENRE]
Classic Rock | Absolute | Absolute Radio | http://205.188.215.226:8018
# etc.
</pre>

===TODO===

Planned for upcoming release 0.4:
* Add a llRegionSay to broadcast the <station>|<genre>|<current songtitle>|<url> to the region and add a script that displays that info on a remote Xytext board. (for use with a remote controller and/or remote display board anywhere in the region/parcel)
* llResetScript on owner change
* Relax on URL format
* Allow multiple genres per station

Shoutcast - radio controller v0.3 (remake of similar scripts)

Flennan Roffo — Thu, 10 Feb 2011 00:25:18 GMT

Flennan Roffo: /* Notecard format */

{{LSL Header}}
=Shoutcast - radio controller=
This script controls a shoutcast radio receiver and lets you select the stations that you configured on a notecard. Menu driven. Output of station description, genre and current song title using Xy text.

==Versions==

Current version: v0.3 released 10-2-2011

==Main script==

This script should be put into the
<lsl>
// Script: Shoutcast - radio controller
// Version: 0.3 - released 10-2-2011
// Logic Scripts (Flennan Roffo)
// (c) 2010 - Flennan Roffo (Logic Scripts)
//
// This script is a remake of a couple of similar script:
// + LandOwnersRadio V2.0 by Scripter Coba (( menu driven / notecard config script to select the radio station and sets parcel music url ))
// + Raven radio infoboard by Jamie Otis (( worked at the basis of sis service [sis.slserver.com/sis.php] used Xy text display ))
// + currentPlaying by Darkie Minotaur (( used the /7.html info to fetch current song title info, displayed as float text ))
//
// Purpose:
// * Sets the parcel audio URL and displays the channel info
// * Uses Xytext to display the info.
// * Fetches song title info from the shoutcast url
///////////////////////////////////////////////////////////////////////////////////////
// Extra Features -- 0.1 release
// * On/Off option
// * Allows multiple menus (if options per menu > 12) using a prev/next button
// * Checks if your url is well-formatted
// * Will delete genres for which no stations exist
// * Will skip stations that have same url and same genre (you can however have an identical station url under different genres).
// * New notecard format
//////////////////////////////////////////////////////////////////////////////////////////
// Extra Features -- 0.2 release
// * Configurable button text
// * Gets parcel URL and automatically sets the genre/station and on/off status accordingly (<-- doesn't work)
//////////////////////////////////////////////////////////////////////////////////////////
// Update -- 0.3 release
// * Fixed bug (only first station in genre displayed in menu)
// * Auto reset script when config card updated
// Notes:
// * Expects url to be in the format: <ip>:<port>, where <ip> has the format: xxx.xxx.xxx.xxx
// * Deletes entries in category (genre) for which no stations are configured with notice.
// * Skips stations which have identical URL AND same category (genre).
//////////////////////////////////////////////////////////////////////////////////////////
// Upcoming release -- 0.4
// * Will add functions for remote controller(s) and remote display(s) using llRegionSay to communicate over a channel.
// * Should relax on the constraints about the input format of URL's (currently requires that URL has format: xxx.xxx.xxx.xxx/yyyy)
// * Fix button placement
// * Implement script reset on change of owner
// * Permit station to be put under multiple genres, using a comma-seperated list of genres in the section [STATION]
// (currently this is only possible by duplicating the entire line and change the genre.)
/////////////////////////////////////////////////////////////////////////////////////////
// BUGS & FEATURE REQUESTS
//
// Please inform the author, Logic Scripts (flennan.roffo) about any bugs or annoyances.
// Feature requests can also be submitted to the author.
/////////////////////////////////////////////////////////////////////////////////////////
// LICENCE INFO
//
// This program is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program. If not, see <http://www.gnu.org/licenses/>.
///////////////////////////////////////////////////////////////////////////////////////////

string info_notecard="Radio Control info"; /////// EDITABLE \\\\\\
string config_notecard="Radio Control config"; /////// EDITABLE \\\\\\
string comment_char="#"; /////// EDITABLE \\\\\\
list sep_char_list= ["|"]; /////// EDITABLE \\\\\\
float update_time=5.0; /////// EDITABLE \\\\\\
string no_title_info="(no title info available)"; /////// EDITABLE \\\\\\

// not used currently - for showing info on current song title elsewhere in the region
integer broadcast_channel=-1234; /////// EDITABLE \\\\\\

// Buttons

string button_MAIN = "MAIN";
string button_HELP = "HELP";
string button_NEXT = ">>";
string button_PREV = "<<";
string button_ON = "ON";
string button_OFF = "OFF";

// List of categories (=genres)

list category_list=[];

// List of stations. KEEP THESE LISTS IN SYNCH!

list station_category=[];
list station_name=[];
list station_desc=[];
list station_url=[];

// Last song title played
string last_title_info="";

integer radio_status=0; // 0 - OFF 1 - ON
string parcel_url="";
integer lineno=0;
key reqid=NULL_KEY;
key httpreq_id=NULL_KEY;
integer config_error=FALSE;
integer flag;
integer section=0;

// Access values. Note that users who are banned can not access the device even when access is public
integer owner_access=TRUE;
integer group_access=FALSE;
integer public_access=TRUE;
list banned_keys=[];

// Channels for menu and user input
integer menu_channel;
integer listen_handle;

// Menu
integer menu_type=0; // 0 - Main menu (genres) 1 - Station menu (stations)
integer menu_num=0; // When more menu options need to be selectable then can be displayed on a menu (12), this is the menu number - menu number 0 is the first menu.

// Genres and stations

integer category_index=0; // Current index in category_list (genre)
integer station_index=0; // Current index in station_* (station)

integer num_categories=0;
integer num_stations=0;

// Make request for title info using HTTP request
retrieve_titelinfo()
{
string url=llList2String(station_url,station_index);
httpreq_id=llHTTPRequest(url + "/7.html HTTP/1.0\nUser-Agent: LSL Script (Mozilla Compatible)\n\n",[],"");
}

// Display a line on an Xytext device linked in
display_line(string line, string message)
{
// Setup XYtext Variables
integer DISPLAY_STRING = 204000;
// integer DISPLAY_EXTENDED = 204001; (not used)
// integer REMAP_INDICES = 204002; (not used)
// integer RESET_INDICES = 204003; (not used)
// integer SET_CELL_INFO = 204004; (not used)
// integer SET_FONT_TEXTURE = 204005; (not used)
// integer SET_THICKNESS = 204006; (not used)
// integer SET_COLOR = 204007; (not used)

llMessageLinked(LINK_SET,DISPLAY_STRING,message,line);
}

// Clear the Xytext display
clear_display()
{
// Clears the display
display_line("1","Radio Station ID");
display_line("2","Music Genre....");
display_line("3","Now Playing....");
}

// Make a menu / dialog
make_menu(key id)
{
menu_channel=random_channel();

if (radio_status == 0)
{
menu_type=0;
menu_num=0;
llDialog(id,"Menu: Status\n\nRadio is OFF", [ "ON", "HELP" ],menu_channel);
}
else
{
if (menu_type ==0)
{
llDialog(id,"Menu: Genres", category_menu(menu_num),menu_channel);
}
else
{
llDialog(id,"Menu: Stations\nGenre: " + llList2String(category_list,category_index), station_menu(menu_num),menu_channel);
}
}

if (listen_handle != 0) llListenRemove(listen_handle);
listen_handle=llListen(menu_channel,"",id,"");
}

// Make the menu option list for menu: catagories (genres)
list category_menu(integer num)
{
integer len=llGetListLength(category_list);
list menu=[];

if (len > 9) // If more then 9 items (12 minus the 3 buttons for MAIN/HELP and PREV, NEXT)
{
integer last_sub=(len-1)/9; // submenus start at 0. 9th entry is in submenu 0, 10th in 1, etc.

if (num > last_sub)
{
llWhisper(0,"error: wrong submenu number: " + (string) num + ".");
return [ "MAIN" ];
}
else
{
integer first=9*num;

while (--len >= first)
menu+=(list)llList2String(category_list,len);

if (num == 0)
menu+=(list)button_HELP;
else
menu+=(list)button_MAIN;

if (num == 0)
menu+=(list)button_OFF;
else
menu+=(list)button_PREV;

if (num != last_sub)
menu+=(list)button_NEXT;
}
}
else
{
while (--len >= 0)
menu+=(list)llList2String(category_list,len);

menu+=(list)button_OFF;
menu+=(list)button_HELP;
}

return menu; // order_buttons(menu);
}

// Returns the number of stations in a certain category
integer stations_in_category(integer cat)
{
integer count=0;
integer i;
integer len=llGetListLength(station_category);
string category=llList2String(category_list,cat);

for (i=0; i < len; i++)
if (category == llList2String(category_list,i))
count++;

return count;
}

// Not used currently -- to fix button placement
list order_buttons(list buttons)
{
integer offset;
list fixt;
integer flag=0;

while((offset = llGetListLength(buttons)))
{
if (offset > 3)
flag=1;
else
flag=0;

fixt += llList2List(buttons, offset = -3 * flag, -1);
buttons = llDeleteSubList(buttons, offset, -1);
}

return fixt;
}

// Returns a list of station names in a certain category (genre)
list station_list(integer category)
{
list s=[];
integer i;
string cname=llList2String(category_list,category_index);

for (i = 0; i < llGetListLength(station_name); i++)
if (llList2String(station_category,i) == cname)
s+=(list)llList2String(station_name,i);

return s;

}

// Returns the list of stations for the station menu, depending on the submenu number
list station_menu(integer num)
{
list stations=station_list(category_index);
integer len=llGetListLength(stations);
list menu=[];

if (len > 11) // 12 - 1 for MAIN menu
{
integer last_sub=(len-1)/9;

if (num >= last_sub)
{
llWhisper(0,"error: wrong submenu number: " + (string) num + ".");
return [ "MAIN" ];
}
else
{
integer first=9*num;
integer last=9*num+8;

menu+=(list)button_MAIN;

if (num > 0)
menu+=(list)button_PREV;

if (num < last_sub)
menu+=(list)button_NEXT;

if (len > last)
len =last;

while (--len >= first)
menu+=(list)llList2String(stations,len);
}
}
else
{
menu+=(list)button_MAIN;

while (--len >= 0)
menu+=(list)llList2String(stations,len);
}

return menu; // order_buttons(menu);
}

// Returns whether av with key id has access
integer has_access(key id)
{
if (llListFindList(banned_keys,(list)id) != -1)
return FALSE;

if (owner_access && id == llGetOwner())
return TRUE;

if (group_access && llSameGroup(id))
return TRUE;

if (public_access)
return TRUE;

return FALSE;
}

// Gets a random channel -- uses a wide range of big negative channel numbers seldomly used
integer random_channel()
{
integer min=-2147483647;
integer max=-1000;

return (integer) (min + llFrand(max-min));
}

// Check for the format of the url string -- is very selective about url format
// expects: xxx.xxx.xxx.xxx:xxxx (ip adress in number notation with port adress)
// Next release will relax on this constraint.
integer check_url(string url)
{
integer pos=0;

if (llGetSubString(url,0,6) == "http://")
pos=7;
if (llGetSubString(url,0,7) == "https://")
pos=8;

if (pos==0) return FALSE;

string str_ip_port=llGetSubString(url,pos,-1);
list list_ip_port=llParseString2List(str_ip_port,[":"],[]); // split in ip-adress and port
list list_ip=llParseString2List(llList2String(list_ip_port,0),["."],[]); // split ip-adress elements

if (llGetListLength(list_ip_port) != 2 || llGetListLength(list_ip) != 4)
return FALSE;

integer i;
integer test;

for (i=0;i<4;i++)
{
test=llList2Integer(list_ip,i);
if (llList2String(list_ip,i) != (string)test)
return FALSE;
if (test < 0 || test > 255)
return FALSE;
}

test=llList2Integer(list_ip_port,1);
if (llList2String(list_ip_port,1) != (string)test)
return FALSE;

return TRUE;
}

// Returns a true value depending on the first character in input - anything else is assumed false.
integer true_value(string input)
{
string value=llToLower(llGetSubString(input,0,0));

if (value == "y" || value == "t" || value =="1")
return TRUE;

return FALSE;
}

// Return if more input should be processed (if not at EOF) - sets ConfigError if any config error found.
integer process_line(string dataline)
{
string line=llStringTrim(dataline,STRING_TRIM);
integer index=llSubStringIndex(line,comment_char);

if (index==0) // line starts with comment - ignore line
return TRUE;

if (index!=-1)
line=llStringTrim(llGetSubString(line,0,index-1),STRING_TRIM_TAIL); // skip everything after comment_char and trim tail

if (line=="") // Ignore blank lines
return TRUE;

if (llToLower(line) == "[access]")
{
section = 1;
return TRUE;
}
else if (llToLower(line) == "[banned]")
{
section = 2;
return TRUE;
}
else if (llToLower(line) == "[genre]")
{
section = 3;
return TRUE;
}
else if (llToLower(line) == "[station]")
{
section = 4;
return TRUE;
}
else if (llGetSubString(line,0,0) == "[" && llGetSubString(line,-1,-1) == "]")
{
llWhisper(0,"error: malformed section found at line " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

if (section == 0)
{
llWhisper(0,"error: no section found on line: " + (string) lineno);
config_error = TRUE;
return FALSE;
}

list breakup=llParseString2List(line,["="],[]);
string field=llStringTrim(llList2String(breakup,0),STRING_TRIM);
string values=llStringTrim(llList2String(breakup,1),STRING_TRIM);

if (section == 1) // access
{
field=llToLower(field);

if (field=="owner")
{
owner_access=true_value(values);
return TRUE;
}
else if (field=="group")
{
group_access=true_value(values);
return TRUE;
}
else if (field=="public")
{
public_access=true_value(values);
return TRUE;
}
else
{
llWhisper(0,"error: invalid option on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

}
else if (section == 2) // ban list
{
key try=(key) field;

if (try)
{
banned_keys+=(list)((key) field);
return TRUE;
}
else
return FALSE;
}
else if (section == 3) // categories
{
if (llListFindList(category_list,(list)field) == -1)
{
category_list+=(list)field;
}
else
llWhisper(0,"genre: '" + field + "' already entered; double entry skipped.");

return TRUE;
}
else if (section == 4) // stations
{
list parse=llParseString2List(line,sep_char_list, []);
string category=llStringTrim(llList2String(parse,0),STRING_TRIM);
string name=llStringTrim(llList2String(parse,1),STRING_TRIM);
string desc=llStringTrim(llList2String(parse,2),STRING_TRIM);
string url=llStringTrim(llToLower(llList2String(parse,3)),STRING_TRIM);

if (!available_category(category))
{
llWhisper(0,"error: unknown genre on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

if (check_url(url))
{
if (llListFindList(station_url,(list)url) == -1 || llListFindList(station_category,(list)category) == -1)
{
num_stations++;
station_category+=(list)category;
station_name+=(list)name;
station_desc+=(list)desc;
station_url+=(list)url;
return TRUE;
}
else
{
llWhisper(0,"This station is already entered under the same genre and same url and is skipped.\nStation: " + name + "\nGenre: '" + category + "'\nURL: " + url);
return TRUE;
}
}
else
{
llWhisper(0,"error: malformed url on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}
}

return FALSE;
}

// Sets the parcel URL and updates the display
set_parcel_url(string url)
{
parcel_url=url;
llSetParcelMusicURL(parcel_url);

if (parcel_url=="")
{
clear_display();
display_line("1","Radio is OFF");
display_line("2","");
display_line("3","");
}
else
{
llWhisper(0,"station now set to " + llList2String(station_desc,station_index) + ".");
display_line("1","Station: " + llList2String(station_desc,station_index));
display_line("2","Genre : " + llList2String(category_list,category_index));
display_line("3","Now playing.....");
llSetTimerEvent(update_time);
}
}

// Returns if a category (genre) exists.
integer available_category(string category)
{
integer i;
integer len=llGetListLength(category_list);

for (i=0;i<len;i++)
if (llToLower(category) == llToLower(llList2String(category_list,i)))
return TRUE;

return FALSE;
}

// Returns if a category (genre) is empty (NOTE: same function as available_category(), but logical negate of it. One of these can be removed.)
integer empty_category(string category)
{
integer i;
integer len=llGetListLength(station_category);

for (i=0; i < len; i++)
if (llToLower(category) == llToLower(llList2String(station_category,i)))
return FALSE;

return TRUE;
}

// Removes categories (genres) for which no station is known.
skip_empty_categories()
{
integer i=0;

while (i<llGetListLength(category_list))
{
if (empty_category(llList2String(category_list,i)))
{
llWhisper(0,"Warning: Genre '" + llList2String(category_list,i) + "' contains no stations and is deleted.");
category_list=llDeleteSubList(category_list,i,i);
}
else
i++;
}

num_categories=llGetListLength(category_list);
}

/////////////////////////////////////////////
// state default
////////////////////////////////////////////

default
{
state_entry()
{
flag=FALSE;
lineno=0;
config_error=FALSE;
num_stations=0;
num_categories=0;
radio_status=0;
menu_num=0;
menu_type=0;

if (llGetInventoryType(config_notecard) == INVENTORY_NOTECARD)
{
reqid=llGetNotecardLine(config_notecard,lineno++);
llWhisper(0, "Reading config notecard...");
display_line("1","Reading configuration.");
display_line("2","Wait....");
display_line("3","");
}
else
{
llWhisper(0,"No config notecard '" + config_notecard + "' present.");
state offline;
}
}

on_rez(integer param)
{
llResetScript();
}

dataserver(key id, string data)
{
if (reqid==id)
{
if (data==EOF)
{
skip_empty_categories();
llWhisper(0,"Configuration ok.\n" + (string)num_categories + " genres and " + (string)num_stations + " stations.");
display_line("1","Configuration OK");
display_line("2","Genres : " + (string)num_categories);
display_line("3","Stations: " + (string)num_stations);
state menu;
}
else
{
if (process_line(data))
reqid=llGetNotecardLine(config_notecard,lineno++);
else if (config_error)
{
llWhisper(0,"errors found in configuration. please correct them.");
state offline;
}
}
}
}

touch_start(integer total_num)
{
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY)
llResetScript();
}
}

/////////////////////////////////////////////
// state offline
////////////////////////////////////////////

state offline
{
state_entry()
{
llWhisper(0,"Reset on owner touch or when notecard updated.");
}

touch_start(integer t)
{
if (llDetectedKey(0)==llGetOwner())
llResetScript();
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY && flag)
llResetScript();
}
}

/////////////////////////////////////////////
// state menu
////////////////////////////////////////////

state menu
{
state_entry()
{
menu_type=0;
menu_num=0;
listen_handle=0;
}

changed(integer param)
{
if (param & CHANGED_INVENTORY)
llResetScript();
}

on_rez(integer param)
{
llResetScript();
}

touch_start(integer total_num)
{
key toucher=llDetectedKey(0);

if (has_access(toucher))
{
make_menu(toucher);
}
else
llWhisper(0,"sorry, no access.");
}

listen(integer chan, string name,key id,string msg)
{
integer index;

if (menu_type == 0) // main menu
{
if (msg == button_MAIN)
{
menu_type=0;
menu_num =0;
make_menu(id);
}
else if (msg == button_NEXT)
{
menu_num++;
make_menu(id);
}
else if (msg == button_PREV)
{
menu_num--;
make_menu(id);
}
else if (msg == button_ON)
{
radio_status=1;
set_parcel_url(parcel_url);
display_line("1","Radio is ON");
menu_num=0;
llWhisper(0,"Radio now turned on.");
make_menu(id);
}
else if (msg == button_OFF)
{
radio_status=0;
set_parcel_url("");
llSetTimerEvent(0.0);
llWhisper(0,"Radio now turned off.");
}
else if (msg == button_HELP)
{
if (llGetInventoryType(info_notecard) == INVENTORY_NOTECARD)
{
llGiveInventory(id,info_notecard);
}
else
llWhisper(0,"sorry, help not available.");
}
else if (radio_status == 1)
{
index = llListFindList(category_list, (list)msg);

if (index == -1)
llWhisper(0,"error: genre not found: " + msg);
else
{
category_index=index;
llWhisper(0,"Genre now set to " + llList2String(category_list,category_index) + ".");
menu_type=1;
menu_num=0;
make_menu(id);
}
}
}
else if (menu_type == 1 && radio_status == 1) // station menu
{
if (msg == button_MAIN)
{
menu_type=0;
menu_num =0;
make_menu(id);
}
else if (msg == button_NEXT)
{
menu_num++;
make_menu(id);
}
else if (msg == button_PREV)
{
menu_num--;
make_menu(id);
}
else
{
index = llListFindList(station_name, (list)msg);

if (index == -1)
llWhisper(0,"error: station not found: " + msg);
else
{
station_index=index;
string new_url=llList2String(station_url,station_index);

if (new_url != parcel_url)
{
set_parcel_url(new_url);
}
}
}
}
}

timer()
{
retrieve_titelinfo();
llSetTimerEvent(update_time);
}

http_response(key id, integer status, list meta, string body)
{
if (id == httpreq_id)
{
if (status == 200)
{
string feed = llGetSubString(body,llSubStringIndex(body, "<body>") + llStringLength("<body>"), llSubStringIndex(body,"</body>") - 1);
list feed_list = llParseString2List(feed,[","],[]);
string current_title_info= llList2String(feed_list,6);
integer length = llGetListLength(feed_list);

if(llList2String(feed_list,7))
{
integer a = 7;
for(; a<length; ++a)
{
current_title_info += ", " + llList2String(feed_list,a);
}
}

if (current_title_info != last_title_info)
{
last_title_info = current_title_info;
display_line("3","Title : " + current_title_info);
}
}
else
{
display_line("3","Title : " + no_title_info);
}
}
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY && flag)
llResetScript();
}
}

//////////////////////////////
// end of script
//////////////////////////////
</lsl>
===Notecard format===
Example notecard
<pre>
# New format Shoutcast - radio controller config notecard
# The format is divided in 4 sections:
# 1 - Access configuration
# 2 - Ban list (keys)
# 3 - Categories (same as genres)
# 4 - Station info (category, name, desc, url)
# The '#' character defines the start of a comment and can be anywhere on a line.
# Everything after the '#' incuding the '#' itself is ignored.
# Case is not important (but information on display will show as entered)
# Spaces before and/or after fields are trimmed.
# Empty lines are ignored.

[ACCESS]
owner=yes # yes, true,1 means owner has access. everything else not.
group=yes # ,, ,, ,, means group has acess. ,, ,, ,,
public=yes # ,, ,, ,, means public has access. ,, ,, ,,

[BANNED]
# keys of banned residents

[GENRE]
# genre name -- Use short genre names as the the length of menu buttons is short!
Hard Rock
Classic Rock
Oldies
Rap/Urban
Comedy
News
Dance
Country
Gothic
# etc.
[STATION]
# Shoutcast radio stations
# Use a '|' between each field - don't mind spaces before and after fields, they will be trimmed
# field1:genre, field2:station name, field3: station description, field4: station http://<ip>:<port> or https://<ip>:<port>
# Note that genre must match case-insensitive a value previously entered in section [GENRE]
Classic Rock | Absolute | Absolute Radio | http://205.188.215.226:8018
# etc.
</pre>

===TODO===

Planned for upcoming release 0.4:
* Add a llRegionSay to broadcast the <station>|<genre>|<current songtitle>|<url> to the region and add a script that displays that info on a remote Xytext board. (for use with a remote controller and/or remote display board anywhere in the region/parcel)
* llResetScript on owner change
* Relax on URL format
* Allow multiple genres per station

Shoutcast - radio controller v0.3 (remake of similar scripts)

Flennan Roffo — Thu, 10 Feb 2011 00:22:21 GMT

Flennan Roffo: /* TODO */

{{LSL Header}}
=Shoutcast - radio controller=
This script controls a shoutcast radio receiver and lets you select the stations that you configured on a notecard. Menu driven. Output of station description, genre and current song title using Xy text.

==Versions==

Current version: v0.3 released 10-2-2011

==Main script==

This script should be put into the
<lsl>
// Script: Shoutcast - radio controller
// Version: 0.3 - released 10-2-2011
// Logic Scripts (Flennan Roffo)
// (c) 2010 - Flennan Roffo (Logic Scripts)
//
// This script is a remake of a couple of similar script:
// + LandOwnersRadio V2.0 by Scripter Coba (( menu driven / notecard config script to select the radio station and sets parcel music url ))
// + Raven radio infoboard by Jamie Otis (( worked at the basis of sis service [sis.slserver.com/sis.php] used Xy text display ))
// + currentPlaying by Darkie Minotaur (( used the /7.html info to fetch current song title info, displayed as float text ))
//
// Purpose:
// * Sets the parcel audio URL and displays the channel info
// * Uses Xytext to display the info.
// * Fetches song title info from the shoutcast url
///////////////////////////////////////////////////////////////////////////////////////
// Extra Features -- 0.1 release
// * On/Off option
// * Allows multiple menus (if options per menu > 12) using a prev/next button
// * Checks if your url is well-formatted
// * Will delete genres for which no stations exist
// * Will skip stations that have same url and same genre (you can however have an identical station url under different genres).
// * New notecard format
//////////////////////////////////////////////////////////////////////////////////////////
// Extra Features -- 0.2 release
// * Configurable button text
// * Gets parcel URL and automatically sets the genre/station and on/off status accordingly (<-- doesn't work)
//////////////////////////////////////////////////////////////////////////////////////////
// Update -- 0.3 release
// * Fixed bug (only first station in genre displayed in menu)
// * Auto reset script when config card updated
// Notes:
// * Expects url to be in the format: <ip>:<port>, where <ip> has the format: xxx.xxx.xxx.xxx
// * Deletes entries in category (genre) for which no stations are configured with notice.
// * Skips stations which have identical URL AND same category (genre).
//////////////////////////////////////////////////////////////////////////////////////////
// Upcoming release -- 0.4
// * Will add functions for remote controller(s) and remote display(s) using llRegionSay to communicate over a channel.
// * Should relax on the constraints about the input format of URL's (currently requires that URL has format: xxx.xxx.xxx.xxx/yyyy)
// * Fix button placement
// * Implement script reset on change of owner
// * Permit station to be put under multiple genres, using a comma-seperated list of genres in the section [STATION]
// (currently this is only possible by duplicating the entire line and change the genre.)
/////////////////////////////////////////////////////////////////////////////////////////
// BUGS & FEATURE REQUESTS
//
// Please inform the author, Logic Scripts (flennan.roffo) about any bugs or annoyances.
// Feature requests can also be submitted to the author.
/////////////////////////////////////////////////////////////////////////////////////////
// LICENCE INFO
//
// This program is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program. If not, see <http://www.gnu.org/licenses/>.
///////////////////////////////////////////////////////////////////////////////////////////

string info_notecard="Radio Control info"; /////// EDITABLE \\\\\\
string config_notecard="Radio Control config"; /////// EDITABLE \\\\\\
string comment_char="#"; /////// EDITABLE \\\\\\
list sep_char_list= ["|"]; /////// EDITABLE \\\\\\
float update_time=5.0; /////// EDITABLE \\\\\\
string no_title_info="(no title info available)"; /////// EDITABLE \\\\\\

// not used currently - for showing info on current song title elsewhere in the region
integer broadcast_channel=-1234; /////// EDITABLE \\\\\\

// Buttons

string button_MAIN = "MAIN";
string button_HELP = "HELP";
string button_NEXT = ">>";
string button_PREV = "<<";
string button_ON = "ON";
string button_OFF = "OFF";

// List of categories (=genres)

list category_list=[];

// List of stations. KEEP THESE LISTS IN SYNCH!

list station_category=[];
list station_name=[];
list station_desc=[];
list station_url=[];

// Last song title played
string last_title_info="";

integer radio_status=0; // 0 - OFF 1 - ON
string parcel_url="";
integer lineno=0;
key reqid=NULL_KEY;
key httpreq_id=NULL_KEY;
integer config_error=FALSE;
integer flag;
integer section=0;

// Access values. Note that users who are banned can not access the device even when access is public
integer owner_access=TRUE;
integer group_access=FALSE;
integer public_access=TRUE;
list banned_keys=[];

// Channels for menu and user input
integer menu_channel;
integer listen_handle;

// Menu
integer menu_type=0; // 0 - Main menu (genres) 1 - Station menu (stations)
integer menu_num=0; // When more menu options need to be selectable then can be displayed on a menu (12), this is the menu number - menu number 0 is the first menu.

// Genres and stations

integer category_index=0; // Current index in category_list (genre)
integer station_index=0; // Current index in station_* (station)

integer num_categories=0;
integer num_stations=0;

// Make request for title info using HTTP request
retrieve_titelinfo()
{
string url=llList2String(station_url,station_index);
httpreq_id=llHTTPRequest(url + "/7.html HTTP/1.0\nUser-Agent: LSL Script (Mozilla Compatible)\n\n",[],"");
}

// Display a line on an Xytext device linked in
display_line(string line, string message)
{
// Setup XYtext Variables
integer DISPLAY_STRING = 204000;
// integer DISPLAY_EXTENDED = 204001; (not used)
// integer REMAP_INDICES = 204002; (not used)
// integer RESET_INDICES = 204003; (not used)
// integer SET_CELL_INFO = 204004; (not used)
// integer SET_FONT_TEXTURE = 204005; (not used)
// integer SET_THICKNESS = 204006; (not used)
// integer SET_COLOR = 204007; (not used)

llMessageLinked(LINK_SET,DISPLAY_STRING,message,line);
}

// Clear the Xytext display
clear_display()
{
// Clears the display
display_line("1","Radio Station ID");
display_line("2","Music Genre....");
display_line("3","Now Playing....");
}

// Make a menu / dialog
make_menu(key id)
{
menu_channel=random_channel();

if (radio_status == 0)
{
menu_type=0;
menu_num=0;
llDialog(id,"Menu: Status\n\nRadio is OFF", [ "ON", "HELP" ],menu_channel);
}
else
{
if (menu_type ==0)
{
llDialog(id,"Menu: Genres", category_menu(menu_num),menu_channel);
}
else
{
llDialog(id,"Menu: Stations\nGenre: " + llList2String(category_list,category_index), station_menu(menu_num),menu_channel);
}
}

if (listen_handle != 0) llListenRemove(listen_handle);
listen_handle=llListen(menu_channel,"",id,"");
}

// Make the menu option list for menu: catagories (genres)
list category_menu(integer num)
{
integer len=llGetListLength(category_list);
list menu=[];

if (len > 9) // If more then 9 items (12 minus the 3 buttons for MAIN/HELP and PREV, NEXT)
{
integer last_sub=(len-1)/9; // submenus start at 0. 9th entry is in submenu 0, 10th in 1, etc.

if (num > last_sub)
{
llWhisper(0,"error: wrong submenu number: " + (string) num + ".");
return [ "MAIN" ];
}
else
{
integer first=9*num;

while (--len >= first)
menu+=(list)llList2String(category_list,len);

if (num == 0)
menu+=(list)button_HELP;
else
menu+=(list)button_MAIN;

if (num == 0)
menu+=(list)button_OFF;
else
menu+=(list)button_PREV;

if (num != last_sub)
menu+=(list)button_NEXT;
}
}
else
{
while (--len >= 0)
menu+=(list)llList2String(category_list,len);

menu+=(list)button_OFF;
menu+=(list)button_HELP;
}

return menu; // order_buttons(menu);
}

// Returns the number of stations in a certain category
integer stations_in_category(integer cat)
{
integer count=0;
integer i;
integer len=llGetListLength(station_category);
string category=llList2String(category_list,cat);

for (i=0; i < len; i++)
if (category == llList2String(category_list,i))
count++;

return count;
}

// Not used currently -- to fix button placement
list order_buttons(list buttons)
{
integer offset;
list fixt;
integer flag=0;

while((offset = llGetListLength(buttons)))
{
if (offset > 3)
flag=1;
else
flag=0;

fixt += llList2List(buttons, offset = -3 * flag, -1);
buttons = llDeleteSubList(buttons, offset, -1);
}

return fixt;
}

// Returns a list of station names in a certain category (genre)
list station_list(integer category)
{
list s=[];
integer i;
string cname=llList2String(category_list,category_index);

for (i = 0; i < llGetListLength(station_name); i++)
if (llList2String(station_category,i) == cname)
s+=(list)llList2String(station_name,i);

return s;

}

// Returns the list of stations for the station menu, depending on the submenu number
list station_menu(integer num)
{
list stations=station_list(category_index);
integer len=llGetListLength(stations);
list menu=[];

if (len > 11) // 12 - 1 for MAIN menu
{
integer last_sub=(len-1)/9;

if (num >= last_sub)
{
llWhisper(0,"error: wrong submenu number: " + (string) num + ".");
return [ "MAIN" ];
}
else
{
integer first=9*num;
integer last=9*num+8;

menu+=(list)button_MAIN;

if (num > 0)
menu+=(list)button_PREV;

if (num < last_sub)
menu+=(list)button_NEXT;

if (len > last)
len =last;

while (--len >= first)
menu+=(list)llList2String(stations,len);
}
}
else
{
menu+=(list)button_MAIN;

while (--len >= 0)
menu+=(list)llList2String(stations,len);
}

return menu; // order_buttons(menu);
}

// Returns whether av with key id has access
integer has_access(key id)
{
if (llListFindList(banned_keys,(list)id) != -1)
return FALSE;

if (owner_access && id == llGetOwner())
return TRUE;

if (group_access && llSameGroup(id))
return TRUE;

if (public_access)
return TRUE;

return FALSE;
}

// Gets a random channel -- uses a wide range of big negative channel numbers seldomly used
integer random_channel()
{
integer min=-2147483647;
integer max=-1000;

return (integer) (min + llFrand(max-min));
}

// Check for the format of the url string -- is very selective about url format
// expects: xxx.xxx.xxx.xxx:xxxx (ip adress in number notation with port adress)
// Next release will relax on this constraint.
integer check_url(string url)
{
integer pos=0;

if (llGetSubString(url,0,6) == "http://")
pos=7;
if (llGetSubString(url,0,7) == "https://")
pos=8;

if (pos==0) return FALSE;

string str_ip_port=llGetSubString(url,pos,-1);
list list_ip_port=llParseString2List(str_ip_port,[":"],[]); // split in ip-adress and port
list list_ip=llParseString2List(llList2String(list_ip_port,0),["."],[]); // split ip-adress elements

if (llGetListLength(list_ip_port) != 2 || llGetListLength(list_ip) != 4)
return FALSE;

integer i;
integer test;

for (i=0;i<4;i++)
{
test=llList2Integer(list_ip,i);
if (llList2String(list_ip,i) != (string)test)
return FALSE;
if (test < 0 || test > 255)
return FALSE;
}

test=llList2Integer(list_ip_port,1);
if (llList2String(list_ip_port,1) != (string)test)
return FALSE;

return TRUE;
}

// Returns a true value depending on the first character in input - anything else is assumed false.
integer true_value(string input)
{
string value=llToLower(llGetSubString(input,0,0));

if (value == "y" || value == "t" || value =="1")
return TRUE;

return FALSE;
}

// Return if more input should be processed (if not at EOF) - sets ConfigError if any config error found.
integer process_line(string dataline)
{
string line=llStringTrim(dataline,STRING_TRIM);
integer index=llSubStringIndex(line,comment_char);

if (index==0) // line starts with comment - ignore line
return TRUE;

if (index!=-1)
line=llStringTrim(llGetSubString(line,0,index-1),STRING_TRIM_TAIL); // skip everything after comment_char and trim tail

if (line=="") // Ignore blank lines
return TRUE;

if (llToLower(line) == "[access]")
{
section = 1;
return TRUE;
}
else if (llToLower(line) == "[banned]")
{
section = 2;
return TRUE;
}
else if (llToLower(line) == "[genre]")
{
section = 3;
return TRUE;
}
else if (llToLower(line) == "[station]")
{
section = 4;
return TRUE;
}
else if (llGetSubString(line,0,0) == "[" && llGetSubString(line,-1,-1) == "]")
{
llWhisper(0,"error: malformed section found at line " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

if (section == 0)
{
llWhisper(0,"error: no section found on line: " + (string) lineno);
config_error = TRUE;
return FALSE;
}

list breakup=llParseString2List(line,["="],[]);
string field=llStringTrim(llList2String(breakup,0),STRING_TRIM);
string values=llStringTrim(llList2String(breakup,1),STRING_TRIM);

if (section == 1) // access
{
field=llToLower(field);

if (field=="owner")
{
owner_access=true_value(values);
return TRUE;
}
else if (field=="group")
{
group_access=true_value(values);
return TRUE;
}
else if (field=="public")
{
public_access=true_value(values);
return TRUE;
}
else
{
llWhisper(0,"error: invalid option on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

}
else if (section == 2) // ban list
{
key try=(key) field;

if (try)
{
banned_keys+=(list)((key) field);
return TRUE;
}
else
return FALSE;
}
else if (section == 3) // categories
{
if (llListFindList(category_list,(list)field) == -1)
{
category_list+=(list)field;
}
else
llWhisper(0,"genre: '" + field + "' already entered; double entry skipped.");

return TRUE;
}
else if (section == 4) // stations
{
list parse=llParseString2List(line,sep_char_list, []);
string category=llStringTrim(llList2String(parse,0),STRING_TRIM);
string name=llStringTrim(llList2String(parse,1),STRING_TRIM);
string desc=llStringTrim(llList2String(parse,2),STRING_TRIM);
string url=llStringTrim(llToLower(llList2String(parse,3)),STRING_TRIM);

if (!available_category(category))
{
llWhisper(0,"error: unknown genre on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

if (check_url(url))
{
if (llListFindList(station_url,(list)url) == -1 || llListFindList(station_category,(list)category) == -1)
{
num_stations++;
station_category+=(list)category;
station_name+=(list)name;
station_desc+=(list)desc;
station_url+=(list)url;
return TRUE;
}
else
{
llWhisper(0,"This station is already entered under the same genre and same url and is skipped.\nStation: " + name + "\nGenre: '" + category + "'\nURL: " + url);
return TRUE;
}
}
else
{
llWhisper(0,"error: malformed url on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}
}

return FALSE;
}

// Sets the parcel URL and updates the display
set_parcel_url(string url)
{
parcel_url=url;
llSetParcelMusicURL(parcel_url);

if (parcel_url=="")
{
clear_display();
display_line("1","Radio is OFF");
display_line("2","");
display_line("3","");
}
else
{
llWhisper(0,"station now set to " + llList2String(station_desc,station_index) + ".");
display_line("1","Station: " + llList2String(station_desc,station_index));
display_line("2","Genre : " + llList2String(category_list,category_index));
display_line("3","Now playing.....");
llSetTimerEvent(update_time);
}
}

// Returns if a category (genre) exists.
integer available_category(string category)
{
integer i;
integer len=llGetListLength(category_list);

for (i=0;i<len;i++)
if (llToLower(category) == llToLower(llList2String(category_list,i)))
return TRUE;

return FALSE;
}

// Returns if a category (genre) is empty (NOTE: same function as available_category(), but logical negate of it. One of these can be removed.)
integer empty_category(string category)
{
integer i;
integer len=llGetListLength(station_category);

for (i=0; i < len; i++)
if (llToLower(category) == llToLower(llList2String(station_category,i)))
return FALSE;

return TRUE;
}

// Removes categories (genres) for which no station is known.
skip_empty_categories()
{
integer i=0;

while (i<llGetListLength(category_list))
{
if (empty_category(llList2String(category_list,i)))
{
llWhisper(0,"Warning: Genre '" + llList2String(category_list,i) + "' contains no stations and is deleted.");
category_list=llDeleteSubList(category_list,i,i);
}
else
i++;
}

num_categories=llGetListLength(category_list);
}

/////////////////////////////////////////////
// state default
////////////////////////////////////////////

default
{
state_entry()
{
flag=FALSE;
lineno=0;
config_error=FALSE;
num_stations=0;
num_categories=0;
radio_status=0;
menu_num=0;
menu_type=0;

if (llGetInventoryType(config_notecard) == INVENTORY_NOTECARD)
{
reqid=llGetNotecardLine(config_notecard,lineno++);
llWhisper(0, "Reading config notecard...");
display_line("1","Reading configuration.");
display_line("2","Wait....");
display_line("3","");
}
else
{
llWhisper(0,"No config notecard '" + config_notecard + "' present.");
state offline;
}
}

on_rez(integer param)
{
llResetScript();
}

dataserver(key id, string data)
{
if (reqid==id)
{
if (data==EOF)
{
skip_empty_categories();
llWhisper(0,"Configuration ok.\n" + (string)num_categories + " genres and " + (string)num_stations + " stations.");
display_line("1","Configuration OK");
display_line("2","Genres : " + (string)num_categories);
display_line("3","Stations: " + (string)num_stations);
state menu;
}
else
{
if (process_line(data))
reqid=llGetNotecardLine(config_notecard,lineno++);
else if (config_error)
{
llWhisper(0,"errors found in configuration. please correct them.");
state offline;
}
}
}
}

touch_start(integer total_num)
{
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY)
llResetScript();
}
}

/////////////////////////////////////////////
// state offline
////////////////////////////////////////////

state offline
{
state_entry()
{
llWhisper(0,"Reset on owner touch or when notecard updated.");
}

touch_start(integer t)
{
if (llDetectedKey(0)==llGetOwner())
llResetScript();
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY && flag)
llResetScript();
}
}

/////////////////////////////////////////////
// state menu
////////////////////////////////////////////

state menu
{
state_entry()
{
menu_type=0;
menu_num=0;
listen_handle=0;
}

changed(integer param)
{
if (param & CHANGED_INVENTORY)
llResetScript();
}

on_rez(integer param)
{
llResetScript();
}

touch_start(integer total_num)
{
key toucher=llDetectedKey(0);

if (has_access(toucher))
{
make_menu(toucher);
}
else
llWhisper(0,"sorry, no access.");
}

listen(integer chan, string name,key id,string msg)
{
integer index;

if (menu_type == 0) // main menu
{
if (msg == button_MAIN)
{
menu_type=0;
menu_num =0;
make_menu(id);
}
else if (msg == button_NEXT)
{
menu_num++;
make_menu(id);
}
else if (msg == button_PREV)
{
menu_num--;
make_menu(id);
}
else if (msg == button_ON)
{
radio_status=1;
set_parcel_url(parcel_url);
display_line("1","Radio is ON");
menu_num=0;
llWhisper(0,"Radio now turned on.");
make_menu(id);
}
else if (msg == button_OFF)
{
radio_status=0;
set_parcel_url("");
llSetTimerEvent(0.0);
llWhisper(0,"Radio now turned off.");
}
else if (msg == button_HELP)
{
if (llGetInventoryType(info_notecard) == INVENTORY_NOTECARD)
{
llGiveInventory(id,info_notecard);
}
else
llWhisper(0,"sorry, help not available.");
}
else if (radio_status == 1)
{
index = llListFindList(category_list, (list)msg);

if (index == -1)
llWhisper(0,"error: genre not found: " + msg);
else
{
category_index=index;
llWhisper(0,"Genre now set to " + llList2String(category_list,category_index) + ".");
menu_type=1;
menu_num=0;
make_menu(id);
}
}
}
else if (menu_type == 1 && radio_status == 1) // station menu
{
if (msg == button_MAIN)
{
menu_type=0;
menu_num =0;
make_menu(id);
}
else if (msg == button_NEXT)
{
menu_num++;
make_menu(id);
}
else if (msg == button_PREV)
{
menu_num--;
make_menu(id);
}
else
{
index = llListFindList(station_name, (list)msg);

if (index == -1)
llWhisper(0,"error: station not found: " + msg);
else
{
station_index=index;
string new_url=llList2String(station_url,station_index);

if (new_url != parcel_url)
{
set_parcel_url(new_url);
}
}
}
}
}

timer()
{
retrieve_titelinfo();
llSetTimerEvent(update_time);
}

http_response(key id, integer status, list meta, string body)
{
if (id == httpreq_id)
{
if (status == 200)
{
string feed = llGetSubString(body,llSubStringIndex(body, "<body>") + llStringLength("<body>"), llSubStringIndex(body,"</body>") - 1);
list feed_list = llParseString2List(feed,[","],[]);
string current_title_info= llList2String(feed_list,6);
integer length = llGetListLength(feed_list);

if(llList2String(feed_list,7))
{
integer a = 7;
for(; a<length; ++a)
{
current_title_info += ", " + llList2String(feed_list,a);
}
}

if (current_title_info != last_title_info)
{
last_title_info = current_title_info;
display_line("3","Title : " + current_title_info);
}
}
else
{
display_line("3","Title : " + no_title_info);
}
}
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY && flag)
llResetScript();
}
}

//////////////////////////////
// end of script
//////////////////////////////
</lsl>
===Notecard format===
Example notecard
<pre>
# New format Shoutcast - radio controller config notecard
# The format is divided in 4 sections:
# 1 - Access configuration
# 2 - Ban list (keys)
# 3 - Categories (same as genres)
# 4 - Station info (category, name, desc, url)
# The '#' character defines the start of a comment and can be anywhere on a line.
# Everything after the '#' incuding the '#' itself is ignored.
# Case is not important (but information on display will show as entered)
# Spaces before and/or after fields are trimmed.
# Empty lines are ignored.

[ACCESS]
owner=yes # yes, true,1 means owner has access. everything else not.
group=yes # ,, ,, ,, means group has acess. ,, ,, ,,
public=yes # ,, ,, ,, means public has access. ,, ,, ,,

[BANNED]
# keys of banned residents

[GENRE]
# genre name
Hard Rock
Classic Rock
Oldies
Rap/Urban
Comedy
News
Dance
Country
Gothic
# etc.
[STATION]
# Shoutcast radio stations
# Use a '|' between each field - don't mind spaces before and after fields, they will be trimmed
# field1:genre, field2:station name, field3: station description, field4: station http://<ip>:<port> or https://<ip>:<port>
# Note that genre must match case-insensitive a value previously entered in section [GENRE]
Classic Rock | Absolute | Absolute Radio | http://205.188.215.226:8018
# etc.
</pre>

===TODO===

Planned for upcoming release 0.4:
* Add a llRegionSay to broadcast the <station>|<genre>|<current songtitle>|<url> to the region and add a script that displays that info on a remote Xytext board. (for use with a remote controller and/or remote display board anywhere in the region/parcel)
* llResetScript on owner change
* Relax on URL format
* Allow multiple genres per station

Shoutcast - radio controller v0.3 (remake of similar scripts)

Flennan Roffo — Thu, 10 Feb 2011 00:20:21 GMT

Flennan Roffo:

{{LSL Header}}
=Shoutcast - radio controller=
This script controls a shoutcast radio receiver and lets you select the stations that you configured on a notecard. Menu driven. Output of station description, genre and current song title using Xy text.

==Versions==

Current version: v0.3 released 10-2-2011

==Main script==

This script should be put into the
<lsl>
// Script: Shoutcast - radio controller
// Version: 0.3 - released 10-2-2011
// Logic Scripts (Flennan Roffo)
// (c) 2010 - Flennan Roffo (Logic Scripts)
//
// This script is a remake of a couple of similar script:
// + LandOwnersRadio V2.0 by Scripter Coba (( menu driven / notecard config script to select the radio station and sets parcel music url ))
// + Raven radio infoboard by Jamie Otis (( worked at the basis of sis service [sis.slserver.com/sis.php] used Xy text display ))
// + currentPlaying by Darkie Minotaur (( used the /7.html info to fetch current song title info, displayed as float text ))
//
// Purpose:
// * Sets the parcel audio URL and displays the channel info
// * Uses Xytext to display the info.
// * Fetches song title info from the shoutcast url
///////////////////////////////////////////////////////////////////////////////////////
// Extra Features -- 0.1 release
// * On/Off option
// * Allows multiple menus (if options per menu > 12) using a prev/next button
// * Checks if your url is well-formatted
// * Will delete genres for which no stations exist
// * Will skip stations that have same url and same genre (you can however have an identical station url under different genres).
// * New notecard format
//////////////////////////////////////////////////////////////////////////////////////////
// Extra Features -- 0.2 release
// * Configurable button text
// * Gets parcel URL and automatically sets the genre/station and on/off status accordingly (<-- doesn't work)
//////////////////////////////////////////////////////////////////////////////////////////
// Update -- 0.3 release
// * Fixed bug (only first station in genre displayed in menu)
// * Auto reset script when config card updated
// Notes:
// * Expects url to be in the format: <ip>:<port>, where <ip> has the format: xxx.xxx.xxx.xxx
// * Deletes entries in category (genre) for which no stations are configured with notice.
// * Skips stations which have identical URL AND same category (genre).
//////////////////////////////////////////////////////////////////////////////////////////
// Upcoming release -- 0.4
// * Will add functions for remote controller(s) and remote display(s) using llRegionSay to communicate over a channel.
// * Should relax on the constraints about the input format of URL's (currently requires that URL has format: xxx.xxx.xxx.xxx/yyyy)
// * Fix button placement
// * Implement script reset on change of owner
// * Permit station to be put under multiple genres, using a comma-seperated list of genres in the section [STATION]
// (currently this is only possible by duplicating the entire line and change the genre.)
/////////////////////////////////////////////////////////////////////////////////////////
// BUGS & FEATURE REQUESTS
//
// Please inform the author, Logic Scripts (flennan.roffo) about any bugs or annoyances.
// Feature requests can also be submitted to the author.
/////////////////////////////////////////////////////////////////////////////////////////
// LICENCE INFO
//
// This program is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program. If not, see <http://www.gnu.org/licenses/>.
///////////////////////////////////////////////////////////////////////////////////////////

string info_notecard="Radio Control info"; /////// EDITABLE \\\\\\
string config_notecard="Radio Control config"; /////// EDITABLE \\\\\\
string comment_char="#"; /////// EDITABLE \\\\\\
list sep_char_list= ["|"]; /////// EDITABLE \\\\\\
float update_time=5.0; /////// EDITABLE \\\\\\
string no_title_info="(no title info available)"; /////// EDITABLE \\\\\\

// not used currently - for showing info on current song title elsewhere in the region
integer broadcast_channel=-1234; /////// EDITABLE \\\\\\

// Buttons

string button_MAIN = "MAIN";
string button_HELP = "HELP";
string button_NEXT = ">>";
string button_PREV = "<<";
string button_ON = "ON";
string button_OFF = "OFF";

// List of categories (=genres)

list category_list=[];

// List of stations. KEEP THESE LISTS IN SYNCH!

list station_category=[];
list station_name=[];
list station_desc=[];
list station_url=[];

// Last song title played
string last_title_info="";

integer radio_status=0; // 0 - OFF 1 - ON
string parcel_url="";
integer lineno=0;
key reqid=NULL_KEY;
key httpreq_id=NULL_KEY;
integer config_error=FALSE;
integer flag;
integer section=0;

// Access values. Note that users who are banned can not access the device even when access is public
integer owner_access=TRUE;
integer group_access=FALSE;
integer public_access=TRUE;
list banned_keys=[];

// Channels for menu and user input
integer menu_channel;
integer listen_handle;

// Menu
integer menu_type=0; // 0 - Main menu (genres) 1 - Station menu (stations)
integer menu_num=0; // When more menu options need to be selectable then can be displayed on a menu (12), this is the menu number - menu number 0 is the first menu.

// Genres and stations

integer category_index=0; // Current index in category_list (genre)
integer station_index=0; // Current index in station_* (station)

integer num_categories=0;
integer num_stations=0;

// Make request for title info using HTTP request
retrieve_titelinfo()
{
string url=llList2String(station_url,station_index);
httpreq_id=llHTTPRequest(url + "/7.html HTTP/1.0\nUser-Agent: LSL Script (Mozilla Compatible)\n\n",[],"");
}

// Display a line on an Xytext device linked in
display_line(string line, string message)
{
// Setup XYtext Variables
integer DISPLAY_STRING = 204000;
// integer DISPLAY_EXTENDED = 204001; (not used)
// integer REMAP_INDICES = 204002; (not used)
// integer RESET_INDICES = 204003; (not used)
// integer SET_CELL_INFO = 204004; (not used)
// integer SET_FONT_TEXTURE = 204005; (not used)
// integer SET_THICKNESS = 204006; (not used)
// integer SET_COLOR = 204007; (not used)

llMessageLinked(LINK_SET,DISPLAY_STRING,message,line);
}

// Clear the Xytext display
clear_display()
{
// Clears the display
display_line("1","Radio Station ID");
display_line("2","Music Genre....");
display_line("3","Now Playing....");
}

// Make a menu / dialog
make_menu(key id)
{
menu_channel=random_channel();

if (radio_status == 0)
{
menu_type=0;
menu_num=0;
llDialog(id,"Menu: Status\n\nRadio is OFF", [ "ON", "HELP" ],menu_channel);
}
else
{
if (menu_type ==0)
{
llDialog(id,"Menu: Genres", category_menu(menu_num),menu_channel);
}
else
{
llDialog(id,"Menu: Stations\nGenre: " + llList2String(category_list,category_index), station_menu(menu_num),menu_channel);
}
}

if (listen_handle != 0) llListenRemove(listen_handle);
listen_handle=llListen(menu_channel,"",id,"");
}

// Make the menu option list for menu: catagories (genres)
list category_menu(integer num)
{
integer len=llGetListLength(category_list);
list menu=[];

if (len > 9) // If more then 9 items (12 minus the 3 buttons for MAIN/HELP and PREV, NEXT)
{
integer last_sub=(len-1)/9; // submenus start at 0. 9th entry is in submenu 0, 10th in 1, etc.

if (num > last_sub)
{
llWhisper(0,"error: wrong submenu number: " + (string) num + ".");
return [ "MAIN" ];
}
else
{
integer first=9*num;

while (--len >= first)
menu+=(list)llList2String(category_list,len);

if (num == 0)
menu+=(list)button_HELP;
else
menu+=(list)button_MAIN;

if (num == 0)
menu+=(list)button_OFF;
else
menu+=(list)button_PREV;

if (num != last_sub)
menu+=(list)button_NEXT;
}
}
else
{
while (--len >= 0)
menu+=(list)llList2String(category_list,len);

menu+=(list)button_OFF;
menu+=(list)button_HELP;
}

return menu; // order_buttons(menu);
}

// Returns the number of stations in a certain category
integer stations_in_category(integer cat)
{
integer count=0;
integer i;
integer len=llGetListLength(station_category);
string category=llList2String(category_list,cat);

for (i=0; i < len; i++)
if (category == llList2String(category_list,i))
count++;

return count;
}

// Not used currently -- to fix button placement
list order_buttons(list buttons)
{
integer offset;
list fixt;
integer flag=0;

while((offset = llGetListLength(buttons)))
{
if (offset > 3)
flag=1;
else
flag=0;

fixt += llList2List(buttons, offset = -3 * flag, -1);
buttons = llDeleteSubList(buttons, offset, -1);
}

return fixt;
}

// Returns a list of station names in a certain category (genre)
list station_list(integer category)
{
list s=[];
integer i;
string cname=llList2String(category_list,category_index);

for (i = 0; i < llGetListLength(station_name); i++)
if (llList2String(station_category,i) == cname)
s+=(list)llList2String(station_name,i);

return s;

}

// Returns the list of stations for the station menu, depending on the submenu number
list station_menu(integer num)
{
list stations=station_list(category_index);
integer len=llGetListLength(stations);
list menu=[];

if (len > 11) // 12 - 1 for MAIN menu
{
integer last_sub=(len-1)/9;

if (num >= last_sub)
{
llWhisper(0,"error: wrong submenu number: " + (string) num + ".");
return [ "MAIN" ];
}
else
{
integer first=9*num;
integer last=9*num+8;

menu+=(list)button_MAIN;

if (num > 0)
menu+=(list)button_PREV;

if (num < last_sub)
menu+=(list)button_NEXT;

if (len > last)
len =last;

while (--len >= first)
menu+=(list)llList2String(stations,len);
}
}
else
{
menu+=(list)button_MAIN;

while (--len >= 0)
menu+=(list)llList2String(stations,len);
}

return menu; // order_buttons(menu);
}

// Returns whether av with key id has access
integer has_access(key id)
{
if (llListFindList(banned_keys,(list)id) != -1)
return FALSE;

if (owner_access && id == llGetOwner())
return TRUE;

if (group_access && llSameGroup(id))
return TRUE;

if (public_access)
return TRUE;

return FALSE;
}

// Gets a random channel -- uses a wide range of big negative channel numbers seldomly used
integer random_channel()
{
integer min=-2147483647;
integer max=-1000;

return (integer) (min + llFrand(max-min));
}

// Check for the format of the url string -- is very selective about url format
// expects: xxx.xxx.xxx.xxx:xxxx (ip adress in number notation with port adress)
// Next release will relax on this constraint.
integer check_url(string url)
{
integer pos=0;

if (llGetSubString(url,0,6) == "http://")
pos=7;
if (llGetSubString(url,0,7) == "https://")
pos=8;

if (pos==0) return FALSE;

string str_ip_port=llGetSubString(url,pos,-1);
list list_ip_port=llParseString2List(str_ip_port,[":"],[]); // split in ip-adress and port
list list_ip=llParseString2List(llList2String(list_ip_port,0),["."],[]); // split ip-adress elements

if (llGetListLength(list_ip_port) != 2 || llGetListLength(list_ip) != 4)
return FALSE;

integer i;
integer test;

for (i=0;i<4;i++)
{
test=llList2Integer(list_ip,i);
if (llList2String(list_ip,i) != (string)test)
return FALSE;
if (test < 0 || test > 255)
return FALSE;
}

test=llList2Integer(list_ip_port,1);
if (llList2String(list_ip_port,1) != (string)test)
return FALSE;

return TRUE;
}

// Returns a true value depending on the first character in input - anything else is assumed false.
integer true_value(string input)
{
string value=llToLower(llGetSubString(input,0,0));

if (value == "y" || value == "t" || value =="1")
return TRUE;

return FALSE;
}

// Return if more input should be processed (if not at EOF) - sets ConfigError if any config error found.
integer process_line(string dataline)
{
string line=llStringTrim(dataline,STRING_TRIM);
integer index=llSubStringIndex(line,comment_char);

if (index==0) // line starts with comment - ignore line
return TRUE;

if (index!=-1)
line=llStringTrim(llGetSubString(line,0,index-1),STRING_TRIM_TAIL); // skip everything after comment_char and trim tail

if (line=="") // Ignore blank lines
return TRUE;

if (llToLower(line) == "[access]")
{
section = 1;
return TRUE;
}
else if (llToLower(line) == "[banned]")
{
section = 2;
return TRUE;
}
else if (llToLower(line) == "[genre]")
{
section = 3;
return TRUE;
}
else if (llToLower(line) == "[station]")
{
section = 4;
return TRUE;
}
else if (llGetSubString(line,0,0) == "[" && llGetSubString(line,-1,-1) == "]")
{
llWhisper(0,"error: malformed section found at line " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

if (section == 0)
{
llWhisper(0,"error: no section found on line: " + (string) lineno);
config_error = TRUE;
return FALSE;
}

list breakup=llParseString2List(line,["="],[]);
string field=llStringTrim(llList2String(breakup,0),STRING_TRIM);
string values=llStringTrim(llList2String(breakup,1),STRING_TRIM);

if (section == 1) // access
{
field=llToLower(field);

if (field=="owner")
{
owner_access=true_value(values);
return TRUE;
}
else if (field=="group")
{
group_access=true_value(values);
return TRUE;
}
else if (field=="public")
{
public_access=true_value(values);
return TRUE;
}
else
{
llWhisper(0,"error: invalid option on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

}
else if (section == 2) // ban list
{
key try=(key) field;

if (try)
{
banned_keys+=(list)((key) field);
return TRUE;
}
else
return FALSE;
}
else if (section == 3) // categories
{
if (llListFindList(category_list,(list)field) == -1)
{
category_list+=(list)field;
}
else
llWhisper(0,"genre: '" + field + "' already entered; double entry skipped.");

return TRUE;
}
else if (section == 4) // stations
{
list parse=llParseString2List(line,sep_char_list, []);
string category=llStringTrim(llList2String(parse,0),STRING_TRIM);
string name=llStringTrim(llList2String(parse,1),STRING_TRIM);
string desc=llStringTrim(llList2String(parse,2),STRING_TRIM);
string url=llStringTrim(llToLower(llList2String(parse,3)),STRING_TRIM);

if (!available_category(category))
{
llWhisper(0,"error: unknown genre on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

if (check_url(url))
{
if (llListFindList(station_url,(list)url) == -1 || llListFindList(station_category,(list)category) == -1)
{
num_stations++;
station_category+=(list)category;
station_name+=(list)name;
station_desc+=(list)desc;
station_url+=(list)url;
return TRUE;
}
else
{
llWhisper(0,"This station is already entered under the same genre and same url and is skipped.\nStation: " + name + "\nGenre: '" + category + "'\nURL: " + url);
return TRUE;
}
}
else
{
llWhisper(0,"error: malformed url on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}
}

return FALSE;
}

// Sets the parcel URL and updates the display
set_parcel_url(string url)
{
parcel_url=url;
llSetParcelMusicURL(parcel_url);

if (parcel_url=="")
{
clear_display();
display_line("1","Radio is OFF");
display_line("2","");
display_line("3","");
}
else
{
llWhisper(0,"station now set to " + llList2String(station_desc,station_index) + ".");
display_line("1","Station: " + llList2String(station_desc,station_index));
display_line("2","Genre : " + llList2String(category_list,category_index));
display_line("3","Now playing.....");
llSetTimerEvent(update_time);
}
}

// Returns if a category (genre) exists.
integer available_category(string category)
{
integer i;
integer len=llGetListLength(category_list);

for (i=0;i<len;i++)
if (llToLower(category) == llToLower(llList2String(category_list,i)))
return TRUE;

return FALSE;
}

// Returns if a category (genre) is empty (NOTE: same function as available_category(), but logical negate of it. One of these can be removed.)
integer empty_category(string category)
{
integer i;
integer len=llGetListLength(station_category);

for (i=0; i < len; i++)
if (llToLower(category) == llToLower(llList2String(station_category,i)))
return FALSE;

return TRUE;
}

// Removes categories (genres) for which no station is known.
skip_empty_categories()
{
integer i=0;

while (i<llGetListLength(category_list))
{
if (empty_category(llList2String(category_list,i)))
{
llWhisper(0,"Warning: Genre '" + llList2String(category_list,i) + "' contains no stations and is deleted.");
category_list=llDeleteSubList(category_list,i,i);
}
else
i++;
}

num_categories=llGetListLength(category_list);
}

/////////////////////////////////////////////
// state default
////////////////////////////////////////////

default
{
state_entry()
{
flag=FALSE;
lineno=0;
config_error=FALSE;
num_stations=0;
num_categories=0;
radio_status=0;
menu_num=0;
menu_type=0;

if (llGetInventoryType(config_notecard) == INVENTORY_NOTECARD)
{
reqid=llGetNotecardLine(config_notecard,lineno++);
llWhisper(0, "Reading config notecard...");
display_line("1","Reading configuration.");
display_line("2","Wait....");
display_line("3","");
}
else
{
llWhisper(0,"No config notecard '" + config_notecard + "' present.");
state offline;
}
}

on_rez(integer param)
{
llResetScript();
}

dataserver(key id, string data)
{
if (reqid==id)
{
if (data==EOF)
{
skip_empty_categories();
llWhisper(0,"Configuration ok.\n" + (string)num_categories + " genres and " + (string)num_stations + " stations.");
display_line("1","Configuration OK");
display_line("2","Genres : " + (string)num_categories);
display_line("3","Stations: " + (string)num_stations);
state menu;
}
else
{
if (process_line(data))
reqid=llGetNotecardLine(config_notecard,lineno++);
else if (config_error)
{
llWhisper(0,"errors found in configuration. please correct them.");
state offline;
}
}
}
}

touch_start(integer total_num)
{
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY)
llResetScript();
}
}

/////////////////////////////////////////////
// state offline
////////////////////////////////////////////

state offline
{
state_entry()
{
llWhisper(0,"Reset on owner touch or when notecard updated.");
}

touch_start(integer t)
{
if (llDetectedKey(0)==llGetOwner())
llResetScript();
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY && flag)
llResetScript();
}
}

/////////////////////////////////////////////
// state menu
////////////////////////////////////////////

state menu
{
state_entry()
{
menu_type=0;
menu_num=0;
listen_handle=0;
}

changed(integer param)
{
if (param & CHANGED_INVENTORY)
llResetScript();
}

on_rez(integer param)
{
llResetScript();
}

touch_start(integer total_num)
{
key toucher=llDetectedKey(0);

if (has_access(toucher))
{
make_menu(toucher);
}
else
llWhisper(0,"sorry, no access.");
}

listen(integer chan, string name,key id,string msg)
{
integer index;

if (menu_type == 0) // main menu
{
if (msg == button_MAIN)
{
menu_type=0;
menu_num =0;
make_menu(id);
}
else if (msg == button_NEXT)
{
menu_num++;
make_menu(id);
}
else if (msg == button_PREV)
{
menu_num--;
make_menu(id);
}
else if (msg == button_ON)
{
radio_status=1;
set_parcel_url(parcel_url);
display_line("1","Radio is ON");
menu_num=0;
llWhisper(0,"Radio now turned on.");
make_menu(id);
}
else if (msg == button_OFF)
{
radio_status=0;
set_parcel_url("");
llSetTimerEvent(0.0);
llWhisper(0,"Radio now turned off.");
}
else if (msg == button_HELP)
{
if (llGetInventoryType(info_notecard) == INVENTORY_NOTECARD)
{
llGiveInventory(id,info_notecard);
}
else
llWhisper(0,"sorry, help not available.");
}
else if (radio_status == 1)
{
index = llListFindList(category_list, (list)msg);

if (index == -1)
llWhisper(0,"error: genre not found: " + msg);
else
{
category_index=index;
llWhisper(0,"Genre now set to " + llList2String(category_list,category_index) + ".");
menu_type=1;
menu_num=0;
make_menu(id);
}
}
}
else if (menu_type == 1 && radio_status == 1) // station menu
{
if (msg == button_MAIN)
{
menu_type=0;
menu_num =0;
make_menu(id);
}
else if (msg == button_NEXT)
{
menu_num++;
make_menu(id);
}
else if (msg == button_PREV)
{
menu_num--;
make_menu(id);
}
else
{
index = llListFindList(station_name, (list)msg);

if (index == -1)
llWhisper(0,"error: station not found: " + msg);
else
{
station_index=index;
string new_url=llList2String(station_url,station_index);

if (new_url != parcel_url)
{
set_parcel_url(new_url);
}
}
}
}
}

timer()
{
retrieve_titelinfo();
llSetTimerEvent(update_time);
}

http_response(key id, integer status, list meta, string body)
{
if (id == httpreq_id)
{
if (status == 200)
{
string feed = llGetSubString(body,llSubStringIndex(body, "<body>") + llStringLength("<body>"), llSubStringIndex(body,"</body>") - 1);
list feed_list = llParseString2List(feed,[","],[]);
string current_title_info= llList2String(feed_list,6);
integer length = llGetListLength(feed_list);

if(llList2String(feed_list,7))
{
integer a = 7;
for(; a<length; ++a)
{
current_title_info += ", " + llList2String(feed_list,a);
}
}

if (current_title_info != last_title_info)
{
last_title_info = current_title_info;
display_line("3","Title : " + current_title_info);
}
}
else
{
display_line("3","Title : " + no_title_info);
}
}
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY && flag)
llResetScript();
}
}

//////////////////////////////
// end of script
//////////////////////////////
</lsl>
===Notecard format===
Example notecard
<pre>
# New format Shoutcast - radio controller config notecard
# The format is divided in 4 sections:
# 1 - Access configuration
# 2 - Ban list (keys)
# 3 - Categories (same as genres)
# 4 - Station info (category, name, desc, url)
# The '#' character defines the start of a comment and can be anywhere on a line.
# Everything after the '#' incuding the '#' itself is ignored.
# Case is not important (but information on display will show as entered)
# Spaces before and/or after fields are trimmed.
# Empty lines are ignored.

[ACCESS]
owner=yes # yes, true,1 means owner has access. everything else not.
group=yes # ,, ,, ,, means group has acess. ,, ,, ,,
public=yes # ,, ,, ,, means public has access. ,, ,, ,,

[BANNED]
# keys of banned residents

[GENRE]
# genre name
Hard Rock
Classic Rock
Oldies
Rap/Urban
Comedy
News
Dance
Country
Gothic
# etc.
[STATION]
# Shoutcast radio stations
# Use a '|' between each field - don't mind spaces before and after fields, they will be trimmed
# field1:genre, field2:station name, field3: station description, field4: station http://<ip>:<port> or https://<ip>:<port>
# Note that genre must match case-insensitive a value previously entered in section [GENRE]
Classic Rock | Absolute | Absolute Radio | http://205.188.215.226:8018
# etc.
</pre>

===TODO===

Planned for upcoming release 0.4:
* Add a llRegionSay to broadcast the <station>|<genre>|<current songtitle>|<url> to the region and add a script that displays that info on a remote Xytext board.
(for use with a remote controller and/or remote display board anywhere in the region/parcel)
* llResetScript on owner change
* Relax on URL format
* Allow multiple genres per station

SL Mail V1.2

Flennan Roffo — Wed, 09 Feb 2011 23:23:45 GMT

Flennan Roffo: /* Second Life mail client */

{{LSL Header}} __NOTOC__
<div id="box">
Updated: 10-2-2011

='''Second Life mail client'''=
<div style="padding: 0.5em">

'''Send and receive email from within Second Life from and to any address.'''

Implemented with Address Book function (in a notecard named 'Address Book') to stores addresses by name and to compile groups of named addresses. Current version is stand-alone (no server functionality) and uses chat commands only.

[[Image:BannerSLMail.jpg]]

URL: [http://www.slmail.info slmail.info] <strike>(website coming soon!)</strike> <b>url slmail.info no longer used for SL Mail, and was taken for some other purpose.</b>

</div>
</div>

<div id="box">

=Release Notes V1.2=
<div style="padding: 0.5em">
SL Mail V1.2 Release notes (edition 2, 4 sept 2007)

===IMPORTANT NOTICE===

Development of SL Mail was abandoned midyear 2008. The domain slmail.info was abandoned and is now taken by another domain holder (ISS) who has nothing to do with SL Mail.

SL Mail is considered for redevelopment under the same terms, using a version of the ''Serverless Key Exchange'' script. This allows mail clients to exchange their key adresses to other rezzed mail clients in world, and send each other info about the public name they use, and other info that could be usefull. This protocol does not use a central server.

See: [https://wiki.secondlife.com/wiki/Serverless_Key_Exchange Serverless Key Exchange]

Future annoucements about SL Mail development will be made here.
</div>
</div>

<div id="box">

=='''LICENCE INFO'''==
<div style="padding: 0.5em">
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>.
</div>
</div>

<div id="box">

=='''PRODUCTION & MAINTANENCE'''==
<div style="padding: 0.5em">
by Logic Scripted Products and Script Services

[[Image:Logicbanner1.jpg]]

URL: [http://www.logicscripts.org logicscripts.org] <strike>(website coming soon!)</strike>

SLurl:
{{SLurl
|region=Beeratron
|x=57
|y=168
|z=75
|title=Logic Scripted products and Script services
|}}

Contact: [[User:Flennan Roffo|Flennan Roffo]]

</div>
</div>

<div id="box">

=='''DESCRIPTION'''==
<div style="padding: 0.5em">
SL Mail V1.2 is a simple tool to send and receive mail from within SL.
You can either compose a message yourself using chat recording, or choose a notecard from inventory to send. The Address Book functionality allows you to use short names for mail recipients stored in a notecard. The current version does not have a persisent mail address. Watch out for the upcoming next release (V1.3) which will facilitate persisent in-world mail addresses and will be enhanced with many new features (See: Requests For Change (RFC).
</div>
</div>

<div id="box">

=='''COMMANDS'''==
<div style="padding: 0.5em">
{| {{Prettytable}}
|-
|{{Hl2}}| '''Command'''
|{{Hl2}}| '''Description'''
|-
||'''@Help'''
||Show Help about available commands
|-
||'''@Record'''
||Starts a chat recording (for owner only).
|-
||'''@Stop'''
||Stops the chat recording without sending
|-
||'''@Continue'''
||Continues a previously stopped chat recording. Lines will be appended to you recording buffer.
|-
||'''@Show'''
||Shows the content of the recording buffer.
|-
||'''@Send'''
||If recording, stops the recording, and sends the mail (need to supply mail address and subject first!)
|-
||'''@Send <notecard>'''
||Sends the content of the notecard, instead of the chat recording.
|-
||'''@Ignore'''
||Ignores your current chat recording.
|-
||'''@Mail <address>'''
||Define the mail address to send to.
|-
||'''@Mail'''
||Shows the current mail address to send to.
|-
||'''@Subject <subject>'''
||Define the subject of the mail.
|-
||'''@Subject'''
||Shows the current mail subject.
|-
||'''@Home <address>'''
||Set the HOME address of the owner (mail will be forwarder to this address when offline).
|-
||'''@Home'''
||Show the HOME address.
|-
||'''@Info'''
||Shows the mail address the object this script is running in uses (e.g. <object-key>@lsl.secondlife.com).
|-
||'''@Read'''
||Reads the current message from the mail buffer (the mail buffer gets filled with mail you receive)
|-
||'''@Select <msg>'''
||Select a message number from the availabe messages in the mail buffer.
|-
||'''@Next'''
||Make next message the current message.
|-
||'''@Prev'''
||Make previous message the current message.
|-
||'''@First'''
||Make the first message the current message.
|-
||'''@Last'''
||Make the last message the current message.
|-
||'''@Clear'''
||Clear the mail buffer
|-
||'''@Delete'''
||Deletes only the current message
|-
||'''@Reply'''
||Starts a chat recording to reply to the current message. Mail adress and subject are filled in automatically.
|}

Note:

* Commands are case insensitive ("@read" == "@READ"). Arguments might not be case insensitive.
</div>
</div>

<div id="box">
=='''ADDRESS BOOK FORMAT'''==
<div style="padding: 0.5em">
A notecard of the name 'Address Book' is read during initialization which may contain Address Book items and Groups.
The notecard is split in two sections, which need to be defined in that particular order.

'''[ADDRESS BOOK]'''

Defines the section in which you can put names for mail addresses, like this:

'''Name1=account@thisdomain.com'''

'''Name2=user@otherdomain.com'''

etc.

'''[GROUP]'''

Define groups of previously defined names under a new name, like for instance:

'''MyGroup=Name1, Name2'''

Note that names of groups and individual mail adresses share the same namespace and must be unique.

So when you filled in your mail adresses in the Address Book, you can now use:

'''@Mail Name1'''

To send mail to <account@thisdomain.com>

or you can use

'''@Mail MyGroup'''

To send mail to <account@thisdomain.com> and <user@otherdomain.com>
Mails will be sent one after another.

Notes:

* Names for Addreses and Groups are case insensitive (e.g. "mary" == "MARY")

* The special address 'Self' can be used in commands where otherwise an address specification can be used. 'Self' is case insensitive (e.g. "self" == "SELF")

</div>
</div>

<div id="box">
=='''LIMITATIONS'''==
<div style="padding: 0.5em">
The current version is limited by the following:

* Chat recording lines are limited by the 255 byte limit

* Output of lines from the mail buffer are also limited by this 255 byte limit

* Incoming mail is limited to a 1000 (1024?) byte limit

* Outgoing mai is limited by a 4096 byte limit, which includes the standard mail header (region/location info on the first two lines)

We are making adjustments to this release to help overcome these limitations. At least the line lenght limit can be overcome by introducing a line continuation character (for example a hyphen '-') that when used at the end of a line appends the next line, so lines longer then 255 bytes are possible then.

To overcome the outgoing mail length limit, the mail can be broken textualy into parts, and each part can be send seperatedely, with an indication in the subject or in an introduced primary line of the mail body to indicate that the mail was split into parts.
For incoming mail and at least to receive mail from other SL Mail programs, a protocol will be introduced to receive mail in parts that are joined together after receiving them to form a single mail.

These enhancements will be made available in the next release (V1.3) of SL Mail
</div>
</div>

<div id="box">
=='''BUGS'''==
<div style="padding: 0.5em">
Report any bugs you find in this release to Logic (IM: Flennan Roffo).
</div>
</div>

<div id="box">
=='''REQUEST FOR CHANGE (RFC)'''==
<div style="padding: 0.5em">
Do you have additional wishes for enhancement of this product?
Contact Flennan Roffo and we will see if they can be implemented in the next release.

Existing RFC's are:

* Menu support for commands.

* Lines on incoming/outgoing mail longer than 255 bytes.

* Send messages longer than 4096 (minus SL mail header) bytes.

* Receive messages longer than 1024 bytes.

* Permanent mail addresses for the SL Mail client (like: <Flennan.Roffo@somedomain.sl>)

Add your RFC!
</div>
</div>

<div id="box">
=='''SL MAIL SUPPORT & DEVELOPMENT'''==
<div style="padding: 0.5em">

In-world join the group "SL Mail" for bug reports, feature requests, the latest SL Mail release, and notices about development issues.
</div>
</div>

<div id="box">

=Scripts=
</div>

<div id="box">
==Script: SL Mail v1.2==
<div style="padding: 0.5em;">
SL Mail core module which scans for incoming mail messages and executes commands used by the owner.
<lsl>
// SL Mail V1.2.lsl
// (c) 2007 Logic Scripted Products and Script Services
// Flennan Roffo

// VERSION
// Version: 1.2

// HISTORY
// Date Version Author Comment
// --------------------------------------------------------------------------------------
// 28 aug 2007 V 1.0 Flennan Roffo Created
//
// 1 sep 2007 V 1.1 Flennan Roffo @Reply empties the recording buffer.
// @Send while recording ends recording
// and sends the mail if a mail address
// and subject are supplied.
// Fixed incorrect date in Unix2DateTime.
// 3 sep 2007 V 1.2 Flennan Roffo Notification options:
// - When online, send an IM when mail is received.
// - When offline, send to HOME mail adress.
// Adressbook
// - Read adress book from config notecard.

// LICENCE
// This program is free software; you can redistribute it and/or
// modify it under the terms of the GNU General Public License
// as published by the Free Software Foundation; either version 2
// of the License, or (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
// (Also available at http://www.gnu.org/copyleft/gpl.html)

// DESCRIPTION
// Let's you record a message and sent to email and get messages and reply to messages.
// Must supply a valid mail adress and non-empty subject using chat commands.

// TODO:
// 1) Check for the maximum length of an email message (including newline and header).
// 2) Read adress book from notecard. *DONE*
// 3) Send incoming mail to personal mail adress when offline. *DONE*
// 4) Alert with an IM when online upon receiving new mail. *DONE*

string SL_MAIL_VERSION = "V 1.2";
string SL_MAIL_DATE = " 2 sep 2007";
integer ErrorFlag = FALSE;
list ScriptList = [ "SL Mail Help V1.2", "SL Mail AddressBook V1.2",
"SL Mail OnlineStatus V1.2", "SL Mail FetchNotecard V1.2" ];
string LSL_DOMAIN="lsl.secondlife.com";
integer StatusOnline=FALSE;

// Commands

string COMMAND_RECORD = "@RECORD";
string COMMAND_CONTINUE = "@CONTINUE";
string COMMAND_STOP = "@STOP";
string COMMAND_MAIL = "@MAIL";
string COMMAND_SUBJECT = "@SUBJECT";
string COMMAND_SEND = "@SEND";
string COMMAND_SEE = "@SEE";
string COMMAND_IGNORE = "@IGNORE";
string COMMAND_READ = "@READ";
string COMMAND_DELETE = "@DELETE";
string COMMAND_CLEAR = "@CLEAR";
string COMMAND_REPLY = "@REPLY";
string COMMAND_NEXT = "@NEXT";
string COMMAND_PREV = "@PREV";
string COMMAND_FIRST = "@FIRST";
string COMMAND_LAST = "@LAST";
string COMMAND_LIST = "@LIST";
string COMMAND_SELECT = "@SELECT";
string COMMAND_HELP = "@HELP";
string COMMAND_INFO = "@INFO";
string COMMAND_RESET = "@RESET";
string COMMAND_SHOW = "@SHOW";
string COMMAND_ON = "@ON";
string COMMAND_OFF = "@OFF";
string COMMAND_HOME = "@HOME";
string COMMAND_LOAD = "@LOAD";
string COMMAND_ADDRESS = "@ADDRESS";

// Recording

integer Recording = FALSE;

list ChatRecording=[];
integer NumLines=0;
integer Length=0;

list TimeList=[];
list AddressList=[];
list SubjectList=[];
list BodyList=[];
integer NumMessages=0;
integer CurrentMessage=-1;

float MAIL_FETCH_INTERVAL=5.0;

// Link Messages

integer MSG_HELP = 10000;
integer MSG_STATUS_ONLINE = 30000;
integer MSG_STATUS_OFFLINE = 30100;

integer MSG_MESSAGE_SETADDRESS = 90000;
integer MSG_MESSAGE_GETADDRESS = 90050;
integer MSG_MESSAGE_SETSUBJECT = 90100;
integer MSG_MESSAGE_GETSUBJECT = 90150;
integer MSG_MESSAGE_SEND = 90200;
integer MSG_MESSAGE_SENDHOME = 90300;
integer MSG_MESSAGE_SEND_NOTECARD = 90400;
integer MSG_MESSAGE_ADDRESSBOOK = 90500;
integer MSG_MESSAGE_GETHOME = 90600;
integer MSG_MESSAGE_SETHOME = 90700;
integer MSG_MESSAGE_INFO = 90800;

integer MSG_ADDRESSBOOK_LOADED = 91000;
integer MSG_ADDRESSBOOK_ERROR = 91100;

integer MSG_MESSAGE_REPLY = 99000;

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////// Unix Time conversion //////////////////

integer DAYS_PER_YEAR = 365; // Non leap year
integer SECONDS_PER_YEAR = 31536000; // Non leap year
integer SECONDS_PER_DAY = 86400;
integer SECONDS_PER_HOUR = 3600;
integer SECONDS_PER_MINUTE = 60;

////////////////////////////// LeapYear() /////////////////////////////

integer LeapYear(integer year)
{
if (year % 4 == 0)
{
if (year % 100 == 0)
{
if (year % 400 == 0)
{
return 1;
}
else
{
return 0;
}
}
else
{
return 1;
}
}
else
{
return 0;
}
}

////////////////////////////// DaysPerMonth() ///////////////////////////////////////

integer DaysPerMonth(integer year,integer month)
{
if (month < 8)
{
if (month % 2 == 0)
{
if (month == 2)
{
if (LeapYear(year))
{
return 29;
}
else
{
return 28;
}
}
else
{
return 30;
}
}
else
{
return 31;
}
}
else
{
if (month % 2 == 0)
{
return 31;
}
else
{
return 30;
}
}
}

/////////////////////////// DaysPerYear() ////////////////////////////////////

integer DaysPerYear(integer year)
{
if (LeapYear(year))
return DAYS_PER_YEAR + 1;
else
return DAYS_PER_YEAR;
}

/////////////////////////////// Unix2DataTime() ///////////////////////////////////////

list Unix2DateTime(integer unixtime)
{
integer days_since_1_1_1970 = unixtime / SECONDS_PER_DAY;
integer day = days_since_1_1_1970 + 1;
integer year = 1970;
integer days_per_year = DaysPerYear(year);

while (day > days_per_year)
{
day -= days_per_year;
++year;
days_per_year = DaysPerYear(year);
}

integer month = 1;
integer days_per_month = DaysPerMonth(year,month);

while (day > days_per_month)
{
day -= days_per_month;

if (++month > 12)
{
++year;
month = 1;
}

days_per_month = DaysPerMonth(year,month);
}

integer seconds_since_midnight = unixtime % SECONDS_PER_DAY;
integer hour = seconds_since_midnight / SECONDS_PER_HOUR;
integer second = seconds_since_midnight % SECONDS_PER_HOUR;
integer minute = second / SECONDS_PER_MINUTE;
second = second % SECONDS_PER_MINUTE;

return [ year, month, day, hour, minute, second ];
}

///////////////////////////////// MonthName() ////////////////////////////

list MonthNameList = [ "JAN", "FEB", "MAR", "APR", "MAY", "JUN",
"JUL", "AUG", "SEP", "OCT" , "NOV", "DEC" ];

string MonthName(integer month)
{
if (month >= 0 && month < 12)
return llList2String(MonthNameList, month);
else
return "";
}

///////////////////////////////// DateString() ///////////////////////////

string DateString(list timelist)
{
integer year = llList2Integer(timelist,0);
integer month = llList2Integer(timelist,1);
integer day = llList2Integer(timelist,2);

return (string)day + "-" + MonthName(month - 1) + "-" + (string)year;
}

///////////////////////////////// TimeString() ////////////////////////////

string TimeString(list timelist)
{
integer hour = llList2Integer(timelist,3);
integer minute = llList2Integer(timelist,4);
integer second = llList2Integer(timelist,5);
string hourstr = (string)hour;
string minutestr = (string)minute;
string secondstr = (string)second;

if (hour < 10) hourstr = "0" + hourstr;
if (minute < 10) minutestr = "0" + minutestr;
if (second < 10) secondstr = "0" + secondstr;
return hourstr + ":" + minutestr + ":" + secondstr;
}

/////////////////////////////////// SendMail() /////////////////////////////////////

SendMail(string body)
{
// llOwnerSay("Sending message to '" + address + "' with subject '" + subject +"'.");
llMessageLinked(LINK_THIS, MSG_MESSAGE_SEND, body, NULL_KEY);
}

///////////////////////////////// SendHome() ///////////////////////////////////////

SendHome(string subject, string body)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SENDHOME, body, (key)subject);
}

///////////////////////////////// Show() ////////////////////////////////////////////

Show()
{
integer i;

llOwnerSay("Current chat recording is:");
llOwnerSay("--------------------------");

for (i = 0; i < NumLines; ++i)
{
llOwnerSay(llList2String(ChatRecording,i));
}

llOwnerSay("--------------------------");
llOwnerSay("Lines is " + (string)NumLines);
llOwnerSay("Message length is " + (string)Length);
}

/////////////////////////////// Read() /////////////////////////////////////////

Read()
{
llOwnerSay("Reading message " + (string)CurrentMessage + " from mail buffer.");
integer time = (integer)llList2Integer(TimeList,CurrentMessage);
list timelist=Unix2DateTime(time);
string Address = llList2String(AddressList,CurrentMessage);
string Subject = llList2String(SubjectList,CurrentMessage);
string Body = llList2String(BodyList,CurrentMessage);
llOwnerSay("Date : " + DateString(timelist));
llOwnerSay("Time : " + TimeString(timelist));
llOwnerSay("Address: " + Address);
llOwnerSay("Subject: " + Subject);
llOwnerSay("Begin of message body:");
llOwnerSay("-------------------------");
list bodylist=llParseStringKeepNulls(Body, [ "\n" ], []);
integer num=llGetListLength(bodylist);
integer i;

for (i = 0; i < num; ++i)
{
llOwnerSay(llList2String(bodylist,i));
}

llOwnerSay("-------------------------");
llOwnerSay("End of message body.");
}

////////////////////////////////////// List ////////////////////////////////////////////

List()
{
llOwnerSay("The mail buffer contains the following messages:\n");

integer i;

for (i = 0; i < NumMessages; ++i)
{
integer time=llList2Integer(TimeList,i);
list timelist=Unix2DateTime(time);
if (i > 0) llOwnerSay("+-+-+-+-+-+-+-+-+-+-+-+-");
llOwnerSay("Message: " + (string)i);
llOwnerSay("Date : " + DateString(timelist));
llOwnerSay("Time : " + TimeString(timelist));
llOwnerSay("From: " + llList2String(AddressList,i));
llOwnerSay("Subject: " + llList2String(SubjectList,i));
}
}

//////////////////////////// NotifyNewMail() /////////////////////////

NotifyNewMail(string time, string address, string subject, string body)
{
list timelist=Unix2DateTime((integer)time);

if (StatusOnline)
{
llInstantMessage(llGetOwner(), "You received a new mail message on "
+ DateString(timelist) + " at " + TimeString(timelist)
+ " from " + address
+ " with the subject " + subject);
}
else
{
SendHome("FW: " + subject, "Received at: " + DateString(timelist) + " " + TimeString(timelist) + "\nFrom: " + address
+ "\nBegin message body:\n-------------------\n" + body + "\n-------------------\nEnd message body.");
}
}

///////////////////////////// ResetOtherScripts() //////////////////////

ResetOtherScripts()
{
string name;
integer i;
integer num=llGetListLength(ScriptList);

for (i = 0; i < num; ++i)
{
name = llList2String(ScriptList,i);

if (llGetInventoryType(name) == INVENTORY_SCRIPT)
{
llResetOtherScript(name);
}
else
{
llOwnerSay("Error - script '" + name + "' not found.");
ErrorFlag = TRUE;
}
}
}

//////////////////////////////////////
// default
//////////////////////////////////////

default
{
////////////////////// state_entry() /////////////////////////

state_entry()
{
llOwnerSay("Welcome to SL Mail, released under GNU software licence.");
llOwnerSay("Version " + SL_MAIL_VERSION + " " + SL_MAIL_DATE);
llOwnerSay("Produced by Logic Scripted Products & Product Services");
llOwnerSay("Free memory: " + (string)llGetFreeMemory());
ResetOtherScripts();

if (ErrorFlag)
state Error;
}

/////////////////////// on_rez() //////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

/////////////////////// changed() ////////////////////////////

changed(integer mask)
{
if (mask & CHANGED_INVENTORY)
{
llResetScript();
}
}

/////////////////////// link_message() /////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
else if (msgid == MSG_ADDRESSBOOK_LOADED)
{
state running;
}
else if (msgid == MSG_ADDRESSBOOK_ERROR)
{
state Error;
}
}
}

///////////////////////////////////////
// state running
//////////////////////////////////////

state running
{
///////////////////////// state_entry() //////////////////////

state_entry()
{
llListen(0, "", llGetOwner(), "");
llOwnerSay("SL mail ready.\nSend and Get mail in Second Life.\nType @HELP for more info.");
llMessageLinked(LINK_THIS, MSG_MESSAGE_INFO, "", NULL_KEY);
llGetNextEmail("", "");
llSetTimerEvent(MAIL_FETCH_INTERVAL);
}

//////////////////////// on_rez() ////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

//////////////////////// listen() ////////////////////////////

listen(integer channel, string name, key id, string message)
{
string trimmessage=llStringTrim(message,STRING_TRIM);
list parse = llParseStringKeepNulls(trimmessage, [ " "], []);
string command = llToUpper(llList2String(parse,0));
string arg = llStringTrim(llList2String(parse,1),STRING_TRIM);
integer nargs = llGetListLength(parse);
string argstr="";

if (nargs > 1) argstr=llGetSubString(message, llSubStringIndex(message, " ") + 1, -1);

if (Recording)
{
if (command == COMMAND_STOP)
{
llOwnerSay("Recording stopped. Type @SHOW to see the message you have entered,"
+ " or @SEND to send it.");
Recording = FALSE;
return;
}
if (command == COMMAND_SEND)
{
Recording = FALSE;

SendMail(llDumpList2String(ChatRecording, "\n"));
return;
}
else
{
ChatRecording = (ChatRecording=[]) + ChatRecording + [ message ];
++NumLines;
Length += llStringLength(message) + 2;
return;
}
}
else
{
if (command == COMMAND_RECORD)
{
llOwnerSay("Start recording your message. Type @STOP to end recording.");
ChatRecording = [];
NumLines=0;
Length=0;
Recording = TRUE;
return;
}
if (command == COMMAND_CONTINUE)
{
llOwnerSay("Continue recording your message. Type @STOP to end recording.");
Recording = TRUE;
return;
}
if (command == COMMAND_REPLY)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
string address=llList2String(AddressList,CurrentMessage);
string subject="Re: " + llList2String(SubjectList,CurrentMessage);
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETADDRESS, address, NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETSUBJECT, subject, NULL_KEY);
ChatRecording = [];
NumLines=0;
Length=0;
Recording = TRUE;
}
return;
}
if (command == COMMAND_MAIL)
{
string mailaddress=llStringTrim(argstr,STRING_TRIM);

if (mailaddress != "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETADDRESS, mailaddress, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETADDRESS, "", NULL_KEY);
}
return;
}
if (command == COMMAND_SUBJECT)
{
string mailsubject=llStringTrim(argstr,STRING_TRIM);

if (mailsubject != "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETSUBJECT, mailsubject, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETSUBJECT, "", NULL_KEY);
}
return;
}
if (command == COMMAND_STOP)
{
llOwnerSay("Not recording.");
return;
}
if (command == COMMAND_SEND)
{
if (nargs == 1)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
SendMail(llDumpList2String(ChatRecording, "\n"));
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SEND_NOTECARD, argstr, NULL_KEY);
}
return;
}
if (command == COMMAND_IGNORE)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
ChatRecording = [];
NumLines = 0;
Length = 0;
}
return;
}
if (command == COMMAND_SHOW)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
Show();
}
return;
}
if (command == COMMAND_READ)
{
if (NumMessages == 0)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
Read();
}
return;
}
if (command == COMMAND_NEXT)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == NumMessages - 1)
{
llOwnerSay("Already at last message.");
}
else
{
++CurrentMessage;
Read();
}
}
return;
}
if (command == COMMAND_PREV)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == 0)
{
llOwnerSay("Already at first message.");
}
else
{
--CurrentMessage;
Read();
}
}
return;
}
if (command == COMMAND_FIRST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == 0)
{
llOwnerSay("Already at first message.");
}
else
{
CurrentMessage = 0;
Read();
}
}
return;
}
if (command == COMMAND_LAST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == NumMessages - 1)
{
llOwnerSay("Already at last message.");
}
else
{
CurrentMessage = NumMessages - 1;
Read();
}
}
return;
}
if (command == COMMAND_LIST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
List();
}
return;
}
if (command == COMMAND_SELECT)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else if (nargs == 1)
{
llOwnerSay("Need to supply a message number.");
}
else
{
integer msgnum = (integer)arg;

if (msgnum < 0 || msgnum >= NumMessages)
{
llOwnerSay("Message number " + arg + " not in mail buffer.");
}
else
{
CurrentMessage = msgnum;
}
}
return;
}
if (command == COMMAND_DELETE)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
TimeList = llDeleteSubList(TimeList,CurrentMessage,CurrentMessage);
AddressList = llDeleteSubList(AddressList,CurrentMessage,CurrentMessage);
SubjectList = llDeleteSubList(SubjectList,CurrentMessage,CurrentMessage);
BodyList = llDeleteSubList(BodyList,CurrentMessage,CurrentMessage);
--NumMessages;

if (NumMessages == 0)
{
CurrentMessage = -1;
}
else if (CurrentMessage >= NumMessages)
{
CurrentMessage = NumMessages - 1;
}
}
return;
}
if (command == COMMAND_CLEAR)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
TimeList=[];
AddressList=[];
SubjectList=[];
BodyList=[];
NumMessages=0;
CurrentMessage=-1;
}
return;
}
if (command == COMMAND_HELP)
{
llMessageLinked(LINK_THIS, MSG_HELP, arg, NULL_KEY);
return;
}
if (command == COMMAND_INFO)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_INFO, "", NULL_KEY);
return;
}
if (command == COMMAND_SHOW)
{
Show();
return;
}
if (command == COMMAND_RESET)
{
llResetScript();
return;
}
if (command == COMMAND_OFF)
{
state not_running;
}
if (command == COMMAND_HOME)
{
if (nargs==1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETHOME, "", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETHOME, argstr, NULL_KEY);
}
return;
}
}
}

///////////////////////// timer() ///////////////////////////////

timer()
{
llGetNextEmail("", "");
}

///////////////////////// email() ///////////////////////////////

email(string time, string address, string subject, string body, integer queued)
{
NotifyNewMail(time, address, subject, body);
TimeList = (TimeList=[]) + TimeList + [time];
AddressList = (AddressList=[]) + AddressList + [address];
SubjectList = (SubjectList=[]) + SubjectList + [subject];
BodyList = (BodyList=[]) + BodyList + [body];
++NumMessages;

if (CurrentMessage == -1)
{
CurrentMessage = 0;
}
else
{
CurrentMessage = NumMessages - 1;
}
}

///////////////////// link_message() //////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
else if (msgid == MSG_MESSAGE_REPLY)
{
llOwnerSay(message);
}
}
}

//////////////////////////////////
// state not_running
//////////////////////////////////

state not_running
{
///////////////////// state_entry() //////////////////////////

state_entry()
{
llOwnerSay("SL Mailbox switched OFF. Say @ON to switch it back on.");
llListen(0, "", llGetOwner(), "");
}

//////////////////// on_rez() ///////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

//////////////////// listen() ////////////////////////////////

listen(integer chan, string name, key id, string message)
{
string command=llToUpper(message);

if (command == COMMAND_ON)
{
state running;
}
}

///////////////////// link_message() //////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
}
}

//////////////////////////////////
// state Error
//////////////////////////////////

state Error
{
state_entry()
{
llOwnerSay("Error in SL Mail: not all component scripts found.");
}

changed(integer mask)
{
if (mask & CHANGED_INVENTORY)
{
llResetScript();
}
}

on_rez(integer start_param)
{
llResetScript();
}
}

//////////////////////////////////
// End SL Mail V1.2.lsl
//////////////////////////////////
</lsl>
</div>
</div>

<div id="box">

==Script: SL Mail Address Book V1.2==
<div style="padding: 0.5em;">
Read and interpret the contents of the Address Book.
<lsl>
// SL Mail AddressBook V1.2.lsl
//
// DESCRIPTION
//
// Read the Address Book from a notecard named "Address Book".
//
// The Address Book has the following format:
//
// [ADDRESS BOOK]
// Name1=username@yourdomain.com
// Name2=otheruser@otherdomain.com
// ...
// [GROUP]
// group1=Name1, Name2
// ...
//
// Notes:
// 1. Group and Name share the same namespace, and must be unique.
// 2. It is allowed to have a name in the addressbook with multiple addresses, seperated by comma's.
//
/////////////////////////////////////////////////

string CurrentMailAddress = "";
string CurrentMailSubject = "";
integer StatusOnline = FALSE;

// Fetch or Send notecard

string Notecard2Fetch="";

// Address Book Names

list AddressBookList=[];
list MailAddressList=[];

string STRING_HOME="HOME";
string STRING_SELF="SELF";

// Address Book Groups

list GroupList=[];
list GroupNameList=[];

string LSL_DOMAIN = "lsl.secondlife.com";

// Read Address Book notecard

string ADDRESSBOOK_NOTECARD="Address Book";
integer Line=0;
key reqAddressBook=NULL_KEY;
float TIMEOUT_INTERVAL=5.0;

integer Section=0;
integer SECTION_ADDRESS_BOOK=1;
integer SECTION_GROUP=2;
string STRING_ADDRESS_BOOK="ADDRESS BOOK";
string STRING_GROUP="GROUP";

// Links messages

integer MSG_MESSAGE_SETADDRESS = 90000;
integer MSG_MESSAGE_GETADDRESS = 90050;
integer MSG_MESSAGE_SETSUBJECT = 90100;
integer MSG_MESSAGE_GETSUBJECT = 90150;
integer MSG_MESSAGE_SEND = 90200;
integer MSG_MESSAGE_SENDHOME = 90300;
integer MSG_MESSAGE_SEND_NOTECARD = 90400;
integer MSG_MESSAGE_ADDRESSBOOK = 90500;
integer MSG_MESSAGE_GETHOME = 90600;
integer MSG_MESSAGE_SETHOME = 90700;
integer MSG_MESSAGE_INFO = 90800;
integer MSG_MESSAGE_NOTIFY = 90900;

integer MSG_ADDRESSBOOK_LOADED = 91000;
integer MSG_ADDRESSBOOK_ERROR = 91100;

integer MSG_MESSAGE_REPLY = 99000;

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////// GetSelfAddress() ///////////////////////

string GetSelfAddress()
{
return (string)llGetKey() + "@" + LSL_DOMAIN;
}

///////////////////////////// Info() /////////////////////////////////

Info()
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "The mail address for this object is: "
+ GetSelfAddress() + ".", NULL_KEY);
}

///////////////////////////////// IsValidKeyFormat() //////////////////////

integer IsValidKeyFormat(string str)
{
string keychars = "0123456789abcdef";

if (llStringLength(str) != 36)
return FALSE;

if( (llGetSubString( str, 8, 8 ) != "-" ||
llGetSubString( str, 13, 13 ) != "-" ||
llGetSubString( str, 18, 18 ) != "-" ||
llGetSubString( str, 23, 23 ) != "-" ) )
return FALSE;

integer i;

for (i = 0; i < 8; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 9; i < 13; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 14; i < 18; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 19; i < 23; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 24; i < 36; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

return TRUE;
}

///////////////////////////////// ValidMailAddress() ////////////////////////

integer ValidMailAddress(string arg)
{
string adress = llToLower(llStringTrim(arg,STRING_TRIM));

if (adress == "")
return FALSE;

list parse = llParseStringKeepNulls(adress, [ "@" ], []);
string account = llList2String(parse,0);
string domain = llList2String(parse,1);

if (llGetListLength(parse) != 2 || llStringLength(account) == 0 || llStringLength(domain) == 0)
return FALSE;

if (domain == LSL_DOMAIN)
{
return IsValidKeyFormat(account);
}
else
{
list parsedomain = llParseString2List(domain, [ "." ], []);

if (llGetListLength(parsedomain) < 2)
return FALSE;

integer num = llGetListLength(parsedomain);
integer i;

for (i = 0; i < num; ++i)
{
if (llStringLength(llList2String(parsedomain,i)) < 2)
{
return FALSE;
}
}
}

return TRUE;
}

/////////////////////////////////// GetAddressStr() ///////////////////

string GetAndCheckAddressStr(string address)
{
list addresslist = llCSV2List(address);
integer num=llGetListLength(addresslist);
integer i;
string addressstr="";
string curaddress="";

for (i = 0; i < num; ++i)
{
curaddress=llList2String(addresslist,i);

if (ValidMailAddress(curaddress))
{
addressstr = (addressstr="") + addressstr + curaddress + ",";
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address string: '"
+ curaddress + "'.", NULL_KEY);
}
}

return llGetSubString(addressstr, 0, -2);
}

///////////////////////////// ProcessLine() ////////////////////////////

ProcessLine(string rawline)
{
string line=llStringTrim(rawline,STRING_TRIM);
string first=llGetSubString(line,0,0);
string last=llGetSubString(line,-1,-1);

// Ignore a blank line or comment line
if (line == "" || first == "#")
return;

// Check for the right section

if (first == "[" && last == "]")
{
string sectionstr=llToUpper(llStringTrim(llGetSubString(line,1,-2),STRING_TRIM));

if (sectionstr == STRING_ADDRESS_BOOK)
{
Section = SECTION_ADDRESS_BOOK;
}
else if (sectionstr == STRING_GROUP)
{
if (Section == 0)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1)
+ ". Group section defined before Address Book section.", NULL_KEY);
}
else
{
Section = SECTION_GROUP;
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid section header '" + sectionstr
+ "' in " + ADDRESSBOOK_NOTECARD + " at line " + (string)(Line + 1) + ".", NULL_KEY);
}

return;
}

// Must be in a section

if (Section == 0)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ". No section header.", NULL_KEY);
return;
}

list parse=llParseString2List(line, [ "=" ], []);
integer num=llGetListLength(parse);

// Format must be correct

if (num != 2)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line+1) + ":\n" + rawline, NULL_KEY);
return;
}

if (Section == SECTION_ADDRESS_BOOK)
{
string name=llStringTrim(llList2String(parse,0),STRING_TRIM);

if (llToUpper(name) == STRING_SELF)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address book entry '" + name
+ "'. Reserved word in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ".", NULL_KEY);
}
else if (llListFindList(AddressBookList, [ name ]) == -1)
{
string address=llStringTrim(llList2String(parse,1),STRING_TRIM);
string addressstr=GetAndCheckAddressStr(address);

if (addressstr != "")
{
AddressBookList = (AddressBookList=[]) + AddressBookList + [ name ];
MailAddressList = (MailAddressList=[]) + MailAddressList + [ addressstr ];
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "No valid mail address for '" + name
+ "'. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line " + (string)(Line + 1)
+ ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Name '" + name
+ "' already defined. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else // Group
{
string group=llStringTrim(llList2String(parse,0),STRING_TRIM);

if (llToUpper(group) == STRING_SELF)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address book entry '" + group
+ "'. Reserved word in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ".", NULL_KEY);
}
else if (llListFindList(AddressBookList, [ group ]) == -1)
{
if (llListFindList(GroupList, [ group ]) == -1)
{
string names=llStringTrim(llList2String(parse,1),STRING_TRIM);
list namelist=llCSV2List(names);
integer num=llGetListLength(namelist);
integer i;
integer index;
string name;
string namestr="";

for (i = 0; i < num; ++i)
{
name=llList2String(namelist,i);
index=llListFindList(AddressBookList, [ name ]);

if (index == -1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Name '" + name + "' defined in Group '"
+ group + "' not found in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
else
{
namestr = (namestr="") + namestr + name + ",";
}
}

if (namestr != "")
{
namestr=llGetSubString(namestr,0,-2);
GroupList = (GroupList=[]) + GroupList + [ group ];
GroupNameList = (GroupNameList=[]) + GroupNameList + [ namestr ];
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' has no valid names. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' already defined in Group. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' already defined in Address Book. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
}

//////////////////////////////// GetGroupAddressList ///////////////

string GetGroupAddressList(string group)
{
integer index=llListFindList(GroupList, [ group ]);
integer i;
integer num=llGetListLength(GroupList);
string grouplist="";

if (index == -1)
{
return "";
}
else
{
for (i = index; i < num; ++i)
{
if (llList2String(GroupList,i) == group)
{
grouplist = (grouplist="") + grouplist + llList2String(GroupNameList,i) + ",";
}
}

if (grouplist != "") grouplist=llGetSubString(grouplist,0,-2); // remove last ","
return grouplist;
}
}

//////////////////////////////// SetMailAddress() //////////////////

SetMailAddress(string address)
{
integer index=llListFindList(AddressBookList, [ address ]);

if (index == -1)
{
index=llListFindList(GroupList, [ address ]);

if (index == -1)
{
if (llToUpper(address) == STRING_SELF)
{
CurrentMailAddress = GetSelfAddress();
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
else if(ValidMailAddress(address))
{
CurrentMailAddress = address;
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Mail adress " + address
+ " : not found in adress book or invalid format.", NULL_KEY);
}
}
else
{
CurrentMailAddress = GetGroupAddressList(address);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject set to: "
+ CurrentMailAddress, NULL_KEY);
}
}
else
{
CurrentMailAddress = llList2String(MailAddressList,index);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
}

/////////////////////////////////// SendMail() ///////////////////////

SendMail(string message)
{
if (CurrentMailAddress == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "SendMail: No mail address defined.", NULL_KEY);
}
else if (CurrentMailSubject == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "SendMail: No subject defined.", NULL_KEY);
}
else
{
list mailaddresslist=llCSV2List(CurrentMailAddress);
integer num=llGetListLength(mailaddresslist);
integer i;
string address;

for (i = 0; i < num; ++i)
{
address=llList2String(mailaddresslist,i);
llEmail(address, CurrentMailSubject, message);
}
}
}

/////////////////////////////////// SendMailHome() ////////////////////

SendMailHome(string message, string subject)
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, STRING_HOME
+ " not set. Set your home adress with @HOME <address>.", NULL_KEY);
}
else
{
string homeaddress=llList2String(AddressBookList,index);
list homelist=llCSV2List(homeaddress);
integer num=llGetListLength(homelist);
integer i;
string address;

for (i = 0; i < num; ++i)
{
address=llList2String(homelist,i);
llEmail(address, subject, message);
}
}
}

/////////////////////////////////// GetHomeAddress() //////////////////

string GetHomeAddress()
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
return "not set";
}
else
{
return llList2String(MailAddressList,index);
}
}

/////////////////////////////////// SetHomeAddress() //////////////////

SetHomeAddress(string address)
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
AddressBookList = (AddressBookList=[]) + [ STRING_HOME ] + AddressBookList;
MailAddressList = (MailAddressList=[]) + [ GetAndCheckAddressStr(address) ] + MailAddressList;
}
else
{
MailAddressList = llListReplaceList(MailAddressList, [ GetAndCheckAddressStr(address) ], index, index);
}
}

////////////////////////////////////
// default
////////////////////////////////////

default
{
///////////////////// state_entry() //////////////////

state_entry()
{
Line=0;
Section=0;
llSetTimerEvent(TIMEOUT_INTERVAL);
reqAddressBook=llGetNotecardLine(ADDRESSBOOK_NOTECARD, 0);
}

///////////////////// dataserver() ////////////////////

dataserver(key id, string data)
{
if (id == reqAddressBook)
{
reqAddressBook = NULL_KEY;

if (data != EOF)
{
ProcessLine(data);
reqAddressBook=llGetNotecardLine(ADDRESSBOOK_NOTECARD, ++Line);
}
else
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_LOADED, "", NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Address Book loaded.", NULL_KEY);
state running;
}
}
}

//////////////////////// timer() ///////////////////////////

timer()
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_ERROR, "", NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Could not read Address Book: "
+ ADDRESSBOOK_NOTECARD + ".", NULL_KEY);
llSetTimerEvent(0.0);
}
}

////////////////////////////////////////////
// state running
////////////////////////////////////////////

state running
{
state_entry()
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_LOADED, "", NULL_KEY);
}

///////////////////////// link_message() ////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_MESSAGE_GETSUBJECT)
{
if (CurrentMailSubject == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject is empty.", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject is: "
+ CurrentMailSubject, NULL_KEY);
}
}
else if (msgid == MSG_MESSAGE_SETSUBJECT)
{
CurrentMailSubject = message;
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject set to: "
+ CurrentMailSubject, NULL_KEY);
}
else if (msgid == MSG_MESSAGE_GETADDRESS)
{
if (CurrentMailAddress == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address is empty.", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address is: "
+ CurrentMailAddress, NULL_KEY);
}
}
else if (msgid == MSG_MESSAGE_SETADDRESS)
{
SetMailAddress(message);
}
else if (msgid == MSG_MESSAGE_SEND)
{
if (message == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Body of message to send is empty. "
+ "No mail is send.", NULL_KEY);
}
else
{
SendMail(message);
}
}
else if (msgid == MSG_MESSAGE_SENDHOME)
{
SendMailHome(message, (string)id);
}
else if (msgid == MSG_MESSAGE_SEND_NOTECARD)
{
if (llGetInventoryType(message) == INVENTORY_NOTECARD)
{
Notecard2Fetch = message;
llMessageLinked(LINK_THIS, MSG_NOTECARD_READ, message, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Notecard " + message + " not found.", NULL_KEY);
}
}
else if (msgid == MSG_NOTECARD_FETCHED)
{
if (message == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Notecard " + Notecard2Fetch
+ " was empty or could not be read.", NULL_KEY);
}
else
{
SendMail(message);
}
}
else if (msgid == MSG_MESSAGE_GETHOME)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Home address is: " + GetHomeAddress() + ".", NULL_KEY);
}
else if (msgid == MSG_MESSAGE_SETHOME)
{
SetHomeAddress(message);
}
else if (msgid == MSG_MESSAGE_INFO)
{
Info();
}
}
}

/////////////////////////////////////
// End SL Mail AddressBook V1.2.lsl
/////////////////////////////////////
</lsl>
</div>
</div>

<div id="box">

==Script: SL Mail FetchNotecard V1.2==
<div style="padding: 0.5em;">
Fetch the contents of a notecard and return it via link message as a string.
<lsl>
// SL Mail FetchNotecard V1.2.lsl
//
//

// Notecard

integer Line=0;
string Notecard2Fetch="";
key reqNotecard=NULL_KEY;
float TIMEOUT_INTERVAL=10.0;
integer Fetched=FALSE;

// Lines

list LineList=[];

// Link messages

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////////////////////
// default
//////////////////////////////////////////

default
{
/////////////////////// dataserver() //////////////////////////////

dataserver(key id, string data)
{
if (id == reqNotecard)
{
reqNotecard=NULL_KEY;

if (data != EOF)
{
LineList = (LineList=[]) + LineList + [ data ];
reqNotecard = llGetNotecardLine(Notecard2Fetch, ++Line);
}
else
{
Fetched=TRUE;
llMessageLinked(LINK_THIS, MSG_NOTECARD_FETCHED, llDumpList2String(LineList, "\n"), NULL_KEY);
llSetTimerEvent(0.0);
}
}
}

/////////////////////// timer() ///////////////////////////////////

timer()
{
if (!Fetched)
{
llMessageLinked(LINK_THIS, MSG_NOTECARD_FETCHED, "", NULL_KEY);
llSetTimerEvent(0.0);
}
}

/////////////////////// link_message() ////////////////////////////

link_message(integer send, integer msgid, string message, key id)
{
if (msgid == MSG_NOTECARD_READ)
{
Line=0;
Notecard2Fetch=message;
LineList=[];
Fetched=FALSE;
reqNotecard=llGetNotecardLine(Notecard2Fetch, Line);
llSetTimerEvent(TIMEOUT_INTERVAL);
}
}
}

// End SL Mail FetchNotecard V1.2.lsl
</lsl>
</div>
</div>

<div id="box">

==Script: SL OnlineStatus V1.2==
<div style="padding: 0.5em;">
Fetch online status of owner.
<lsl>
// SL Mail OnlineStatus V1.2.lsl
//
//

// Online status

key reqOnlineStatus=NULL_KEY;
float STATUS_INTERVAL=2.0;

// Link messages

integer MSG_STATUS_ONLINE = 30000;
integer MS_STATUS_OFFLINE = 30100;

////////////////////////////////
// default
////////////////////////////////

default
{
///////////////////////// state_entry() /////////////////////////

state_entry()
{
reqOnlineStatus=llRequestAgentData(llGetOwner(), DATA_ONLINE);
llSetTimerEvent(STATUS_INTERVAL);
}

///////////////////////// dataserver() //////////////////////////

dataserver(key id, string data)
{
if (id == reqOnlineStatus)
{
reqOnlineStatus = NULL_KEY;

if (data=="1")
{
llMessageLinked(LINK_THIS, MSG_STATUS_ONLINE, "", NULL_KEY);
}
else if (data=="0")
{
llMessageLinked(LINK_THIS, MS_STATUS_OFFLINE, "", NULL_KEY);
}
}
}

///////////////////////// timer() ///////////////////////////////

timer()
{
reqOnlineStatus = llRequestAgentData(llGetOwner(), DATA_ONLINE);
}
}

// End SL Mail OnlineStatus V1.2.lsl
</lsl>
</div>
</div>

<div id="box">

==Script: SL Mail Help V1.2==
<div style="padding: 0.5em;">
Display help information.

<lsl>
// SL Mail Help V1.2.lsl
//
//

integer MSG_HELP = 10000;

///////////////////////////////// Help() ///////////////////////////////////////

Help()
{
llOwnerSay("HELP for SL Mail V1.2.");
llOwnerSay("COMMANDS:");
llOwnerSay("@HELP - displays help info.");
llOwnerSay("@INFO - display mailaddress of this object.");
llOwnerSay("@RECORD - start recording.");
llOwnerSay("@CONTINUE - continue recording.");
llOwnerSay("@STOP - stop recording.");
llOwnerSay("@IGNORE - ignore the recording.");
llOwnerSay("@SHOW - show what your recorded.");
llOwnerSay("@SEND - send the recording.");
llOwnerSay("@MAIL <mailadress> - set the mail adress.");
llOwnerSay("@SUBJECT subject - set the mail subject.");
llOwnerSay("@LIST - list messages in mail buffer.");
llOwnerSay("@SELECT <message> - select message from mail buffer.");
llOwnerSay("@READ - read current message from mail buffer.");
llOwnerSay("@NEXT - read next message from mail buffer.");
llOwnerSay("@PREV - read previous message from mail buffer.");
llOwnerSay("@FIRST - read first message from mail buffer.");
llOwnerSay("@LAST - read last message from mail buffer.");
llOwnerSay("@DELETE - delete current message from mail buffer.");
llOwnerSay("@CLEAR - clear the mail buffer.");
llOwnerSay("@REPLY - reply to current message.");
llOwnerSay("@RESET - reset the script.");
llOwnerSay("@HOME - set the home mail adress.");
llOwnerSay("@OFF - switch mailbox OFF.");
llOwnerSay("@ON - switch mailbox ON.");
}

/////////////////////////////////////////////
// default
/////////////////////////////////////////////

default
{
link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_HELP)
{
Help();
}
}
}

// End SL Mail Help V1.2.lsl
</lsl>
</div>
</div>
[[Image:slmail.info.jpg]]

{{LSLC|Library}}

SL Mail V1.2

Flennan Roffo — Wed, 09 Feb 2011 23:22:06 GMT

Flennan Roffo: /* PRODUCTION & MAINTANENCE */

{{LSL Header}} __NOTOC__
<div id="box">
='''Second Life mail client'''=
<div style="padding: 0.5em">

'''Send and receive email from within Second Life from and to any address.'''

Implemented with Address Book function (in a notecard named 'Address Book') to stores addresses by name and to compile groups of named addresses. Current version is stand-alone (no server functionality) and uses chat commands only.

[[Image:BannerSLMail.jpg]]

URL: [http://www.slmail.info slmail.info] <strike>(website coming soon!)</strike> <b>url slmail.info no longer used for SL Mail, and was taken for some other purpose.</b>

</div>
</div>

<div id="box">

=Release Notes V1.2=
<div style="padding: 0.5em">
SL Mail V1.2 Release notes (edition 2, 4 sept 2007)

===IMPORTANT NOTICE===

Development of SL Mail was abandoned midyear 2008. The domain slmail.info was abandoned and is now taken by another domain holder (ISS) who has nothing to do with SL Mail.

SL Mail is considered for redevelopment under the same terms, using a version of the ''Serverless Key Exchange'' script. This allows mail clients to exchange their key adresses to other rezzed mail clients in world, and send each other info about the public name they use, and other info that could be usefull. This protocol does not use a central server.

See: [https://wiki.secondlife.com/wiki/Serverless_Key_Exchange Serverless Key Exchange]

Future annoucements about SL Mail development will be made here.
</div>
</div>

<div id="box">

=='''LICENCE INFO'''==
<div style="padding: 0.5em">
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>.
</div>
</div>

<div id="box">

=='''PRODUCTION & MAINTANENCE'''==
<div style="padding: 0.5em">
by Logic Scripted Products and Script Services

[[Image:Logicbanner1.jpg]]

URL: [http://www.logicscripts.org logicscripts.org] <strike>(website coming soon!)</strike>

SLurl:
{{SLurl
|region=Beeratron
|x=57
|y=168
|z=75
|title=Logic Scripted products and Script services
|}}

Contact: [[User:Flennan Roffo|Flennan Roffo]]

</div>
</div>

<div id="box">

=='''DESCRIPTION'''==
<div style="padding: 0.5em">
SL Mail V1.2 is a simple tool to send and receive mail from within SL.
You can either compose a message yourself using chat recording, or choose a notecard from inventory to send. The Address Book functionality allows you to use short names for mail recipients stored in a notecard. The current version does not have a persisent mail address. Watch out for the upcoming next release (V1.3) which will facilitate persisent in-world mail addresses and will be enhanced with many new features (See: Requests For Change (RFC).
</div>
</div>

<div id="box">

=='''COMMANDS'''==
<div style="padding: 0.5em">
{| {{Prettytable}}
|-
|{{Hl2}}| '''Command'''
|{{Hl2}}| '''Description'''
|-
||'''@Help'''
||Show Help about available commands
|-
||'''@Record'''
||Starts a chat recording (for owner only).
|-
||'''@Stop'''
||Stops the chat recording without sending
|-
||'''@Continue'''
||Continues a previously stopped chat recording. Lines will be appended to you recording buffer.
|-
||'''@Show'''
||Shows the content of the recording buffer.
|-
||'''@Send'''
||If recording, stops the recording, and sends the mail (need to supply mail address and subject first!)
|-
||'''@Send <notecard>'''
||Sends the content of the notecard, instead of the chat recording.
|-
||'''@Ignore'''
||Ignores your current chat recording.
|-
||'''@Mail <address>'''
||Define the mail address to send to.
|-
||'''@Mail'''
||Shows the current mail address to send to.
|-
||'''@Subject <subject>'''
||Define the subject of the mail.
|-
||'''@Subject'''
||Shows the current mail subject.
|-
||'''@Home <address>'''
||Set the HOME address of the owner (mail will be forwarder to this address when offline).
|-
||'''@Home'''
||Show the HOME address.
|-
||'''@Info'''
||Shows the mail address the object this script is running in uses (e.g. <object-key>@lsl.secondlife.com).
|-
||'''@Read'''
||Reads the current message from the mail buffer (the mail buffer gets filled with mail you receive)
|-
||'''@Select <msg>'''
||Select a message number from the availabe messages in the mail buffer.
|-
||'''@Next'''
||Make next message the current message.
|-
||'''@Prev'''
||Make previous message the current message.
|-
||'''@First'''
||Make the first message the current message.
|-
||'''@Last'''
||Make the last message the current message.
|-
||'''@Clear'''
||Clear the mail buffer
|-
||'''@Delete'''
||Deletes only the current message
|-
||'''@Reply'''
||Starts a chat recording to reply to the current message. Mail adress and subject are filled in automatically.
|}

Note:

* Commands are case insensitive ("@read" == "@READ"). Arguments might not be case insensitive.
</div>
</div>

<div id="box">
=='''ADDRESS BOOK FORMAT'''==
<div style="padding: 0.5em">
A notecard of the name 'Address Book' is read during initialization which may contain Address Book items and Groups.
The notecard is split in two sections, which need to be defined in that particular order.

'''[ADDRESS BOOK]'''

Defines the section in which you can put names for mail addresses, like this:

'''Name1=account@thisdomain.com'''

'''Name2=user@otherdomain.com'''

etc.

'''[GROUP]'''

Define groups of previously defined names under a new name, like for instance:

'''MyGroup=Name1, Name2'''

Note that names of groups and individual mail adresses share the same namespace and must be unique.

So when you filled in your mail adresses in the Address Book, you can now use:

'''@Mail Name1'''

To send mail to <account@thisdomain.com>

or you can use

'''@Mail MyGroup'''

To send mail to <account@thisdomain.com> and <user@otherdomain.com>
Mails will be sent one after another.

Notes:

* Names for Addreses and Groups are case insensitive (e.g. "mary" == "MARY")

* The special address 'Self' can be used in commands where otherwise an address specification can be used. 'Self' is case insensitive (e.g. "self" == "SELF")

</div>
</div>

<div id="box">
=='''LIMITATIONS'''==
<div style="padding: 0.5em">
The current version is limited by the following:

* Chat recording lines are limited by the 255 byte limit

* Output of lines from the mail buffer are also limited by this 255 byte limit

* Incoming mail is limited to a 1000 (1024?) byte limit

* Outgoing mai is limited by a 4096 byte limit, which includes the standard mail header (region/location info on the first two lines)

We are making adjustments to this release to help overcome these limitations. At least the line lenght limit can be overcome by introducing a line continuation character (for example a hyphen '-') that when used at the end of a line appends the next line, so lines longer then 255 bytes are possible then.

To overcome the outgoing mail length limit, the mail can be broken textualy into parts, and each part can be send seperatedely, with an indication in the subject or in an introduced primary line of the mail body to indicate that the mail was split into parts.
For incoming mail and at least to receive mail from other SL Mail programs, a protocol will be introduced to receive mail in parts that are joined together after receiving them to form a single mail.

These enhancements will be made available in the next release (V1.3) of SL Mail
</div>
</div>

<div id="box">
=='''BUGS'''==
<div style="padding: 0.5em">
Report any bugs you find in this release to Logic (IM: Flennan Roffo).
</div>
</div>

<div id="box">
=='''REQUEST FOR CHANGE (RFC)'''==
<div style="padding: 0.5em">
Do you have additional wishes for enhancement of this product?
Contact Flennan Roffo and we will see if they can be implemented in the next release.

Existing RFC's are:

* Menu support for commands.

* Lines on incoming/outgoing mail longer than 255 bytes.

* Send messages longer than 4096 (minus SL mail header) bytes.

* Receive messages longer than 1024 bytes.

* Permanent mail addresses for the SL Mail client (like: <Flennan.Roffo@somedomain.sl>)

Add your RFC!
</div>
</div>

<div id="box">
=='''SL MAIL SUPPORT & DEVELOPMENT'''==
<div style="padding: 0.5em">

In-world join the group "SL Mail" for bug reports, feature requests, the latest SL Mail release, and notices about development issues.
</div>
</div>

<div id="box">

=Scripts=
</div>

<div id="box">
==Script: SL Mail v1.2==
<div style="padding: 0.5em;">
SL Mail core module which scans for incoming mail messages and executes commands used by the owner.
<lsl>
// SL Mail V1.2.lsl
// (c) 2007 Logic Scripted Products and Script Services
// Flennan Roffo

// VERSION
// Version: 1.2

// HISTORY
// Date Version Author Comment
// --------------------------------------------------------------------------------------
// 28 aug 2007 V 1.0 Flennan Roffo Created
//
// 1 sep 2007 V 1.1 Flennan Roffo @Reply empties the recording buffer.
// @Send while recording ends recording
// and sends the mail if a mail address
// and subject are supplied.
// Fixed incorrect date in Unix2DateTime.
// 3 sep 2007 V 1.2 Flennan Roffo Notification options:
// - When online, send an IM when mail is received.
// - When offline, send to HOME mail adress.
// Adressbook
// - Read adress book from config notecard.

// LICENCE
// This program is free software; you can redistribute it and/or
// modify it under the terms of the GNU General Public License
// as published by the Free Software Foundation; either version 2
// of the License, or (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
// (Also available at http://www.gnu.org/copyleft/gpl.html)

// DESCRIPTION
// Let's you record a message and sent to email and get messages and reply to messages.
// Must supply a valid mail adress and non-empty subject using chat commands.

// TODO:
// 1) Check for the maximum length of an email message (including newline and header).
// 2) Read adress book from notecard. *DONE*
// 3) Send incoming mail to personal mail adress when offline. *DONE*
// 4) Alert with an IM when online upon receiving new mail. *DONE*

string SL_MAIL_VERSION = "V 1.2";
string SL_MAIL_DATE = " 2 sep 2007";
integer ErrorFlag = FALSE;
list ScriptList = [ "SL Mail Help V1.2", "SL Mail AddressBook V1.2",
"SL Mail OnlineStatus V1.2", "SL Mail FetchNotecard V1.2" ];
string LSL_DOMAIN="lsl.secondlife.com";
integer StatusOnline=FALSE;

// Commands

string COMMAND_RECORD = "@RECORD";
string COMMAND_CONTINUE = "@CONTINUE";
string COMMAND_STOP = "@STOP";
string COMMAND_MAIL = "@MAIL";
string COMMAND_SUBJECT = "@SUBJECT";
string COMMAND_SEND = "@SEND";
string COMMAND_SEE = "@SEE";
string COMMAND_IGNORE = "@IGNORE";
string COMMAND_READ = "@READ";
string COMMAND_DELETE = "@DELETE";
string COMMAND_CLEAR = "@CLEAR";
string COMMAND_REPLY = "@REPLY";
string COMMAND_NEXT = "@NEXT";
string COMMAND_PREV = "@PREV";
string COMMAND_FIRST = "@FIRST";
string COMMAND_LAST = "@LAST";
string COMMAND_LIST = "@LIST";
string COMMAND_SELECT = "@SELECT";
string COMMAND_HELP = "@HELP";
string COMMAND_INFO = "@INFO";
string COMMAND_RESET = "@RESET";
string COMMAND_SHOW = "@SHOW";
string COMMAND_ON = "@ON";
string COMMAND_OFF = "@OFF";
string COMMAND_HOME = "@HOME";
string COMMAND_LOAD = "@LOAD";
string COMMAND_ADDRESS = "@ADDRESS";

// Recording

integer Recording = FALSE;

list ChatRecording=[];
integer NumLines=0;
integer Length=0;

list TimeList=[];
list AddressList=[];
list SubjectList=[];
list BodyList=[];
integer NumMessages=0;
integer CurrentMessage=-1;

float MAIL_FETCH_INTERVAL=5.0;

// Link Messages

integer MSG_HELP = 10000;
integer MSG_STATUS_ONLINE = 30000;
integer MSG_STATUS_OFFLINE = 30100;

integer MSG_MESSAGE_SETADDRESS = 90000;
integer MSG_MESSAGE_GETADDRESS = 90050;
integer MSG_MESSAGE_SETSUBJECT = 90100;
integer MSG_MESSAGE_GETSUBJECT = 90150;
integer MSG_MESSAGE_SEND = 90200;
integer MSG_MESSAGE_SENDHOME = 90300;
integer MSG_MESSAGE_SEND_NOTECARD = 90400;
integer MSG_MESSAGE_ADDRESSBOOK = 90500;
integer MSG_MESSAGE_GETHOME = 90600;
integer MSG_MESSAGE_SETHOME = 90700;
integer MSG_MESSAGE_INFO = 90800;

integer MSG_ADDRESSBOOK_LOADED = 91000;
integer MSG_ADDRESSBOOK_ERROR = 91100;

integer MSG_MESSAGE_REPLY = 99000;

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////// Unix Time conversion //////////////////

integer DAYS_PER_YEAR = 365; // Non leap year
integer SECONDS_PER_YEAR = 31536000; // Non leap year
integer SECONDS_PER_DAY = 86400;
integer SECONDS_PER_HOUR = 3600;
integer SECONDS_PER_MINUTE = 60;

////////////////////////////// LeapYear() /////////////////////////////

integer LeapYear(integer year)
{
if (year % 4 == 0)
{
if (year % 100 == 0)
{
if (year % 400 == 0)
{
return 1;
}
else
{
return 0;
}
}
else
{
return 1;
}
}
else
{
return 0;
}
}

////////////////////////////// DaysPerMonth() ///////////////////////////////////////

integer DaysPerMonth(integer year,integer month)
{
if (month < 8)
{
if (month % 2 == 0)
{
if (month == 2)
{
if (LeapYear(year))
{
return 29;
}
else
{
return 28;
}
}
else
{
return 30;
}
}
else
{
return 31;
}
}
else
{
if (month % 2 == 0)
{
return 31;
}
else
{
return 30;
}
}
}

/////////////////////////// DaysPerYear() ////////////////////////////////////

integer DaysPerYear(integer year)
{
if (LeapYear(year))
return DAYS_PER_YEAR + 1;
else
return DAYS_PER_YEAR;
}

/////////////////////////////// Unix2DataTime() ///////////////////////////////////////

list Unix2DateTime(integer unixtime)
{
integer days_since_1_1_1970 = unixtime / SECONDS_PER_DAY;
integer day = days_since_1_1_1970 + 1;
integer year = 1970;
integer days_per_year = DaysPerYear(year);

while (day > days_per_year)
{
day -= days_per_year;
++year;
days_per_year = DaysPerYear(year);
}

integer month = 1;
integer days_per_month = DaysPerMonth(year,month);

while (day > days_per_month)
{
day -= days_per_month;

if (++month > 12)
{
++year;
month = 1;
}

days_per_month = DaysPerMonth(year,month);
}

integer seconds_since_midnight = unixtime % SECONDS_PER_DAY;
integer hour = seconds_since_midnight / SECONDS_PER_HOUR;
integer second = seconds_since_midnight % SECONDS_PER_HOUR;
integer minute = second / SECONDS_PER_MINUTE;
second = second % SECONDS_PER_MINUTE;

return [ year, month, day, hour, minute, second ];
}

///////////////////////////////// MonthName() ////////////////////////////

list MonthNameList = [ "JAN", "FEB", "MAR", "APR", "MAY", "JUN",
"JUL", "AUG", "SEP", "OCT" , "NOV", "DEC" ];

string MonthName(integer month)
{
if (month >= 0 && month < 12)
return llList2String(MonthNameList, month);
else
return "";
}

///////////////////////////////// DateString() ///////////////////////////

string DateString(list timelist)
{
integer year = llList2Integer(timelist,0);
integer month = llList2Integer(timelist,1);
integer day = llList2Integer(timelist,2);

return (string)day + "-" + MonthName(month - 1) + "-" + (string)year;
}

///////////////////////////////// TimeString() ////////////////////////////

string TimeString(list timelist)
{
integer hour = llList2Integer(timelist,3);
integer minute = llList2Integer(timelist,4);
integer second = llList2Integer(timelist,5);
string hourstr = (string)hour;
string minutestr = (string)minute;
string secondstr = (string)second;

if (hour < 10) hourstr = "0" + hourstr;
if (minute < 10) minutestr = "0" + minutestr;
if (second < 10) secondstr = "0" + secondstr;
return hourstr + ":" + minutestr + ":" + secondstr;
}

/////////////////////////////////// SendMail() /////////////////////////////////////

SendMail(string body)
{
// llOwnerSay("Sending message to '" + address + "' with subject '" + subject +"'.");
llMessageLinked(LINK_THIS, MSG_MESSAGE_SEND, body, NULL_KEY);
}

///////////////////////////////// SendHome() ///////////////////////////////////////

SendHome(string subject, string body)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SENDHOME, body, (key)subject);
}

///////////////////////////////// Show() ////////////////////////////////////////////

Show()
{
integer i;

llOwnerSay("Current chat recording is:");
llOwnerSay("--------------------------");

for (i = 0; i < NumLines; ++i)
{
llOwnerSay(llList2String(ChatRecording,i));
}

llOwnerSay("--------------------------");
llOwnerSay("Lines is " + (string)NumLines);
llOwnerSay("Message length is " + (string)Length);
}

/////////////////////////////// Read() /////////////////////////////////////////

Read()
{
llOwnerSay("Reading message " + (string)CurrentMessage + " from mail buffer.");
integer time = (integer)llList2Integer(TimeList,CurrentMessage);
list timelist=Unix2DateTime(time);
string Address = llList2String(AddressList,CurrentMessage);
string Subject = llList2String(SubjectList,CurrentMessage);
string Body = llList2String(BodyList,CurrentMessage);
llOwnerSay("Date : " + DateString(timelist));
llOwnerSay("Time : " + TimeString(timelist));
llOwnerSay("Address: " + Address);
llOwnerSay("Subject: " + Subject);
llOwnerSay("Begin of message body:");
llOwnerSay("-------------------------");
list bodylist=llParseStringKeepNulls(Body, [ "\n" ], []);
integer num=llGetListLength(bodylist);
integer i;

for (i = 0; i < num; ++i)
{
llOwnerSay(llList2String(bodylist,i));
}

llOwnerSay("-------------------------");
llOwnerSay("End of message body.");
}

////////////////////////////////////// List ////////////////////////////////////////////

List()
{
llOwnerSay("The mail buffer contains the following messages:\n");

integer i;

for (i = 0; i < NumMessages; ++i)
{
integer time=llList2Integer(TimeList,i);
list timelist=Unix2DateTime(time);
if (i > 0) llOwnerSay("+-+-+-+-+-+-+-+-+-+-+-+-");
llOwnerSay("Message: " + (string)i);
llOwnerSay("Date : " + DateString(timelist));
llOwnerSay("Time : " + TimeString(timelist));
llOwnerSay("From: " + llList2String(AddressList,i));
llOwnerSay("Subject: " + llList2String(SubjectList,i));
}
}

//////////////////////////// NotifyNewMail() /////////////////////////

NotifyNewMail(string time, string address, string subject, string body)
{
list timelist=Unix2DateTime((integer)time);

if (StatusOnline)
{
llInstantMessage(llGetOwner(), "You received a new mail message on "
+ DateString(timelist) + " at " + TimeString(timelist)
+ " from " + address
+ " with the subject " + subject);
}
else
{
SendHome("FW: " + subject, "Received at: " + DateString(timelist) + " " + TimeString(timelist) + "\nFrom: " + address
+ "\nBegin message body:\n-------------------\n" + body + "\n-------------------\nEnd message body.");
}
}

///////////////////////////// ResetOtherScripts() //////////////////////

ResetOtherScripts()
{
string name;
integer i;
integer num=llGetListLength(ScriptList);

for (i = 0; i < num; ++i)
{
name = llList2String(ScriptList,i);

if (llGetInventoryType(name) == INVENTORY_SCRIPT)
{
llResetOtherScript(name);
}
else
{
llOwnerSay("Error - script '" + name + "' not found.");
ErrorFlag = TRUE;
}
}
}

//////////////////////////////////////
// default
//////////////////////////////////////

default
{
////////////////////// state_entry() /////////////////////////

state_entry()
{
llOwnerSay("Welcome to SL Mail, released under GNU software licence.");
llOwnerSay("Version " + SL_MAIL_VERSION + " " + SL_MAIL_DATE);
llOwnerSay("Produced by Logic Scripted Products & Product Services");
llOwnerSay("Free memory: " + (string)llGetFreeMemory());
ResetOtherScripts();

if (ErrorFlag)
state Error;
}

/////////////////////// on_rez() //////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

/////////////////////// changed() ////////////////////////////

changed(integer mask)
{
if (mask & CHANGED_INVENTORY)
{
llResetScript();
}
}

/////////////////////// link_message() /////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
else if (msgid == MSG_ADDRESSBOOK_LOADED)
{
state running;
}
else if (msgid == MSG_ADDRESSBOOK_ERROR)
{
state Error;
}
}
}

///////////////////////////////////////
// state running
//////////////////////////////////////

state running
{
///////////////////////// state_entry() //////////////////////

state_entry()
{
llListen(0, "", llGetOwner(), "");
llOwnerSay("SL mail ready.\nSend and Get mail in Second Life.\nType @HELP for more info.");
llMessageLinked(LINK_THIS, MSG_MESSAGE_INFO, "", NULL_KEY);
llGetNextEmail("", "");
llSetTimerEvent(MAIL_FETCH_INTERVAL);
}

//////////////////////// on_rez() ////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

//////////////////////// listen() ////////////////////////////

listen(integer channel, string name, key id, string message)
{
string trimmessage=llStringTrim(message,STRING_TRIM);
list parse = llParseStringKeepNulls(trimmessage, [ " "], []);
string command = llToUpper(llList2String(parse,0));
string arg = llStringTrim(llList2String(parse,1),STRING_TRIM);
integer nargs = llGetListLength(parse);
string argstr="";

if (nargs > 1) argstr=llGetSubString(message, llSubStringIndex(message, " ") + 1, -1);

if (Recording)
{
if (command == COMMAND_STOP)
{
llOwnerSay("Recording stopped. Type @SHOW to see the message you have entered,"
+ " or @SEND to send it.");
Recording = FALSE;
return;
}
if (command == COMMAND_SEND)
{
Recording = FALSE;

SendMail(llDumpList2String(ChatRecording, "\n"));
return;
}
else
{
ChatRecording = (ChatRecording=[]) + ChatRecording + [ message ];
++NumLines;
Length += llStringLength(message) + 2;
return;
}
}
else
{
if (command == COMMAND_RECORD)
{
llOwnerSay("Start recording your message. Type @STOP to end recording.");
ChatRecording = [];
NumLines=0;
Length=0;
Recording = TRUE;
return;
}
if (command == COMMAND_CONTINUE)
{
llOwnerSay("Continue recording your message. Type @STOP to end recording.");
Recording = TRUE;
return;
}
if (command == COMMAND_REPLY)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
string address=llList2String(AddressList,CurrentMessage);
string subject="Re: " + llList2String(SubjectList,CurrentMessage);
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETADDRESS, address, NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETSUBJECT, subject, NULL_KEY);
ChatRecording = [];
NumLines=0;
Length=0;
Recording = TRUE;
}
return;
}
if (command == COMMAND_MAIL)
{
string mailaddress=llStringTrim(argstr,STRING_TRIM);

if (mailaddress != "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETADDRESS, mailaddress, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETADDRESS, "", NULL_KEY);
}
return;
}
if (command == COMMAND_SUBJECT)
{
string mailsubject=llStringTrim(argstr,STRING_TRIM);

if (mailsubject != "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETSUBJECT, mailsubject, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETSUBJECT, "", NULL_KEY);
}
return;
}
if (command == COMMAND_STOP)
{
llOwnerSay("Not recording.");
return;
}
if (command == COMMAND_SEND)
{
if (nargs == 1)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
SendMail(llDumpList2String(ChatRecording, "\n"));
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SEND_NOTECARD, argstr, NULL_KEY);
}
return;
}
if (command == COMMAND_IGNORE)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
ChatRecording = [];
NumLines = 0;
Length = 0;
}
return;
}
if (command == COMMAND_SHOW)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
Show();
}
return;
}
if (command == COMMAND_READ)
{
if (NumMessages == 0)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
Read();
}
return;
}
if (command == COMMAND_NEXT)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == NumMessages - 1)
{
llOwnerSay("Already at last message.");
}
else
{
++CurrentMessage;
Read();
}
}
return;
}
if (command == COMMAND_PREV)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == 0)
{
llOwnerSay("Already at first message.");
}
else
{
--CurrentMessage;
Read();
}
}
return;
}
if (command == COMMAND_FIRST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == 0)
{
llOwnerSay("Already at first message.");
}
else
{
CurrentMessage = 0;
Read();
}
}
return;
}
if (command == COMMAND_LAST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == NumMessages - 1)
{
llOwnerSay("Already at last message.");
}
else
{
CurrentMessage = NumMessages - 1;
Read();
}
}
return;
}
if (command == COMMAND_LIST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
List();
}
return;
}
if (command == COMMAND_SELECT)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else if (nargs == 1)
{
llOwnerSay("Need to supply a message number.");
}
else
{
integer msgnum = (integer)arg;

if (msgnum < 0 || msgnum >= NumMessages)
{
llOwnerSay("Message number " + arg + " not in mail buffer.");
}
else
{
CurrentMessage = msgnum;
}
}
return;
}
if (command == COMMAND_DELETE)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
TimeList = llDeleteSubList(TimeList,CurrentMessage,CurrentMessage);
AddressList = llDeleteSubList(AddressList,CurrentMessage,CurrentMessage);
SubjectList = llDeleteSubList(SubjectList,CurrentMessage,CurrentMessage);
BodyList = llDeleteSubList(BodyList,CurrentMessage,CurrentMessage);
--NumMessages;

if (NumMessages == 0)
{
CurrentMessage = -1;
}
else if (CurrentMessage >= NumMessages)
{
CurrentMessage = NumMessages - 1;
}
}
return;
}
if (command == COMMAND_CLEAR)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
TimeList=[];
AddressList=[];
SubjectList=[];
BodyList=[];
NumMessages=0;
CurrentMessage=-1;
}
return;
}
if (command == COMMAND_HELP)
{
llMessageLinked(LINK_THIS, MSG_HELP, arg, NULL_KEY);
return;
}
if (command == COMMAND_INFO)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_INFO, "", NULL_KEY);
return;
}
if (command == COMMAND_SHOW)
{
Show();
return;
}
if (command == COMMAND_RESET)
{
llResetScript();
return;
}
if (command == COMMAND_OFF)
{
state not_running;
}
if (command == COMMAND_HOME)
{
if (nargs==1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETHOME, "", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETHOME, argstr, NULL_KEY);
}
return;
}
}
}

///////////////////////// timer() ///////////////////////////////

timer()
{
llGetNextEmail("", "");
}

///////////////////////// email() ///////////////////////////////

email(string time, string address, string subject, string body, integer queued)
{
NotifyNewMail(time, address, subject, body);
TimeList = (TimeList=[]) + TimeList + [time];
AddressList = (AddressList=[]) + AddressList + [address];
SubjectList = (SubjectList=[]) + SubjectList + [subject];
BodyList = (BodyList=[]) + BodyList + [body];
++NumMessages;

if (CurrentMessage == -1)
{
CurrentMessage = 0;
}
else
{
CurrentMessage = NumMessages - 1;
}
}

///////////////////// link_message() //////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
else if (msgid == MSG_MESSAGE_REPLY)
{
llOwnerSay(message);
}
}
}

//////////////////////////////////
// state not_running
//////////////////////////////////

state not_running
{
///////////////////// state_entry() //////////////////////////

state_entry()
{
llOwnerSay("SL Mailbox switched OFF. Say @ON to switch it back on.");
llListen(0, "", llGetOwner(), "");
}

//////////////////// on_rez() ///////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

//////////////////// listen() ////////////////////////////////

listen(integer chan, string name, key id, string message)
{
string command=llToUpper(message);

if (command == COMMAND_ON)
{
state running;
}
}

///////////////////// link_message() //////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
}
}

//////////////////////////////////
// state Error
//////////////////////////////////

state Error
{
state_entry()
{
llOwnerSay("Error in SL Mail: not all component scripts found.");
}

changed(integer mask)
{
if (mask & CHANGED_INVENTORY)
{
llResetScript();
}
}

on_rez(integer start_param)
{
llResetScript();
}
}

//////////////////////////////////
// End SL Mail V1.2.lsl
//////////////////////////////////
</lsl>
</div>
</div>

<div id="box">

==Script: SL Mail Address Book V1.2==
<div style="padding: 0.5em;">
Read and interpret the contents of the Address Book.
<lsl>
// SL Mail AddressBook V1.2.lsl
//
// DESCRIPTION
//
// Read the Address Book from a notecard named "Address Book".
//
// The Address Book has the following format:
//
// [ADDRESS BOOK]
// Name1=username@yourdomain.com
// Name2=otheruser@otherdomain.com
// ...
// [GROUP]
// group1=Name1, Name2
// ...
//
// Notes:
// 1. Group and Name share the same namespace, and must be unique.
// 2. It is allowed to have a name in the addressbook with multiple addresses, seperated by comma's.
//
/////////////////////////////////////////////////

string CurrentMailAddress = "";
string CurrentMailSubject = "";
integer StatusOnline = FALSE;

// Fetch or Send notecard

string Notecard2Fetch="";

// Address Book Names

list AddressBookList=[];
list MailAddressList=[];

string STRING_HOME="HOME";
string STRING_SELF="SELF";

// Address Book Groups

list GroupList=[];
list GroupNameList=[];

string LSL_DOMAIN = "lsl.secondlife.com";

// Read Address Book notecard

string ADDRESSBOOK_NOTECARD="Address Book";
integer Line=0;
key reqAddressBook=NULL_KEY;
float TIMEOUT_INTERVAL=5.0;

integer Section=0;
integer SECTION_ADDRESS_BOOK=1;
integer SECTION_GROUP=2;
string STRING_ADDRESS_BOOK="ADDRESS BOOK";
string STRING_GROUP="GROUP";

// Links messages

integer MSG_MESSAGE_SETADDRESS = 90000;
integer MSG_MESSAGE_GETADDRESS = 90050;
integer MSG_MESSAGE_SETSUBJECT = 90100;
integer MSG_MESSAGE_GETSUBJECT = 90150;
integer MSG_MESSAGE_SEND = 90200;
integer MSG_MESSAGE_SENDHOME = 90300;
integer MSG_MESSAGE_SEND_NOTECARD = 90400;
integer MSG_MESSAGE_ADDRESSBOOK = 90500;
integer MSG_MESSAGE_GETHOME = 90600;
integer MSG_MESSAGE_SETHOME = 90700;
integer MSG_MESSAGE_INFO = 90800;
integer MSG_MESSAGE_NOTIFY = 90900;

integer MSG_ADDRESSBOOK_LOADED = 91000;
integer MSG_ADDRESSBOOK_ERROR = 91100;

integer MSG_MESSAGE_REPLY = 99000;

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////// GetSelfAddress() ///////////////////////

string GetSelfAddress()
{
return (string)llGetKey() + "@" + LSL_DOMAIN;
}

///////////////////////////// Info() /////////////////////////////////

Info()
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "The mail address for this object is: "
+ GetSelfAddress() + ".", NULL_KEY);
}

///////////////////////////////// IsValidKeyFormat() //////////////////////

integer IsValidKeyFormat(string str)
{
string keychars = "0123456789abcdef";

if (llStringLength(str) != 36)
return FALSE;

if( (llGetSubString( str, 8, 8 ) != "-" ||
llGetSubString( str, 13, 13 ) != "-" ||
llGetSubString( str, 18, 18 ) != "-" ||
llGetSubString( str, 23, 23 ) != "-" ) )
return FALSE;

integer i;

for (i = 0; i < 8; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 9; i < 13; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 14; i < 18; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 19; i < 23; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 24; i < 36; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

return TRUE;
}

///////////////////////////////// ValidMailAddress() ////////////////////////

integer ValidMailAddress(string arg)
{
string adress = llToLower(llStringTrim(arg,STRING_TRIM));

if (adress == "")
return FALSE;

list parse = llParseStringKeepNulls(adress, [ "@" ], []);
string account = llList2String(parse,0);
string domain = llList2String(parse,1);

if (llGetListLength(parse) != 2 || llStringLength(account) == 0 || llStringLength(domain) == 0)
return FALSE;

if (domain == LSL_DOMAIN)
{
return IsValidKeyFormat(account);
}
else
{
list parsedomain = llParseString2List(domain, [ "." ], []);

if (llGetListLength(parsedomain) < 2)
return FALSE;

integer num = llGetListLength(parsedomain);
integer i;

for (i = 0; i < num; ++i)
{
if (llStringLength(llList2String(parsedomain,i)) < 2)
{
return FALSE;
}
}
}

return TRUE;
}

/////////////////////////////////// GetAddressStr() ///////////////////

string GetAndCheckAddressStr(string address)
{
list addresslist = llCSV2List(address);
integer num=llGetListLength(addresslist);
integer i;
string addressstr="";
string curaddress="";

for (i = 0; i < num; ++i)
{
curaddress=llList2String(addresslist,i);

if (ValidMailAddress(curaddress))
{
addressstr = (addressstr="") + addressstr + curaddress + ",";
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address string: '"
+ curaddress + "'.", NULL_KEY);
}
}

return llGetSubString(addressstr, 0, -2);
}

///////////////////////////// ProcessLine() ////////////////////////////

ProcessLine(string rawline)
{
string line=llStringTrim(rawline,STRING_TRIM);
string first=llGetSubString(line,0,0);
string last=llGetSubString(line,-1,-1);

// Ignore a blank line or comment line
if (line == "" || first == "#")
return;

// Check for the right section

if (first == "[" && last == "]")
{
string sectionstr=llToUpper(llStringTrim(llGetSubString(line,1,-2),STRING_TRIM));

if (sectionstr == STRING_ADDRESS_BOOK)
{
Section = SECTION_ADDRESS_BOOK;
}
else if (sectionstr == STRING_GROUP)
{
if (Section == 0)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1)
+ ". Group section defined before Address Book section.", NULL_KEY);
}
else
{
Section = SECTION_GROUP;
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid section header '" + sectionstr
+ "' in " + ADDRESSBOOK_NOTECARD + " at line " + (string)(Line + 1) + ".", NULL_KEY);
}

return;
}

// Must be in a section

if (Section == 0)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ". No section header.", NULL_KEY);
return;
}

list parse=llParseString2List(line, [ "=" ], []);
integer num=llGetListLength(parse);

// Format must be correct

if (num != 2)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line+1) + ":\n" + rawline, NULL_KEY);
return;
}

if (Section == SECTION_ADDRESS_BOOK)
{
string name=llStringTrim(llList2String(parse,0),STRING_TRIM);

if (llToUpper(name) == STRING_SELF)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address book entry '" + name
+ "'. Reserved word in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ".", NULL_KEY);
}
else if (llListFindList(AddressBookList, [ name ]) == -1)
{
string address=llStringTrim(llList2String(parse,1),STRING_TRIM);
string addressstr=GetAndCheckAddressStr(address);

if (addressstr != "")
{
AddressBookList = (AddressBookList=[]) + AddressBookList + [ name ];
MailAddressList = (MailAddressList=[]) + MailAddressList + [ addressstr ];
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "No valid mail address for '" + name
+ "'. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line " + (string)(Line + 1)
+ ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Name '" + name
+ "' already defined. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else // Group
{
string group=llStringTrim(llList2String(parse,0),STRING_TRIM);

if (llToUpper(group) == STRING_SELF)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address book entry '" + group
+ "'. Reserved word in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ".", NULL_KEY);
}
else if (llListFindList(AddressBookList, [ group ]) == -1)
{
if (llListFindList(GroupList, [ group ]) == -1)
{
string names=llStringTrim(llList2String(parse,1),STRING_TRIM);
list namelist=llCSV2List(names);
integer num=llGetListLength(namelist);
integer i;
integer index;
string name;
string namestr="";

for (i = 0; i < num; ++i)
{
name=llList2String(namelist,i);
index=llListFindList(AddressBookList, [ name ]);

if (index == -1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Name '" + name + "' defined in Group '"
+ group + "' not found in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
else
{
namestr = (namestr="") + namestr + name + ",";
}
}

if (namestr != "")
{
namestr=llGetSubString(namestr,0,-2);
GroupList = (GroupList=[]) + GroupList + [ group ];
GroupNameList = (GroupNameList=[]) + GroupNameList + [ namestr ];
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' has no valid names. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' already defined in Group. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' already defined in Address Book. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
}

//////////////////////////////// GetGroupAddressList ///////////////

string GetGroupAddressList(string group)
{
integer index=llListFindList(GroupList, [ group ]);
integer i;
integer num=llGetListLength(GroupList);
string grouplist="";

if (index == -1)
{
return "";
}
else
{
for (i = index; i < num; ++i)
{
if (llList2String(GroupList,i) == group)
{
grouplist = (grouplist="") + grouplist + llList2String(GroupNameList,i) + ",";
}
}

if (grouplist != "") grouplist=llGetSubString(grouplist,0,-2); // remove last ","
return grouplist;
}
}

//////////////////////////////// SetMailAddress() //////////////////

SetMailAddress(string address)
{
integer index=llListFindList(AddressBookList, [ address ]);

if (index == -1)
{
index=llListFindList(GroupList, [ address ]);

if (index == -1)
{
if (llToUpper(address) == STRING_SELF)
{
CurrentMailAddress = GetSelfAddress();
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
else if(ValidMailAddress(address))
{
CurrentMailAddress = address;
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Mail adress " + address
+ " : not found in adress book or invalid format.", NULL_KEY);
}
}
else
{
CurrentMailAddress = GetGroupAddressList(address);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject set to: "
+ CurrentMailAddress, NULL_KEY);
}
}
else
{
CurrentMailAddress = llList2String(MailAddressList,index);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
}

/////////////////////////////////// SendMail() ///////////////////////

SendMail(string message)
{
if (CurrentMailAddress == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "SendMail: No mail address defined.", NULL_KEY);
}
else if (CurrentMailSubject == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "SendMail: No subject defined.", NULL_KEY);
}
else
{
list mailaddresslist=llCSV2List(CurrentMailAddress);
integer num=llGetListLength(mailaddresslist);
integer i;
string address;

for (i = 0; i < num; ++i)
{
address=llList2String(mailaddresslist,i);
llEmail(address, CurrentMailSubject, message);
}
}
}

/////////////////////////////////// SendMailHome() ////////////////////

SendMailHome(string message, string subject)
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, STRING_HOME
+ " not set. Set your home adress with @HOME <address>.", NULL_KEY);
}
else
{
string homeaddress=llList2String(AddressBookList,index);
list homelist=llCSV2List(homeaddress);
integer num=llGetListLength(homelist);
integer i;
string address;

for (i = 0; i < num; ++i)
{
address=llList2String(homelist,i);
llEmail(address, subject, message);
}
}
}

/////////////////////////////////// GetHomeAddress() //////////////////

string GetHomeAddress()
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
return "not set";
}
else
{
return llList2String(MailAddressList,index);
}
}

/////////////////////////////////// SetHomeAddress() //////////////////

SetHomeAddress(string address)
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
AddressBookList = (AddressBookList=[]) + [ STRING_HOME ] + AddressBookList;
MailAddressList = (MailAddressList=[]) + [ GetAndCheckAddressStr(address) ] + MailAddressList;
}
else
{
MailAddressList = llListReplaceList(MailAddressList, [ GetAndCheckAddressStr(address) ], index, index);
}
}

////////////////////////////////////
// default
////////////////////////////////////

default
{
///////////////////// state_entry() //////////////////

state_entry()
{
Line=0;
Section=0;
llSetTimerEvent(TIMEOUT_INTERVAL);
reqAddressBook=llGetNotecardLine(ADDRESSBOOK_NOTECARD, 0);
}

///////////////////// dataserver() ////////////////////

dataserver(key id, string data)
{
if (id == reqAddressBook)
{
reqAddressBook = NULL_KEY;

if (data != EOF)
{
ProcessLine(data);
reqAddressBook=llGetNotecardLine(ADDRESSBOOK_NOTECARD, ++Line);
}
else
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_LOADED, "", NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Address Book loaded.", NULL_KEY);
state running;
}
}
}

//////////////////////// timer() ///////////////////////////

timer()
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_ERROR, "", NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Could not read Address Book: "
+ ADDRESSBOOK_NOTECARD + ".", NULL_KEY);
llSetTimerEvent(0.0);
}
}

////////////////////////////////////////////
// state running
////////////////////////////////////////////

state running
{
state_entry()
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_LOADED, "", NULL_KEY);
}

///////////////////////// link_message() ////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_MESSAGE_GETSUBJECT)
{
if (CurrentMailSubject == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject is empty.", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject is: "
+ CurrentMailSubject, NULL_KEY);
}
}
else if (msgid == MSG_MESSAGE_SETSUBJECT)
{
CurrentMailSubject = message;
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject set to: "
+ CurrentMailSubject, NULL_KEY);
}
else if (msgid == MSG_MESSAGE_GETADDRESS)
{
if (CurrentMailAddress == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address is empty.", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address is: "
+ CurrentMailAddress, NULL_KEY);
}
}
else if (msgid == MSG_MESSAGE_SETADDRESS)
{
SetMailAddress(message);
}
else if (msgid == MSG_MESSAGE_SEND)
{
if (message == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Body of message to send is empty. "
+ "No mail is send.", NULL_KEY);
}
else
{
SendMail(message);
}
}
else if (msgid == MSG_MESSAGE_SENDHOME)
{
SendMailHome(message, (string)id);
}
else if (msgid == MSG_MESSAGE_SEND_NOTECARD)
{
if (llGetInventoryType(message) == INVENTORY_NOTECARD)
{
Notecard2Fetch = message;
llMessageLinked(LINK_THIS, MSG_NOTECARD_READ, message, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Notecard " + message + " not found.", NULL_KEY);
}
}
else if (msgid == MSG_NOTECARD_FETCHED)
{
if (message == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Notecard " + Notecard2Fetch
+ " was empty or could not be read.", NULL_KEY);
}
else
{
SendMail(message);
}
}
else if (msgid == MSG_MESSAGE_GETHOME)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Home address is: " + GetHomeAddress() + ".", NULL_KEY);
}
else if (msgid == MSG_MESSAGE_SETHOME)
{
SetHomeAddress(message);
}
else if (msgid == MSG_MESSAGE_INFO)
{
Info();
}
}
}

/////////////////////////////////////
// End SL Mail AddressBook V1.2.lsl
/////////////////////////////////////
</lsl>
</div>
</div>

<div id="box">

==Script: SL Mail FetchNotecard V1.2==
<div style="padding: 0.5em;">
Fetch the contents of a notecard and return it via link message as a string.
<lsl>
// SL Mail FetchNotecard V1.2.lsl
//
//

// Notecard

integer Line=0;
string Notecard2Fetch="";
key reqNotecard=NULL_KEY;
float TIMEOUT_INTERVAL=10.0;
integer Fetched=FALSE;

// Lines

list LineList=[];

// Link messages

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////////////////////
// default
//////////////////////////////////////////

default
{
/////////////////////// dataserver() //////////////////////////////

dataserver(key id, string data)
{
if (id == reqNotecard)
{
reqNotecard=NULL_KEY;

if (data != EOF)
{
LineList = (LineList=[]) + LineList + [ data ];
reqNotecard = llGetNotecardLine(Notecard2Fetch, ++Line);
}
else
{
Fetched=TRUE;
llMessageLinked(LINK_THIS, MSG_NOTECARD_FETCHED, llDumpList2String(LineList, "\n"), NULL_KEY);
llSetTimerEvent(0.0);
}
}
}

/////////////////////// timer() ///////////////////////////////////

timer()
{
if (!Fetched)
{
llMessageLinked(LINK_THIS, MSG_NOTECARD_FETCHED, "", NULL_KEY);
llSetTimerEvent(0.0);
}
}

/////////////////////// link_message() ////////////////////////////

link_message(integer send, integer msgid, string message, key id)
{
if (msgid == MSG_NOTECARD_READ)
{
Line=0;
Notecard2Fetch=message;
LineList=[];
Fetched=FALSE;
reqNotecard=llGetNotecardLine(Notecard2Fetch, Line);
llSetTimerEvent(TIMEOUT_INTERVAL);
}
}
}

// End SL Mail FetchNotecard V1.2.lsl
</lsl>
</div>
</div>

<div id="box">

==Script: SL OnlineStatus V1.2==
<div style="padding: 0.5em;">
Fetch online status of owner.
<lsl>
// SL Mail OnlineStatus V1.2.lsl
//
//

// Online status

key reqOnlineStatus=NULL_KEY;
float STATUS_INTERVAL=2.0;

// Link messages

integer MSG_STATUS_ONLINE = 30000;
integer MS_STATUS_OFFLINE = 30100;

////////////////////////////////
// default
////////////////////////////////

default
{
///////////////////////// state_entry() /////////////////////////

state_entry()
{
reqOnlineStatus=llRequestAgentData(llGetOwner(), DATA_ONLINE);
llSetTimerEvent(STATUS_INTERVAL);
}

///////////////////////// dataserver() //////////////////////////

dataserver(key id, string data)
{
if (id == reqOnlineStatus)
{
reqOnlineStatus = NULL_KEY;

if (data=="1")
{
llMessageLinked(LINK_THIS, MSG_STATUS_ONLINE, "", NULL_KEY);
}
else if (data=="0")
{
llMessageLinked(LINK_THIS, MS_STATUS_OFFLINE, "", NULL_KEY);
}
}
}

///////////////////////// timer() ///////////////////////////////

timer()
{
reqOnlineStatus = llRequestAgentData(llGetOwner(), DATA_ONLINE);
}
}

// End SL Mail OnlineStatus V1.2.lsl
</lsl>
</div>
</div>

<div id="box">

==Script: SL Mail Help V1.2==
<div style="padding: 0.5em;">
Display help information.

<lsl>
// SL Mail Help V1.2.lsl
//
//

integer MSG_HELP = 10000;

///////////////////////////////// Help() ///////////////////////////////////////

Help()
{
llOwnerSay("HELP for SL Mail V1.2.");
llOwnerSay("COMMANDS:");
llOwnerSay("@HELP - displays help info.");
llOwnerSay("@INFO - display mailaddress of this object.");
llOwnerSay("@RECORD - start recording.");
llOwnerSay("@CONTINUE - continue recording.");
llOwnerSay("@STOP - stop recording.");
llOwnerSay("@IGNORE - ignore the recording.");
llOwnerSay("@SHOW - show what your recorded.");
llOwnerSay("@SEND - send the recording.");
llOwnerSay("@MAIL <mailadress> - set the mail adress.");
llOwnerSay("@SUBJECT subject - set the mail subject.");
llOwnerSay("@LIST - list messages in mail buffer.");
llOwnerSay("@SELECT <message> - select message from mail buffer.");
llOwnerSay("@READ - read current message from mail buffer.");
llOwnerSay("@NEXT - read next message from mail buffer.");
llOwnerSay("@PREV - read previous message from mail buffer.");
llOwnerSay("@FIRST - read first message from mail buffer.");
llOwnerSay("@LAST - read last message from mail buffer.");
llOwnerSay("@DELETE - delete current message from mail buffer.");
llOwnerSay("@CLEAR - clear the mail buffer.");
llOwnerSay("@REPLY - reply to current message.");
llOwnerSay("@RESET - reset the script.");
llOwnerSay("@HOME - set the home mail adress.");
llOwnerSay("@OFF - switch mailbox OFF.");
llOwnerSay("@ON - switch mailbox ON.");
}

/////////////////////////////////////////////
// default
/////////////////////////////////////////////

default
{
link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_HELP)
{
Help();
}
}
}

// End SL Mail Help V1.2.lsl
</lsl>
</div>
</div>
[[Image:slmail.info.jpg]]

{{LSLC|Library}}

SL Mail V1.2

Flennan Roffo — Wed, 09 Feb 2011 23:20:46 GMT

Flennan Roffo: /* PRODUCTION & MAINTANENCE */

{{LSL Header}} __NOTOC__
<div id="box">
='''Second Life mail client'''=
<div style="padding: 0.5em">

'''Send and receive email from within Second Life from and to any address.'''

Implemented with Address Book function (in a notecard named 'Address Book') to stores addresses by name and to compile groups of named addresses. Current version is stand-alone (no server functionality) and uses chat commands only.

[[Image:BannerSLMail.jpg]]

URL: [http://www.slmail.info slmail.info] <strike>(website coming soon!)</strike> <b>url slmail.info no longer used for SL Mail, and was taken for some other purpose.</b>

</div>
</div>

<div id="box">

=Release Notes V1.2=
<div style="padding: 0.5em">
SL Mail V1.2 Release notes (edition 2, 4 sept 2007)

===IMPORTANT NOTICE===

Development of SL Mail was abandoned midyear 2008. The domain slmail.info was abandoned and is now taken by another domain holder (ISS) who has nothing to do with SL Mail.

SL Mail is considered for redevelopment under the same terms, using a version of the ''Serverless Key Exchange'' script. This allows mail clients to exchange their key adresses to other rezzed mail clients in world, and send each other info about the public name they use, and other info that could be usefull. This protocol does not use a central server.

See: [https://wiki.secondlife.com/wiki/Serverless_Key_Exchange Serverless Key Exchange]

Future annoucements about SL Mail development will be made here.
</div>
</div>

<div id="box">

=='''LICENCE INFO'''==
<div style="padding: 0.5em">
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>.
</div>
</div>

<div id="box">

=='''PRODUCTION & MAINTANENCE'''==
<div style="padding: 0.5em">
by Logic Scripted Products and Script Services

[[Image:Logicbanner1.jpg]]

URL: [http://www.logicscripts.org logicscripts.org] <strike>(website coming soon!)</strike>

SLurl:
{{SLurl
|region=Peacock Park
|x=189
|y=226
|z=69
|title=Logic Scripted products and Script services
|}}

Contact: [[User:Flennan Roffo|Flennan Roffo]]

Email: [mailto:info@slmail.info '''info'''] or [mailto:Flennan.Roffo@slmail.info '''Flennan Roffo''']
'''* The slmail.info URL appears to not be registered and this information appears to be out of date. *'''
</div>
</div>

<div id="box">

=='''DESCRIPTION'''==
<div style="padding: 0.5em">
SL Mail V1.2 is a simple tool to send and receive mail from within SL.
You can either compose a message yourself using chat recording, or choose a notecard from inventory to send. The Address Book functionality allows you to use short names for mail recipients stored in a notecard. The current version does not have a persisent mail address. Watch out for the upcoming next release (V1.3) which will facilitate persisent in-world mail addresses and will be enhanced with many new features (See: Requests For Change (RFC).
</div>
</div>

<div id="box">

=='''COMMANDS'''==
<div style="padding: 0.5em">
{| {{Prettytable}}
|-
|{{Hl2}}| '''Command'''
|{{Hl2}}| '''Description'''
|-
||'''@Help'''
||Show Help about available commands
|-
||'''@Record'''
||Starts a chat recording (for owner only).
|-
||'''@Stop'''
||Stops the chat recording without sending
|-
||'''@Continue'''
||Continues a previously stopped chat recording. Lines will be appended to you recording buffer.
|-
||'''@Show'''
||Shows the content of the recording buffer.
|-
||'''@Send'''
||If recording, stops the recording, and sends the mail (need to supply mail address and subject first!)
|-
||'''@Send <notecard>'''
||Sends the content of the notecard, instead of the chat recording.
|-
||'''@Ignore'''
||Ignores your current chat recording.
|-
||'''@Mail <address>'''
||Define the mail address to send to.
|-
||'''@Mail'''
||Shows the current mail address to send to.
|-
||'''@Subject <subject>'''
||Define the subject of the mail.
|-
||'''@Subject'''
||Shows the current mail subject.
|-
||'''@Home <address>'''
||Set the HOME address of the owner (mail will be forwarder to this address when offline).
|-
||'''@Home'''
||Show the HOME address.
|-
||'''@Info'''
||Shows the mail address the object this script is running in uses (e.g. <object-key>@lsl.secondlife.com).
|-
||'''@Read'''
||Reads the current message from the mail buffer (the mail buffer gets filled with mail you receive)
|-
||'''@Select <msg>'''
||Select a message number from the availabe messages in the mail buffer.
|-
||'''@Next'''
||Make next message the current message.
|-
||'''@Prev'''
||Make previous message the current message.
|-
||'''@First'''
||Make the first message the current message.
|-
||'''@Last'''
||Make the last message the current message.
|-
||'''@Clear'''
||Clear the mail buffer
|-
||'''@Delete'''
||Deletes only the current message
|-
||'''@Reply'''
||Starts a chat recording to reply to the current message. Mail adress and subject are filled in automatically.
|}

Note:

* Commands are case insensitive ("@read" == "@READ"). Arguments might not be case insensitive.
</div>
</div>

<div id="box">
=='''ADDRESS BOOK FORMAT'''==
<div style="padding: 0.5em">
A notecard of the name 'Address Book' is read during initialization which may contain Address Book items and Groups.
The notecard is split in two sections, which need to be defined in that particular order.

'''[ADDRESS BOOK]'''

Defines the section in which you can put names for mail addresses, like this:

'''Name1=account@thisdomain.com'''

'''Name2=user@otherdomain.com'''

etc.

'''[GROUP]'''

Define groups of previously defined names under a new name, like for instance:

'''MyGroup=Name1, Name2'''

Note that names of groups and individual mail adresses share the same namespace and must be unique.

So when you filled in your mail adresses in the Address Book, you can now use:

'''@Mail Name1'''

To send mail to <account@thisdomain.com>

or you can use

'''@Mail MyGroup'''

To send mail to <account@thisdomain.com> and <user@otherdomain.com>
Mails will be sent one after another.

Notes:

* Names for Addreses and Groups are case insensitive (e.g. "mary" == "MARY")

* The special address 'Self' can be used in commands where otherwise an address specification can be used. 'Self' is case insensitive (e.g. "self" == "SELF")

</div>
</div>

<div id="box">
=='''LIMITATIONS'''==
<div style="padding: 0.5em">
The current version is limited by the following:

* Chat recording lines are limited by the 255 byte limit

* Output of lines from the mail buffer are also limited by this 255 byte limit

* Incoming mail is limited to a 1000 (1024?) byte limit

* Outgoing mai is limited by a 4096 byte limit, which includes the standard mail header (region/location info on the first two lines)

We are making adjustments to this release to help overcome these limitations. At least the line lenght limit can be overcome by introducing a line continuation character (for example a hyphen '-') that when used at the end of a line appends the next line, so lines longer then 255 bytes are possible then.

To overcome the outgoing mail length limit, the mail can be broken textualy into parts, and each part can be send seperatedely, with an indication in the subject or in an introduced primary line of the mail body to indicate that the mail was split into parts.
For incoming mail and at least to receive mail from other SL Mail programs, a protocol will be introduced to receive mail in parts that are joined together after receiving them to form a single mail.

These enhancements will be made available in the next release (V1.3) of SL Mail
</div>
</div>

<div id="box">
=='''BUGS'''==
<div style="padding: 0.5em">
Report any bugs you find in this release to Logic (IM: Flennan Roffo).
</div>
</div>

<div id="box">
=='''REQUEST FOR CHANGE (RFC)'''==
<div style="padding: 0.5em">
Do you have additional wishes for enhancement of this product?
Contact Flennan Roffo and we will see if they can be implemented in the next release.

Existing RFC's are:

* Menu support for commands.

* Lines on incoming/outgoing mail longer than 255 bytes.

* Send messages longer than 4096 (minus SL mail header) bytes.

* Receive messages longer than 1024 bytes.

* Permanent mail addresses for the SL Mail client (like: <Flennan.Roffo@somedomain.sl>)

Add your RFC!
</div>
</div>

<div id="box">
=='''SL MAIL SUPPORT & DEVELOPMENT'''==
<div style="padding: 0.5em">

In-world join the group "SL Mail" for bug reports, feature requests, the latest SL Mail release, and notices about development issues.
</div>
</div>

<div id="box">

=Scripts=
</div>

<div id="box">
==Script: SL Mail v1.2==
<div style="padding: 0.5em;">
SL Mail core module which scans for incoming mail messages and executes commands used by the owner.
<lsl>
// SL Mail V1.2.lsl
// (c) 2007 Logic Scripted Products and Script Services
// Flennan Roffo

// VERSION
// Version: 1.2

// HISTORY
// Date Version Author Comment
// --------------------------------------------------------------------------------------
// 28 aug 2007 V 1.0 Flennan Roffo Created
//
// 1 sep 2007 V 1.1 Flennan Roffo @Reply empties the recording buffer.
// @Send while recording ends recording
// and sends the mail if a mail address
// and subject are supplied.
// Fixed incorrect date in Unix2DateTime.
// 3 sep 2007 V 1.2 Flennan Roffo Notification options:
// - When online, send an IM when mail is received.
// - When offline, send to HOME mail adress.
// Adressbook
// - Read adress book from config notecard.

// LICENCE
// This program is free software; you can redistribute it and/or
// modify it under the terms of the GNU General Public License
// as published by the Free Software Foundation; either version 2
// of the License, or (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
// (Also available at http://www.gnu.org/copyleft/gpl.html)

// DESCRIPTION
// Let's you record a message and sent to email and get messages and reply to messages.
// Must supply a valid mail adress and non-empty subject using chat commands.

// TODO:
// 1) Check for the maximum length of an email message (including newline and header).
// 2) Read adress book from notecard. *DONE*
// 3) Send incoming mail to personal mail adress when offline. *DONE*
// 4) Alert with an IM when online upon receiving new mail. *DONE*

string SL_MAIL_VERSION = "V 1.2";
string SL_MAIL_DATE = " 2 sep 2007";
integer ErrorFlag = FALSE;
list ScriptList = [ "SL Mail Help V1.2", "SL Mail AddressBook V1.2",
"SL Mail OnlineStatus V1.2", "SL Mail FetchNotecard V1.2" ];
string LSL_DOMAIN="lsl.secondlife.com";
integer StatusOnline=FALSE;

// Commands

string COMMAND_RECORD = "@RECORD";
string COMMAND_CONTINUE = "@CONTINUE";
string COMMAND_STOP = "@STOP";
string COMMAND_MAIL = "@MAIL";
string COMMAND_SUBJECT = "@SUBJECT";
string COMMAND_SEND = "@SEND";
string COMMAND_SEE = "@SEE";
string COMMAND_IGNORE = "@IGNORE";
string COMMAND_READ = "@READ";
string COMMAND_DELETE = "@DELETE";
string COMMAND_CLEAR = "@CLEAR";
string COMMAND_REPLY = "@REPLY";
string COMMAND_NEXT = "@NEXT";
string COMMAND_PREV = "@PREV";
string COMMAND_FIRST = "@FIRST";
string COMMAND_LAST = "@LAST";
string COMMAND_LIST = "@LIST";
string COMMAND_SELECT = "@SELECT";
string COMMAND_HELP = "@HELP";
string COMMAND_INFO = "@INFO";
string COMMAND_RESET = "@RESET";
string COMMAND_SHOW = "@SHOW";
string COMMAND_ON = "@ON";
string COMMAND_OFF = "@OFF";
string COMMAND_HOME = "@HOME";
string COMMAND_LOAD = "@LOAD";
string COMMAND_ADDRESS = "@ADDRESS";

// Recording

integer Recording = FALSE;

list ChatRecording=[];
integer NumLines=0;
integer Length=0;

list TimeList=[];
list AddressList=[];
list SubjectList=[];
list BodyList=[];
integer NumMessages=0;
integer CurrentMessage=-1;

float MAIL_FETCH_INTERVAL=5.0;

// Link Messages

integer MSG_HELP = 10000;
integer MSG_STATUS_ONLINE = 30000;
integer MSG_STATUS_OFFLINE = 30100;

integer MSG_MESSAGE_SETADDRESS = 90000;
integer MSG_MESSAGE_GETADDRESS = 90050;
integer MSG_MESSAGE_SETSUBJECT = 90100;
integer MSG_MESSAGE_GETSUBJECT = 90150;
integer MSG_MESSAGE_SEND = 90200;
integer MSG_MESSAGE_SENDHOME = 90300;
integer MSG_MESSAGE_SEND_NOTECARD = 90400;
integer MSG_MESSAGE_ADDRESSBOOK = 90500;
integer MSG_MESSAGE_GETHOME = 90600;
integer MSG_MESSAGE_SETHOME = 90700;
integer MSG_MESSAGE_INFO = 90800;

integer MSG_ADDRESSBOOK_LOADED = 91000;
integer MSG_ADDRESSBOOK_ERROR = 91100;

integer MSG_MESSAGE_REPLY = 99000;

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////// Unix Time conversion //////////////////

integer DAYS_PER_YEAR = 365; // Non leap year
integer SECONDS_PER_YEAR = 31536000; // Non leap year
integer SECONDS_PER_DAY = 86400;
integer SECONDS_PER_HOUR = 3600;
integer SECONDS_PER_MINUTE = 60;

////////////////////////////// LeapYear() /////////////////////////////

integer LeapYear(integer year)
{
if (year % 4 == 0)
{
if (year % 100 == 0)
{
if (year % 400 == 0)
{
return 1;
}
else
{
return 0;
}
}
else
{
return 1;
}
}
else
{
return 0;
}
}

////////////////////////////// DaysPerMonth() ///////////////////////////////////////

integer DaysPerMonth(integer year,integer month)
{
if (month < 8)
{
if (month % 2 == 0)
{
if (month == 2)
{
if (LeapYear(year))
{
return 29;
}
else
{
return 28;
}
}
else
{
return 30;
}
}
else
{
return 31;
}
}
else
{
if (month % 2 == 0)
{
return 31;
}
else
{
return 30;
}
}
}

/////////////////////////// DaysPerYear() ////////////////////////////////////

integer DaysPerYear(integer year)
{
if (LeapYear(year))
return DAYS_PER_YEAR + 1;
else
return DAYS_PER_YEAR;
}

/////////////////////////////// Unix2DataTime() ///////////////////////////////////////

list Unix2DateTime(integer unixtime)
{
integer days_since_1_1_1970 = unixtime / SECONDS_PER_DAY;
integer day = days_since_1_1_1970 + 1;
integer year = 1970;
integer days_per_year = DaysPerYear(year);

while (day > days_per_year)
{
day -= days_per_year;
++year;
days_per_year = DaysPerYear(year);
}

integer month = 1;
integer days_per_month = DaysPerMonth(year,month);

while (day > days_per_month)
{
day -= days_per_month;

if (++month > 12)
{
++year;
month = 1;
}

days_per_month = DaysPerMonth(year,month);
}

integer seconds_since_midnight = unixtime % SECONDS_PER_DAY;
integer hour = seconds_since_midnight / SECONDS_PER_HOUR;
integer second = seconds_since_midnight % SECONDS_PER_HOUR;
integer minute = second / SECONDS_PER_MINUTE;
second = second % SECONDS_PER_MINUTE;

return [ year, month, day, hour, minute, second ];
}

///////////////////////////////// MonthName() ////////////////////////////

list MonthNameList = [ "JAN", "FEB", "MAR", "APR", "MAY", "JUN",
"JUL", "AUG", "SEP", "OCT" , "NOV", "DEC" ];

string MonthName(integer month)
{
if (month >= 0 && month < 12)
return llList2String(MonthNameList, month);
else
return "";
}

///////////////////////////////// DateString() ///////////////////////////

string DateString(list timelist)
{
integer year = llList2Integer(timelist,0);
integer month = llList2Integer(timelist,1);
integer day = llList2Integer(timelist,2);

return (string)day + "-" + MonthName(month - 1) + "-" + (string)year;
}

///////////////////////////////// TimeString() ////////////////////////////

string TimeString(list timelist)
{
integer hour = llList2Integer(timelist,3);
integer minute = llList2Integer(timelist,4);
integer second = llList2Integer(timelist,5);
string hourstr = (string)hour;
string minutestr = (string)minute;
string secondstr = (string)second;

if (hour < 10) hourstr = "0" + hourstr;
if (minute < 10) minutestr = "0" + minutestr;
if (second < 10) secondstr = "0" + secondstr;
return hourstr + ":" + minutestr + ":" + secondstr;
}

/////////////////////////////////// SendMail() /////////////////////////////////////

SendMail(string body)
{
// llOwnerSay("Sending message to '" + address + "' with subject '" + subject +"'.");
llMessageLinked(LINK_THIS, MSG_MESSAGE_SEND, body, NULL_KEY);
}

///////////////////////////////// SendHome() ///////////////////////////////////////

SendHome(string subject, string body)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SENDHOME, body, (key)subject);
}

///////////////////////////////// Show() ////////////////////////////////////////////

Show()
{
integer i;

llOwnerSay("Current chat recording is:");
llOwnerSay("--------------------------");

for (i = 0; i < NumLines; ++i)
{
llOwnerSay(llList2String(ChatRecording,i));
}

llOwnerSay("--------------------------");
llOwnerSay("Lines is " + (string)NumLines);
llOwnerSay("Message length is " + (string)Length);
}

/////////////////////////////// Read() /////////////////////////////////////////

Read()
{
llOwnerSay("Reading message " + (string)CurrentMessage + " from mail buffer.");
integer time = (integer)llList2Integer(TimeList,CurrentMessage);
list timelist=Unix2DateTime(time);
string Address = llList2String(AddressList,CurrentMessage);
string Subject = llList2String(SubjectList,CurrentMessage);
string Body = llList2String(BodyList,CurrentMessage);
llOwnerSay("Date : " + DateString(timelist));
llOwnerSay("Time : " + TimeString(timelist));
llOwnerSay("Address: " + Address);
llOwnerSay("Subject: " + Subject);
llOwnerSay("Begin of message body:");
llOwnerSay("-------------------------");
list bodylist=llParseStringKeepNulls(Body, [ "\n" ], []);
integer num=llGetListLength(bodylist);
integer i;

for (i = 0; i < num; ++i)
{
llOwnerSay(llList2String(bodylist,i));
}

llOwnerSay("-------------------------");
llOwnerSay("End of message body.");
}

////////////////////////////////////// List ////////////////////////////////////////////

List()
{
llOwnerSay("The mail buffer contains the following messages:\n");

integer i;

for (i = 0; i < NumMessages; ++i)
{
integer time=llList2Integer(TimeList,i);
list timelist=Unix2DateTime(time);
if (i > 0) llOwnerSay("+-+-+-+-+-+-+-+-+-+-+-+-");
llOwnerSay("Message: " + (string)i);
llOwnerSay("Date : " + DateString(timelist));
llOwnerSay("Time : " + TimeString(timelist));
llOwnerSay("From: " + llList2String(AddressList,i));
llOwnerSay("Subject: " + llList2String(SubjectList,i));
}
}

//////////////////////////// NotifyNewMail() /////////////////////////

NotifyNewMail(string time, string address, string subject, string body)
{
list timelist=Unix2DateTime((integer)time);

if (StatusOnline)
{
llInstantMessage(llGetOwner(), "You received a new mail message on "
+ DateString(timelist) + " at " + TimeString(timelist)
+ " from " + address
+ " with the subject " + subject);
}
else
{
SendHome("FW: " + subject, "Received at: " + DateString(timelist) + " " + TimeString(timelist) + "\nFrom: " + address
+ "\nBegin message body:\n-------------------\n" + body + "\n-------------------\nEnd message body.");
}
}

///////////////////////////// ResetOtherScripts() //////////////////////

ResetOtherScripts()
{
string name;
integer i;
integer num=llGetListLength(ScriptList);

for (i = 0; i < num; ++i)
{
name = llList2String(ScriptList,i);

if (llGetInventoryType(name) == INVENTORY_SCRIPT)
{
llResetOtherScript(name);
}
else
{
llOwnerSay("Error - script '" + name + "' not found.");
ErrorFlag = TRUE;
}
}
}

//////////////////////////////////////
// default
//////////////////////////////////////

default
{
////////////////////// state_entry() /////////////////////////

state_entry()
{
llOwnerSay("Welcome to SL Mail, released under GNU software licence.");
llOwnerSay("Version " + SL_MAIL_VERSION + " " + SL_MAIL_DATE);
llOwnerSay("Produced by Logic Scripted Products & Product Services");
llOwnerSay("Free memory: " + (string)llGetFreeMemory());
ResetOtherScripts();

if (ErrorFlag)
state Error;
}

/////////////////////// on_rez() //////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

/////////////////////// changed() ////////////////////////////

changed(integer mask)
{
if (mask & CHANGED_INVENTORY)
{
llResetScript();
}
}

/////////////////////// link_message() /////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
else if (msgid == MSG_ADDRESSBOOK_LOADED)
{
state running;
}
else if (msgid == MSG_ADDRESSBOOK_ERROR)
{
state Error;
}
}
}

///////////////////////////////////////
// state running
//////////////////////////////////////

state running
{
///////////////////////// state_entry() //////////////////////

state_entry()
{
llListen(0, "", llGetOwner(), "");
llOwnerSay("SL mail ready.\nSend and Get mail in Second Life.\nType @HELP for more info.");
llMessageLinked(LINK_THIS, MSG_MESSAGE_INFO, "", NULL_KEY);
llGetNextEmail("", "");
llSetTimerEvent(MAIL_FETCH_INTERVAL);
}

//////////////////////// on_rez() ////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

//////////////////////// listen() ////////////////////////////

listen(integer channel, string name, key id, string message)
{
string trimmessage=llStringTrim(message,STRING_TRIM);
list parse = llParseStringKeepNulls(trimmessage, [ " "], []);
string command = llToUpper(llList2String(parse,0));
string arg = llStringTrim(llList2String(parse,1),STRING_TRIM);
integer nargs = llGetListLength(parse);
string argstr="";

if (nargs > 1) argstr=llGetSubString(message, llSubStringIndex(message, " ") + 1, -1);

if (Recording)
{
if (command == COMMAND_STOP)
{
llOwnerSay("Recording stopped. Type @SHOW to see the message you have entered,"
+ " or @SEND to send it.");
Recording = FALSE;
return;
}
if (command == COMMAND_SEND)
{
Recording = FALSE;

SendMail(llDumpList2String(ChatRecording, "\n"));
return;
}
else
{
ChatRecording = (ChatRecording=[]) + ChatRecording + [ message ];
++NumLines;
Length += llStringLength(message) + 2;
return;
}
}
else
{
if (command == COMMAND_RECORD)
{
llOwnerSay("Start recording your message. Type @STOP to end recording.");
ChatRecording = [];
NumLines=0;
Length=0;
Recording = TRUE;
return;
}
if (command == COMMAND_CONTINUE)
{
llOwnerSay("Continue recording your message. Type @STOP to end recording.");
Recording = TRUE;
return;
}
if (command == COMMAND_REPLY)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
string address=llList2String(AddressList,CurrentMessage);
string subject="Re: " + llList2String(SubjectList,CurrentMessage);
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETADDRESS, address, NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETSUBJECT, subject, NULL_KEY);
ChatRecording = [];
NumLines=0;
Length=0;
Recording = TRUE;
}
return;
}
if (command == COMMAND_MAIL)
{
string mailaddress=llStringTrim(argstr,STRING_TRIM);

if (mailaddress != "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETADDRESS, mailaddress, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETADDRESS, "", NULL_KEY);
}
return;
}
if (command == COMMAND_SUBJECT)
{
string mailsubject=llStringTrim(argstr,STRING_TRIM);

if (mailsubject != "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETSUBJECT, mailsubject, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETSUBJECT, "", NULL_KEY);
}
return;
}
if (command == COMMAND_STOP)
{
llOwnerSay("Not recording.");
return;
}
if (command == COMMAND_SEND)
{
if (nargs == 1)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
SendMail(llDumpList2String(ChatRecording, "\n"));
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SEND_NOTECARD, argstr, NULL_KEY);
}
return;
}
if (command == COMMAND_IGNORE)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
ChatRecording = [];
NumLines = 0;
Length = 0;
}
return;
}
if (command == COMMAND_SHOW)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
Show();
}
return;
}
if (command == COMMAND_READ)
{
if (NumMessages == 0)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
Read();
}
return;
}
if (command == COMMAND_NEXT)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == NumMessages - 1)
{
llOwnerSay("Already at last message.");
}
else
{
++CurrentMessage;
Read();
}
}
return;
}
if (command == COMMAND_PREV)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == 0)
{
llOwnerSay("Already at first message.");
}
else
{
--CurrentMessage;
Read();
}
}
return;
}
if (command == COMMAND_FIRST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == 0)
{
llOwnerSay("Already at first message.");
}
else
{
CurrentMessage = 0;
Read();
}
}
return;
}
if (command == COMMAND_LAST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == NumMessages - 1)
{
llOwnerSay("Already at last message.");
}
else
{
CurrentMessage = NumMessages - 1;
Read();
}
}
return;
}
if (command == COMMAND_LIST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
List();
}
return;
}
if (command == COMMAND_SELECT)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else if (nargs == 1)
{
llOwnerSay("Need to supply a message number.");
}
else
{
integer msgnum = (integer)arg;

if (msgnum < 0 || msgnum >= NumMessages)
{
llOwnerSay("Message number " + arg + " not in mail buffer.");
}
else
{
CurrentMessage = msgnum;
}
}
return;
}
if (command == COMMAND_DELETE)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
TimeList = llDeleteSubList(TimeList,CurrentMessage,CurrentMessage);
AddressList = llDeleteSubList(AddressList,CurrentMessage,CurrentMessage);
SubjectList = llDeleteSubList(SubjectList,CurrentMessage,CurrentMessage);
BodyList = llDeleteSubList(BodyList,CurrentMessage,CurrentMessage);
--NumMessages;

if (NumMessages == 0)
{
CurrentMessage = -1;
}
else if (CurrentMessage >= NumMessages)
{
CurrentMessage = NumMessages - 1;
}
}
return;
}
if (command == COMMAND_CLEAR)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
TimeList=[];
AddressList=[];
SubjectList=[];
BodyList=[];
NumMessages=0;
CurrentMessage=-1;
}
return;
}
if (command == COMMAND_HELP)
{
llMessageLinked(LINK_THIS, MSG_HELP, arg, NULL_KEY);
return;
}
if (command == COMMAND_INFO)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_INFO, "", NULL_KEY);
return;
}
if (command == COMMAND_SHOW)
{
Show();
return;
}
if (command == COMMAND_RESET)
{
llResetScript();
return;
}
if (command == COMMAND_OFF)
{
state not_running;
}
if (command == COMMAND_HOME)
{
if (nargs==1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETHOME, "", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETHOME, argstr, NULL_KEY);
}
return;
}
}
}

///////////////////////// timer() ///////////////////////////////

timer()
{
llGetNextEmail("", "");
}

///////////////////////// email() ///////////////////////////////

email(string time, string address, string subject, string body, integer queued)
{
NotifyNewMail(time, address, subject, body);
TimeList = (TimeList=[]) + TimeList + [time];
AddressList = (AddressList=[]) + AddressList + [address];
SubjectList = (SubjectList=[]) + SubjectList + [subject];
BodyList = (BodyList=[]) + BodyList + [body];
++NumMessages;

if (CurrentMessage == -1)
{
CurrentMessage = 0;
}
else
{
CurrentMessage = NumMessages - 1;
}
}

///////////////////// link_message() //////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
else if (msgid == MSG_MESSAGE_REPLY)
{
llOwnerSay(message);
}
}
}

//////////////////////////////////
// state not_running
//////////////////////////////////

state not_running
{
///////////////////// state_entry() //////////////////////////

state_entry()
{
llOwnerSay("SL Mailbox switched OFF. Say @ON to switch it back on.");
llListen(0, "", llGetOwner(), "");
}

//////////////////// on_rez() ///////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

//////////////////// listen() ////////////////////////////////

listen(integer chan, string name, key id, string message)
{
string command=llToUpper(message);

if (command == COMMAND_ON)
{
state running;
}
}

///////////////////// link_message() //////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
}
}

//////////////////////////////////
// state Error
//////////////////////////////////

state Error
{
state_entry()
{
llOwnerSay("Error in SL Mail: not all component scripts found.");
}

changed(integer mask)
{
if (mask & CHANGED_INVENTORY)
{
llResetScript();
}
}

on_rez(integer start_param)
{
llResetScript();
}
}

//////////////////////////////////
// End SL Mail V1.2.lsl
//////////////////////////////////
</lsl>
</div>
</div>

<div id="box">

==Script: SL Mail Address Book V1.2==
<div style="padding: 0.5em;">
Read and interpret the contents of the Address Book.
<lsl>
// SL Mail AddressBook V1.2.lsl
//
// DESCRIPTION
//
// Read the Address Book from a notecard named "Address Book".
//
// The Address Book has the following format:
//
// [ADDRESS BOOK]
// Name1=username@yourdomain.com
// Name2=otheruser@otherdomain.com
// ...
// [GROUP]
// group1=Name1, Name2
// ...
//
// Notes:
// 1. Group and Name share the same namespace, and must be unique.
// 2. It is allowed to have a name in the addressbook with multiple addresses, seperated by comma's.
//
/////////////////////////////////////////////////

string CurrentMailAddress = "";
string CurrentMailSubject = "";
integer StatusOnline = FALSE;

// Fetch or Send notecard

string Notecard2Fetch="";

// Address Book Names

list AddressBookList=[];
list MailAddressList=[];

string STRING_HOME="HOME";
string STRING_SELF="SELF";

// Address Book Groups

list GroupList=[];
list GroupNameList=[];

string LSL_DOMAIN = "lsl.secondlife.com";

// Read Address Book notecard

string ADDRESSBOOK_NOTECARD="Address Book";
integer Line=0;
key reqAddressBook=NULL_KEY;
float TIMEOUT_INTERVAL=5.0;

integer Section=0;
integer SECTION_ADDRESS_BOOK=1;
integer SECTION_GROUP=2;
string STRING_ADDRESS_BOOK="ADDRESS BOOK";
string STRING_GROUP="GROUP";

// Links messages

integer MSG_MESSAGE_SETADDRESS = 90000;
integer MSG_MESSAGE_GETADDRESS = 90050;
integer MSG_MESSAGE_SETSUBJECT = 90100;
integer MSG_MESSAGE_GETSUBJECT = 90150;
integer MSG_MESSAGE_SEND = 90200;
integer MSG_MESSAGE_SENDHOME = 90300;
integer MSG_MESSAGE_SEND_NOTECARD = 90400;
integer MSG_MESSAGE_ADDRESSBOOK = 90500;
integer MSG_MESSAGE_GETHOME = 90600;
integer MSG_MESSAGE_SETHOME = 90700;
integer MSG_MESSAGE_INFO = 90800;
integer MSG_MESSAGE_NOTIFY = 90900;

integer MSG_ADDRESSBOOK_LOADED = 91000;
integer MSG_ADDRESSBOOK_ERROR = 91100;

integer MSG_MESSAGE_REPLY = 99000;

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////// GetSelfAddress() ///////////////////////

string GetSelfAddress()
{
return (string)llGetKey() + "@" + LSL_DOMAIN;
}

///////////////////////////// Info() /////////////////////////////////

Info()
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "The mail address for this object is: "
+ GetSelfAddress() + ".", NULL_KEY);
}

///////////////////////////////// IsValidKeyFormat() //////////////////////

integer IsValidKeyFormat(string str)
{
string keychars = "0123456789abcdef";

if (llStringLength(str) != 36)
return FALSE;

if( (llGetSubString( str, 8, 8 ) != "-" ||
llGetSubString( str, 13, 13 ) != "-" ||
llGetSubString( str, 18, 18 ) != "-" ||
llGetSubString( str, 23, 23 ) != "-" ) )
return FALSE;

integer i;

for (i = 0; i < 8; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 9; i < 13; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 14; i < 18; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 19; i < 23; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 24; i < 36; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

return TRUE;
}

///////////////////////////////// ValidMailAddress() ////////////////////////

integer ValidMailAddress(string arg)
{
string adress = llToLower(llStringTrim(arg,STRING_TRIM));

if (adress == "")
return FALSE;

list parse = llParseStringKeepNulls(adress, [ "@" ], []);
string account = llList2String(parse,0);
string domain = llList2String(parse,1);

if (llGetListLength(parse) != 2 || llStringLength(account) == 0 || llStringLength(domain) == 0)
return FALSE;

if (domain == LSL_DOMAIN)
{
return IsValidKeyFormat(account);
}
else
{
list parsedomain = llParseString2List(domain, [ "." ], []);

if (llGetListLength(parsedomain) < 2)
return FALSE;

integer num = llGetListLength(parsedomain);
integer i;

for (i = 0; i < num; ++i)
{
if (llStringLength(llList2String(parsedomain,i)) < 2)
{
return FALSE;
}
}
}

return TRUE;
}

/////////////////////////////////// GetAddressStr() ///////////////////

string GetAndCheckAddressStr(string address)
{
list addresslist = llCSV2List(address);
integer num=llGetListLength(addresslist);
integer i;
string addressstr="";
string curaddress="";

for (i = 0; i < num; ++i)
{
curaddress=llList2String(addresslist,i);

if (ValidMailAddress(curaddress))
{
addressstr = (addressstr="") + addressstr + curaddress + ",";
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address string: '"
+ curaddress + "'.", NULL_KEY);
}
}

return llGetSubString(addressstr, 0, -2);
}

///////////////////////////// ProcessLine() ////////////////////////////

ProcessLine(string rawline)
{
string line=llStringTrim(rawline,STRING_TRIM);
string first=llGetSubString(line,0,0);
string last=llGetSubString(line,-1,-1);

// Ignore a blank line or comment line
if (line == "" || first == "#")
return;

// Check for the right section

if (first == "[" && last == "]")
{
string sectionstr=llToUpper(llStringTrim(llGetSubString(line,1,-2),STRING_TRIM));

if (sectionstr == STRING_ADDRESS_BOOK)
{
Section = SECTION_ADDRESS_BOOK;
}
else if (sectionstr == STRING_GROUP)
{
if (Section == 0)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1)
+ ". Group section defined before Address Book section.", NULL_KEY);
}
else
{
Section = SECTION_GROUP;
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid section header '" + sectionstr
+ "' in " + ADDRESSBOOK_NOTECARD + " at line " + (string)(Line + 1) + ".", NULL_KEY);
}

return;
}

// Must be in a section

if (Section == 0)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ". No section header.", NULL_KEY);
return;
}

list parse=llParseString2List(line, [ "=" ], []);
integer num=llGetListLength(parse);

// Format must be correct

if (num != 2)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line+1) + ":\n" + rawline, NULL_KEY);
return;
}

if (Section == SECTION_ADDRESS_BOOK)
{
string name=llStringTrim(llList2String(parse,0),STRING_TRIM);

if (llToUpper(name) == STRING_SELF)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address book entry '" + name
+ "'. Reserved word in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ".", NULL_KEY);
}
else if (llListFindList(AddressBookList, [ name ]) == -1)
{
string address=llStringTrim(llList2String(parse,1),STRING_TRIM);
string addressstr=GetAndCheckAddressStr(address);

if (addressstr != "")
{
AddressBookList = (AddressBookList=[]) + AddressBookList + [ name ];
MailAddressList = (MailAddressList=[]) + MailAddressList + [ addressstr ];
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "No valid mail address for '" + name
+ "'. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line " + (string)(Line + 1)
+ ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Name '" + name
+ "' already defined. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else // Group
{
string group=llStringTrim(llList2String(parse,0),STRING_TRIM);

if (llToUpper(group) == STRING_SELF)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address book entry '" + group
+ "'. Reserved word in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ".", NULL_KEY);
}
else if (llListFindList(AddressBookList, [ group ]) == -1)
{
if (llListFindList(GroupList, [ group ]) == -1)
{
string names=llStringTrim(llList2String(parse,1),STRING_TRIM);
list namelist=llCSV2List(names);
integer num=llGetListLength(namelist);
integer i;
integer index;
string name;
string namestr="";

for (i = 0; i < num; ++i)
{
name=llList2String(namelist,i);
index=llListFindList(AddressBookList, [ name ]);

if (index == -1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Name '" + name + "' defined in Group '"
+ group + "' not found in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
else
{
namestr = (namestr="") + namestr + name + ",";
}
}

if (namestr != "")
{
namestr=llGetSubString(namestr,0,-2);
GroupList = (GroupList=[]) + GroupList + [ group ];
GroupNameList = (GroupNameList=[]) + GroupNameList + [ namestr ];
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' has no valid names. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' already defined in Group. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' already defined in Address Book. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
}

//////////////////////////////// GetGroupAddressList ///////////////

string GetGroupAddressList(string group)
{
integer index=llListFindList(GroupList, [ group ]);
integer i;
integer num=llGetListLength(GroupList);
string grouplist="";

if (index == -1)
{
return "";
}
else
{
for (i = index; i < num; ++i)
{
if (llList2String(GroupList,i) == group)
{
grouplist = (grouplist="") + grouplist + llList2String(GroupNameList,i) + ",";
}
}

if (grouplist != "") grouplist=llGetSubString(grouplist,0,-2); // remove last ","
return grouplist;
}
}

//////////////////////////////// SetMailAddress() //////////////////

SetMailAddress(string address)
{
integer index=llListFindList(AddressBookList, [ address ]);

if (index == -1)
{
index=llListFindList(GroupList, [ address ]);

if (index == -1)
{
if (llToUpper(address) == STRING_SELF)
{
CurrentMailAddress = GetSelfAddress();
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
else if(ValidMailAddress(address))
{
CurrentMailAddress = address;
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Mail adress " + address
+ " : not found in adress book or invalid format.", NULL_KEY);
}
}
else
{
CurrentMailAddress = GetGroupAddressList(address);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject set to: "
+ CurrentMailAddress, NULL_KEY);
}
}
else
{
CurrentMailAddress = llList2String(MailAddressList,index);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
}

/////////////////////////////////// SendMail() ///////////////////////

SendMail(string message)
{
if (CurrentMailAddress == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "SendMail: No mail address defined.", NULL_KEY);
}
else if (CurrentMailSubject == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "SendMail: No subject defined.", NULL_KEY);
}
else
{
list mailaddresslist=llCSV2List(CurrentMailAddress);
integer num=llGetListLength(mailaddresslist);
integer i;
string address;

for (i = 0; i < num; ++i)
{
address=llList2String(mailaddresslist,i);
llEmail(address, CurrentMailSubject, message);
}
}
}

/////////////////////////////////// SendMailHome() ////////////////////

SendMailHome(string message, string subject)
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, STRING_HOME
+ " not set. Set your home adress with @HOME <address>.", NULL_KEY);
}
else
{
string homeaddress=llList2String(AddressBookList,index);
list homelist=llCSV2List(homeaddress);
integer num=llGetListLength(homelist);
integer i;
string address;

for (i = 0; i < num; ++i)
{
address=llList2String(homelist,i);
llEmail(address, subject, message);
}
}
}

/////////////////////////////////// GetHomeAddress() //////////////////

string GetHomeAddress()
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
return "not set";
}
else
{
return llList2String(MailAddressList,index);
}
}

/////////////////////////////////// SetHomeAddress() //////////////////

SetHomeAddress(string address)
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
AddressBookList = (AddressBookList=[]) + [ STRING_HOME ] + AddressBookList;
MailAddressList = (MailAddressList=[]) + [ GetAndCheckAddressStr(address) ] + MailAddressList;
}
else
{
MailAddressList = llListReplaceList(MailAddressList, [ GetAndCheckAddressStr(address) ], index, index);
}
}

////////////////////////////////////
// default
////////////////////////////////////

default
{
///////////////////// state_entry() //////////////////

state_entry()
{
Line=0;
Section=0;
llSetTimerEvent(TIMEOUT_INTERVAL);
reqAddressBook=llGetNotecardLine(ADDRESSBOOK_NOTECARD, 0);
}

///////////////////// dataserver() ////////////////////

dataserver(key id, string data)
{
if (id == reqAddressBook)
{
reqAddressBook = NULL_KEY;

if (data != EOF)
{
ProcessLine(data);
reqAddressBook=llGetNotecardLine(ADDRESSBOOK_NOTECARD, ++Line);
}
else
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_LOADED, "", NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Address Book loaded.", NULL_KEY);
state running;
}
}
}

//////////////////////// timer() ///////////////////////////

timer()
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_ERROR, "", NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Could not read Address Book: "
+ ADDRESSBOOK_NOTECARD + ".", NULL_KEY);
llSetTimerEvent(0.0);
}
}

////////////////////////////////////////////
// state running
////////////////////////////////////////////

state running
{
state_entry()
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_LOADED, "", NULL_KEY);
}

///////////////////////// link_message() ////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_MESSAGE_GETSUBJECT)
{
if (CurrentMailSubject == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject is empty.", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject is: "
+ CurrentMailSubject, NULL_KEY);
}
}
else if (msgid == MSG_MESSAGE_SETSUBJECT)
{
CurrentMailSubject = message;
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject set to: "
+ CurrentMailSubject, NULL_KEY);
}
else if (msgid == MSG_MESSAGE_GETADDRESS)
{
if (CurrentMailAddress == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address is empty.", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address is: "
+ CurrentMailAddress, NULL_KEY);
}
}
else if (msgid == MSG_MESSAGE_SETADDRESS)
{
SetMailAddress(message);
}
else if (msgid == MSG_MESSAGE_SEND)
{
if (message == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Body of message to send is empty. "
+ "No mail is send.", NULL_KEY);
}
else
{
SendMail(message);
}
}
else if (msgid == MSG_MESSAGE_SENDHOME)
{
SendMailHome(message, (string)id);
}
else if (msgid == MSG_MESSAGE_SEND_NOTECARD)
{
if (llGetInventoryType(message) == INVENTORY_NOTECARD)
{
Notecard2Fetch = message;
llMessageLinked(LINK_THIS, MSG_NOTECARD_READ, message, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Notecard " + message + " not found.", NULL_KEY);
}
}
else if (msgid == MSG_NOTECARD_FETCHED)
{
if (message == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Notecard " + Notecard2Fetch
+ " was empty or could not be read.", NULL_KEY);
}
else
{
SendMail(message);
}
}
else if (msgid == MSG_MESSAGE_GETHOME)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Home address is: " + GetHomeAddress() + ".", NULL_KEY);
}
else if (msgid == MSG_MESSAGE_SETHOME)
{
SetHomeAddress(message);
}
else if (msgid == MSG_MESSAGE_INFO)
{
Info();
}
}
}

/////////////////////////////////////
// End SL Mail AddressBook V1.2.lsl
/////////////////////////////////////
</lsl>
</div>
</div>

<div id="box">

==Script: SL Mail FetchNotecard V1.2==
<div style="padding: 0.5em;">
Fetch the contents of a notecard and return it via link message as a string.
<lsl>
// SL Mail FetchNotecard V1.2.lsl
//
//

// Notecard

integer Line=0;
string Notecard2Fetch="";
key reqNotecard=NULL_KEY;
float TIMEOUT_INTERVAL=10.0;
integer Fetched=FALSE;

// Lines

list LineList=[];

// Link messages

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////////////////////
// default
//////////////////////////////////////////

default
{
/////////////////////// dataserver() //////////////////////////////

dataserver(key id, string data)
{
if (id == reqNotecard)
{
reqNotecard=NULL_KEY;

if (data != EOF)
{
LineList = (LineList=[]) + LineList + [ data ];
reqNotecard = llGetNotecardLine(Notecard2Fetch, ++Line);
}
else
{
Fetched=TRUE;
llMessageLinked(LINK_THIS, MSG_NOTECARD_FETCHED, llDumpList2String(LineList, "\n"), NULL_KEY);
llSetTimerEvent(0.0);
}
}
}

/////////////////////// timer() ///////////////////////////////////

timer()
{
if (!Fetched)
{
llMessageLinked(LINK_THIS, MSG_NOTECARD_FETCHED, "", NULL_KEY);
llSetTimerEvent(0.0);
}
}

/////////////////////// link_message() ////////////////////////////

link_message(integer send, integer msgid, string message, key id)
{
if (msgid == MSG_NOTECARD_READ)
{
Line=0;
Notecard2Fetch=message;
LineList=[];
Fetched=FALSE;
reqNotecard=llGetNotecardLine(Notecard2Fetch, Line);
llSetTimerEvent(TIMEOUT_INTERVAL);
}
}
}

// End SL Mail FetchNotecard V1.2.lsl
</lsl>
</div>
</div>

<div id="box">

==Script: SL OnlineStatus V1.2==
<div style="padding: 0.5em;">
Fetch online status of owner.
<lsl>
// SL Mail OnlineStatus V1.2.lsl
//
//

// Online status

key reqOnlineStatus=NULL_KEY;
float STATUS_INTERVAL=2.0;

// Link messages

integer MSG_STATUS_ONLINE = 30000;
integer MS_STATUS_OFFLINE = 30100;

////////////////////////////////
// default
////////////////////////////////

default
{
///////////////////////// state_entry() /////////////////////////

state_entry()
{
reqOnlineStatus=llRequestAgentData(llGetOwner(), DATA_ONLINE);
llSetTimerEvent(STATUS_INTERVAL);
}

///////////////////////// dataserver() //////////////////////////

dataserver(key id, string data)
{
if (id == reqOnlineStatus)
{
reqOnlineStatus = NULL_KEY;

if (data=="1")
{
llMessageLinked(LINK_THIS, MSG_STATUS_ONLINE, "", NULL_KEY);
}
else if (data=="0")
{
llMessageLinked(LINK_THIS, MS_STATUS_OFFLINE, "", NULL_KEY);
}
}
}

///////////////////////// timer() ///////////////////////////////

timer()
{
reqOnlineStatus = llRequestAgentData(llGetOwner(), DATA_ONLINE);
}
}

// End SL Mail OnlineStatus V1.2.lsl
</lsl>
</div>
</div>

<div id="box">

==Script: SL Mail Help V1.2==
<div style="padding: 0.5em;">
Display help information.

<lsl>
// SL Mail Help V1.2.lsl
//
//

integer MSG_HELP = 10000;

///////////////////////////////// Help() ///////////////////////////////////////

Help()
{
llOwnerSay("HELP for SL Mail V1.2.");
llOwnerSay("COMMANDS:");
llOwnerSay("@HELP - displays help info.");
llOwnerSay("@INFO - display mailaddress of this object.");
llOwnerSay("@RECORD - start recording.");
llOwnerSay("@CONTINUE - continue recording.");
llOwnerSay("@STOP - stop recording.");
llOwnerSay("@IGNORE - ignore the recording.");
llOwnerSay("@SHOW - show what your recorded.");
llOwnerSay("@SEND - send the recording.");
llOwnerSay("@MAIL <mailadress> - set the mail adress.");
llOwnerSay("@SUBJECT subject - set the mail subject.");
llOwnerSay("@LIST - list messages in mail buffer.");
llOwnerSay("@SELECT <message> - select message from mail buffer.");
llOwnerSay("@READ - read current message from mail buffer.");
llOwnerSay("@NEXT - read next message from mail buffer.");
llOwnerSay("@PREV - read previous message from mail buffer.");
llOwnerSay("@FIRST - read first message from mail buffer.");
llOwnerSay("@LAST - read last message from mail buffer.");
llOwnerSay("@DELETE - delete current message from mail buffer.");
llOwnerSay("@CLEAR - clear the mail buffer.");
llOwnerSay("@REPLY - reply to current message.");
llOwnerSay("@RESET - reset the script.");
llOwnerSay("@HOME - set the home mail adress.");
llOwnerSay("@OFF - switch mailbox OFF.");
llOwnerSay("@ON - switch mailbox ON.");
}

/////////////////////////////////////////////
// default
/////////////////////////////////////////////

default
{
link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_HELP)
{
Help();
}
}
}

// End SL Mail Help V1.2.lsl
</lsl>
</div>
</div>
[[Image:slmail.info.jpg]]

{{LSLC|Library}}

SL Mail V1.2

Flennan Roffo — Wed, 09 Feb 2011 23:19:22 GMT

Flennan Roffo: /* IMPORTANT NOTICE */

{{LSL Header}} __NOTOC__
<div id="box">
='''Second Life mail client'''=
<div style="padding: 0.5em">

'''Send and receive email from within Second Life from and to any address.'''

Implemented with Address Book function (in a notecard named 'Address Book') to stores addresses by name and to compile groups of named addresses. Current version is stand-alone (no server functionality) and uses chat commands only.

[[Image:BannerSLMail.jpg]]

URL: [http://www.slmail.info slmail.info] <strike>(website coming soon!)</strike> <b>url slmail.info no longer used for SL Mail, and was taken for some other purpose.</b>

</div>
</div>

<div id="box">

=Release Notes V1.2=
<div style="padding: 0.5em">
SL Mail V1.2 Release notes (edition 2, 4 sept 2007)

===IMPORTANT NOTICE===

Development of SL Mail was abandoned midyear 2008. The domain slmail.info was abandoned and is now taken by another domain holder (ISS) who has nothing to do with SL Mail.

SL Mail is considered for redevelopment under the same terms, using a version of the ''Serverless Key Exchange'' script. This allows mail clients to exchange their key adresses to other rezzed mail clients in world, and send each other info about the public name they use, and other info that could be usefull. This protocol does not use a central server.

See: [https://wiki.secondlife.com/wiki/Serverless_Key_Exchange Serverless Key Exchange]

Future annoucements about SL Mail development will be made here.
</div>
</div>

<div id="box">

=='''LICENCE INFO'''==
<div style="padding: 0.5em">
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>.
</div>
</div>

<div id="box">

=='''PRODUCTION & MAINTANENCE'''==
<div style="padding: 0.5em">
by Logic Scripted Products and Script Services

[[Image:Logicbanner1.jpg]]

URL: [http://www.logicscripts.org logicscripts.org] (website coming soon!)

SLurl:
{{SLurl
|region=Peacock Park
|x=189
|y=226
|z=69
|title=Logic Scripted products and Script services
|}}

Contact: [[User:Flennan Roffo|Flennan Roffo]]

Email: [mailto:info@slmail.info '''info'''] or [mailto:Flennan.Roffo@slmail.info '''Flennan Roffo''']
'''* The slmail.info URL appears to not be registered and this information appears to be out of date. *'''
</div>
</div>

<div id="box">

=='''DESCRIPTION'''==
<div style="padding: 0.5em">
SL Mail V1.2 is a simple tool to send and receive mail from within SL.
You can either compose a message yourself using chat recording, or choose a notecard from inventory to send. The Address Book functionality allows you to use short names for mail recipients stored in a notecard. The current version does not have a persisent mail address. Watch out for the upcoming next release (V1.3) which will facilitate persisent in-world mail addresses and will be enhanced with many new features (See: Requests For Change (RFC).
</div>
</div>

<div id="box">

=='''COMMANDS'''==
<div style="padding: 0.5em">
{| {{Prettytable}}
|-
|{{Hl2}}| '''Command'''
|{{Hl2}}| '''Description'''
|-
||'''@Help'''
||Show Help about available commands
|-
||'''@Record'''
||Starts a chat recording (for owner only).
|-
||'''@Stop'''
||Stops the chat recording without sending
|-
||'''@Continue'''
||Continues a previously stopped chat recording. Lines will be appended to you recording buffer.
|-
||'''@Show'''
||Shows the content of the recording buffer.
|-
||'''@Send'''
||If recording, stops the recording, and sends the mail (need to supply mail address and subject first!)
|-
||'''@Send <notecard>'''
||Sends the content of the notecard, instead of the chat recording.
|-
||'''@Ignore'''
||Ignores your current chat recording.
|-
||'''@Mail <address>'''
||Define the mail address to send to.
|-
||'''@Mail'''
||Shows the current mail address to send to.
|-
||'''@Subject <subject>'''
||Define the subject of the mail.
|-
||'''@Subject'''
||Shows the current mail subject.
|-
||'''@Home <address>'''
||Set the HOME address of the owner (mail will be forwarder to this address when offline).
|-
||'''@Home'''
||Show the HOME address.
|-
||'''@Info'''
||Shows the mail address the object this script is running in uses (e.g. <object-key>@lsl.secondlife.com).
|-
||'''@Read'''
||Reads the current message from the mail buffer (the mail buffer gets filled with mail you receive)
|-
||'''@Select <msg>'''
||Select a message number from the availabe messages in the mail buffer.
|-
||'''@Next'''
||Make next message the current message.
|-
||'''@Prev'''
||Make previous message the current message.
|-
||'''@First'''
||Make the first message the current message.
|-
||'''@Last'''
||Make the last message the current message.
|-
||'''@Clear'''
||Clear the mail buffer
|-
||'''@Delete'''
||Deletes only the current message
|-
||'''@Reply'''
||Starts a chat recording to reply to the current message. Mail adress and subject are filled in automatically.
|}

Note:

* Commands are case insensitive ("@read" == "@READ"). Arguments might not be case insensitive.
</div>
</div>

<div id="box">
=='''ADDRESS BOOK FORMAT'''==
<div style="padding: 0.5em">
A notecard of the name 'Address Book' is read during initialization which may contain Address Book items and Groups.
The notecard is split in two sections, which need to be defined in that particular order.

'''[ADDRESS BOOK]'''

Defines the section in which you can put names for mail addresses, like this:

'''Name1=account@thisdomain.com'''

'''Name2=user@otherdomain.com'''

etc.

'''[GROUP]'''

Define groups of previously defined names under a new name, like for instance:

'''MyGroup=Name1, Name2'''

Note that names of groups and individual mail adresses share the same namespace and must be unique.

So when you filled in your mail adresses in the Address Book, you can now use:

'''@Mail Name1'''

To send mail to <account@thisdomain.com>

or you can use

'''@Mail MyGroup'''

To send mail to <account@thisdomain.com> and <user@otherdomain.com>
Mails will be sent one after another.

Notes:

* Names for Addreses and Groups are case insensitive (e.g. "mary" == "MARY")

* The special address 'Self' can be used in commands where otherwise an address specification can be used. 'Self' is case insensitive (e.g. "self" == "SELF")

</div>
</div>

<div id="box">
=='''LIMITATIONS'''==
<div style="padding: 0.5em">
The current version is limited by the following:

* Chat recording lines are limited by the 255 byte limit

* Output of lines from the mail buffer are also limited by this 255 byte limit

* Incoming mail is limited to a 1000 (1024?) byte limit

* Outgoing mai is limited by a 4096 byte limit, which includes the standard mail header (region/location info on the first two lines)

We are making adjustments to this release to help overcome these limitations. At least the line lenght limit can be overcome by introducing a line continuation character (for example a hyphen '-') that when used at the end of a line appends the next line, so lines longer then 255 bytes are possible then.

To overcome the outgoing mail length limit, the mail can be broken textualy into parts, and each part can be send seperatedely, with an indication in the subject or in an introduced primary line of the mail body to indicate that the mail was split into parts.
For incoming mail and at least to receive mail from other SL Mail programs, a protocol will be introduced to receive mail in parts that are joined together after receiving them to form a single mail.

These enhancements will be made available in the next release (V1.3) of SL Mail
</div>
</div>

<div id="box">
=='''BUGS'''==
<div style="padding: 0.5em">
Report any bugs you find in this release to Logic (IM: Flennan Roffo).
</div>
</div>

<div id="box">
=='''REQUEST FOR CHANGE (RFC)'''==
<div style="padding: 0.5em">
Do you have additional wishes for enhancement of this product?
Contact Flennan Roffo and we will see if they can be implemented in the next release.

Existing RFC's are:

* Menu support for commands.

* Lines on incoming/outgoing mail longer than 255 bytes.

* Send messages longer than 4096 (minus SL mail header) bytes.

* Receive messages longer than 1024 bytes.

* Permanent mail addresses for the SL Mail client (like: <Flennan.Roffo@somedomain.sl>)

Add your RFC!
</div>
</div>

<div id="box">
=='''SL MAIL SUPPORT & DEVELOPMENT'''==
<div style="padding: 0.5em">

In-world join the group "SL Mail" for bug reports, feature requests, the latest SL Mail release, and notices about development issues.
</div>
</div>

<div id="box">

=Scripts=
</div>

<div id="box">
==Script: SL Mail v1.2==
<div style="padding: 0.5em;">
SL Mail core module which scans for incoming mail messages and executes commands used by the owner.
<lsl>
// SL Mail V1.2.lsl
// (c) 2007 Logic Scripted Products and Script Services
// Flennan Roffo

// VERSION
// Version: 1.2

// HISTORY
// Date Version Author Comment
// --------------------------------------------------------------------------------------
// 28 aug 2007 V 1.0 Flennan Roffo Created
//
// 1 sep 2007 V 1.1 Flennan Roffo @Reply empties the recording buffer.
// @Send while recording ends recording
// and sends the mail if a mail address
// and subject are supplied.
// Fixed incorrect date in Unix2DateTime.
// 3 sep 2007 V 1.2 Flennan Roffo Notification options:
// - When online, send an IM when mail is received.
// - When offline, send to HOME mail adress.
// Adressbook
// - Read adress book from config notecard.

// LICENCE
// This program is free software; you can redistribute it and/or
// modify it under the terms of the GNU General Public License
// as published by the Free Software Foundation; either version 2
// of the License, or (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
// (Also available at http://www.gnu.org/copyleft/gpl.html)

// DESCRIPTION
// Let's you record a message and sent to email and get messages and reply to messages.
// Must supply a valid mail adress and non-empty subject using chat commands.

// TODO:
// 1) Check for the maximum length of an email message (including newline and header).
// 2) Read adress book from notecard. *DONE*
// 3) Send incoming mail to personal mail adress when offline. *DONE*
// 4) Alert with an IM when online upon receiving new mail. *DONE*

string SL_MAIL_VERSION = "V 1.2";
string SL_MAIL_DATE = " 2 sep 2007";
integer ErrorFlag = FALSE;
list ScriptList = [ "SL Mail Help V1.2", "SL Mail AddressBook V1.2",
"SL Mail OnlineStatus V1.2", "SL Mail FetchNotecard V1.2" ];
string LSL_DOMAIN="lsl.secondlife.com";
integer StatusOnline=FALSE;

// Commands

string COMMAND_RECORD = "@RECORD";
string COMMAND_CONTINUE = "@CONTINUE";
string COMMAND_STOP = "@STOP";
string COMMAND_MAIL = "@MAIL";
string COMMAND_SUBJECT = "@SUBJECT";
string COMMAND_SEND = "@SEND";
string COMMAND_SEE = "@SEE";
string COMMAND_IGNORE = "@IGNORE";
string COMMAND_READ = "@READ";
string COMMAND_DELETE = "@DELETE";
string COMMAND_CLEAR = "@CLEAR";
string COMMAND_REPLY = "@REPLY";
string COMMAND_NEXT = "@NEXT";
string COMMAND_PREV = "@PREV";
string COMMAND_FIRST = "@FIRST";
string COMMAND_LAST = "@LAST";
string COMMAND_LIST = "@LIST";
string COMMAND_SELECT = "@SELECT";
string COMMAND_HELP = "@HELP";
string COMMAND_INFO = "@INFO";
string COMMAND_RESET = "@RESET";
string COMMAND_SHOW = "@SHOW";
string COMMAND_ON = "@ON";
string COMMAND_OFF = "@OFF";
string COMMAND_HOME = "@HOME";
string COMMAND_LOAD = "@LOAD";
string COMMAND_ADDRESS = "@ADDRESS";

// Recording

integer Recording = FALSE;

list ChatRecording=[];
integer NumLines=0;
integer Length=0;

list TimeList=[];
list AddressList=[];
list SubjectList=[];
list BodyList=[];
integer NumMessages=0;
integer CurrentMessage=-1;

float MAIL_FETCH_INTERVAL=5.0;

// Link Messages

integer MSG_HELP = 10000;
integer MSG_STATUS_ONLINE = 30000;
integer MSG_STATUS_OFFLINE = 30100;

integer MSG_MESSAGE_SETADDRESS = 90000;
integer MSG_MESSAGE_GETADDRESS = 90050;
integer MSG_MESSAGE_SETSUBJECT = 90100;
integer MSG_MESSAGE_GETSUBJECT = 90150;
integer MSG_MESSAGE_SEND = 90200;
integer MSG_MESSAGE_SENDHOME = 90300;
integer MSG_MESSAGE_SEND_NOTECARD = 90400;
integer MSG_MESSAGE_ADDRESSBOOK = 90500;
integer MSG_MESSAGE_GETHOME = 90600;
integer MSG_MESSAGE_SETHOME = 90700;
integer MSG_MESSAGE_INFO = 90800;

integer MSG_ADDRESSBOOK_LOADED = 91000;
integer MSG_ADDRESSBOOK_ERROR = 91100;

integer MSG_MESSAGE_REPLY = 99000;

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////// Unix Time conversion //////////////////

integer DAYS_PER_YEAR = 365; // Non leap year
integer SECONDS_PER_YEAR = 31536000; // Non leap year
integer SECONDS_PER_DAY = 86400;
integer SECONDS_PER_HOUR = 3600;
integer SECONDS_PER_MINUTE = 60;

////////////////////////////// LeapYear() /////////////////////////////

integer LeapYear(integer year)
{
if (year % 4 == 0)
{
if (year % 100 == 0)
{
if (year % 400 == 0)
{
return 1;
}
else
{
return 0;
}
}
else
{
return 1;
}
}
else
{
return 0;
}
}

////////////////////////////// DaysPerMonth() ///////////////////////////////////////

integer DaysPerMonth(integer year,integer month)
{
if (month < 8)
{
if (month % 2 == 0)
{
if (month == 2)
{
if (LeapYear(year))
{
return 29;
}
else
{
return 28;
}
}
else
{
return 30;
}
}
else
{
return 31;
}
}
else
{
if (month % 2 == 0)
{
return 31;
}
else
{
return 30;
}
}
}

/////////////////////////// DaysPerYear() ////////////////////////////////////

integer DaysPerYear(integer year)
{
if (LeapYear(year))
return DAYS_PER_YEAR + 1;
else
return DAYS_PER_YEAR;
}

/////////////////////////////// Unix2DataTime() ///////////////////////////////////////

list Unix2DateTime(integer unixtime)
{
integer days_since_1_1_1970 = unixtime / SECONDS_PER_DAY;
integer day = days_since_1_1_1970 + 1;
integer year = 1970;
integer days_per_year = DaysPerYear(year);

while (day > days_per_year)
{
day -= days_per_year;
++year;
days_per_year = DaysPerYear(year);
}

integer month = 1;
integer days_per_month = DaysPerMonth(year,month);

while (day > days_per_month)
{
day -= days_per_month;

if (++month > 12)
{
++year;
month = 1;
}

days_per_month = DaysPerMonth(year,month);
}

integer seconds_since_midnight = unixtime % SECONDS_PER_DAY;
integer hour = seconds_since_midnight / SECONDS_PER_HOUR;
integer second = seconds_since_midnight % SECONDS_PER_HOUR;
integer minute = second / SECONDS_PER_MINUTE;
second = second % SECONDS_PER_MINUTE;

return [ year, month, day, hour, minute, second ];
}

///////////////////////////////// MonthName() ////////////////////////////

list MonthNameList = [ "JAN", "FEB", "MAR", "APR", "MAY", "JUN",
"JUL", "AUG", "SEP", "OCT" , "NOV", "DEC" ];

string MonthName(integer month)
{
if (month >= 0 && month < 12)
return llList2String(MonthNameList, month);
else
return "";
}

///////////////////////////////// DateString() ///////////////////////////

string DateString(list timelist)
{
integer year = llList2Integer(timelist,0);
integer month = llList2Integer(timelist,1);
integer day = llList2Integer(timelist,2);

return (string)day + "-" + MonthName(month - 1) + "-" + (string)year;
}

///////////////////////////////// TimeString() ////////////////////////////

string TimeString(list timelist)
{
integer hour = llList2Integer(timelist,3);
integer minute = llList2Integer(timelist,4);
integer second = llList2Integer(timelist,5);
string hourstr = (string)hour;
string minutestr = (string)minute;
string secondstr = (string)second;

if (hour < 10) hourstr = "0" + hourstr;
if (minute < 10) minutestr = "0" + minutestr;
if (second < 10) secondstr = "0" + secondstr;
return hourstr + ":" + minutestr + ":" + secondstr;
}

/////////////////////////////////// SendMail() /////////////////////////////////////

SendMail(string body)
{
// llOwnerSay("Sending message to '" + address + "' with subject '" + subject +"'.");
llMessageLinked(LINK_THIS, MSG_MESSAGE_SEND, body, NULL_KEY);
}

///////////////////////////////// SendHome() ///////////////////////////////////////

SendHome(string subject, string body)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SENDHOME, body, (key)subject);
}

///////////////////////////////// Show() ////////////////////////////////////////////

Show()
{
integer i;

llOwnerSay("Current chat recording is:");
llOwnerSay("--------------------------");

for (i = 0; i < NumLines; ++i)
{
llOwnerSay(llList2String(ChatRecording,i));
}

llOwnerSay("--------------------------");
llOwnerSay("Lines is " + (string)NumLines);
llOwnerSay("Message length is " + (string)Length);
}

/////////////////////////////// Read() /////////////////////////////////////////

Read()
{
llOwnerSay("Reading message " + (string)CurrentMessage + " from mail buffer.");
integer time = (integer)llList2Integer(TimeList,CurrentMessage);
list timelist=Unix2DateTime(time);
string Address = llList2String(AddressList,CurrentMessage);
string Subject = llList2String(SubjectList,CurrentMessage);
string Body = llList2String(BodyList,CurrentMessage);
llOwnerSay("Date : " + DateString(timelist));
llOwnerSay("Time : " + TimeString(timelist));
llOwnerSay("Address: " + Address);
llOwnerSay("Subject: " + Subject);
llOwnerSay("Begin of message body:");
llOwnerSay("-------------------------");
list bodylist=llParseStringKeepNulls(Body, [ "\n" ], []);
integer num=llGetListLength(bodylist);
integer i;

for (i = 0; i < num; ++i)
{
llOwnerSay(llList2String(bodylist,i));
}

llOwnerSay("-------------------------");
llOwnerSay("End of message body.");
}

////////////////////////////////////// List ////////////////////////////////////////////

List()
{
llOwnerSay("The mail buffer contains the following messages:\n");

integer i;

for (i = 0; i < NumMessages; ++i)
{
integer time=llList2Integer(TimeList,i);
list timelist=Unix2DateTime(time);
if (i > 0) llOwnerSay("+-+-+-+-+-+-+-+-+-+-+-+-");
llOwnerSay("Message: " + (string)i);
llOwnerSay("Date : " + DateString(timelist));
llOwnerSay("Time : " + TimeString(timelist));
llOwnerSay("From: " + llList2String(AddressList,i));
llOwnerSay("Subject: " + llList2String(SubjectList,i));
}
}

//////////////////////////// NotifyNewMail() /////////////////////////

NotifyNewMail(string time, string address, string subject, string body)
{
list timelist=Unix2DateTime((integer)time);

if (StatusOnline)
{
llInstantMessage(llGetOwner(), "You received a new mail message on "
+ DateString(timelist) + " at " + TimeString(timelist)
+ " from " + address
+ " with the subject " + subject);
}
else
{
SendHome("FW: " + subject, "Received at: " + DateString(timelist) + " " + TimeString(timelist) + "\nFrom: " + address
+ "\nBegin message body:\n-------------------\n" + body + "\n-------------------\nEnd message body.");
}
}

///////////////////////////// ResetOtherScripts() //////////////////////

ResetOtherScripts()
{
string name;
integer i;
integer num=llGetListLength(ScriptList);

for (i = 0; i < num; ++i)
{
name = llList2String(ScriptList,i);

if (llGetInventoryType(name) == INVENTORY_SCRIPT)
{
llResetOtherScript(name);
}
else
{
llOwnerSay("Error - script '" + name + "' not found.");
ErrorFlag = TRUE;
}
}
}

//////////////////////////////////////
// default
//////////////////////////////////////

default
{
////////////////////// state_entry() /////////////////////////

state_entry()
{
llOwnerSay("Welcome to SL Mail, released under GNU software licence.");
llOwnerSay("Version " + SL_MAIL_VERSION + " " + SL_MAIL_DATE);
llOwnerSay("Produced by Logic Scripted Products & Product Services");
llOwnerSay("Free memory: " + (string)llGetFreeMemory());
ResetOtherScripts();

if (ErrorFlag)
state Error;
}

/////////////////////// on_rez() //////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

/////////////////////// changed() ////////////////////////////

changed(integer mask)
{
if (mask & CHANGED_INVENTORY)
{
llResetScript();
}
}

/////////////////////// link_message() /////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
else if (msgid == MSG_ADDRESSBOOK_LOADED)
{
state running;
}
else if (msgid == MSG_ADDRESSBOOK_ERROR)
{
state Error;
}
}
}

///////////////////////////////////////
// state running
//////////////////////////////////////

state running
{
///////////////////////// state_entry() //////////////////////

state_entry()
{
llListen(0, "", llGetOwner(), "");
llOwnerSay("SL mail ready.\nSend and Get mail in Second Life.\nType @HELP for more info.");
llMessageLinked(LINK_THIS, MSG_MESSAGE_INFO, "", NULL_KEY);
llGetNextEmail("", "");
llSetTimerEvent(MAIL_FETCH_INTERVAL);
}

//////////////////////// on_rez() ////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

//////////////////////// listen() ////////////////////////////

listen(integer channel, string name, key id, string message)
{
string trimmessage=llStringTrim(message,STRING_TRIM);
list parse = llParseStringKeepNulls(trimmessage, [ " "], []);
string command = llToUpper(llList2String(parse,0));
string arg = llStringTrim(llList2String(parse,1),STRING_TRIM);
integer nargs = llGetListLength(parse);
string argstr="";

if (nargs > 1) argstr=llGetSubString(message, llSubStringIndex(message, " ") + 1, -1);

if (Recording)
{
if (command == COMMAND_STOP)
{
llOwnerSay("Recording stopped. Type @SHOW to see the message you have entered,"
+ " or @SEND to send it.");
Recording = FALSE;
return;
}
if (command == COMMAND_SEND)
{
Recording = FALSE;

SendMail(llDumpList2String(ChatRecording, "\n"));
return;
}
else
{
ChatRecording = (ChatRecording=[]) + ChatRecording + [ message ];
++NumLines;
Length += llStringLength(message) + 2;
return;
}
}
else
{
if (command == COMMAND_RECORD)
{
llOwnerSay("Start recording your message. Type @STOP to end recording.");
ChatRecording = [];
NumLines=0;
Length=0;
Recording = TRUE;
return;
}
if (command == COMMAND_CONTINUE)
{
llOwnerSay("Continue recording your message. Type @STOP to end recording.");
Recording = TRUE;
return;
}
if (command == COMMAND_REPLY)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
string address=llList2String(AddressList,CurrentMessage);
string subject="Re: " + llList2String(SubjectList,CurrentMessage);
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETADDRESS, address, NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETSUBJECT, subject, NULL_KEY);
ChatRecording = [];
NumLines=0;
Length=0;
Recording = TRUE;
}
return;
}
if (command == COMMAND_MAIL)
{
string mailaddress=llStringTrim(argstr,STRING_TRIM);

if (mailaddress != "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETADDRESS, mailaddress, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETADDRESS, "", NULL_KEY);
}
return;
}
if (command == COMMAND_SUBJECT)
{
string mailsubject=llStringTrim(argstr,STRING_TRIM);

if (mailsubject != "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETSUBJECT, mailsubject, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETSUBJECT, "", NULL_KEY);
}
return;
}
if (command == COMMAND_STOP)
{
llOwnerSay("Not recording.");
return;
}
if (command == COMMAND_SEND)
{
if (nargs == 1)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
SendMail(llDumpList2String(ChatRecording, "\n"));
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SEND_NOTECARD, argstr, NULL_KEY);
}
return;
}
if (command == COMMAND_IGNORE)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
ChatRecording = [];
NumLines = 0;
Length = 0;
}
return;
}
if (command == COMMAND_SHOW)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
Show();
}
return;
}
if (command == COMMAND_READ)
{
if (NumMessages == 0)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
Read();
}
return;
}
if (command == COMMAND_NEXT)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == NumMessages - 1)
{
llOwnerSay("Already at last message.");
}
else
{
++CurrentMessage;
Read();
}
}
return;
}
if (command == COMMAND_PREV)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == 0)
{
llOwnerSay("Already at first message.");
}
else
{
--CurrentMessage;
Read();
}
}
return;
}
if (command == COMMAND_FIRST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == 0)
{
llOwnerSay("Already at first message.");
}
else
{
CurrentMessage = 0;
Read();
}
}
return;
}
if (command == COMMAND_LAST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == NumMessages - 1)
{
llOwnerSay("Already at last message.");
}
else
{
CurrentMessage = NumMessages - 1;
Read();
}
}
return;
}
if (command == COMMAND_LIST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
List();
}
return;
}
if (command == COMMAND_SELECT)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else if (nargs == 1)
{
llOwnerSay("Need to supply a message number.");
}
else
{
integer msgnum = (integer)arg;

if (msgnum < 0 || msgnum >= NumMessages)
{
llOwnerSay("Message number " + arg + " not in mail buffer.");
}
else
{
CurrentMessage = msgnum;
}
}
return;
}
if (command == COMMAND_DELETE)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
TimeList = llDeleteSubList(TimeList,CurrentMessage,CurrentMessage);
AddressList = llDeleteSubList(AddressList,CurrentMessage,CurrentMessage);
SubjectList = llDeleteSubList(SubjectList,CurrentMessage,CurrentMessage);
BodyList = llDeleteSubList(BodyList,CurrentMessage,CurrentMessage);
--NumMessages;

if (NumMessages == 0)
{
CurrentMessage = -1;
}
else if (CurrentMessage >= NumMessages)
{
CurrentMessage = NumMessages - 1;
}
}
return;
}
if (command == COMMAND_CLEAR)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
TimeList=[];
AddressList=[];
SubjectList=[];
BodyList=[];
NumMessages=0;
CurrentMessage=-1;
}
return;
}
if (command == COMMAND_HELP)
{
llMessageLinked(LINK_THIS, MSG_HELP, arg, NULL_KEY);
return;
}
if (command == COMMAND_INFO)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_INFO, "", NULL_KEY);
return;
}
if (command == COMMAND_SHOW)
{
Show();
return;
}
if (command == COMMAND_RESET)
{
llResetScript();
return;
}
if (command == COMMAND_OFF)
{
state not_running;
}
if (command == COMMAND_HOME)
{
if (nargs==1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETHOME, "", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETHOME, argstr, NULL_KEY);
}
return;
}
}
}

///////////////////////// timer() ///////////////////////////////

timer()
{
llGetNextEmail("", "");
}

///////////////////////// email() ///////////////////////////////

email(string time, string address, string subject, string body, integer queued)
{
NotifyNewMail(time, address, subject, body);
TimeList = (TimeList=[]) + TimeList + [time];
AddressList = (AddressList=[]) + AddressList + [address];
SubjectList = (SubjectList=[]) + SubjectList + [subject];
BodyList = (BodyList=[]) + BodyList + [body];
++NumMessages;

if (CurrentMessage == -1)
{
CurrentMessage = 0;
}
else
{
CurrentMessage = NumMessages - 1;
}
}

///////////////////// link_message() //////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
else if (msgid == MSG_MESSAGE_REPLY)
{
llOwnerSay(message);
}
}
}

//////////////////////////////////
// state not_running
//////////////////////////////////

state not_running
{
///////////////////// state_entry() //////////////////////////

state_entry()
{
llOwnerSay("SL Mailbox switched OFF. Say @ON to switch it back on.");
llListen(0, "", llGetOwner(), "");
}

//////////////////// on_rez() ///////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

//////////////////// listen() ////////////////////////////////

listen(integer chan, string name, key id, string message)
{
string command=llToUpper(message);

if (command == COMMAND_ON)
{
state running;
}
}

///////////////////// link_message() //////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
}
}

//////////////////////////////////
// state Error
//////////////////////////////////

state Error
{
state_entry()
{
llOwnerSay("Error in SL Mail: not all component scripts found.");
}

changed(integer mask)
{
if (mask & CHANGED_INVENTORY)
{
llResetScript();
}
}

on_rez(integer start_param)
{
llResetScript();
}
}

//////////////////////////////////
// End SL Mail V1.2.lsl
//////////////////////////////////
</lsl>
</div>
</div>

<div id="box">

==Script: SL Mail Address Book V1.2==
<div style="padding: 0.5em;">
Read and interpret the contents of the Address Book.
<lsl>
// SL Mail AddressBook V1.2.lsl
//
// DESCRIPTION
//
// Read the Address Book from a notecard named "Address Book".
//
// The Address Book has the following format:
//
// [ADDRESS BOOK]
// Name1=username@yourdomain.com
// Name2=otheruser@otherdomain.com
// ...
// [GROUP]
// group1=Name1, Name2
// ...
//
// Notes:
// 1. Group and Name share the same namespace, and must be unique.
// 2. It is allowed to have a name in the addressbook with multiple addresses, seperated by comma's.
//
/////////////////////////////////////////////////

string CurrentMailAddress = "";
string CurrentMailSubject = "";
integer StatusOnline = FALSE;

// Fetch or Send notecard

string Notecard2Fetch="";

// Address Book Names

list AddressBookList=[];
list MailAddressList=[];

string STRING_HOME="HOME";
string STRING_SELF="SELF";

// Address Book Groups

list GroupList=[];
list GroupNameList=[];

string LSL_DOMAIN = "lsl.secondlife.com";

// Read Address Book notecard

string ADDRESSBOOK_NOTECARD="Address Book";
integer Line=0;
key reqAddressBook=NULL_KEY;
float TIMEOUT_INTERVAL=5.0;

integer Section=0;
integer SECTION_ADDRESS_BOOK=1;
integer SECTION_GROUP=2;
string STRING_ADDRESS_BOOK="ADDRESS BOOK";
string STRING_GROUP="GROUP";

// Links messages

integer MSG_MESSAGE_SETADDRESS = 90000;
integer MSG_MESSAGE_GETADDRESS = 90050;
integer MSG_MESSAGE_SETSUBJECT = 90100;
integer MSG_MESSAGE_GETSUBJECT = 90150;
integer MSG_MESSAGE_SEND = 90200;
integer MSG_MESSAGE_SENDHOME = 90300;
integer MSG_MESSAGE_SEND_NOTECARD = 90400;
integer MSG_MESSAGE_ADDRESSBOOK = 90500;
integer MSG_MESSAGE_GETHOME = 90600;
integer MSG_MESSAGE_SETHOME = 90700;
integer MSG_MESSAGE_INFO = 90800;
integer MSG_MESSAGE_NOTIFY = 90900;

integer MSG_ADDRESSBOOK_LOADED = 91000;
integer MSG_ADDRESSBOOK_ERROR = 91100;

integer MSG_MESSAGE_REPLY = 99000;

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////// GetSelfAddress() ///////////////////////

string GetSelfAddress()
{
return (string)llGetKey() + "@" + LSL_DOMAIN;
}

///////////////////////////// Info() /////////////////////////////////

Info()
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "The mail address for this object is: "
+ GetSelfAddress() + ".", NULL_KEY);
}

///////////////////////////////// IsValidKeyFormat() //////////////////////

integer IsValidKeyFormat(string str)
{
string keychars = "0123456789abcdef";

if (llStringLength(str) != 36)
return FALSE;

if( (llGetSubString( str, 8, 8 ) != "-" ||
llGetSubString( str, 13, 13 ) != "-" ||
llGetSubString( str, 18, 18 ) != "-" ||
llGetSubString( str, 23, 23 ) != "-" ) )
return FALSE;

integer i;

for (i = 0; i < 8; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 9; i < 13; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 14; i < 18; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 19; i < 23; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 24; i < 36; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

return TRUE;
}

///////////////////////////////// ValidMailAddress() ////////////////////////

integer ValidMailAddress(string arg)
{
string adress = llToLower(llStringTrim(arg,STRING_TRIM));

if (adress == "")
return FALSE;

list parse = llParseStringKeepNulls(adress, [ "@" ], []);
string account = llList2String(parse,0);
string domain = llList2String(parse,1);

if (llGetListLength(parse) != 2 || llStringLength(account) == 0 || llStringLength(domain) == 0)
return FALSE;

if (domain == LSL_DOMAIN)
{
return IsValidKeyFormat(account);
}
else
{
list parsedomain = llParseString2List(domain, [ "." ], []);

if (llGetListLength(parsedomain) < 2)
return FALSE;

integer num = llGetListLength(parsedomain);
integer i;

for (i = 0; i < num; ++i)
{
if (llStringLength(llList2String(parsedomain,i)) < 2)
{
return FALSE;
}
}
}

return TRUE;
}

/////////////////////////////////// GetAddressStr() ///////////////////

string GetAndCheckAddressStr(string address)
{
list addresslist = llCSV2List(address);
integer num=llGetListLength(addresslist);
integer i;
string addressstr="";
string curaddress="";

for (i = 0; i < num; ++i)
{
curaddress=llList2String(addresslist,i);

if (ValidMailAddress(curaddress))
{
addressstr = (addressstr="") + addressstr + curaddress + ",";
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address string: '"
+ curaddress + "'.", NULL_KEY);
}
}

return llGetSubString(addressstr, 0, -2);
}

///////////////////////////// ProcessLine() ////////////////////////////

ProcessLine(string rawline)
{
string line=llStringTrim(rawline,STRING_TRIM);
string first=llGetSubString(line,0,0);
string last=llGetSubString(line,-1,-1);

// Ignore a blank line or comment line
if (line == "" || first == "#")
return;

// Check for the right section

if (first == "[" && last == "]")
{
string sectionstr=llToUpper(llStringTrim(llGetSubString(line,1,-2),STRING_TRIM));

if (sectionstr == STRING_ADDRESS_BOOK)
{
Section = SECTION_ADDRESS_BOOK;
}
else if (sectionstr == STRING_GROUP)
{
if (Section == 0)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1)
+ ". Group section defined before Address Book section.", NULL_KEY);
}
else
{
Section = SECTION_GROUP;
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid section header '" + sectionstr
+ "' in " + ADDRESSBOOK_NOTECARD + " at line " + (string)(Line + 1) + ".", NULL_KEY);
}

return;
}

// Must be in a section

if (Section == 0)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ". No section header.", NULL_KEY);
return;
}

list parse=llParseString2List(line, [ "=" ], []);
integer num=llGetListLength(parse);

// Format must be correct

if (num != 2)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line+1) + ":\n" + rawline, NULL_KEY);
return;
}

if (Section == SECTION_ADDRESS_BOOK)
{
string name=llStringTrim(llList2String(parse,0),STRING_TRIM);

if (llToUpper(name) == STRING_SELF)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address book entry '" + name
+ "'. Reserved word in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ".", NULL_KEY);
}
else if (llListFindList(AddressBookList, [ name ]) == -1)
{
string address=llStringTrim(llList2String(parse,1),STRING_TRIM);
string addressstr=GetAndCheckAddressStr(address);

if (addressstr != "")
{
AddressBookList = (AddressBookList=[]) + AddressBookList + [ name ];
MailAddressList = (MailAddressList=[]) + MailAddressList + [ addressstr ];
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "No valid mail address for '" + name
+ "'. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line " + (string)(Line + 1)
+ ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Name '" + name
+ "' already defined. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else // Group
{
string group=llStringTrim(llList2String(parse,0),STRING_TRIM);

if (llToUpper(group) == STRING_SELF)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address book entry '" + group
+ "'. Reserved word in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ".", NULL_KEY);
}
else if (llListFindList(AddressBookList, [ group ]) == -1)
{
if (llListFindList(GroupList, [ group ]) == -1)
{
string names=llStringTrim(llList2String(parse,1),STRING_TRIM);
list namelist=llCSV2List(names);
integer num=llGetListLength(namelist);
integer i;
integer index;
string name;
string namestr="";

for (i = 0; i < num; ++i)
{
name=llList2String(namelist,i);
index=llListFindList(AddressBookList, [ name ]);

if (index == -1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Name '" + name + "' defined in Group '"
+ group + "' not found in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
else
{
namestr = (namestr="") + namestr + name + ",";
}
}

if (namestr != "")
{
namestr=llGetSubString(namestr,0,-2);
GroupList = (GroupList=[]) + GroupList + [ group ];
GroupNameList = (GroupNameList=[]) + GroupNameList + [ namestr ];
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' has no valid names. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' already defined in Group. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' already defined in Address Book. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
}

//////////////////////////////// GetGroupAddressList ///////////////

string GetGroupAddressList(string group)
{
integer index=llListFindList(GroupList, [ group ]);
integer i;
integer num=llGetListLength(GroupList);
string grouplist="";

if (index == -1)
{
return "";
}
else
{
for (i = index; i < num; ++i)
{
if (llList2String(GroupList,i) == group)
{
grouplist = (grouplist="") + grouplist + llList2String(GroupNameList,i) + ",";
}
}

if (grouplist != "") grouplist=llGetSubString(grouplist,0,-2); // remove last ","
return grouplist;
}
}

//////////////////////////////// SetMailAddress() //////////////////

SetMailAddress(string address)
{
integer index=llListFindList(AddressBookList, [ address ]);

if (index == -1)
{
index=llListFindList(GroupList, [ address ]);

if (index == -1)
{
if (llToUpper(address) == STRING_SELF)
{
CurrentMailAddress = GetSelfAddress();
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
else if(ValidMailAddress(address))
{
CurrentMailAddress = address;
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Mail adress " + address
+ " : not found in adress book or invalid format.", NULL_KEY);
}
}
else
{
CurrentMailAddress = GetGroupAddressList(address);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject set to: "
+ CurrentMailAddress, NULL_KEY);
}
}
else
{
CurrentMailAddress = llList2String(MailAddressList,index);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
}

/////////////////////////////////// SendMail() ///////////////////////

SendMail(string message)
{
if (CurrentMailAddress == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "SendMail: No mail address defined.", NULL_KEY);
}
else if (CurrentMailSubject == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "SendMail: No subject defined.", NULL_KEY);
}
else
{
list mailaddresslist=llCSV2List(CurrentMailAddress);
integer num=llGetListLength(mailaddresslist);
integer i;
string address;

for (i = 0; i < num; ++i)
{
address=llList2String(mailaddresslist,i);
llEmail(address, CurrentMailSubject, message);
}
}
}

/////////////////////////////////// SendMailHome() ////////////////////

SendMailHome(string message, string subject)
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, STRING_HOME
+ " not set. Set your home adress with @HOME <address>.", NULL_KEY);
}
else
{
string homeaddress=llList2String(AddressBookList,index);
list homelist=llCSV2List(homeaddress);
integer num=llGetListLength(homelist);
integer i;
string address;

for (i = 0; i < num; ++i)
{
address=llList2String(homelist,i);
llEmail(address, subject, message);
}
}
}

/////////////////////////////////// GetHomeAddress() //////////////////

string GetHomeAddress()
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
return "not set";
}
else
{
return llList2String(MailAddressList,index);
}
}

/////////////////////////////////// SetHomeAddress() //////////////////

SetHomeAddress(string address)
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
AddressBookList = (AddressBookList=[]) + [ STRING_HOME ] + AddressBookList;
MailAddressList = (MailAddressList=[]) + [ GetAndCheckAddressStr(address) ] + MailAddressList;
}
else
{
MailAddressList = llListReplaceList(MailAddressList, [ GetAndCheckAddressStr(address) ], index, index);
}
}

////////////////////////////////////
// default
////////////////////////////////////

default
{
///////////////////// state_entry() //////////////////

state_entry()
{
Line=0;
Section=0;
llSetTimerEvent(TIMEOUT_INTERVAL);
reqAddressBook=llGetNotecardLine(ADDRESSBOOK_NOTECARD, 0);
}

///////////////////// dataserver() ////////////////////

dataserver(key id, string data)
{
if (id == reqAddressBook)
{
reqAddressBook = NULL_KEY;

if (data != EOF)
{
ProcessLine(data);
reqAddressBook=llGetNotecardLine(ADDRESSBOOK_NOTECARD, ++Line);
}
else
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_LOADED, "", NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Address Book loaded.", NULL_KEY);
state running;
}
}
}

//////////////////////// timer() ///////////////////////////

timer()
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_ERROR, "", NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Could not read Address Book: "
+ ADDRESSBOOK_NOTECARD + ".", NULL_KEY);
llSetTimerEvent(0.0);
}
}

////////////////////////////////////////////
// state running
////////////////////////////////////////////

state running
{
state_entry()
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_LOADED, "", NULL_KEY);
}

///////////////////////// link_message() ////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_MESSAGE_GETSUBJECT)
{
if (CurrentMailSubject == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject is empty.", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject is: "
+ CurrentMailSubject, NULL_KEY);
}
}
else if (msgid == MSG_MESSAGE_SETSUBJECT)
{
CurrentMailSubject = message;
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject set to: "
+ CurrentMailSubject, NULL_KEY);
}
else if (msgid == MSG_MESSAGE_GETADDRESS)
{
if (CurrentMailAddress == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address is empty.", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address is: "
+ CurrentMailAddress, NULL_KEY);
}
}
else if (msgid == MSG_MESSAGE_SETADDRESS)
{
SetMailAddress(message);
}
else if (msgid == MSG_MESSAGE_SEND)
{
if (message == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Body of message to send is empty. "
+ "No mail is send.", NULL_KEY);
}
else
{
SendMail(message);
}
}
else if (msgid == MSG_MESSAGE_SENDHOME)
{
SendMailHome(message, (string)id);
}
else if (msgid == MSG_MESSAGE_SEND_NOTECARD)
{
if (llGetInventoryType(message) == INVENTORY_NOTECARD)
{
Notecard2Fetch = message;
llMessageLinked(LINK_THIS, MSG_NOTECARD_READ, message, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Notecard " + message + " not found.", NULL_KEY);
}
}
else if (msgid == MSG_NOTECARD_FETCHED)
{
if (message == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Notecard " + Notecard2Fetch
+ " was empty or could not be read.", NULL_KEY);
}
else
{
SendMail(message);
}
}
else if (msgid == MSG_MESSAGE_GETHOME)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Home address is: " + GetHomeAddress() + ".", NULL_KEY);
}
else if (msgid == MSG_MESSAGE_SETHOME)
{
SetHomeAddress(message);
}
else if (msgid == MSG_MESSAGE_INFO)
{
Info();
}
}
}

/////////////////////////////////////
// End SL Mail AddressBook V1.2.lsl
/////////////////////////////////////
</lsl>
</div>
</div>

<div id="box">

==Script: SL Mail FetchNotecard V1.2==
<div style="padding: 0.5em;">
Fetch the contents of a notecard and return it via link message as a string.
<lsl>
// SL Mail FetchNotecard V1.2.lsl
//
//

// Notecard

integer Line=0;
string Notecard2Fetch="";
key reqNotecard=NULL_KEY;
float TIMEOUT_INTERVAL=10.0;
integer Fetched=FALSE;

// Lines

list LineList=[];

// Link messages

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////////////////////
// default
//////////////////////////////////////////

default
{
/////////////////////// dataserver() //////////////////////////////

dataserver(key id, string data)
{
if (id == reqNotecard)
{
reqNotecard=NULL_KEY;

if (data != EOF)
{
LineList = (LineList=[]) + LineList + [ data ];
reqNotecard = llGetNotecardLine(Notecard2Fetch, ++Line);
}
else
{
Fetched=TRUE;
llMessageLinked(LINK_THIS, MSG_NOTECARD_FETCHED, llDumpList2String(LineList, "\n"), NULL_KEY);
llSetTimerEvent(0.0);
}
}
}

/////////////////////// timer() ///////////////////////////////////

timer()
{
if (!Fetched)
{
llMessageLinked(LINK_THIS, MSG_NOTECARD_FETCHED, "", NULL_KEY);
llSetTimerEvent(0.0);
}
}

/////////////////////// link_message() ////////////////////////////

link_message(integer send, integer msgid, string message, key id)
{
if (msgid == MSG_NOTECARD_READ)
{
Line=0;
Notecard2Fetch=message;
LineList=[];
Fetched=FALSE;
reqNotecard=llGetNotecardLine(Notecard2Fetch, Line);
llSetTimerEvent(TIMEOUT_INTERVAL);
}
}
}

// End SL Mail FetchNotecard V1.2.lsl
</lsl>
</div>
</div>

<div id="box">

==Script: SL OnlineStatus V1.2==
<div style="padding: 0.5em;">
Fetch online status of owner.
<lsl>
// SL Mail OnlineStatus V1.2.lsl
//
//

// Online status

key reqOnlineStatus=NULL_KEY;
float STATUS_INTERVAL=2.0;

// Link messages

integer MSG_STATUS_ONLINE = 30000;
integer MS_STATUS_OFFLINE = 30100;

////////////////////////////////
// default
////////////////////////////////

default
{
///////////////////////// state_entry() /////////////////////////

state_entry()
{
reqOnlineStatus=llRequestAgentData(llGetOwner(), DATA_ONLINE);
llSetTimerEvent(STATUS_INTERVAL);
}

///////////////////////// dataserver() //////////////////////////

dataserver(key id, string data)
{
if (id == reqOnlineStatus)
{
reqOnlineStatus = NULL_KEY;

if (data=="1")
{
llMessageLinked(LINK_THIS, MSG_STATUS_ONLINE, "", NULL_KEY);
}
else if (data=="0")
{
llMessageLinked(LINK_THIS, MS_STATUS_OFFLINE, "", NULL_KEY);
}
}
}

///////////////////////// timer() ///////////////////////////////

timer()
{
reqOnlineStatus = llRequestAgentData(llGetOwner(), DATA_ONLINE);
}
}

// End SL Mail OnlineStatus V1.2.lsl
</lsl>
</div>
</div>

<div id="box">

==Script: SL Mail Help V1.2==
<div style="padding: 0.5em;">
Display help information.

<lsl>
// SL Mail Help V1.2.lsl
//
//

integer MSG_HELP = 10000;

///////////////////////////////// Help() ///////////////////////////////////////

Help()
{
llOwnerSay("HELP for SL Mail V1.2.");
llOwnerSay("COMMANDS:");
llOwnerSay("@HELP - displays help info.");
llOwnerSay("@INFO - display mailaddress of this object.");
llOwnerSay("@RECORD - start recording.");
llOwnerSay("@CONTINUE - continue recording.");
llOwnerSay("@STOP - stop recording.");
llOwnerSay("@IGNORE - ignore the recording.");
llOwnerSay("@SHOW - show what your recorded.");
llOwnerSay("@SEND - send the recording.");
llOwnerSay("@MAIL <mailadress> - set the mail adress.");
llOwnerSay("@SUBJECT subject - set the mail subject.");
llOwnerSay("@LIST - list messages in mail buffer.");
llOwnerSay("@SELECT <message> - select message from mail buffer.");
llOwnerSay("@READ - read current message from mail buffer.");
llOwnerSay("@NEXT - read next message from mail buffer.");
llOwnerSay("@PREV - read previous message from mail buffer.");
llOwnerSay("@FIRST - read first message from mail buffer.");
llOwnerSay("@LAST - read last message from mail buffer.");
llOwnerSay("@DELETE - delete current message from mail buffer.");
llOwnerSay("@CLEAR - clear the mail buffer.");
llOwnerSay("@REPLY - reply to current message.");
llOwnerSay("@RESET - reset the script.");
llOwnerSay("@HOME - set the home mail adress.");
llOwnerSay("@OFF - switch mailbox OFF.");
llOwnerSay("@ON - switch mailbox ON.");
}

/////////////////////////////////////////////
// default
/////////////////////////////////////////////

default
{
link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_HELP)
{
Help();
}
}
}

// End SL Mail Help V1.2.lsl
</lsl>
</div>
</div>
[[Image:slmail.info.jpg]]

{{LSLC|Library}}

SL Mail V1.2

Flennan Roffo — Wed, 09 Feb 2011 23:16:24 GMT

Flennan Roffo: /* Release Notes V1.2 */

{{LSL Header}} __NOTOC__
<div id="box">
='''Second Life mail client'''=
<div style="padding: 0.5em">

'''Send and receive email from within Second Life from and to any address.'''

Implemented with Address Book function (in a notecard named 'Address Book') to stores addresses by name and to compile groups of named addresses. Current version is stand-alone (no server functionality) and uses chat commands only.

[[Image:BannerSLMail.jpg]]

URL: [http://www.slmail.info slmail.info] <strike>(website coming soon!)</strike> <b>url slmail.info no longer used for SL Mail, and was taken for some other purpose.</b>

</div>
</div>

<div id="box">

=Release Notes V1.2=
<div style="padding: 0.5em">
SL Mail V1.2 Release notes (edition 2, 4 sept 2007)

===IMPORTANT NOTICE===

Development of SL Mail was abandoned midyear 2008.

SL Mail is considered for redevelopment under the same terms, using a version of the Serverless Key Exchange script.
See: [https://wiki.secondlife.com/wiki/Serverless_Key_Exchange Serverless Key Exchange]

</div>
</div>

<div id="box">
=='''LICENCE INFO'''==
<div style="padding: 0.5em">
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>.
</div>
</div>

<div id="box">

=='''PRODUCTION & MAINTANENCE'''==
<div style="padding: 0.5em">
by Logic Scripted Products and Script Services

[[Image:Logicbanner1.jpg]]

URL: [http://www.logicscripts.org logicscripts.org] (website coming soon!)

SLurl:
{{SLurl
|region=Peacock Park
|x=189
|y=226
|z=69
|title=Logic Scripted products and Script services
|}}

Contact: [[User:Flennan Roffo|Flennan Roffo]]

Email: [mailto:info@slmail.info '''info'''] or [mailto:Flennan.Roffo@slmail.info '''Flennan Roffo''']
'''* The slmail.info URL appears to not be registered and this information appears to be out of date. *'''
</div>
</div>

<div id="box">

=='''DESCRIPTION'''==
<div style="padding: 0.5em">
SL Mail V1.2 is a simple tool to send and receive mail from within SL.
You can either compose a message yourself using chat recording, or choose a notecard from inventory to send. The Address Book functionality allows you to use short names for mail recipients stored in a notecard. The current version does not have a persisent mail address. Watch out for the upcoming next release (V1.3) which will facilitate persisent in-world mail addresses and will be enhanced with many new features (See: Requests For Change (RFC).
</div>
</div>

<div id="box">

=='''COMMANDS'''==
<div style="padding: 0.5em">
{| {{Prettytable}}
|-
|{{Hl2}}| '''Command'''
|{{Hl2}}| '''Description'''
|-
||'''@Help'''
||Show Help about available commands
|-
||'''@Record'''
||Starts a chat recording (for owner only).
|-
||'''@Stop'''
||Stops the chat recording without sending
|-
||'''@Continue'''
||Continues a previously stopped chat recording. Lines will be appended to you recording buffer.
|-
||'''@Show'''
||Shows the content of the recording buffer.
|-
||'''@Send'''
||If recording, stops the recording, and sends the mail (need to supply mail address and subject first!)
|-
||'''@Send <notecard>'''
||Sends the content of the notecard, instead of the chat recording.
|-
||'''@Ignore'''
||Ignores your current chat recording.
|-
||'''@Mail <address>'''
||Define the mail address to send to.
|-
||'''@Mail'''
||Shows the current mail address to send to.
|-
||'''@Subject <subject>'''
||Define the subject of the mail.
|-
||'''@Subject'''
||Shows the current mail subject.
|-
||'''@Home <address>'''
||Set the HOME address of the owner (mail will be forwarder to this address when offline).
|-
||'''@Home'''
||Show the HOME address.
|-
||'''@Info'''
||Shows the mail address the object this script is running in uses (e.g. <object-key>@lsl.secondlife.com).
|-
||'''@Read'''
||Reads the current message from the mail buffer (the mail buffer gets filled with mail you receive)
|-
||'''@Select <msg>'''
||Select a message number from the availabe messages in the mail buffer.
|-
||'''@Next'''
||Make next message the current message.
|-
||'''@Prev'''
||Make previous message the current message.
|-
||'''@First'''
||Make the first message the current message.
|-
||'''@Last'''
||Make the last message the current message.
|-
||'''@Clear'''
||Clear the mail buffer
|-
||'''@Delete'''
||Deletes only the current message
|-
||'''@Reply'''
||Starts a chat recording to reply to the current message. Mail adress and subject are filled in automatically.
|}

Note:

* Commands are case insensitive ("@read" == "@READ"). Arguments might not be case insensitive.
</div>
</div>

<div id="box">
=='''ADDRESS BOOK FORMAT'''==
<div style="padding: 0.5em">
A notecard of the name 'Address Book' is read during initialization which may contain Address Book items and Groups.
The notecard is split in two sections, which need to be defined in that particular order.

'''[ADDRESS BOOK]'''

Defines the section in which you can put names for mail addresses, like this:

'''Name1=account@thisdomain.com'''

'''Name2=user@otherdomain.com'''

etc.

'''[GROUP]'''

Define groups of previously defined names under a new name, like for instance:

'''MyGroup=Name1, Name2'''

Note that names of groups and individual mail adresses share the same namespace and must be unique.

So when you filled in your mail adresses in the Address Book, you can now use:

'''@Mail Name1'''

To send mail to <account@thisdomain.com>

or you can use

'''@Mail MyGroup'''

To send mail to <account@thisdomain.com> and <user@otherdomain.com>
Mails will be sent one after another.

Notes:

* Names for Addreses and Groups are case insensitive (e.g. "mary" == "MARY")

* The special address 'Self' can be used in commands where otherwise an address specification can be used. 'Self' is case insensitive (e.g. "self" == "SELF")

</div>
</div>

<div id="box">
=='''LIMITATIONS'''==
<div style="padding: 0.5em">
The current version is limited by the following:

* Chat recording lines are limited by the 255 byte limit

* Output of lines from the mail buffer are also limited by this 255 byte limit

* Incoming mail is limited to a 1000 (1024?) byte limit

* Outgoing mai is limited by a 4096 byte limit, which includes the standard mail header (region/location info on the first two lines)

We are making adjustments to this release to help overcome these limitations. At least the line lenght limit can be overcome by introducing a line continuation character (for example a hyphen '-') that when used at the end of a line appends the next line, so lines longer then 255 bytes are possible then.

To overcome the outgoing mail length limit, the mail can be broken textualy into parts, and each part can be send seperatedely, with an indication in the subject or in an introduced primary line of the mail body to indicate that the mail was split into parts.
For incoming mail and at least to receive mail from other SL Mail programs, a protocol will be introduced to receive mail in parts that are joined together after receiving them to form a single mail.

These enhancements will be made available in the next release (V1.3) of SL Mail
</div>
</div>

<div id="box">
=='''BUGS'''==
<div style="padding: 0.5em">
Report any bugs you find in this release to Logic (IM: Flennan Roffo).
</div>
</div>

<div id="box">
=='''REQUEST FOR CHANGE (RFC)'''==
<div style="padding: 0.5em">
Do you have additional wishes for enhancement of this product?
Contact Flennan Roffo and we will see if they can be implemented in the next release.

Existing RFC's are:

* Menu support for commands.

* Lines on incoming/outgoing mail longer than 255 bytes.

* Send messages longer than 4096 (minus SL mail header) bytes.

* Receive messages longer than 1024 bytes.

* Permanent mail addresses for the SL Mail client (like: <Flennan.Roffo@somedomain.sl>)

Add your RFC!
</div>
</div>

<div id="box">
=='''SL MAIL SUPPORT & DEVELOPMENT'''==
<div style="padding: 0.5em">

In-world join the group "SL Mail" for bug reports, feature requests, the latest SL Mail release, and notices about development issues.
</div>
</div>

<div id="box">

=Scripts=
</div>

<div id="box">
==Script: SL Mail v1.2==
<div style="padding: 0.5em;">
SL Mail core module which scans for incoming mail messages and executes commands used by the owner.
<lsl>
// SL Mail V1.2.lsl
// (c) 2007 Logic Scripted Products and Script Services
// Flennan Roffo

// VERSION
// Version: 1.2

// HISTORY
// Date Version Author Comment
// --------------------------------------------------------------------------------------
// 28 aug 2007 V 1.0 Flennan Roffo Created
//
// 1 sep 2007 V 1.1 Flennan Roffo @Reply empties the recording buffer.
// @Send while recording ends recording
// and sends the mail if a mail address
// and subject are supplied.
// Fixed incorrect date in Unix2DateTime.
// 3 sep 2007 V 1.2 Flennan Roffo Notification options:
// - When online, send an IM when mail is received.
// - When offline, send to HOME mail adress.
// Adressbook
// - Read adress book from config notecard.

// LICENCE
// This program is free software; you can redistribute it and/or
// modify it under the terms of the GNU General Public License
// as published by the Free Software Foundation; either version 2
// of the License, or (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
// (Also available at http://www.gnu.org/copyleft/gpl.html)

// DESCRIPTION
// Let's you record a message and sent to email and get messages and reply to messages.
// Must supply a valid mail adress and non-empty subject using chat commands.

// TODO:
// 1) Check for the maximum length of an email message (including newline and header).
// 2) Read adress book from notecard. *DONE*
// 3) Send incoming mail to personal mail adress when offline. *DONE*
// 4) Alert with an IM when online upon receiving new mail. *DONE*

string SL_MAIL_VERSION = "V 1.2";
string SL_MAIL_DATE = " 2 sep 2007";
integer ErrorFlag = FALSE;
list ScriptList = [ "SL Mail Help V1.2", "SL Mail AddressBook V1.2",
"SL Mail OnlineStatus V1.2", "SL Mail FetchNotecard V1.2" ];
string LSL_DOMAIN="lsl.secondlife.com";
integer StatusOnline=FALSE;

// Commands

string COMMAND_RECORD = "@RECORD";
string COMMAND_CONTINUE = "@CONTINUE";
string COMMAND_STOP = "@STOP";
string COMMAND_MAIL = "@MAIL";
string COMMAND_SUBJECT = "@SUBJECT";
string COMMAND_SEND = "@SEND";
string COMMAND_SEE = "@SEE";
string COMMAND_IGNORE = "@IGNORE";
string COMMAND_READ = "@READ";
string COMMAND_DELETE = "@DELETE";
string COMMAND_CLEAR = "@CLEAR";
string COMMAND_REPLY = "@REPLY";
string COMMAND_NEXT = "@NEXT";
string COMMAND_PREV = "@PREV";
string COMMAND_FIRST = "@FIRST";
string COMMAND_LAST = "@LAST";
string COMMAND_LIST = "@LIST";
string COMMAND_SELECT = "@SELECT";
string COMMAND_HELP = "@HELP";
string COMMAND_INFO = "@INFO";
string COMMAND_RESET = "@RESET";
string COMMAND_SHOW = "@SHOW";
string COMMAND_ON = "@ON";
string COMMAND_OFF = "@OFF";
string COMMAND_HOME = "@HOME";
string COMMAND_LOAD = "@LOAD";
string COMMAND_ADDRESS = "@ADDRESS";

// Recording

integer Recording = FALSE;

list ChatRecording=[];
integer NumLines=0;
integer Length=0;

list TimeList=[];
list AddressList=[];
list SubjectList=[];
list BodyList=[];
integer NumMessages=0;
integer CurrentMessage=-1;

float MAIL_FETCH_INTERVAL=5.0;

// Link Messages

integer MSG_HELP = 10000;
integer MSG_STATUS_ONLINE = 30000;
integer MSG_STATUS_OFFLINE = 30100;

integer MSG_MESSAGE_SETADDRESS = 90000;
integer MSG_MESSAGE_GETADDRESS = 90050;
integer MSG_MESSAGE_SETSUBJECT = 90100;
integer MSG_MESSAGE_GETSUBJECT = 90150;
integer MSG_MESSAGE_SEND = 90200;
integer MSG_MESSAGE_SENDHOME = 90300;
integer MSG_MESSAGE_SEND_NOTECARD = 90400;
integer MSG_MESSAGE_ADDRESSBOOK = 90500;
integer MSG_MESSAGE_GETHOME = 90600;
integer MSG_MESSAGE_SETHOME = 90700;
integer MSG_MESSAGE_INFO = 90800;

integer MSG_ADDRESSBOOK_LOADED = 91000;
integer MSG_ADDRESSBOOK_ERROR = 91100;

integer MSG_MESSAGE_REPLY = 99000;

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////// Unix Time conversion //////////////////

integer DAYS_PER_YEAR = 365; // Non leap year
integer SECONDS_PER_YEAR = 31536000; // Non leap year
integer SECONDS_PER_DAY = 86400;
integer SECONDS_PER_HOUR = 3600;
integer SECONDS_PER_MINUTE = 60;

////////////////////////////// LeapYear() /////////////////////////////

integer LeapYear(integer year)
{
if (year % 4 == 0)
{
if (year % 100 == 0)
{
if (year % 400 == 0)
{
return 1;
}
else
{
return 0;
}
}
else
{
return 1;
}
}
else
{
return 0;
}
}

////////////////////////////// DaysPerMonth() ///////////////////////////////////////

integer DaysPerMonth(integer year,integer month)
{
if (month < 8)
{
if (month % 2 == 0)
{
if (month == 2)
{
if (LeapYear(year))
{
return 29;
}
else
{
return 28;
}
}
else
{
return 30;
}
}
else
{
return 31;
}
}
else
{
if (month % 2 == 0)
{
return 31;
}
else
{
return 30;
}
}
}

/////////////////////////// DaysPerYear() ////////////////////////////////////

integer DaysPerYear(integer year)
{
if (LeapYear(year))
return DAYS_PER_YEAR + 1;
else
return DAYS_PER_YEAR;
}

/////////////////////////////// Unix2DataTime() ///////////////////////////////////////

list Unix2DateTime(integer unixtime)
{
integer days_since_1_1_1970 = unixtime / SECONDS_PER_DAY;
integer day = days_since_1_1_1970 + 1;
integer year = 1970;
integer days_per_year = DaysPerYear(year);

while (day > days_per_year)
{
day -= days_per_year;
++year;
days_per_year = DaysPerYear(year);
}

integer month = 1;
integer days_per_month = DaysPerMonth(year,month);

while (day > days_per_month)
{
day -= days_per_month;

if (++month > 12)
{
++year;
month = 1;
}

days_per_month = DaysPerMonth(year,month);
}

integer seconds_since_midnight = unixtime % SECONDS_PER_DAY;
integer hour = seconds_since_midnight / SECONDS_PER_HOUR;
integer second = seconds_since_midnight % SECONDS_PER_HOUR;
integer minute = second / SECONDS_PER_MINUTE;
second = second % SECONDS_PER_MINUTE;

return [ year, month, day, hour, minute, second ];
}

///////////////////////////////// MonthName() ////////////////////////////

list MonthNameList = [ "JAN", "FEB", "MAR", "APR", "MAY", "JUN",
"JUL", "AUG", "SEP", "OCT" , "NOV", "DEC" ];

string MonthName(integer month)
{
if (month >= 0 && month < 12)
return llList2String(MonthNameList, month);
else
return "";
}

///////////////////////////////// DateString() ///////////////////////////

string DateString(list timelist)
{
integer year = llList2Integer(timelist,0);
integer month = llList2Integer(timelist,1);
integer day = llList2Integer(timelist,2);

return (string)day + "-" + MonthName(month - 1) + "-" + (string)year;
}

///////////////////////////////// TimeString() ////////////////////////////

string TimeString(list timelist)
{
integer hour = llList2Integer(timelist,3);
integer minute = llList2Integer(timelist,4);
integer second = llList2Integer(timelist,5);
string hourstr = (string)hour;
string minutestr = (string)minute;
string secondstr = (string)second;

if (hour < 10) hourstr = "0" + hourstr;
if (minute < 10) minutestr = "0" + minutestr;
if (second < 10) secondstr = "0" + secondstr;
return hourstr + ":" + minutestr + ":" + secondstr;
}

/////////////////////////////////// SendMail() /////////////////////////////////////

SendMail(string body)
{
// llOwnerSay("Sending message to '" + address + "' with subject '" + subject +"'.");
llMessageLinked(LINK_THIS, MSG_MESSAGE_SEND, body, NULL_KEY);
}

///////////////////////////////// SendHome() ///////////////////////////////////////

SendHome(string subject, string body)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SENDHOME, body, (key)subject);
}

///////////////////////////////// Show() ////////////////////////////////////////////

Show()
{
integer i;

llOwnerSay("Current chat recording is:");
llOwnerSay("--------------------------");

for (i = 0; i < NumLines; ++i)
{
llOwnerSay(llList2String(ChatRecording,i));
}

llOwnerSay("--------------------------");
llOwnerSay("Lines is " + (string)NumLines);
llOwnerSay("Message length is " + (string)Length);
}

/////////////////////////////// Read() /////////////////////////////////////////

Read()
{
llOwnerSay("Reading message " + (string)CurrentMessage + " from mail buffer.");
integer time = (integer)llList2Integer(TimeList,CurrentMessage);
list timelist=Unix2DateTime(time);
string Address = llList2String(AddressList,CurrentMessage);
string Subject = llList2String(SubjectList,CurrentMessage);
string Body = llList2String(BodyList,CurrentMessage);
llOwnerSay("Date : " + DateString(timelist));
llOwnerSay("Time : " + TimeString(timelist));
llOwnerSay("Address: " + Address);
llOwnerSay("Subject: " + Subject);
llOwnerSay("Begin of message body:");
llOwnerSay("-------------------------");
list bodylist=llParseStringKeepNulls(Body, [ "\n" ], []);
integer num=llGetListLength(bodylist);
integer i;

for (i = 0; i < num; ++i)
{
llOwnerSay(llList2String(bodylist,i));
}

llOwnerSay("-------------------------");
llOwnerSay("End of message body.");
}

////////////////////////////////////// List ////////////////////////////////////////////

List()
{
llOwnerSay("The mail buffer contains the following messages:\n");

integer i;

for (i = 0; i < NumMessages; ++i)
{
integer time=llList2Integer(TimeList,i);
list timelist=Unix2DateTime(time);
if (i > 0) llOwnerSay("+-+-+-+-+-+-+-+-+-+-+-+-");
llOwnerSay("Message: " + (string)i);
llOwnerSay("Date : " + DateString(timelist));
llOwnerSay("Time : " + TimeString(timelist));
llOwnerSay("From: " + llList2String(AddressList,i));
llOwnerSay("Subject: " + llList2String(SubjectList,i));
}
}

//////////////////////////// NotifyNewMail() /////////////////////////

NotifyNewMail(string time, string address, string subject, string body)
{
list timelist=Unix2DateTime((integer)time);

if (StatusOnline)
{
llInstantMessage(llGetOwner(), "You received a new mail message on "
+ DateString(timelist) + " at " + TimeString(timelist)
+ " from " + address
+ " with the subject " + subject);
}
else
{
SendHome("FW: " + subject, "Received at: " + DateString(timelist) + " " + TimeString(timelist) + "\nFrom: " + address
+ "\nBegin message body:\n-------------------\n" + body + "\n-------------------\nEnd message body.");
}
}

///////////////////////////// ResetOtherScripts() //////////////////////

ResetOtherScripts()
{
string name;
integer i;
integer num=llGetListLength(ScriptList);

for (i = 0; i < num; ++i)
{
name = llList2String(ScriptList,i);

if (llGetInventoryType(name) == INVENTORY_SCRIPT)
{
llResetOtherScript(name);
}
else
{
llOwnerSay("Error - script '" + name + "' not found.");
ErrorFlag = TRUE;
}
}
}

//////////////////////////////////////
// default
//////////////////////////////////////

default
{
////////////////////// state_entry() /////////////////////////

state_entry()
{
llOwnerSay("Welcome to SL Mail, released under GNU software licence.");
llOwnerSay("Version " + SL_MAIL_VERSION + " " + SL_MAIL_DATE);
llOwnerSay("Produced by Logic Scripted Products & Product Services");
llOwnerSay("Free memory: " + (string)llGetFreeMemory());
ResetOtherScripts();

if (ErrorFlag)
state Error;
}

/////////////////////// on_rez() //////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

/////////////////////// changed() ////////////////////////////

changed(integer mask)
{
if (mask & CHANGED_INVENTORY)
{
llResetScript();
}
}

/////////////////////// link_message() /////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
else if (msgid == MSG_ADDRESSBOOK_LOADED)
{
state running;
}
else if (msgid == MSG_ADDRESSBOOK_ERROR)
{
state Error;
}
}
}

///////////////////////////////////////
// state running
//////////////////////////////////////

state running
{
///////////////////////// state_entry() //////////////////////

state_entry()
{
llListen(0, "", llGetOwner(), "");
llOwnerSay("SL mail ready.\nSend and Get mail in Second Life.\nType @HELP for more info.");
llMessageLinked(LINK_THIS, MSG_MESSAGE_INFO, "", NULL_KEY);
llGetNextEmail("", "");
llSetTimerEvent(MAIL_FETCH_INTERVAL);
}

//////////////////////// on_rez() ////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

//////////////////////// listen() ////////////////////////////

listen(integer channel, string name, key id, string message)
{
string trimmessage=llStringTrim(message,STRING_TRIM);
list parse = llParseStringKeepNulls(trimmessage, [ " "], []);
string command = llToUpper(llList2String(parse,0));
string arg = llStringTrim(llList2String(parse,1),STRING_TRIM);
integer nargs = llGetListLength(parse);
string argstr="";

if (nargs > 1) argstr=llGetSubString(message, llSubStringIndex(message, " ") + 1, -1);

if (Recording)
{
if (command == COMMAND_STOP)
{
llOwnerSay("Recording stopped. Type @SHOW to see the message you have entered,"
+ " or @SEND to send it.");
Recording = FALSE;
return;
}
if (command == COMMAND_SEND)
{
Recording = FALSE;

SendMail(llDumpList2String(ChatRecording, "\n"));
return;
}
else
{
ChatRecording = (ChatRecording=[]) + ChatRecording + [ message ];
++NumLines;
Length += llStringLength(message) + 2;
return;
}
}
else
{
if (command == COMMAND_RECORD)
{
llOwnerSay("Start recording your message. Type @STOP to end recording.");
ChatRecording = [];
NumLines=0;
Length=0;
Recording = TRUE;
return;
}
if (command == COMMAND_CONTINUE)
{
llOwnerSay("Continue recording your message. Type @STOP to end recording.");
Recording = TRUE;
return;
}
if (command == COMMAND_REPLY)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
string address=llList2String(AddressList,CurrentMessage);
string subject="Re: " + llList2String(SubjectList,CurrentMessage);
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETADDRESS, address, NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETSUBJECT, subject, NULL_KEY);
ChatRecording = [];
NumLines=0;
Length=0;
Recording = TRUE;
}
return;
}
if (command == COMMAND_MAIL)
{
string mailaddress=llStringTrim(argstr,STRING_TRIM);

if (mailaddress != "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETADDRESS, mailaddress, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETADDRESS, "", NULL_KEY);
}
return;
}
if (command == COMMAND_SUBJECT)
{
string mailsubject=llStringTrim(argstr,STRING_TRIM);

if (mailsubject != "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETSUBJECT, mailsubject, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETSUBJECT, "", NULL_KEY);
}
return;
}
if (command == COMMAND_STOP)
{
llOwnerSay("Not recording.");
return;
}
if (command == COMMAND_SEND)
{
if (nargs == 1)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
SendMail(llDumpList2String(ChatRecording, "\n"));
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SEND_NOTECARD, argstr, NULL_KEY);
}
return;
}
if (command == COMMAND_IGNORE)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
ChatRecording = [];
NumLines = 0;
Length = 0;
}
return;
}
if (command == COMMAND_SHOW)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
Show();
}
return;
}
if (command == COMMAND_READ)
{
if (NumMessages == 0)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
Read();
}
return;
}
if (command == COMMAND_NEXT)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == NumMessages - 1)
{
llOwnerSay("Already at last message.");
}
else
{
++CurrentMessage;
Read();
}
}
return;
}
if (command == COMMAND_PREV)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == 0)
{
llOwnerSay("Already at first message.");
}
else
{
--CurrentMessage;
Read();
}
}
return;
}
if (command == COMMAND_FIRST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == 0)
{
llOwnerSay("Already at first message.");
}
else
{
CurrentMessage = 0;
Read();
}
}
return;
}
if (command == COMMAND_LAST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == NumMessages - 1)
{
llOwnerSay("Already at last message.");
}
else
{
CurrentMessage = NumMessages - 1;
Read();
}
}
return;
}
if (command == COMMAND_LIST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
List();
}
return;
}
if (command == COMMAND_SELECT)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else if (nargs == 1)
{
llOwnerSay("Need to supply a message number.");
}
else
{
integer msgnum = (integer)arg;

if (msgnum < 0 || msgnum >= NumMessages)
{
llOwnerSay("Message number " + arg + " not in mail buffer.");
}
else
{
CurrentMessage = msgnum;
}
}
return;
}
if (command == COMMAND_DELETE)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
TimeList = llDeleteSubList(TimeList,CurrentMessage,CurrentMessage);
AddressList = llDeleteSubList(AddressList,CurrentMessage,CurrentMessage);
SubjectList = llDeleteSubList(SubjectList,CurrentMessage,CurrentMessage);
BodyList = llDeleteSubList(BodyList,CurrentMessage,CurrentMessage);
--NumMessages;

if (NumMessages == 0)
{
CurrentMessage = -1;
}
else if (CurrentMessage >= NumMessages)
{
CurrentMessage = NumMessages - 1;
}
}
return;
}
if (command == COMMAND_CLEAR)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
TimeList=[];
AddressList=[];
SubjectList=[];
BodyList=[];
NumMessages=0;
CurrentMessage=-1;
}
return;
}
if (command == COMMAND_HELP)
{
llMessageLinked(LINK_THIS, MSG_HELP, arg, NULL_KEY);
return;
}
if (command == COMMAND_INFO)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_INFO, "", NULL_KEY);
return;
}
if (command == COMMAND_SHOW)
{
Show();
return;
}
if (command == COMMAND_RESET)
{
llResetScript();
return;
}
if (command == COMMAND_OFF)
{
state not_running;
}
if (command == COMMAND_HOME)
{
if (nargs==1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETHOME, "", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETHOME, argstr, NULL_KEY);
}
return;
}
}
}

///////////////////////// timer() ///////////////////////////////

timer()
{
llGetNextEmail("", "");
}

///////////////////////// email() ///////////////////////////////

email(string time, string address, string subject, string body, integer queued)
{
NotifyNewMail(time, address, subject, body);
TimeList = (TimeList=[]) + TimeList + [time];
AddressList = (AddressList=[]) + AddressList + [address];
SubjectList = (SubjectList=[]) + SubjectList + [subject];
BodyList = (BodyList=[]) + BodyList + [body];
++NumMessages;

if (CurrentMessage == -1)
{
CurrentMessage = 0;
}
else
{
CurrentMessage = NumMessages - 1;
}
}

///////////////////// link_message() //////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
else if (msgid == MSG_MESSAGE_REPLY)
{
llOwnerSay(message);
}
}
}

//////////////////////////////////
// state not_running
//////////////////////////////////

state not_running
{
///////////////////// state_entry() //////////////////////////

state_entry()
{
llOwnerSay("SL Mailbox switched OFF. Say @ON to switch it back on.");
llListen(0, "", llGetOwner(), "");
}

//////////////////// on_rez() ///////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

//////////////////// listen() ////////////////////////////////

listen(integer chan, string name, key id, string message)
{
string command=llToUpper(message);

if (command == COMMAND_ON)
{
state running;
}
}

///////////////////// link_message() //////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
}
}

//////////////////////////////////
// state Error
//////////////////////////////////

state Error
{
state_entry()
{
llOwnerSay("Error in SL Mail: not all component scripts found.");
}

changed(integer mask)
{
if (mask & CHANGED_INVENTORY)
{
llResetScript();
}
}

on_rez(integer start_param)
{
llResetScript();
}
}

//////////////////////////////////
// End SL Mail V1.2.lsl
//////////////////////////////////
</lsl>
</div>
</div>

<div id="box">

==Script: SL Mail Address Book V1.2==
<div style="padding: 0.5em;">
Read and interpret the contents of the Address Book.
<lsl>
// SL Mail AddressBook V1.2.lsl
//
// DESCRIPTION
//
// Read the Address Book from a notecard named "Address Book".
//
// The Address Book has the following format:
//
// [ADDRESS BOOK]
// Name1=username@yourdomain.com
// Name2=otheruser@otherdomain.com
// ...
// [GROUP]
// group1=Name1, Name2
// ...
//
// Notes:
// 1. Group and Name share the same namespace, and must be unique.
// 2. It is allowed to have a name in the addressbook with multiple addresses, seperated by comma's.
//
/////////////////////////////////////////////////

string CurrentMailAddress = "";
string CurrentMailSubject = "";
integer StatusOnline = FALSE;

// Fetch or Send notecard

string Notecard2Fetch="";

// Address Book Names

list AddressBookList=[];
list MailAddressList=[];

string STRING_HOME="HOME";
string STRING_SELF="SELF";

// Address Book Groups

list GroupList=[];
list GroupNameList=[];

string LSL_DOMAIN = "lsl.secondlife.com";

// Read Address Book notecard

string ADDRESSBOOK_NOTECARD="Address Book";
integer Line=0;
key reqAddressBook=NULL_KEY;
float TIMEOUT_INTERVAL=5.0;

integer Section=0;
integer SECTION_ADDRESS_BOOK=1;
integer SECTION_GROUP=2;
string STRING_ADDRESS_BOOK="ADDRESS BOOK";
string STRING_GROUP="GROUP";

// Links messages

integer MSG_MESSAGE_SETADDRESS = 90000;
integer MSG_MESSAGE_GETADDRESS = 90050;
integer MSG_MESSAGE_SETSUBJECT = 90100;
integer MSG_MESSAGE_GETSUBJECT = 90150;
integer MSG_MESSAGE_SEND = 90200;
integer MSG_MESSAGE_SENDHOME = 90300;
integer MSG_MESSAGE_SEND_NOTECARD = 90400;
integer MSG_MESSAGE_ADDRESSBOOK = 90500;
integer MSG_MESSAGE_GETHOME = 90600;
integer MSG_MESSAGE_SETHOME = 90700;
integer MSG_MESSAGE_INFO = 90800;
integer MSG_MESSAGE_NOTIFY = 90900;

integer MSG_ADDRESSBOOK_LOADED = 91000;
integer MSG_ADDRESSBOOK_ERROR = 91100;

integer MSG_MESSAGE_REPLY = 99000;

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////// GetSelfAddress() ///////////////////////

string GetSelfAddress()
{
return (string)llGetKey() + "@" + LSL_DOMAIN;
}

///////////////////////////// Info() /////////////////////////////////

Info()
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "The mail address for this object is: "
+ GetSelfAddress() + ".", NULL_KEY);
}

///////////////////////////////// IsValidKeyFormat() //////////////////////

integer IsValidKeyFormat(string str)
{
string keychars = "0123456789abcdef";

if (llStringLength(str) != 36)
return FALSE;

if( (llGetSubString( str, 8, 8 ) != "-" ||
llGetSubString( str, 13, 13 ) != "-" ||
llGetSubString( str, 18, 18 ) != "-" ||
llGetSubString( str, 23, 23 ) != "-" ) )
return FALSE;

integer i;

for (i = 0; i < 8; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 9; i < 13; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 14; i < 18; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 19; i < 23; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 24; i < 36; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

return TRUE;
}

///////////////////////////////// ValidMailAddress() ////////////////////////

integer ValidMailAddress(string arg)
{
string adress = llToLower(llStringTrim(arg,STRING_TRIM));

if (adress == "")
return FALSE;

list parse = llParseStringKeepNulls(adress, [ "@" ], []);
string account = llList2String(parse,0);
string domain = llList2String(parse,1);

if (llGetListLength(parse) != 2 || llStringLength(account) == 0 || llStringLength(domain) == 0)
return FALSE;

if (domain == LSL_DOMAIN)
{
return IsValidKeyFormat(account);
}
else
{
list parsedomain = llParseString2List(domain, [ "." ], []);

if (llGetListLength(parsedomain) < 2)
return FALSE;

integer num = llGetListLength(parsedomain);
integer i;

for (i = 0; i < num; ++i)
{
if (llStringLength(llList2String(parsedomain,i)) < 2)
{
return FALSE;
}
}
}

return TRUE;
}

/////////////////////////////////// GetAddressStr() ///////////////////

string GetAndCheckAddressStr(string address)
{
list addresslist = llCSV2List(address);
integer num=llGetListLength(addresslist);
integer i;
string addressstr="";
string curaddress="";

for (i = 0; i < num; ++i)
{
curaddress=llList2String(addresslist,i);

if (ValidMailAddress(curaddress))
{
addressstr = (addressstr="") + addressstr + curaddress + ",";
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address string: '"
+ curaddress + "'.", NULL_KEY);
}
}

return llGetSubString(addressstr, 0, -2);
}

///////////////////////////// ProcessLine() ////////////////////////////

ProcessLine(string rawline)
{
string line=llStringTrim(rawline,STRING_TRIM);
string first=llGetSubString(line,0,0);
string last=llGetSubString(line,-1,-1);

// Ignore a blank line or comment line
if (line == "" || first == "#")
return;

// Check for the right section

if (first == "[" && last == "]")
{
string sectionstr=llToUpper(llStringTrim(llGetSubString(line,1,-2),STRING_TRIM));

if (sectionstr == STRING_ADDRESS_BOOK)
{
Section = SECTION_ADDRESS_BOOK;
}
else if (sectionstr == STRING_GROUP)
{
if (Section == 0)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1)
+ ". Group section defined before Address Book section.", NULL_KEY);
}
else
{
Section = SECTION_GROUP;
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid section header '" + sectionstr
+ "' in " + ADDRESSBOOK_NOTECARD + " at line " + (string)(Line + 1) + ".", NULL_KEY);
}

return;
}

// Must be in a section

if (Section == 0)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ". No section header.", NULL_KEY);
return;
}

list parse=llParseString2List(line, [ "=" ], []);
integer num=llGetListLength(parse);

// Format must be correct

if (num != 2)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line+1) + ":\n" + rawline, NULL_KEY);
return;
}

if (Section == SECTION_ADDRESS_BOOK)
{
string name=llStringTrim(llList2String(parse,0),STRING_TRIM);

if (llToUpper(name) == STRING_SELF)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address book entry '" + name
+ "'. Reserved word in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ".", NULL_KEY);
}
else if (llListFindList(AddressBookList, [ name ]) == -1)
{
string address=llStringTrim(llList2String(parse,1),STRING_TRIM);
string addressstr=GetAndCheckAddressStr(address);

if (addressstr != "")
{
AddressBookList = (AddressBookList=[]) + AddressBookList + [ name ];
MailAddressList = (MailAddressList=[]) + MailAddressList + [ addressstr ];
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "No valid mail address for '" + name
+ "'. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line " + (string)(Line + 1)
+ ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Name '" + name
+ "' already defined. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else // Group
{
string group=llStringTrim(llList2String(parse,0),STRING_TRIM);

if (llToUpper(group) == STRING_SELF)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address book entry '" + group
+ "'. Reserved word in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ".", NULL_KEY);
}
else if (llListFindList(AddressBookList, [ group ]) == -1)
{
if (llListFindList(GroupList, [ group ]) == -1)
{
string names=llStringTrim(llList2String(parse,1),STRING_TRIM);
list namelist=llCSV2List(names);
integer num=llGetListLength(namelist);
integer i;
integer index;
string name;
string namestr="";

for (i = 0; i < num; ++i)
{
name=llList2String(namelist,i);
index=llListFindList(AddressBookList, [ name ]);

if (index == -1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Name '" + name + "' defined in Group '"
+ group + "' not found in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
else
{
namestr = (namestr="") + namestr + name + ",";
}
}

if (namestr != "")
{
namestr=llGetSubString(namestr,0,-2);
GroupList = (GroupList=[]) + GroupList + [ group ];
GroupNameList = (GroupNameList=[]) + GroupNameList + [ namestr ];
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' has no valid names. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' already defined in Group. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' already defined in Address Book. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
}

//////////////////////////////// GetGroupAddressList ///////////////

string GetGroupAddressList(string group)
{
integer index=llListFindList(GroupList, [ group ]);
integer i;
integer num=llGetListLength(GroupList);
string grouplist="";

if (index == -1)
{
return "";
}
else
{
for (i = index; i < num; ++i)
{
if (llList2String(GroupList,i) == group)
{
grouplist = (grouplist="") + grouplist + llList2String(GroupNameList,i) + ",";
}
}

if (grouplist != "") grouplist=llGetSubString(grouplist,0,-2); // remove last ","
return grouplist;
}
}

//////////////////////////////// SetMailAddress() //////////////////

SetMailAddress(string address)
{
integer index=llListFindList(AddressBookList, [ address ]);

if (index == -1)
{
index=llListFindList(GroupList, [ address ]);

if (index == -1)
{
if (llToUpper(address) == STRING_SELF)
{
CurrentMailAddress = GetSelfAddress();
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
else if(ValidMailAddress(address))
{
CurrentMailAddress = address;
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Mail adress " + address
+ " : not found in adress book or invalid format.", NULL_KEY);
}
}
else
{
CurrentMailAddress = GetGroupAddressList(address);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject set to: "
+ CurrentMailAddress, NULL_KEY);
}
}
else
{
CurrentMailAddress = llList2String(MailAddressList,index);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
}

/////////////////////////////////// SendMail() ///////////////////////

SendMail(string message)
{
if (CurrentMailAddress == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "SendMail: No mail address defined.", NULL_KEY);
}
else if (CurrentMailSubject == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "SendMail: No subject defined.", NULL_KEY);
}
else
{
list mailaddresslist=llCSV2List(CurrentMailAddress);
integer num=llGetListLength(mailaddresslist);
integer i;
string address;

for (i = 0; i < num; ++i)
{
address=llList2String(mailaddresslist,i);
llEmail(address, CurrentMailSubject, message);
}
}
}

/////////////////////////////////// SendMailHome() ////////////////////

SendMailHome(string message, string subject)
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, STRING_HOME
+ " not set. Set your home adress with @HOME <address>.", NULL_KEY);
}
else
{
string homeaddress=llList2String(AddressBookList,index);
list homelist=llCSV2List(homeaddress);
integer num=llGetListLength(homelist);
integer i;
string address;

for (i = 0; i < num; ++i)
{
address=llList2String(homelist,i);
llEmail(address, subject, message);
}
}
}

/////////////////////////////////// GetHomeAddress() //////////////////

string GetHomeAddress()
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
return "not set";
}
else
{
return llList2String(MailAddressList,index);
}
}

/////////////////////////////////// SetHomeAddress() //////////////////

SetHomeAddress(string address)
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
AddressBookList = (AddressBookList=[]) + [ STRING_HOME ] + AddressBookList;
MailAddressList = (MailAddressList=[]) + [ GetAndCheckAddressStr(address) ] + MailAddressList;
}
else
{
MailAddressList = llListReplaceList(MailAddressList, [ GetAndCheckAddressStr(address) ], index, index);
}
}

////////////////////////////////////
// default
////////////////////////////////////

default
{
///////////////////// state_entry() //////////////////

state_entry()
{
Line=0;
Section=0;
llSetTimerEvent(TIMEOUT_INTERVAL);
reqAddressBook=llGetNotecardLine(ADDRESSBOOK_NOTECARD, 0);
}

///////////////////// dataserver() ////////////////////

dataserver(key id, string data)
{
if (id == reqAddressBook)
{
reqAddressBook = NULL_KEY;

if (data != EOF)
{
ProcessLine(data);
reqAddressBook=llGetNotecardLine(ADDRESSBOOK_NOTECARD, ++Line);
}
else
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_LOADED, "", NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Address Book loaded.", NULL_KEY);
state running;
}
}
}

//////////////////////// timer() ///////////////////////////

timer()
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_ERROR, "", NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Could not read Address Book: "
+ ADDRESSBOOK_NOTECARD + ".", NULL_KEY);
llSetTimerEvent(0.0);
}
}

////////////////////////////////////////////
// state running
////////////////////////////////////////////

state running
{
state_entry()
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_LOADED, "", NULL_KEY);
}

///////////////////////// link_message() ////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_MESSAGE_GETSUBJECT)
{
if (CurrentMailSubject == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject is empty.", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject is: "
+ CurrentMailSubject, NULL_KEY);
}
}
else if (msgid == MSG_MESSAGE_SETSUBJECT)
{
CurrentMailSubject = message;
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject set to: "
+ CurrentMailSubject, NULL_KEY);
}
else if (msgid == MSG_MESSAGE_GETADDRESS)
{
if (CurrentMailAddress == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address is empty.", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address is: "
+ CurrentMailAddress, NULL_KEY);
}
}
else if (msgid == MSG_MESSAGE_SETADDRESS)
{
SetMailAddress(message);
}
else if (msgid == MSG_MESSAGE_SEND)
{
if (message == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Body of message to send is empty. "
+ "No mail is send.", NULL_KEY);
}
else
{
SendMail(message);
}
}
else if (msgid == MSG_MESSAGE_SENDHOME)
{
SendMailHome(message, (string)id);
}
else if (msgid == MSG_MESSAGE_SEND_NOTECARD)
{
if (llGetInventoryType(message) == INVENTORY_NOTECARD)
{
Notecard2Fetch = message;
llMessageLinked(LINK_THIS, MSG_NOTECARD_READ, message, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Notecard " + message + " not found.", NULL_KEY);
}
}
else if (msgid == MSG_NOTECARD_FETCHED)
{
if (message == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Notecard " + Notecard2Fetch
+ " was empty or could not be read.", NULL_KEY);
}
else
{
SendMail(message);
}
}
else if (msgid == MSG_MESSAGE_GETHOME)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Home address is: " + GetHomeAddress() + ".", NULL_KEY);
}
else if (msgid == MSG_MESSAGE_SETHOME)
{
SetHomeAddress(message);
}
else if (msgid == MSG_MESSAGE_INFO)
{
Info();
}
}
}

/////////////////////////////////////
// End SL Mail AddressBook V1.2.lsl
/////////////////////////////////////
</lsl>
</div>
</div>

<div id="box">

==Script: SL Mail FetchNotecard V1.2==
<div style="padding: 0.5em;">
Fetch the contents of a notecard and return it via link message as a string.
<lsl>
// SL Mail FetchNotecard V1.2.lsl
//
//

// Notecard

integer Line=0;
string Notecard2Fetch="";
key reqNotecard=NULL_KEY;
float TIMEOUT_INTERVAL=10.0;
integer Fetched=FALSE;

// Lines

list LineList=[];

// Link messages

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////////////////////
// default
//////////////////////////////////////////

default
{
/////////////////////// dataserver() //////////////////////////////

dataserver(key id, string data)
{
if (id == reqNotecard)
{
reqNotecard=NULL_KEY;

if (data != EOF)
{
LineList = (LineList=[]) + LineList + [ data ];
reqNotecard = llGetNotecardLine(Notecard2Fetch, ++Line);
}
else
{
Fetched=TRUE;
llMessageLinked(LINK_THIS, MSG_NOTECARD_FETCHED, llDumpList2String(LineList, "\n"), NULL_KEY);
llSetTimerEvent(0.0);
}
}
}

/////////////////////// timer() ///////////////////////////////////

timer()
{
if (!Fetched)
{
llMessageLinked(LINK_THIS, MSG_NOTECARD_FETCHED, "", NULL_KEY);
llSetTimerEvent(0.0);
}
}

/////////////////////// link_message() ////////////////////////////

link_message(integer send, integer msgid, string message, key id)
{
if (msgid == MSG_NOTECARD_READ)
{
Line=0;
Notecard2Fetch=message;
LineList=[];
Fetched=FALSE;
reqNotecard=llGetNotecardLine(Notecard2Fetch, Line);
llSetTimerEvent(TIMEOUT_INTERVAL);
}
}
}

// End SL Mail FetchNotecard V1.2.lsl
</lsl>
</div>
</div>

<div id="box">

==Script: SL OnlineStatus V1.2==
<div style="padding: 0.5em;">
Fetch online status of owner.
<lsl>
// SL Mail OnlineStatus V1.2.lsl
//
//

// Online status

key reqOnlineStatus=NULL_KEY;
float STATUS_INTERVAL=2.0;

// Link messages

integer MSG_STATUS_ONLINE = 30000;
integer MS_STATUS_OFFLINE = 30100;

////////////////////////////////
// default
////////////////////////////////

default
{
///////////////////////// state_entry() /////////////////////////

state_entry()
{
reqOnlineStatus=llRequestAgentData(llGetOwner(), DATA_ONLINE);
llSetTimerEvent(STATUS_INTERVAL);
}

///////////////////////// dataserver() //////////////////////////

dataserver(key id, string data)
{
if (id == reqOnlineStatus)
{
reqOnlineStatus = NULL_KEY;

if (data=="1")
{
llMessageLinked(LINK_THIS, MSG_STATUS_ONLINE, "", NULL_KEY);
}
else if (data=="0")
{
llMessageLinked(LINK_THIS, MS_STATUS_OFFLINE, "", NULL_KEY);
}
}
}

///////////////////////// timer() ///////////////////////////////

timer()
{
reqOnlineStatus = llRequestAgentData(llGetOwner(), DATA_ONLINE);
}
}

// End SL Mail OnlineStatus V1.2.lsl
</lsl>
</div>
</div>

<div id="box">

==Script: SL Mail Help V1.2==
<div style="padding: 0.5em;">
Display help information.

<lsl>
// SL Mail Help V1.2.lsl
//
//

integer MSG_HELP = 10000;

///////////////////////////////// Help() ///////////////////////////////////////

Help()
{
llOwnerSay("HELP for SL Mail V1.2.");
llOwnerSay("COMMANDS:");
llOwnerSay("@HELP - displays help info.");
llOwnerSay("@INFO - display mailaddress of this object.");
llOwnerSay("@RECORD - start recording.");
llOwnerSay("@CONTINUE - continue recording.");
llOwnerSay("@STOP - stop recording.");
llOwnerSay("@IGNORE - ignore the recording.");
llOwnerSay("@SHOW - show what your recorded.");
llOwnerSay("@SEND - send the recording.");
llOwnerSay("@MAIL <mailadress> - set the mail adress.");
llOwnerSay("@SUBJECT subject - set the mail subject.");
llOwnerSay("@LIST - list messages in mail buffer.");
llOwnerSay("@SELECT <message> - select message from mail buffer.");
llOwnerSay("@READ - read current message from mail buffer.");
llOwnerSay("@NEXT - read next message from mail buffer.");
llOwnerSay("@PREV - read previous message from mail buffer.");
llOwnerSay("@FIRST - read first message from mail buffer.");
llOwnerSay("@LAST - read last message from mail buffer.");
llOwnerSay("@DELETE - delete current message from mail buffer.");
llOwnerSay("@CLEAR - clear the mail buffer.");
llOwnerSay("@REPLY - reply to current message.");
llOwnerSay("@RESET - reset the script.");
llOwnerSay("@HOME - set the home mail adress.");
llOwnerSay("@OFF - switch mailbox OFF.");
llOwnerSay("@ON - switch mailbox ON.");
}

/////////////////////////////////////////////
// default
/////////////////////////////////////////////

default
{
link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_HELP)
{
Help();
}
}
}

// End SL Mail Help V1.2.lsl
</lsl>
</div>
</div>
[[Image:slmail.info.jpg]]

{{LSLC|Library}}

SL Mail V1.2

Flennan Roffo — Wed, 09 Feb 2011 23:12:43 GMT

Flennan Roffo: /* LICENCE INFO */

{{LSL Header}} __NOTOC__
<div id="box">
='''Second Life mail client'''=
<div style="padding: 0.5em">

'''Send and receive email from within Second Life from and to any address.'''

Implemented with Address Book function (in a notecard named 'Address Book') to stores addresses by name and to compile groups of named addresses. Current version is stand-alone (no server functionality) and uses chat commands only.

[[Image:BannerSLMail.jpg]]

URL: [http://www.slmail.info slmail.info] <strike>(website coming soon!)</strike> <b>url slmail.info no longer used for SL Mail, and was taken for some other purpose.</b>

</div>
</div>

<div id="box">

=Release Notes V1.2=
<div style="padding: 0.5em">
SL Mail V1.2 Release notes (edition 2, 4 sept 2007)
</div>
</div>

<div id="box">
=='''LICENCE INFO'''==
<div style="padding: 0.5em">
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>.
</div>
</div>

<div id="box">

=='''PRODUCTION & MAINTANENCE'''==
<div style="padding: 0.5em">
by Logic Scripted Products and Script Services

[[Image:Logicbanner1.jpg]]

URL: [http://www.logicscripts.org logicscripts.org] (website coming soon!)

SLurl:
{{SLurl
|region=Peacock Park
|x=189
|y=226
|z=69
|title=Logic Scripted products and Script services
|}}

Contact: [[User:Flennan Roffo|Flennan Roffo]]

Email: [mailto:info@slmail.info '''info'''] or [mailto:Flennan.Roffo@slmail.info '''Flennan Roffo''']
'''* The slmail.info URL appears to not be registered and this information appears to be out of date. *'''
</div>
</div>

<div id="box">

=='''DESCRIPTION'''==
<div style="padding: 0.5em">
SL Mail V1.2 is a simple tool to send and receive mail from within SL.
You can either compose a message yourself using chat recording, or choose a notecard from inventory to send. The Address Book functionality allows you to use short names for mail recipients stored in a notecard. The current version does not have a persisent mail address. Watch out for the upcoming next release (V1.3) which will facilitate persisent in-world mail addresses and will be enhanced with many new features (See: Requests For Change (RFC).
</div>
</div>

<div id="box">

=='''COMMANDS'''==
<div style="padding: 0.5em">
{| {{Prettytable}}
|-
|{{Hl2}}| '''Command'''
|{{Hl2}}| '''Description'''
|-
||'''@Help'''
||Show Help about available commands
|-
||'''@Record'''
||Starts a chat recording (for owner only).
|-
||'''@Stop'''
||Stops the chat recording without sending
|-
||'''@Continue'''
||Continues a previously stopped chat recording. Lines will be appended to you recording buffer.
|-
||'''@Show'''
||Shows the content of the recording buffer.
|-
||'''@Send'''
||If recording, stops the recording, and sends the mail (need to supply mail address and subject first!)
|-
||'''@Send <notecard>'''
||Sends the content of the notecard, instead of the chat recording.
|-
||'''@Ignore'''
||Ignores your current chat recording.
|-
||'''@Mail <address>'''
||Define the mail address to send to.
|-
||'''@Mail'''
||Shows the current mail address to send to.
|-
||'''@Subject <subject>'''
||Define the subject of the mail.
|-
||'''@Subject'''
||Shows the current mail subject.
|-
||'''@Home <address>'''
||Set the HOME address of the owner (mail will be forwarder to this address when offline).
|-
||'''@Home'''
||Show the HOME address.
|-
||'''@Info'''
||Shows the mail address the object this script is running in uses (e.g. <object-key>@lsl.secondlife.com).
|-
||'''@Read'''
||Reads the current message from the mail buffer (the mail buffer gets filled with mail you receive)
|-
||'''@Select <msg>'''
||Select a message number from the availabe messages in the mail buffer.
|-
||'''@Next'''
||Make next message the current message.
|-
||'''@Prev'''
||Make previous message the current message.
|-
||'''@First'''
||Make the first message the current message.
|-
||'''@Last'''
||Make the last message the current message.
|-
||'''@Clear'''
||Clear the mail buffer
|-
||'''@Delete'''
||Deletes only the current message
|-
||'''@Reply'''
||Starts a chat recording to reply to the current message. Mail adress and subject are filled in automatically.
|}

Note:

* Commands are case insensitive ("@read" == "@READ"). Arguments might not be case insensitive.
</div>
</div>

<div id="box">
=='''ADDRESS BOOK FORMAT'''==
<div style="padding: 0.5em">
A notecard of the name 'Address Book' is read during initialization which may contain Address Book items and Groups.
The notecard is split in two sections, which need to be defined in that particular order.

'''[ADDRESS BOOK]'''

Defines the section in which you can put names for mail addresses, like this:

'''Name1=account@thisdomain.com'''

'''Name2=user@otherdomain.com'''

etc.

'''[GROUP]'''

Define groups of previously defined names under a new name, like for instance:

'''MyGroup=Name1, Name2'''

Note that names of groups and individual mail adresses share the same namespace and must be unique.

So when you filled in your mail adresses in the Address Book, you can now use:

'''@Mail Name1'''

To send mail to <account@thisdomain.com>

or you can use

'''@Mail MyGroup'''

To send mail to <account@thisdomain.com> and <user@otherdomain.com>
Mails will be sent one after another.

Notes:

* Names for Addreses and Groups are case insensitive (e.g. "mary" == "MARY")

* The special address 'Self' can be used in commands where otherwise an address specification can be used. 'Self' is case insensitive (e.g. "self" == "SELF")

</div>
</div>

<div id="box">
=='''LIMITATIONS'''==
<div style="padding: 0.5em">
The current version is limited by the following:

* Chat recording lines are limited by the 255 byte limit

* Output of lines from the mail buffer are also limited by this 255 byte limit

* Incoming mail is limited to a 1000 (1024?) byte limit

* Outgoing mai is limited by a 4096 byte limit, which includes the standard mail header (region/location info on the first two lines)

We are making adjustments to this release to help overcome these limitations. At least the line lenght limit can be overcome by introducing a line continuation character (for example a hyphen '-') that when used at the end of a line appends the next line, so lines longer then 255 bytes are possible then.

To overcome the outgoing mail length limit, the mail can be broken textualy into parts, and each part can be send seperatedely, with an indication in the subject or in an introduced primary line of the mail body to indicate that the mail was split into parts.
For incoming mail and at least to receive mail from other SL Mail programs, a protocol will be introduced to receive mail in parts that are joined together after receiving them to form a single mail.

These enhancements will be made available in the next release (V1.3) of SL Mail
</div>
</div>

<div id="box">
=='''BUGS'''==
<div style="padding: 0.5em">
Report any bugs you find in this release to Logic (IM: Flennan Roffo).
</div>
</div>

<div id="box">
=='''REQUEST FOR CHANGE (RFC)'''==
<div style="padding: 0.5em">
Do you have additional wishes for enhancement of this product?
Contact Flennan Roffo and we will see if they can be implemented in the next release.

Existing RFC's are:

* Menu support for commands.

* Lines on incoming/outgoing mail longer than 255 bytes.

* Send messages longer than 4096 (minus SL mail header) bytes.

* Receive messages longer than 1024 bytes.

* Permanent mail addresses for the SL Mail client (like: <Flennan.Roffo@somedomain.sl>)

Add your RFC!
</div>
</div>

<div id="box">
=='''SL MAIL SUPPORT & DEVELOPMENT'''==
<div style="padding: 0.5em">

In-world join the group "SL Mail" for bug reports, feature requests, the latest SL Mail release, and notices about development issues.
</div>
</div>

<div id="box">

=Scripts=
</div>

<div id="box">
==Script: SL Mail v1.2==
<div style="padding: 0.5em;">
SL Mail core module which scans for incoming mail messages and executes commands used by the owner.
<lsl>
// SL Mail V1.2.lsl
// (c) 2007 Logic Scripted Products and Script Services
// Flennan Roffo

// VERSION
// Version: 1.2

// HISTORY
// Date Version Author Comment
// --------------------------------------------------------------------------------------
// 28 aug 2007 V 1.0 Flennan Roffo Created
//
// 1 sep 2007 V 1.1 Flennan Roffo @Reply empties the recording buffer.
// @Send while recording ends recording
// and sends the mail if a mail address
// and subject are supplied.
// Fixed incorrect date in Unix2DateTime.
// 3 sep 2007 V 1.2 Flennan Roffo Notification options:
// - When online, send an IM when mail is received.
// - When offline, send to HOME mail adress.
// Adressbook
// - Read adress book from config notecard.

// LICENCE
// This program is free software; you can redistribute it and/or
// modify it under the terms of the GNU General Public License
// as published by the Free Software Foundation; either version 2
// of the License, or (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
// (Also available at http://www.gnu.org/copyleft/gpl.html)

// DESCRIPTION
// Let's you record a message and sent to email and get messages and reply to messages.
// Must supply a valid mail adress and non-empty subject using chat commands.

// TODO:
// 1) Check for the maximum length of an email message (including newline and header).
// 2) Read adress book from notecard. *DONE*
// 3) Send incoming mail to personal mail adress when offline. *DONE*
// 4) Alert with an IM when online upon receiving new mail. *DONE*

string SL_MAIL_VERSION = "V 1.2";
string SL_MAIL_DATE = " 2 sep 2007";
integer ErrorFlag = FALSE;
list ScriptList = [ "SL Mail Help V1.2", "SL Mail AddressBook V1.2",
"SL Mail OnlineStatus V1.2", "SL Mail FetchNotecard V1.2" ];
string LSL_DOMAIN="lsl.secondlife.com";
integer StatusOnline=FALSE;

// Commands

string COMMAND_RECORD = "@RECORD";
string COMMAND_CONTINUE = "@CONTINUE";
string COMMAND_STOP = "@STOP";
string COMMAND_MAIL = "@MAIL";
string COMMAND_SUBJECT = "@SUBJECT";
string COMMAND_SEND = "@SEND";
string COMMAND_SEE = "@SEE";
string COMMAND_IGNORE = "@IGNORE";
string COMMAND_READ = "@READ";
string COMMAND_DELETE = "@DELETE";
string COMMAND_CLEAR = "@CLEAR";
string COMMAND_REPLY = "@REPLY";
string COMMAND_NEXT = "@NEXT";
string COMMAND_PREV = "@PREV";
string COMMAND_FIRST = "@FIRST";
string COMMAND_LAST = "@LAST";
string COMMAND_LIST = "@LIST";
string COMMAND_SELECT = "@SELECT";
string COMMAND_HELP = "@HELP";
string COMMAND_INFO = "@INFO";
string COMMAND_RESET = "@RESET";
string COMMAND_SHOW = "@SHOW";
string COMMAND_ON = "@ON";
string COMMAND_OFF = "@OFF";
string COMMAND_HOME = "@HOME";
string COMMAND_LOAD = "@LOAD";
string COMMAND_ADDRESS = "@ADDRESS";

// Recording

integer Recording = FALSE;

list ChatRecording=[];
integer NumLines=0;
integer Length=0;

list TimeList=[];
list AddressList=[];
list SubjectList=[];
list BodyList=[];
integer NumMessages=0;
integer CurrentMessage=-1;

float MAIL_FETCH_INTERVAL=5.0;

// Link Messages

integer MSG_HELP = 10000;
integer MSG_STATUS_ONLINE = 30000;
integer MSG_STATUS_OFFLINE = 30100;

integer MSG_MESSAGE_SETADDRESS = 90000;
integer MSG_MESSAGE_GETADDRESS = 90050;
integer MSG_MESSAGE_SETSUBJECT = 90100;
integer MSG_MESSAGE_GETSUBJECT = 90150;
integer MSG_MESSAGE_SEND = 90200;
integer MSG_MESSAGE_SENDHOME = 90300;
integer MSG_MESSAGE_SEND_NOTECARD = 90400;
integer MSG_MESSAGE_ADDRESSBOOK = 90500;
integer MSG_MESSAGE_GETHOME = 90600;
integer MSG_MESSAGE_SETHOME = 90700;
integer MSG_MESSAGE_INFO = 90800;

integer MSG_ADDRESSBOOK_LOADED = 91000;
integer MSG_ADDRESSBOOK_ERROR = 91100;

integer MSG_MESSAGE_REPLY = 99000;

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////// Unix Time conversion //////////////////

integer DAYS_PER_YEAR = 365; // Non leap year
integer SECONDS_PER_YEAR = 31536000; // Non leap year
integer SECONDS_PER_DAY = 86400;
integer SECONDS_PER_HOUR = 3600;
integer SECONDS_PER_MINUTE = 60;

////////////////////////////// LeapYear() /////////////////////////////

integer LeapYear(integer year)
{
if (year % 4 == 0)
{
if (year % 100 == 0)
{
if (year % 400 == 0)
{
return 1;
}
else
{
return 0;
}
}
else
{
return 1;
}
}
else
{
return 0;
}
}

////////////////////////////// DaysPerMonth() ///////////////////////////////////////

integer DaysPerMonth(integer year,integer month)
{
if (month < 8)
{
if (month % 2 == 0)
{
if (month == 2)
{
if (LeapYear(year))
{
return 29;
}
else
{
return 28;
}
}
else
{
return 30;
}
}
else
{
return 31;
}
}
else
{
if (month % 2 == 0)
{
return 31;
}
else
{
return 30;
}
}
}

/////////////////////////// DaysPerYear() ////////////////////////////////////

integer DaysPerYear(integer year)
{
if (LeapYear(year))
return DAYS_PER_YEAR + 1;
else
return DAYS_PER_YEAR;
}

/////////////////////////////// Unix2DataTime() ///////////////////////////////////////

list Unix2DateTime(integer unixtime)
{
integer days_since_1_1_1970 = unixtime / SECONDS_PER_DAY;
integer day = days_since_1_1_1970 + 1;
integer year = 1970;
integer days_per_year = DaysPerYear(year);

while (day > days_per_year)
{
day -= days_per_year;
++year;
days_per_year = DaysPerYear(year);
}

integer month = 1;
integer days_per_month = DaysPerMonth(year,month);

while (day > days_per_month)
{
day -= days_per_month;

if (++month > 12)
{
++year;
month = 1;
}

days_per_month = DaysPerMonth(year,month);
}

integer seconds_since_midnight = unixtime % SECONDS_PER_DAY;
integer hour = seconds_since_midnight / SECONDS_PER_HOUR;
integer second = seconds_since_midnight % SECONDS_PER_HOUR;
integer minute = second / SECONDS_PER_MINUTE;
second = second % SECONDS_PER_MINUTE;

return [ year, month, day, hour, minute, second ];
}

///////////////////////////////// MonthName() ////////////////////////////

list MonthNameList = [ "JAN", "FEB", "MAR", "APR", "MAY", "JUN",
"JUL", "AUG", "SEP", "OCT" , "NOV", "DEC" ];

string MonthName(integer month)
{
if (month >= 0 && month < 12)
return llList2String(MonthNameList, month);
else
return "";
}

///////////////////////////////// DateString() ///////////////////////////

string DateString(list timelist)
{
integer year = llList2Integer(timelist,0);
integer month = llList2Integer(timelist,1);
integer day = llList2Integer(timelist,2);

return (string)day + "-" + MonthName(month - 1) + "-" + (string)year;
}

///////////////////////////////// TimeString() ////////////////////////////

string TimeString(list timelist)
{
integer hour = llList2Integer(timelist,3);
integer minute = llList2Integer(timelist,4);
integer second = llList2Integer(timelist,5);
string hourstr = (string)hour;
string minutestr = (string)minute;
string secondstr = (string)second;

if (hour < 10) hourstr = "0" + hourstr;
if (minute < 10) minutestr = "0" + minutestr;
if (second < 10) secondstr = "0" + secondstr;
return hourstr + ":" + minutestr + ":" + secondstr;
}

/////////////////////////////////// SendMail() /////////////////////////////////////

SendMail(string body)
{
// llOwnerSay("Sending message to '" + address + "' with subject '" + subject +"'.");
llMessageLinked(LINK_THIS, MSG_MESSAGE_SEND, body, NULL_KEY);
}

///////////////////////////////// SendHome() ///////////////////////////////////////

SendHome(string subject, string body)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SENDHOME, body, (key)subject);
}

///////////////////////////////// Show() ////////////////////////////////////////////

Show()
{
integer i;

llOwnerSay("Current chat recording is:");
llOwnerSay("--------------------------");

for (i = 0; i < NumLines; ++i)
{
llOwnerSay(llList2String(ChatRecording,i));
}

llOwnerSay("--------------------------");
llOwnerSay("Lines is " + (string)NumLines);
llOwnerSay("Message length is " + (string)Length);
}

/////////////////////////////// Read() /////////////////////////////////////////

Read()
{
llOwnerSay("Reading message " + (string)CurrentMessage + " from mail buffer.");
integer time = (integer)llList2Integer(TimeList,CurrentMessage);
list timelist=Unix2DateTime(time);
string Address = llList2String(AddressList,CurrentMessage);
string Subject = llList2String(SubjectList,CurrentMessage);
string Body = llList2String(BodyList,CurrentMessage);
llOwnerSay("Date : " + DateString(timelist));
llOwnerSay("Time : " + TimeString(timelist));
llOwnerSay("Address: " + Address);
llOwnerSay("Subject: " + Subject);
llOwnerSay("Begin of message body:");
llOwnerSay("-------------------------");
list bodylist=llParseStringKeepNulls(Body, [ "\n" ], []);
integer num=llGetListLength(bodylist);
integer i;

for (i = 0; i < num; ++i)
{
llOwnerSay(llList2String(bodylist,i));
}

llOwnerSay("-------------------------");
llOwnerSay("End of message body.");
}

////////////////////////////////////// List ////////////////////////////////////////////

List()
{
llOwnerSay("The mail buffer contains the following messages:\n");

integer i;

for (i = 0; i < NumMessages; ++i)
{
integer time=llList2Integer(TimeList,i);
list timelist=Unix2DateTime(time);
if (i > 0) llOwnerSay("+-+-+-+-+-+-+-+-+-+-+-+-");
llOwnerSay("Message: " + (string)i);
llOwnerSay("Date : " + DateString(timelist));
llOwnerSay("Time : " + TimeString(timelist));
llOwnerSay("From: " + llList2String(AddressList,i));
llOwnerSay("Subject: " + llList2String(SubjectList,i));
}
}

//////////////////////////// NotifyNewMail() /////////////////////////

NotifyNewMail(string time, string address, string subject, string body)
{
list timelist=Unix2DateTime((integer)time);

if (StatusOnline)
{
llInstantMessage(llGetOwner(), "You received a new mail message on "
+ DateString(timelist) + " at " + TimeString(timelist)
+ " from " + address
+ " with the subject " + subject);
}
else
{
SendHome("FW: " + subject, "Received at: " + DateString(timelist) + " " + TimeString(timelist) + "\nFrom: " + address
+ "\nBegin message body:\n-------------------\n" + body + "\n-------------------\nEnd message body.");
}
}

///////////////////////////// ResetOtherScripts() //////////////////////

ResetOtherScripts()
{
string name;
integer i;
integer num=llGetListLength(ScriptList);

for (i = 0; i < num; ++i)
{
name = llList2String(ScriptList,i);

if (llGetInventoryType(name) == INVENTORY_SCRIPT)
{
llResetOtherScript(name);
}
else
{
llOwnerSay("Error - script '" + name + "' not found.");
ErrorFlag = TRUE;
}
}
}

//////////////////////////////////////
// default
//////////////////////////////////////

default
{
////////////////////// state_entry() /////////////////////////

state_entry()
{
llOwnerSay("Welcome to SL Mail, released under GNU software licence.");
llOwnerSay("Version " + SL_MAIL_VERSION + " " + SL_MAIL_DATE);
llOwnerSay("Produced by Logic Scripted Products & Product Services");
llOwnerSay("Free memory: " + (string)llGetFreeMemory());
ResetOtherScripts();

if (ErrorFlag)
state Error;
}

/////////////////////// on_rez() //////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

/////////////////////// changed() ////////////////////////////

changed(integer mask)
{
if (mask & CHANGED_INVENTORY)
{
llResetScript();
}
}

/////////////////////// link_message() /////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
else if (msgid == MSG_ADDRESSBOOK_LOADED)
{
state running;
}
else if (msgid == MSG_ADDRESSBOOK_ERROR)
{
state Error;
}
}
}

///////////////////////////////////////
// state running
//////////////////////////////////////

state running
{
///////////////////////// state_entry() //////////////////////

state_entry()
{
llListen(0, "", llGetOwner(), "");
llOwnerSay("SL mail ready.\nSend and Get mail in Second Life.\nType @HELP for more info.");
llMessageLinked(LINK_THIS, MSG_MESSAGE_INFO, "", NULL_KEY);
llGetNextEmail("", "");
llSetTimerEvent(MAIL_FETCH_INTERVAL);
}

//////////////////////// on_rez() ////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

//////////////////////// listen() ////////////////////////////

listen(integer channel, string name, key id, string message)
{
string trimmessage=llStringTrim(message,STRING_TRIM);
list parse = llParseStringKeepNulls(trimmessage, [ " "], []);
string command = llToUpper(llList2String(parse,0));
string arg = llStringTrim(llList2String(parse,1),STRING_TRIM);
integer nargs = llGetListLength(parse);
string argstr="";

if (nargs > 1) argstr=llGetSubString(message, llSubStringIndex(message, " ") + 1, -1);

if (Recording)
{
if (command == COMMAND_STOP)
{
llOwnerSay("Recording stopped. Type @SHOW to see the message you have entered,"
+ " or @SEND to send it.");
Recording = FALSE;
return;
}
if (command == COMMAND_SEND)
{
Recording = FALSE;

SendMail(llDumpList2String(ChatRecording, "\n"));
return;
}
else
{
ChatRecording = (ChatRecording=[]) + ChatRecording + [ message ];
++NumLines;
Length += llStringLength(message) + 2;
return;
}
}
else
{
if (command == COMMAND_RECORD)
{
llOwnerSay("Start recording your message. Type @STOP to end recording.");
ChatRecording = [];
NumLines=0;
Length=0;
Recording = TRUE;
return;
}
if (command == COMMAND_CONTINUE)
{
llOwnerSay("Continue recording your message. Type @STOP to end recording.");
Recording = TRUE;
return;
}
if (command == COMMAND_REPLY)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
string address=llList2String(AddressList,CurrentMessage);
string subject="Re: " + llList2String(SubjectList,CurrentMessage);
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETADDRESS, address, NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETSUBJECT, subject, NULL_KEY);
ChatRecording = [];
NumLines=0;
Length=0;
Recording = TRUE;
}
return;
}
if (command == COMMAND_MAIL)
{
string mailaddress=llStringTrim(argstr,STRING_TRIM);

if (mailaddress != "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETADDRESS, mailaddress, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETADDRESS, "", NULL_KEY);
}
return;
}
if (command == COMMAND_SUBJECT)
{
string mailsubject=llStringTrim(argstr,STRING_TRIM);

if (mailsubject != "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETSUBJECT, mailsubject, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETSUBJECT, "", NULL_KEY);
}
return;
}
if (command == COMMAND_STOP)
{
llOwnerSay("Not recording.");
return;
}
if (command == COMMAND_SEND)
{
if (nargs == 1)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
SendMail(llDumpList2String(ChatRecording, "\n"));
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SEND_NOTECARD, argstr, NULL_KEY);
}
return;
}
if (command == COMMAND_IGNORE)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
ChatRecording = [];
NumLines = 0;
Length = 0;
}
return;
}
if (command == COMMAND_SHOW)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
Show();
}
return;
}
if (command == COMMAND_READ)
{
if (NumMessages == 0)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
Read();
}
return;
}
if (command == COMMAND_NEXT)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == NumMessages - 1)
{
llOwnerSay("Already at last message.");
}
else
{
++CurrentMessage;
Read();
}
}
return;
}
if (command == COMMAND_PREV)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == 0)
{
llOwnerSay("Already at first message.");
}
else
{
--CurrentMessage;
Read();
}
}
return;
}
if (command == COMMAND_FIRST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == 0)
{
llOwnerSay("Already at first message.");
}
else
{
CurrentMessage = 0;
Read();
}
}
return;
}
if (command == COMMAND_LAST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == NumMessages - 1)
{
llOwnerSay("Already at last message.");
}
else
{
CurrentMessage = NumMessages - 1;
Read();
}
}
return;
}
if (command == COMMAND_LIST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
List();
}
return;
}
if (command == COMMAND_SELECT)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else if (nargs == 1)
{
llOwnerSay("Need to supply a message number.");
}
else
{
integer msgnum = (integer)arg;

if (msgnum < 0 || msgnum >= NumMessages)
{
llOwnerSay("Message number " + arg + " not in mail buffer.");
}
else
{
CurrentMessage = msgnum;
}
}
return;
}
if (command == COMMAND_DELETE)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
TimeList = llDeleteSubList(TimeList,CurrentMessage,CurrentMessage);
AddressList = llDeleteSubList(AddressList,CurrentMessage,CurrentMessage);
SubjectList = llDeleteSubList(SubjectList,CurrentMessage,CurrentMessage);
BodyList = llDeleteSubList(BodyList,CurrentMessage,CurrentMessage);
--NumMessages;

if (NumMessages == 0)
{
CurrentMessage = -1;
}
else if (CurrentMessage >= NumMessages)
{
CurrentMessage = NumMessages - 1;
}
}
return;
}
if (command == COMMAND_CLEAR)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
TimeList=[];
AddressList=[];
SubjectList=[];
BodyList=[];
NumMessages=0;
CurrentMessage=-1;
}
return;
}
if (command == COMMAND_HELP)
{
llMessageLinked(LINK_THIS, MSG_HELP, arg, NULL_KEY);
return;
}
if (command == COMMAND_INFO)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_INFO, "", NULL_KEY);
return;
}
if (command == COMMAND_SHOW)
{
Show();
return;
}
if (command == COMMAND_RESET)
{
llResetScript();
return;
}
if (command == COMMAND_OFF)
{
state not_running;
}
if (command == COMMAND_HOME)
{
if (nargs==1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETHOME, "", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETHOME, argstr, NULL_KEY);
}
return;
}
}
}

///////////////////////// timer() ///////////////////////////////

timer()
{
llGetNextEmail("", "");
}

///////////////////////// email() ///////////////////////////////

email(string time, string address, string subject, string body, integer queued)
{
NotifyNewMail(time, address, subject, body);
TimeList = (TimeList=[]) + TimeList + [time];
AddressList = (AddressList=[]) + AddressList + [address];
SubjectList = (SubjectList=[]) + SubjectList + [subject];
BodyList = (BodyList=[]) + BodyList + [body];
++NumMessages;

if (CurrentMessage == -1)
{
CurrentMessage = 0;
}
else
{
CurrentMessage = NumMessages - 1;
}
}

///////////////////// link_message() //////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
else if (msgid == MSG_MESSAGE_REPLY)
{
llOwnerSay(message);
}
}
}

//////////////////////////////////
// state not_running
//////////////////////////////////

state not_running
{
///////////////////// state_entry() //////////////////////////

state_entry()
{
llOwnerSay("SL Mailbox switched OFF. Say @ON to switch it back on.");
llListen(0, "", llGetOwner(), "");
}

//////////////////// on_rez() ///////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

//////////////////// listen() ////////////////////////////////

listen(integer chan, string name, key id, string message)
{
string command=llToUpper(message);

if (command == COMMAND_ON)
{
state running;
}
}

///////////////////// link_message() //////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
}
}

//////////////////////////////////
// state Error
//////////////////////////////////

state Error
{
state_entry()
{
llOwnerSay("Error in SL Mail: not all component scripts found.");
}

changed(integer mask)
{
if (mask & CHANGED_INVENTORY)
{
llResetScript();
}
}

on_rez(integer start_param)
{
llResetScript();
}
}

//////////////////////////////////
// End SL Mail V1.2.lsl
//////////////////////////////////
</lsl>
</div>
</div>

<div id="box">

==Script: SL Mail Address Book V1.2==
<div style="padding: 0.5em;">
Read and interpret the contents of the Address Book.
<lsl>
// SL Mail AddressBook V1.2.lsl
//
// DESCRIPTION
//
// Read the Address Book from a notecard named "Address Book".
//
// The Address Book has the following format:
//
// [ADDRESS BOOK]
// Name1=username@yourdomain.com
// Name2=otheruser@otherdomain.com
// ...
// [GROUP]
// group1=Name1, Name2
// ...
//
// Notes:
// 1. Group and Name share the same namespace, and must be unique.
// 2. It is allowed to have a name in the addressbook with multiple addresses, seperated by comma's.
//
/////////////////////////////////////////////////

string CurrentMailAddress = "";
string CurrentMailSubject = "";
integer StatusOnline = FALSE;

// Fetch or Send notecard

string Notecard2Fetch="";

// Address Book Names

list AddressBookList=[];
list MailAddressList=[];

string STRING_HOME="HOME";
string STRING_SELF="SELF";

// Address Book Groups

list GroupList=[];
list GroupNameList=[];

string LSL_DOMAIN = "lsl.secondlife.com";

// Read Address Book notecard

string ADDRESSBOOK_NOTECARD="Address Book";
integer Line=0;
key reqAddressBook=NULL_KEY;
float TIMEOUT_INTERVAL=5.0;

integer Section=0;
integer SECTION_ADDRESS_BOOK=1;
integer SECTION_GROUP=2;
string STRING_ADDRESS_BOOK="ADDRESS BOOK";
string STRING_GROUP="GROUP";

// Links messages

integer MSG_MESSAGE_SETADDRESS = 90000;
integer MSG_MESSAGE_GETADDRESS = 90050;
integer MSG_MESSAGE_SETSUBJECT = 90100;
integer MSG_MESSAGE_GETSUBJECT = 90150;
integer MSG_MESSAGE_SEND = 90200;
integer MSG_MESSAGE_SENDHOME = 90300;
integer MSG_MESSAGE_SEND_NOTECARD = 90400;
integer MSG_MESSAGE_ADDRESSBOOK = 90500;
integer MSG_MESSAGE_GETHOME = 90600;
integer MSG_MESSAGE_SETHOME = 90700;
integer MSG_MESSAGE_INFO = 90800;
integer MSG_MESSAGE_NOTIFY = 90900;

integer MSG_ADDRESSBOOK_LOADED = 91000;
integer MSG_ADDRESSBOOK_ERROR = 91100;

integer MSG_MESSAGE_REPLY = 99000;

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////// GetSelfAddress() ///////////////////////

string GetSelfAddress()
{
return (string)llGetKey() + "@" + LSL_DOMAIN;
}

///////////////////////////// Info() /////////////////////////////////

Info()
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "The mail address for this object is: "
+ GetSelfAddress() + ".", NULL_KEY);
}

///////////////////////////////// IsValidKeyFormat() //////////////////////

integer IsValidKeyFormat(string str)
{
string keychars = "0123456789abcdef";

if (llStringLength(str) != 36)
return FALSE;

if( (llGetSubString( str, 8, 8 ) != "-" ||
llGetSubString( str, 13, 13 ) != "-" ||
llGetSubString( str, 18, 18 ) != "-" ||
llGetSubString( str, 23, 23 ) != "-" ) )
return FALSE;

integer i;

for (i = 0; i < 8; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 9; i < 13; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 14; i < 18; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 19; i < 23; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 24; i < 36; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

return TRUE;
}

///////////////////////////////// ValidMailAddress() ////////////////////////

integer ValidMailAddress(string arg)
{
string adress = llToLower(llStringTrim(arg,STRING_TRIM));

if (adress == "")
return FALSE;

list parse = llParseStringKeepNulls(adress, [ "@" ], []);
string account = llList2String(parse,0);
string domain = llList2String(parse,1);

if (llGetListLength(parse) != 2 || llStringLength(account) == 0 || llStringLength(domain) == 0)
return FALSE;

if (domain == LSL_DOMAIN)
{
return IsValidKeyFormat(account);
}
else
{
list parsedomain = llParseString2List(domain, [ "." ], []);

if (llGetListLength(parsedomain) < 2)
return FALSE;

integer num = llGetListLength(parsedomain);
integer i;

for (i = 0; i < num; ++i)
{
if (llStringLength(llList2String(parsedomain,i)) < 2)
{
return FALSE;
}
}
}

return TRUE;
}

/////////////////////////////////// GetAddressStr() ///////////////////

string GetAndCheckAddressStr(string address)
{
list addresslist = llCSV2List(address);
integer num=llGetListLength(addresslist);
integer i;
string addressstr="";
string curaddress="";

for (i = 0; i < num; ++i)
{
curaddress=llList2String(addresslist,i);

if (ValidMailAddress(curaddress))
{
addressstr = (addressstr="") + addressstr + curaddress + ",";
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address string: '"
+ curaddress + "'.", NULL_KEY);
}
}

return llGetSubString(addressstr, 0, -2);
}

///////////////////////////// ProcessLine() ////////////////////////////

ProcessLine(string rawline)
{
string line=llStringTrim(rawline,STRING_TRIM);
string first=llGetSubString(line,0,0);
string last=llGetSubString(line,-1,-1);

// Ignore a blank line or comment line
if (line == "" || first == "#")
return;

// Check for the right section

if (first == "[" && last == "]")
{
string sectionstr=llToUpper(llStringTrim(llGetSubString(line,1,-2),STRING_TRIM));

if (sectionstr == STRING_ADDRESS_BOOK)
{
Section = SECTION_ADDRESS_BOOK;
}
else if (sectionstr == STRING_GROUP)
{
if (Section == 0)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1)
+ ". Group section defined before Address Book section.", NULL_KEY);
}
else
{
Section = SECTION_GROUP;
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid section header '" + sectionstr
+ "' in " + ADDRESSBOOK_NOTECARD + " at line " + (string)(Line + 1) + ".", NULL_KEY);
}

return;
}

// Must be in a section

if (Section == 0)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ". No section header.", NULL_KEY);
return;
}

list parse=llParseString2List(line, [ "=" ], []);
integer num=llGetListLength(parse);

// Format must be correct

if (num != 2)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line+1) + ":\n" + rawline, NULL_KEY);
return;
}

if (Section == SECTION_ADDRESS_BOOK)
{
string name=llStringTrim(llList2String(parse,0),STRING_TRIM);

if (llToUpper(name) == STRING_SELF)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address book entry '" + name
+ "'. Reserved word in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ".", NULL_KEY);
}
else if (llListFindList(AddressBookList, [ name ]) == -1)
{
string address=llStringTrim(llList2String(parse,1),STRING_TRIM);
string addressstr=GetAndCheckAddressStr(address);

if (addressstr != "")
{
AddressBookList = (AddressBookList=[]) + AddressBookList + [ name ];
MailAddressList = (MailAddressList=[]) + MailAddressList + [ addressstr ];
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "No valid mail address for '" + name
+ "'. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line " + (string)(Line + 1)
+ ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Name '" + name
+ "' already defined. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else // Group
{
string group=llStringTrim(llList2String(parse,0),STRING_TRIM);

if (llToUpper(group) == STRING_SELF)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address book entry '" + group
+ "'. Reserved word in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ".", NULL_KEY);
}
else if (llListFindList(AddressBookList, [ group ]) == -1)
{
if (llListFindList(GroupList, [ group ]) == -1)
{
string names=llStringTrim(llList2String(parse,1),STRING_TRIM);
list namelist=llCSV2List(names);
integer num=llGetListLength(namelist);
integer i;
integer index;
string name;
string namestr="";

for (i = 0; i < num; ++i)
{
name=llList2String(namelist,i);
index=llListFindList(AddressBookList, [ name ]);

if (index == -1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Name '" + name + "' defined in Group '"
+ group + "' not found in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
else
{
namestr = (namestr="") + namestr + name + ",";
}
}

if (namestr != "")
{
namestr=llGetSubString(namestr,0,-2);
GroupList = (GroupList=[]) + GroupList + [ group ];
GroupNameList = (GroupNameList=[]) + GroupNameList + [ namestr ];
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' has no valid names. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' already defined in Group. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' already defined in Address Book. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
}

//////////////////////////////// GetGroupAddressList ///////////////

string GetGroupAddressList(string group)
{
integer index=llListFindList(GroupList, [ group ]);
integer i;
integer num=llGetListLength(GroupList);
string grouplist="";

if (index == -1)
{
return "";
}
else
{
for (i = index; i < num; ++i)
{
if (llList2String(GroupList,i) == group)
{
grouplist = (grouplist="") + grouplist + llList2String(GroupNameList,i) + ",";
}
}

if (grouplist != "") grouplist=llGetSubString(grouplist,0,-2); // remove last ","
return grouplist;
}
}

//////////////////////////////// SetMailAddress() //////////////////

SetMailAddress(string address)
{
integer index=llListFindList(AddressBookList, [ address ]);

if (index == -1)
{
index=llListFindList(GroupList, [ address ]);

if (index == -1)
{
if (llToUpper(address) == STRING_SELF)
{
CurrentMailAddress = GetSelfAddress();
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
else if(ValidMailAddress(address))
{
CurrentMailAddress = address;
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Mail adress " + address
+ " : not found in adress book or invalid format.", NULL_KEY);
}
}
else
{
CurrentMailAddress = GetGroupAddressList(address);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject set to: "
+ CurrentMailAddress, NULL_KEY);
}
}
else
{
CurrentMailAddress = llList2String(MailAddressList,index);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
}

/////////////////////////////////// SendMail() ///////////////////////

SendMail(string message)
{
if (CurrentMailAddress == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "SendMail: No mail address defined.", NULL_KEY);
}
else if (CurrentMailSubject == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "SendMail: No subject defined.", NULL_KEY);
}
else
{
list mailaddresslist=llCSV2List(CurrentMailAddress);
integer num=llGetListLength(mailaddresslist);
integer i;
string address;

for (i = 0; i < num; ++i)
{
address=llList2String(mailaddresslist,i);
llEmail(address, CurrentMailSubject, message);
}
}
}

/////////////////////////////////// SendMailHome() ////////////////////

SendMailHome(string message, string subject)
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, STRING_HOME
+ " not set. Set your home adress with @HOME <address>.", NULL_KEY);
}
else
{
string homeaddress=llList2String(AddressBookList,index);
list homelist=llCSV2List(homeaddress);
integer num=llGetListLength(homelist);
integer i;
string address;

for (i = 0; i < num; ++i)
{
address=llList2String(homelist,i);
llEmail(address, subject, message);
}
}
}

/////////////////////////////////// GetHomeAddress() //////////////////

string GetHomeAddress()
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
return "not set";
}
else
{
return llList2String(MailAddressList,index);
}
}

/////////////////////////////////// SetHomeAddress() //////////////////

SetHomeAddress(string address)
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
AddressBookList = (AddressBookList=[]) + [ STRING_HOME ] + AddressBookList;
MailAddressList = (MailAddressList=[]) + [ GetAndCheckAddressStr(address) ] + MailAddressList;
}
else
{
MailAddressList = llListReplaceList(MailAddressList, [ GetAndCheckAddressStr(address) ], index, index);
}
}

////////////////////////////////////
// default
////////////////////////////////////

default
{
///////////////////// state_entry() //////////////////

state_entry()
{
Line=0;
Section=0;
llSetTimerEvent(TIMEOUT_INTERVAL);
reqAddressBook=llGetNotecardLine(ADDRESSBOOK_NOTECARD, 0);
}

///////////////////// dataserver() ////////////////////

dataserver(key id, string data)
{
if (id == reqAddressBook)
{
reqAddressBook = NULL_KEY;

if (data != EOF)
{
ProcessLine(data);
reqAddressBook=llGetNotecardLine(ADDRESSBOOK_NOTECARD, ++Line);
}
else
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_LOADED, "", NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Address Book loaded.", NULL_KEY);
state running;
}
}
}

//////////////////////// timer() ///////////////////////////

timer()
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_ERROR, "", NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Could not read Address Book: "
+ ADDRESSBOOK_NOTECARD + ".", NULL_KEY);
llSetTimerEvent(0.0);
}
}

////////////////////////////////////////////
// state running
////////////////////////////////////////////

state running
{
state_entry()
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_LOADED, "", NULL_KEY);
}

///////////////////////// link_message() ////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_MESSAGE_GETSUBJECT)
{
if (CurrentMailSubject == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject is empty.", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject is: "
+ CurrentMailSubject, NULL_KEY);
}
}
else if (msgid == MSG_MESSAGE_SETSUBJECT)
{
CurrentMailSubject = message;
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject set to: "
+ CurrentMailSubject, NULL_KEY);
}
else if (msgid == MSG_MESSAGE_GETADDRESS)
{
if (CurrentMailAddress == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address is empty.", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address is: "
+ CurrentMailAddress, NULL_KEY);
}
}
else if (msgid == MSG_MESSAGE_SETADDRESS)
{
SetMailAddress(message);
}
else if (msgid == MSG_MESSAGE_SEND)
{
if (message == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Body of message to send is empty. "
+ "No mail is send.", NULL_KEY);
}
else
{
SendMail(message);
}
}
else if (msgid == MSG_MESSAGE_SENDHOME)
{
SendMailHome(message, (string)id);
}
else if (msgid == MSG_MESSAGE_SEND_NOTECARD)
{
if (llGetInventoryType(message) == INVENTORY_NOTECARD)
{
Notecard2Fetch = message;
llMessageLinked(LINK_THIS, MSG_NOTECARD_READ, message, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Notecard " + message + " not found.", NULL_KEY);
}
}
else if (msgid == MSG_NOTECARD_FETCHED)
{
if (message == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Notecard " + Notecard2Fetch
+ " was empty or could not be read.", NULL_KEY);
}
else
{
SendMail(message);
}
}
else if (msgid == MSG_MESSAGE_GETHOME)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Home address is: " + GetHomeAddress() + ".", NULL_KEY);
}
else if (msgid == MSG_MESSAGE_SETHOME)
{
SetHomeAddress(message);
}
else if (msgid == MSG_MESSAGE_INFO)
{
Info();
}
}
}

/////////////////////////////////////
// End SL Mail AddressBook V1.2.lsl
/////////////////////////////////////
</lsl>
</div>
</div>

<div id="box">

==Script: SL Mail FetchNotecard V1.2==
<div style="padding: 0.5em;">
Fetch the contents of a notecard and return it via link message as a string.
<lsl>
// SL Mail FetchNotecard V1.2.lsl
//
//

// Notecard

integer Line=0;
string Notecard2Fetch="";
key reqNotecard=NULL_KEY;
float TIMEOUT_INTERVAL=10.0;
integer Fetched=FALSE;

// Lines

list LineList=[];

// Link messages

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////////////////////
// default
//////////////////////////////////////////

default
{
/////////////////////// dataserver() //////////////////////////////

dataserver(key id, string data)
{
if (id == reqNotecard)
{
reqNotecard=NULL_KEY;

if (data != EOF)
{
LineList = (LineList=[]) + LineList + [ data ];
reqNotecard = llGetNotecardLine(Notecard2Fetch, ++Line);
}
else
{
Fetched=TRUE;
llMessageLinked(LINK_THIS, MSG_NOTECARD_FETCHED, llDumpList2String(LineList, "\n"), NULL_KEY);
llSetTimerEvent(0.0);
}
}
}

/////////////////////// timer() ///////////////////////////////////

timer()
{
if (!Fetched)
{
llMessageLinked(LINK_THIS, MSG_NOTECARD_FETCHED, "", NULL_KEY);
llSetTimerEvent(0.0);
}
}

/////////////////////// link_message() ////////////////////////////

link_message(integer send, integer msgid, string message, key id)
{
if (msgid == MSG_NOTECARD_READ)
{
Line=0;
Notecard2Fetch=message;
LineList=[];
Fetched=FALSE;
reqNotecard=llGetNotecardLine(Notecard2Fetch, Line);
llSetTimerEvent(TIMEOUT_INTERVAL);
}
}
}

// End SL Mail FetchNotecard V1.2.lsl
</lsl>
</div>
</div>

<div id="box">

==Script: SL OnlineStatus V1.2==
<div style="padding: 0.5em;">
Fetch online status of owner.
<lsl>
// SL Mail OnlineStatus V1.2.lsl
//
//

// Online status

key reqOnlineStatus=NULL_KEY;
float STATUS_INTERVAL=2.0;

// Link messages

integer MSG_STATUS_ONLINE = 30000;
integer MS_STATUS_OFFLINE = 30100;

////////////////////////////////
// default
////////////////////////////////

default
{
///////////////////////// state_entry() /////////////////////////

state_entry()
{
reqOnlineStatus=llRequestAgentData(llGetOwner(), DATA_ONLINE);
llSetTimerEvent(STATUS_INTERVAL);
}

///////////////////////// dataserver() //////////////////////////

dataserver(key id, string data)
{
if (id == reqOnlineStatus)
{
reqOnlineStatus = NULL_KEY;

if (data=="1")
{
llMessageLinked(LINK_THIS, MSG_STATUS_ONLINE, "", NULL_KEY);
}
else if (data=="0")
{
llMessageLinked(LINK_THIS, MS_STATUS_OFFLINE, "", NULL_KEY);
}
}
}

///////////////////////// timer() ///////////////////////////////

timer()
{
reqOnlineStatus = llRequestAgentData(llGetOwner(), DATA_ONLINE);
}
}

// End SL Mail OnlineStatus V1.2.lsl
</lsl>
</div>
</div>

<div id="box">

==Script: SL Mail Help V1.2==
<div style="padding: 0.5em;">
Display help information.

<lsl>
// SL Mail Help V1.2.lsl
//
//

integer MSG_HELP = 10000;

///////////////////////////////// Help() ///////////////////////////////////////

Help()
{
llOwnerSay("HELP for SL Mail V1.2.");
llOwnerSay("COMMANDS:");
llOwnerSay("@HELP - displays help info.");
llOwnerSay("@INFO - display mailaddress of this object.");
llOwnerSay("@RECORD - start recording.");
llOwnerSay("@CONTINUE - continue recording.");
llOwnerSay("@STOP - stop recording.");
llOwnerSay("@IGNORE - ignore the recording.");
llOwnerSay("@SHOW - show what your recorded.");
llOwnerSay("@SEND - send the recording.");
llOwnerSay("@MAIL <mailadress> - set the mail adress.");
llOwnerSay("@SUBJECT subject - set the mail subject.");
llOwnerSay("@LIST - list messages in mail buffer.");
llOwnerSay("@SELECT <message> - select message from mail buffer.");
llOwnerSay("@READ - read current message from mail buffer.");
llOwnerSay("@NEXT - read next message from mail buffer.");
llOwnerSay("@PREV - read previous message from mail buffer.");
llOwnerSay("@FIRST - read first message from mail buffer.");
llOwnerSay("@LAST - read last message from mail buffer.");
llOwnerSay("@DELETE - delete current message from mail buffer.");
llOwnerSay("@CLEAR - clear the mail buffer.");
llOwnerSay("@REPLY - reply to current message.");
llOwnerSay("@RESET - reset the script.");
llOwnerSay("@HOME - set the home mail adress.");
llOwnerSay("@OFF - switch mailbox OFF.");
llOwnerSay("@ON - switch mailbox ON.");
}

/////////////////////////////////////////////
// default
/////////////////////////////////////////////

default
{
link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_HELP)
{
Help();
}
}
}

// End SL Mail Help V1.2.lsl
</lsl>
</div>
</div>
[[Image:slmail.info.jpg]]

{{LSLC|Library}}

User:Flennan Roffo

Flennan Roffo — Wed, 09 Feb 2011 23:09:16 GMT

Flennan Roffo:

__NOTOC__
=About Flennan Roffo=
{|
|-
||[[Image:FlennanRoffo80x80.jpg|frameless|100px|Flennan Roffo]]
||Second Life resident since 11 July 2007. Scripter and owner of Logic Scripts. You can visit me at my office in Beeratron (57, 168, 75)
{{SLurl
|region=Beeratron
|x=57
|y=168
|z=75
|title=Logic Scripts
|}}
|}

=Logic Scripts=
[[Image:Logicscripts.org.jpg]]

==ABOUT LOGIC==
Logic Scripts provides script services. Most of my scripts is free software published under the GNU GPL licence.

==PRODUCTS==

* '''Logic Mailbox Basic V 1.0'''
Basic model for a mailbox that allows anyone to drop you a notecard. Comes with a standard skin. For skin customization, contact Mad Maddy Studio.

[[Image:Slmailbox.jpg]]

See the demo at Logic office:
{{SLurl
|region=Beeratron
|x=57
|y=168
|z=75
|title=Logic Scripts
|}}

* '''Logic Vendor V 1.0'''
Vendor that allows you to display many sellable items (objects) and per item you can give a customer a notecard. The sell price is split amongst multiple authors. Set up is easy, since you have to enter the key of each author only once, and can reference any author by nick.

[[Image:Logicvendorv10.jpg|300px]]

See the demo at Logic office:
{{SLurl
|region=Beeratron
|x=57
|y=168
|z=75
|title=Logic Scripts
|}}

* '''SL Mail V 1.2'''
SecondLife mail client, released under GNU GPL licence. You can send and receive mail from within SecondLife both from and to other mail clients or external mail adresses. Has many command options and comes with an adjustable address book that allows to enter addresses and address groups.

'''Get a free copy at logic office:'''
{{SLurl
|region=Beeratron
|x=57
|y=168
|z=75
|title=Logic Scripts
|}}

Or, alternatively, get it from the Second Life wiki [[SL Mail V1.2|here]]

[[Image:slmail.info.jpg]]

==SERVICE CHARGING POLICY==

The charging policy for script services depends on a number of factors:
* The usuability of the script. Simply stated, if the script does not provide what it is supposed to do no charge will be applied.
* The amount of work needed to create, adapt and test the script.
* The custumor. As a rule, the richer the customer, the higher the price, and the more the script or service I provide enhances business profits, the more is charged.
* The pricing will be based on the length of the service time-period.
* Prices are within reason.
* Part or whole price can be refunded if you have a well grounded complaint (script not behaving as specified or a large delay in delivering the scripts).
* Payment in advance for small projects are not necessary. For larger projects in which significant amount of time is invested advanced payment is asked for in the order of 10%-50% of the agreed price.

* Donate for free scripts/services

If you found my scripts and/or other services quite usefull and got them free of charge, you might consider giving a donation.

==HIRING==

Logic can be hired for diverse script projects.

'''Logic Scripts'''

Flennan Roffo

Shoutcast - radio controller v0.3 (remake of similar scripts)

Flennan Roffo — Wed, 09 Feb 2011 22:16:17 GMT

Flennan Roffo:

{{LSL Header}}
===Shoutcast - radio controller v0.3===
This script controls a shoutcast radio receiver and lets you select the stations that you configured on a notecard. Menu driven. Output of station description, genre and current song title using Xy text.
===Main script===
<lsl>
// Shoutcast - radio controller v0.3
// Logic Scripts (Flennan Roffo)
// (c) 2010 - Flennan Roffo (Logic Scripts)
//
// Remake of similar script:
// + LandOwnersRadio V2.0 by Scripter Coba (( menu driven / notecard config script to select the radio station and sets parcel music url ))
// + Raven radio infoboard by Jamie Otis (( worked at the basis of sis service [sis.slserver.com/sis.php] used Xy text display ))
// + currentPlaying by Darkie Minotaur (( used the /7.html info to fetch current song title info, displayed as float text ))
//
// Purpose:
// * Sets the parcel audio URL and displays the channel info
// * Uses Xytext to display the info.
// * Fetches song title info from the shoutcast url
// Extra Features -- 0.1 release
// * On/Off option
// * Allows multiple menus (if options per menu > 12) using a prev/next button
// * Checks if your url is well-formatted
// * Will delete genres for which no stations exist
// * Will skip stations that have same url and same genre (you can however have an identical station url under different genres).
// * New notecard format
//////////////////////////////////////////////////////////////////////////////////////////
// Extra Features -- 0.2 release
// * Configurable button text
// * Gets parcel URL and automatically sets the genre/station and on/off status accordingly (<-- doesn't work)
//////////////////////////////////////////////////////////////////////////////////////////
// Update -- 0.3 release
// * Fixed bug (only first station in genre displayed in menu)
// * Auto reset script when config card updated
//////////////////////////////////////////////////////////////////////////////////////////
//
// This program is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program. If not, see <http://www.gnu.org/licenses/>.
///////////////////////////////////////////////////////////////////////////////////////////

string info_notecard="Radio Control info"; /////// EDITABLE \\\\\\
string config_notecard="Radio Control config"; /////// EDITABLE \\\\\\
string comment_char="#"; /////// EDITABLE \\\\\\
list sep_char_list= ["|"]; /////// EDITABLE \\\\\\
float update_time=5.0; /////// EDITABLE \\\\\\
string no_title_info="(no title info available)"; /////// EDITABLE \\\\\\

// not used currently - for showing info on current song title elsewhere in the region
integer broadcast_channel=-1234; /////// EDITABLE \\\\\\

// Buttons

string button_MAIN = "MAIN";
string button_HELP = "HELP";
string button_NEXT = ">>";
string button_PREV = "<<";
string button_ON = "ON";
string button_OFF = "OFF";

// Lists

list category_list=[];

list station_category=[];
list station_name=[];
list station_desc=[];
list station_url=[];

string last_title_info="";

integer radio_status=0;
string parcel_url="";
integer lineno=0;
key reqid=NULL_KEY;
key httpreq_id=NULL_KEY;
integer config_error=FALSE;
integer flag;
integer section=0;
integer owner_access=TRUE;
integer group_access=FALSE;
integer public_access=TRUE;
list banned_keys=[];

integer menu_channel;
integer listen_handle;
integer menu_type=0;
integer menu_num=0;
integer category_index=0;
integer station_index=0;

integer num_categories=0;
integer num_stations=0;

retrieve_titelinfo()
{
string url=llList2String(station_url,station_index);
httpreq_id=llHTTPRequest(url + "/7.html HTTP/1.0\nUser-Agent: LSL Script (Mozilla Compatible)\n\n",[],"");
}

display_line(string line, string message)
{
// Setup XYtext Variables
integer DISPLAY_STRING = 204000;
integer DISPLAY_EXTENDED = 204001;
integer REMAP_INDICES = 204002;
integer RESET_INDICES = 204003;
integer SET_CELL_INFO = 204004;
integer SET_FONT_TEXTURE = 204005;
integer SET_THICKNESS = 204006;
integer SET_COLOR = 204007;

llMessageLinked(LINK_SET,DISPLAY_STRING,message,line);
}

clear_display()
{
// Clears the display
display_line("1","Radio Station ID");
display_line("2","Music Genre....");
display_line("3","Now Playing....");
}

make_menu(key id)
{
menu_channel=random_channel();

if (radio_status == 0)
{
menu_type=0;
menu_num=0;
llDialog(id,"Menu: Status\n\nRadio is OFF", [ "ON", "HELP" ],menu_channel);
}
else
{
if (menu_type ==0)
{
llDialog(id,"Menu: Genres", category_menu(menu_num),menu_channel);
}
else
{
llDialog(id,"Menu: Stations\nGenre: " + llList2String(category_list,category_index), station_menu(menu_num),menu_channel);
}
}

if (listen_handle != 0) llListenRemove(listen_handle);
listen_handle=llListen(menu_channel,"",id,"");
}

list category_menu(integer num)
{ // compile menu list of category list
// if there are more catagories then can be displayed in the menu
// compile a submenu, including options for main menu and more and a blank item.
integer len=llGetListLength(category_list);
list menu=[];

if (len > 9)
{
integer last_sub=(len-1)/9; // submenus start at 0. 9th entry is in submenu 0, 10th in 1, etc.

if (num > last_sub)
{
llWhisper(0,"error: wrong submenu number: " + (string) num + ".");
return [ "MAIN" ];
}
else
{
integer first=9*num;

while (--len >= first)
menu+=(list)llList2String(category_list,len);

if (num == 0)
menu+=(list)button_HELP;
else
menu+=(list)button_MAIN;

if (num == 0)
menu+=(list)button_OFF;
else
menu+=(list)button_PREV;

if (num != last_sub)
menu+=(list)button_NEXT;
}
}
else
{
while (--len >= 0)
menu+=(list)llList2String(category_list,len);

menu+=(list)button_OFF;
menu+=(list)button_HELP;
}

return menu; // order_buttons(menu);
}

integer stations_in_category(integer cat)
{
integer count=0;
integer i;
integer len=llGetListLength(station_category);
string category=llList2String(category_list,cat);

for (i=0; i < len; i++)
if (category == llList2String(category_list,i))
count++;

return count;
}

list order_buttons(list buttons)
{
integer offset;
list fixt;
integer flag=0;

while((offset = llGetListLength(buttons)))
{
if (offset > 3)
flag=1;
else
flag=0;

fixt += llList2List(buttons, offset = -3 * flag, -1);
buttons = llDeleteSubList(buttons, offset, -1);
}

return fixt;
}

list station_list(integer category)
{
list s=[];
integer i;
string cname=llList2String(category_list,category_index);

for (i = 0; i < llGetListLength(station_name); i++)
if (llList2String(station_category,i) == cname)
s+=(list)llList2String(station_name,i);

return s;

}

list station_menu(integer num)
{
// compile menu list of station names
// if there are more stations then can be displayed in the menu
// compile a submenu, including options for main menu and more and a blank item.

list stations=station_list(category_index);
integer len=llGetListLength(stations);
list menu=[];

llSay(0,"Category: " + llList2String(category_list,category_index));
llSay(0,"Stations: " + llDumpList2String(stations,","));

if (len > 11)
{
integer last_sub=(len-1)/9;

if (num >= last_sub)
{
llWhisper(0,"error: wrong submenu number: " + (string) num + ".");
return [ "MAIN" ];
}
else
{
integer first=9*num;
integer last=9*num+8;

menu+=(list)button_MAIN;

if (num > 0)
menu+=(list)button_PREV;

if (num < last_sub)
menu+=(list)button_NEXT;

if (len > last)
len =last;

while (--len >= first)
menu+=(list)llList2String(stations,len);
}
}
else
{
menu+=(list)button_MAIN;

while (--len >= 0)
menu+=(list)llList2String(stations,len);
}

return menu; // order_buttons(menu);
}

integer has_access(key id)
{
if (llListFindList(banned_keys,(list)id) != -1)
return FALSE;

if (owner_access && id == llGetOwner())
return TRUE;

if (group_access && llSameGroup(id))
return TRUE;

if (public_access)
return TRUE;

return FALSE;
}

integer random_channel()
{
integer min=-2147483647;
integer max=-1000;

return (integer) (min + llFrand(max-min));
}

integer check_url(string url)
{
integer pos=0;

if (llGetSubString(url,0,6) == "http://")
pos=7;
if (llGetSubString(url,0,7) == "https://")
pos=8;

if (pos==0) return FALSE;

string str_ip_port=llGetSubString(url,pos,-1);
list list_ip_port=llParseString2List(str_ip_port,[":"],[]); // split in ip-adress and port
list list_ip=llParseString2List(llList2String(list_ip_port,0),["."],[]); // split ip-adress elements

if (llGetListLength(list_ip_port) != 2 || llGetListLength(list_ip) != 4)
return FALSE;

integer i;
integer test;

for (i=0;i<4;i++)
{
test=llList2Integer(list_ip,i);
if (llList2String(list_ip,i) != (string)test)
return FALSE;
if (test < 0 || test > 255)
return FALSE;
}

test=llList2Integer(list_ip_port,1);
if (llList2String(list_ip_port,1) != (string)test)
return FALSE;

return TRUE;
}

integer true_value(string input)
{
string value=llToLower(llGetSubString(input,0,0));

if (value == "y" || value == "t" || value =="1")
return TRUE;

return FALSE;
}

integer process_line(string dataline)
{
string line=llStringTrim(dataline,STRING_TRIM);
integer index=llSubStringIndex(line,comment_char);

if (index==0) // line starts with comment - ignore line
return TRUE;

if (index!=-1)
line=llStringTrim(llGetSubString(line,0,index-1),STRING_TRIM_TAIL); // skip everything after comment_char and trim tail

if (line=="") // Ignore blank lines
return TRUE;

if (llToLower(line) == "[access]")
{
section = 1;
return TRUE;
}
else if (llToLower(line) == "[banned]")
{
section = 2;
return TRUE;
}
else if (llToLower(line) == "[genre]")
{
section = 3;
return TRUE;
}
else if (llToLower(line) == "[station]")
{
section = 4;
return TRUE;
}
else if (llGetSubString(line,0,0) == "[" && llGetSubString(line,-1,-1) == "]")
{
llWhisper(0,"error: malformed section found at line " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

if (section == 0)
{
llWhisper(0,"error: no section found on line: " + (string) lineno);
config_error = TRUE;
return FALSE;
}

list breakup=llParseString2List(line,["="],[]);
string field=llStringTrim(llList2String(breakup,0),STRING_TRIM);
string values=llStringTrim(llList2String(breakup,1),STRING_TRIM);

if (section == 1) // access
{
field=llToLower(field);

if (field=="owner")
{
owner_access=true_value(values);
return TRUE;
}
else if (field=="group")
{
group_access=true_value(values);
return TRUE;
}
else if (field=="public")
{
public_access=true_value(values);
return TRUE;
}
else
{
llWhisper(0,"error: invalid option on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

}
else if (section == 2) // ban list
{
key try=(key) field;

if (try)
{
banned_keys+=(list)((key) field);
return TRUE;
}
else
return FALSE;
}
else if (section == 3) // categories
{
if (llListFindList(category_list,(list)field) == -1)
{
category_list+=(list)field;
}
else
llWhisper(0,"genre: '" + field + "' already entered; double entry skipped.");

return TRUE;
}
else if (section == 4) // stations
{
list parse=llParseString2List(line,sep_char_list, []);
string category=llStringTrim(llList2String(parse,0),STRING_TRIM);
string name=llStringTrim(llList2String(parse,1),STRING_TRIM);
string desc=llStringTrim(llList2String(parse,2),STRING_TRIM);
string url=llStringTrim(llToLower(llList2String(parse,3)),STRING_TRIM);

if (!available_category(category))
{
llWhisper(0,"error: unknown genre on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

if (check_url(url))
{
if (llListFindList(station_url,(list)url) == -1 || llListFindList(station_category,(list)category) == -1)
{
num_stations++;
station_category+=(list)category;
station_name+=(list)name;
station_desc+=(list)desc;
station_url+=(list)url;
return TRUE;
}
else
{
llWhisper(0,"This station is already entered under the same genre and same url and is skipped.\nStation: " + name + "\nGenre: '" + category + "'\nURL: " + url);
return TRUE;
}
}
else
{
llWhisper(0,"error: malformed url on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}
}

return FALSE;
}

set_parcel_url(string url)
{
parcel_url=url;
llSetParcelMusicURL(parcel_url);

if (parcel_url=="")
{
clear_display();
display_line("1","Radio is OFF");
display_line("2","");
display_line("3","");
}
else
{
llWhisper(0,"station now set to " + llList2String(station_desc,station_index) + ".");
display_line("1","Station: " + llList2String(station_desc,station_index));
display_line("2","Genre : " + llList2String(category_list,category_index));
display_line("3","Now playing.....");
llSetTimerEvent(update_time);
}
}

integer available_category(string category)
{
integer i;
integer len=llGetListLength(category_list);

for (i=0;i<len;i++)
if (llToLower(category) == llToLower(llList2String(category_list,i)))
return TRUE;

return FALSE;
}

integer empty_category(string category)
{
integer i;
integer len=llGetListLength(station_category);

for (i=0; i < len; i++)
if (llToLower(category) == llToLower(llList2String(station_category,i)))
return FALSE;

return TRUE;
}

skip_empty_categories()
{
integer i=0;

while (i<llGetListLength(category_list))
{
if (empty_category(llList2String(category_list,i)))
{
llWhisper(0,"Warning: Genre '" + llList2String(category_list,i) + "' contains no stations and is deleted.");
category_list=llDeleteSubList(category_list,i,i);
}
else
i++;
}

num_categories=llGetListLength(category_list);
}

/////////////////////////////////////////////
// state default
////////////////////////////////////////////

default
{
state_entry()
{
flag=FALSE;
lineno=0;
config_error=FALSE;
num_stations=0;
num_categories=0;
radio_status=0;
menu_num=0;
menu_type=0;

if (llGetInventoryType(config_notecard) != INVENTORY_NONE)
{
reqid=llGetNotecardLine(config_notecard,lineno++);
llWhisper(0, "Reading config notecard...");
display_line("1","Reading configuration.");
display_line("2","Wait....");
display_line("3","");
}
else
{
llWhisper(0,"No config notecard '" + config_notecard + "' present.");
state offline;
}
}

on_rez(integer param)
{
llResetScript();
}

dataserver(key id, string data)
{
if (reqid==id)
{
if (data==EOF)
{
skip_empty_categories();
llWhisper(0,"Configuration ok.\n" + (string)num_categories + " genres and " + (string)num_stations + " stations.");
display_line("1","Configuration OK");
display_line("2","Genres : " + (string)num_categories);
display_line("3","Stations: " + (string)num_stations);
state menu;
}
else
{
if (process_line(data))
reqid=llGetNotecardLine(config_notecard,lineno++);
else if (config_error)
{
llWhisper(0,"errors found in configuration. please correct them.");
state offline;
}
}
}
}

touch_start(integer total_num)
{
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY && flag)
llResetScript();
}
}

/////////////////////////////////////////////
// state offline
////////////////////////////////////////////

state offline
{
state_entry()
{
llWhisper(0,"Reset on owner touch.");
}

touch_start(integer t)
{
if (llDetectedKey(0)==llGetOwner())
llResetScript();
}
}

/////////////////////////////////////////////
// state menu
////////////////////////////////////////////

state menu
{
state_entry()
{
menu_type=0;
menu_num=0;
listen_handle=0;
}

changed(integer param)
{
if (param & CHANGED_INVENTORY)
llResetScript();
}

on_rez(integer param)
{
llResetScript();
}

touch_start(integer total_num)
{
key toucher=llDetectedKey(0);

if (has_access(toucher))
{
make_menu(toucher);
}
else
llWhisper(0,"sorry, no access.");
}

listen(integer chan, string name,key id,string msg)
{
integer index;

if (menu_type == 0) // main menu
{
if (msg == button_MAIN)
{
menu_type=0;
menu_num =0;
make_menu(id);
}
else if (msg == button_NEXT)
{
menu_num++;
make_menu(id);
}
else if (msg == button_PREV)
{
menu_num--;
make_menu(id);
}
else if (msg == button_ON)
{
radio_status=1;
set_parcel_url(parcel_url);
display_line("1","Radio is ON");
menu_num=0;
llWhisper(0,"Radio now turned on.");
make_menu(id);
}
else if (msg == button_OFF)
{
radio_status=0;
set_parcel_url("");
llSetTimerEvent(0.0);
llWhisper(0,"Radio now turned off.");
}
else if (msg == button_HELP)
{
if (llGetInventoryType(info_notecard) == INVENTORY_NOTECARD)
{
llGiveInventory(id,info_notecard);
}
else
llWhisper(0,"sorry, help not available.");
}
else if (radio_status == 1)
{
index = llListFindList(category_list, (list)msg);

if (index == -1)
llWhisper(0,"error: genre not found: " + msg);
else
{
category_index=index;
llWhisper(0,"Genre now set to " + llList2String(category_list,category_index) + ".");
menu_type=1;
menu_num=0;
make_menu(id);
}
}
}
else if (menu_type == 1 && radio_status == 1) // station menu
{
if (msg == button_MAIN)
{
menu_type=0;
menu_num =0;
make_menu(id);
}
else if (msg == button_NEXT)
{
menu_num++;
make_menu(id);
}
else if (msg == button_PREV)
{
menu_num--;
make_menu(id);
}
else
{
index = llListFindList(station_name, (list)msg);

if (index == -1)
llWhisper(0,"error: station not found: " + msg);
else
{
station_index=index;
string new_url=llList2String(station_url,station_index);

if (new_url != parcel_url)
{
set_parcel_url(new_url);
}
}
}
}
}

timer()
{
retrieve_titelinfo();
llSetTimerEvent(update_time);
}

http_response(key id, integer status, list meta, string body)
{
if (id == httpreq_id)
{
if (status == 200)
{
string feed = llGetSubString(body,llSubStringIndex(body, "<body>") + llStringLength("<body>"), llSubStringIndex(body,"</body>") - 1);
list feed_list = llParseString2List(feed,[","],[]);
string current_title_info= llList2String(feed_list,6);
integer length = llGetListLength(feed_list);

if(llList2String(feed_list,7))
{
integer a = 7;
for(; a<length; ++a)
{
current_title_info += ", " + llList2String(feed_list,a);
}
}

if (current_title_info != last_title_info)
{
last_title_info = current_title_info;
display_line("3","Title : " + current_title_info);
}
}
else
{
display_line("3","Title : " + no_title_info);
}
}
}
}

//////////////////////////////
// end of script
//////////////////////////////
</lsl>
===Notecard format===
Example notecard
<pre>
# New format Shoutcast - radio controller config notecard
# The format is divided in 4 sections:
# 1 - Access configuration
# 2 - Ban list (keys)
# 3 - Categories (same as genres)
# 4 - Station info (category, name, desc, url)
# The '#' character defines the start of a comment and can be anywhere on a line.
# Everything after the '#' incuding the '#' itself is ignored.
# Case is not important (but information on display will show as entered)
# Spaces before and/or after fields are trimmed.
# Empty lines are ignored.

[ACCESS]
owner=yes # yes, true,1 means owner has access. everything else not.
group=yes # ,, ,, ,, means group has acess. ,, ,, ,,
public=yes # ,, ,, ,, means public has access. ,, ,, ,,

[BANNED]
# keys of banned residents

[GENRE]
# genre name
Hard Rock
Classic Rock
Oldies
Rap/Urban
Comedy
News
Dance
Country
Gothic
# etc.
[STATION]
# Shoutcast radio stations
# Use a '|' between each field - don't mind spaces before and after fields, they will be trimmed
# field1:genre, field2:station name, field3: station description, field4: station url+port
# Note that genre must match case-insensitive a value in [GENRE]
Classic Rock | Absolute | Absolute Radio | http://205.188.215.226:8018
# etc.
</pre>

===TODO===

* Add a llRegionSay to broadcast the station/genre/current songtitle to the region and write a script that displays that info on an Xytext board.

Shoutcast - radio controller v0.3 (remake of similar scripts)

Flennan Roffo — Wed, 09 Feb 2011 22:08:59 GMT

Flennan Roffo:

{{LSL Header}}
This script controls a shoutcast radio receiver and lets you select the stations that you configured on a notecard. Menu driven. Output of station description, genre and current song title using Xy text.
<lsl>
// Shoutcast - radio controller v0.3
// Logic Scripts (Flennan Roffo)
// (c) 2010 - Flennan Roffo (Logic Scripts)
//
// Remake of similar script:
// + LandOwnersRadio V2.0 by Scripter Coba (( menu driven / notecard config script to select the radio station and sets parcel music url ))
// + Raven radio infoboard by Jamie Otis (( worked at the basis of sis service [sis.slserver.com/sis.php] used Xy text display ))
// + currentPlaying by Darkie Minotaur (( used the /7.html info to fetch current song title info, displayed as float text ))
//
// Purpose:
// * Sets the parcel audio URL and displays the channel info
// * Uses Xytext to display the info.
// * Fetches song title info from the shoutcast url
// Extra Features -- 0.1 release
// * On/Off option
// * Allows multiple menus (if options per menu > 12) using a prev/next button
// * Checks if your url is well-formatted
// * Will delete genres for which no stations exist
// * Will skip stations that have same url and same genre (you can however have an identical station url under different genres).
// * New notecard format
//////////////////////////////////////////////////////////////////////////////////////////
// Extra Features -- 0.2 release
// * Configurable button text
// * Gets parcel URL and automatically sets the genre/station and on/off status accordingly (<-- doesn't work)
//////////////////////////////////////////////////////////////////////////////////////////
// Update -- 0.3 release
// * Fixed bug (only first station in genre displayed in menu)
// * Auto reset script when config card updated
//////////////////////////////////////////////////////////////////////////////////////////
//
// This program is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program. If not, see <http://www.gnu.org/licenses/>.
///////////////////////////////////////////////////////////////////////////////////////////

string info_notecard="Radio Control info"; /////// EDITABLE \\\\\\
string config_notecard="Radio Control config"; /////// EDITABLE \\\\\\
string comment_char="#"; /////// EDITABLE \\\\\\
list sep_char_list= ["|"]; /////// EDITABLE \\\\\\
float update_time=5.0; /////// EDITABLE \\\\\\
string no_title_info="(no title info available)"; /////// EDITABLE \\\\\\

// not used currently - for showing info on current song title elsewhere in the region
integer broadcast_channel=-1234; /////// EDITABLE \\\\\\

// Buttons

string button_MAIN = "MAIN";
string button_HELP = "HELP";
string button_NEXT = ">>";
string button_PREV = "<<";
string button_ON = "ON";
string button_OFF = "OFF";

// Lists

list category_list=[];

list station_category=[];
list station_name=[];
list station_desc=[];
list station_url=[];

string last_title_info="";

integer radio_status=0;
string parcel_url="";
integer lineno=0;
key reqid=NULL_KEY;
key httpreq_id=NULL_KEY;
integer config_error=FALSE;
integer flag;
integer section=0;
integer owner_access=TRUE;
integer group_access=FALSE;
integer public_access=TRUE;
list banned_keys=[];

integer menu_channel;
integer listen_handle;
integer menu_type=0;
integer menu_num=0;
integer category_index=0;
integer station_index=0;

integer num_categories=0;
integer num_stations=0;

retrieve_titelinfo()
{
string url=llList2String(station_url,station_index);
httpreq_id=llHTTPRequest(url + "/7.html HTTP/1.0\nUser-Agent: LSL Script (Mozilla Compatible)\n\n",[],"");
}

display_line(string line, string message)
{
// Setup XYtext Variables
integer DISPLAY_STRING = 204000;
integer DISPLAY_EXTENDED = 204001;
integer REMAP_INDICES = 204002;
integer RESET_INDICES = 204003;
integer SET_CELL_INFO = 204004;
integer SET_FONT_TEXTURE = 204005;
integer SET_THICKNESS = 204006;
integer SET_COLOR = 204007;

llMessageLinked(LINK_SET,DISPLAY_STRING,message,line);
}

clear_display()
{
// Clears the display
display_line("1","Radio Station ID");
display_line("2","Music Genre....");
display_line("3","Now Playing....");
}

make_menu(key id)
{
menu_channel=random_channel();

if (radio_status == 0)
{
menu_type=0;
menu_num=0;
llDialog(id,"Menu: Status\n\nRadio is OFF", [ "ON", "HELP" ],menu_channel);
}
else
{
if (menu_type ==0)
{
llDialog(id,"Menu: Genres", category_menu(menu_num),menu_channel);
}
else
{
llDialog(id,"Menu: Stations\nGenre: " + llList2String(category_list,category_index), station_menu(menu_num),menu_channel);
}
}

if (listen_handle != 0) llListenRemove(listen_handle);
listen_handle=llListen(menu_channel,"",id,"");
}

list category_menu(integer num)
{ // compile menu list of category list
// if there are more catagories then can be displayed in the menu
// compile a submenu, including options for main menu and more and a blank item.
integer len=llGetListLength(category_list);
list menu=[];

if (len > 9)
{
integer last_sub=(len-1)/9; // submenus start at 0. 9th entry is in submenu 0, 10th in 1, etc.

if (num > last_sub)
{
llWhisper(0,"error: wrong submenu number: " + (string) num + ".");
return [ "MAIN" ];
}
else
{
integer first=9*num;

while (--len >= first)
menu+=(list)llList2String(category_list,len);

if (num == 0)
menu+=(list)button_HELP;
else
menu+=(list)button_MAIN;

if (num == 0)
menu+=(list)button_OFF;
else
menu+=(list)button_PREV;

if (num != last_sub)
menu+=(list)button_NEXT;
}
}
else
{
while (--len >= 0)
menu+=(list)llList2String(category_list,len);

menu+=(list)button_OFF;
menu+=(list)button_HELP;
}

return menu; // order_buttons(menu);
}

integer stations_in_category(integer cat)
{
integer count=0;
integer i;
integer len=llGetListLength(station_category);
string category=llList2String(category_list,cat);

for (i=0; i < len; i++)
if (category == llList2String(category_list,i))
count++;

return count;
}

list order_buttons(list buttons)
{
integer offset;
list fixt;
integer flag=0;

while((offset = llGetListLength(buttons)))
{
if (offset > 3)
flag=1;
else
flag=0;

fixt += llList2List(buttons, offset = -3 * flag, -1);
buttons = llDeleteSubList(buttons, offset, -1);
}

return fixt;
}

list station_list(integer category)
{
list s=[];
integer i;
string cname=llList2String(category_list,category_index);

for (i = 0; i < llGetListLength(station_name); i++)
if (llList2String(station_category,i) == cname)
s+=(list)llList2String(station_name,i);

return s;

}

list station_menu(integer num)
{
// compile menu list of station names
// if there are more stations then can be displayed in the menu
// compile a submenu, including options for main menu and more and a blank item.

list stations=station_list(category_index);
integer len=llGetListLength(stations);
list menu=[];

llSay(0,"Category: " + llList2String(category_list,category_index));
llSay(0,"Stations: " + llDumpList2String(stations,","));

if (len > 11)
{
integer last_sub=(len-1)/9;

if (num >= last_sub)
{
llWhisper(0,"error: wrong submenu number: " + (string) num + ".");
return [ "MAIN" ];
}
else
{
integer first=9*num;
integer last=9*num+8;

menu+=(list)button_MAIN;

if (num > 0)
menu+=(list)button_PREV;

if (num < last_sub)
menu+=(list)button_NEXT;

if (len > last)
len =last;

while (--len >= first)
menu+=(list)llList2String(stations,len);
}
}
else
{
menu+=(list)button_MAIN;

while (--len >= 0)
menu+=(list)llList2String(stations,len);
}

return menu; // order_buttons(menu);
}

integer has_access(key id)
{
if (llListFindList(banned_keys,(list)id) != -1)
return FALSE;

if (owner_access && id == llGetOwner())
return TRUE;

if (group_access && llSameGroup(id))
return TRUE;

if (public_access)
return TRUE;

return FALSE;
}

integer random_channel()
{
integer min=-2147483647;
integer max=-1000;

return (integer) (min + llFrand(max-min));
}

integer check_url(string url)
{
integer pos=0;

if (llGetSubString(url,0,6) == "http://")
pos=7;
if (llGetSubString(url,0,7) == "https://")
pos=8;

if (pos==0) return FALSE;

string str_ip_port=llGetSubString(url,pos,-1);
list list_ip_port=llParseString2List(str_ip_port,[":"],[]); // split in ip-adress and port
list list_ip=llParseString2List(llList2String(list_ip_port,0),["."],[]); // split ip-adress elements

if (llGetListLength(list_ip_port) != 2 || llGetListLength(list_ip) != 4)
return FALSE;

integer i;
integer test;

for (i=0;i<4;i++)
{
test=llList2Integer(list_ip,i);
if (llList2String(list_ip,i) != (string)test)
return FALSE;
if (test < 0 || test > 255)
return FALSE;
}

test=llList2Integer(list_ip_port,1);
if (llList2String(list_ip_port,1) != (string)test)
return FALSE;

return TRUE;
}

integer true_value(string input)
{
string value=llToLower(llGetSubString(input,0,0));

if (value == "y" || value == "t" || value =="1")
return TRUE;

return FALSE;
}

integer process_line(string dataline)
{
string line=llStringTrim(dataline,STRING_TRIM);
integer index=llSubStringIndex(line,comment_char);

if (index==0) // line starts with comment - ignore line
return TRUE;

if (index!=-1)
line=llStringTrim(llGetSubString(line,0,index-1),STRING_TRIM_TAIL); // skip everything after comment_char and trim tail

if (line=="") // Ignore blank lines
return TRUE;

if (llToLower(line) == "[access]")
{
section = 1;
return TRUE;
}
else if (llToLower(line) == "[banned]")
{
section = 2;
return TRUE;
}
else if (llToLower(line) == "[genre]")
{
section = 3;
return TRUE;
}
else if (llToLower(line) == "[station]")
{
section = 4;
return TRUE;
}
else if (llGetSubString(line,0,0) == "[" && llGetSubString(line,-1,-1) == "]")
{
llWhisper(0,"error: malformed section found at line " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

if (section == 0)
{
llWhisper(0,"error: no section found on line: " + (string) lineno);
config_error = TRUE;
return FALSE;
}

list breakup=llParseString2List(line,["="],[]);
string field=llStringTrim(llList2String(breakup,0),STRING_TRIM);
string values=llStringTrim(llList2String(breakup,1),STRING_TRIM);

if (section == 1) // access
{
field=llToLower(field);

if (field=="owner")
{
owner_access=true_value(values);
return TRUE;
}
else if (field=="group")
{
group_access=true_value(values);
return TRUE;
}
else if (field=="public")
{
public_access=true_value(values);
return TRUE;
}
else
{
llWhisper(0,"error: invalid option on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

}
else if (section == 2) // ban list
{
key try=(key) field;

if (try)
{
banned_keys+=(list)((key) field);
return TRUE;
}
else
return FALSE;
}
else if (section == 3) // categories
{
if (llListFindList(category_list,(list)field) == -1)
{
category_list+=(list)field;
}
else
llWhisper(0,"genre: '" + field + "' already entered; double entry skipped.");

return TRUE;
}
else if (section == 4) // stations
{
list parse=llParseString2List(line,sep_char_list, []);
string category=llStringTrim(llList2String(parse,0),STRING_TRIM);
string name=llStringTrim(llList2String(parse,1),STRING_TRIM);
string desc=llStringTrim(llList2String(parse,2),STRING_TRIM);
string url=llStringTrim(llToLower(llList2String(parse,3)),STRING_TRIM);

if (!available_category(category))
{
llWhisper(0,"error: unknown genre on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

if (check_url(url))
{
if (llListFindList(station_url,(list)url) == -1 || llListFindList(station_category,(list)category) == -1)
{
num_stations++;
station_category+=(list)category;
station_name+=(list)name;
station_desc+=(list)desc;
station_url+=(list)url;
return TRUE;
}
else
{
llWhisper(0,"This station is already entered under the same genre and same url and is skipped.\nStation: " + name + "\nGenre: '" + category + "'\nURL: " + url);
return TRUE;
}
}
else
{
llWhisper(0,"error: malformed url on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}
}

return FALSE;
}

set_parcel_url(string url)
{
parcel_url=url;
llSetParcelMusicURL(parcel_url);

if (parcel_url=="")
{
clear_display();
display_line("1","Radio is OFF");
display_line("2","");
display_line("3","");
}
else
{
llWhisper(0,"station now set to " + llList2String(station_desc,station_index) + ".");
display_line("1","Station: " + llList2String(station_desc,station_index));
display_line("2","Genre : " + llList2String(category_list,category_index));
display_line("3","Now playing.....");
llSetTimerEvent(update_time);
}
}

integer available_category(string category)
{
integer i;
integer len=llGetListLength(category_list);

for (i=0;i<len;i++)
if (llToLower(category) == llToLower(llList2String(category_list,i)))
return TRUE;

return FALSE;
}

integer empty_category(string category)
{
integer i;
integer len=llGetListLength(station_category);

for (i=0; i < len; i++)
if (llToLower(category) == llToLower(llList2String(station_category,i)))
return FALSE;

return TRUE;
}

skip_empty_categories()
{
integer i=0;

while (i<llGetListLength(category_list))
{
if (empty_category(llList2String(category_list,i)))
{
llWhisper(0,"Warning: Genre '" + llList2String(category_list,i) + "' contains no stations and is deleted.");
category_list=llDeleteSubList(category_list,i,i);
}
else
i++;
}

num_categories=llGetListLength(category_list);
}

/////////////////////////////////////////////
// state default
////////////////////////////////////////////

default
{
state_entry()
{
flag=FALSE;
lineno=0;
config_error=FALSE;
num_stations=0;
num_categories=0;
radio_status=0;
menu_num=0;
menu_type=0;

if (llGetInventoryType(config_notecard) != INVENTORY_NONE)
{
reqid=llGetNotecardLine(config_notecard,lineno++);
llWhisper(0, "Reading config notecard...");
display_line("1","Reading configuration.");
display_line("2","Wait....");
display_line("3","");
}
else
{
llWhisper(0,"No config notecard '" + config_notecard + "' present.");
state offline;
}
}

on_rez(integer param)
{
llResetScript();
}

dataserver(key id, string data)
{
if (reqid==id)
{
if (data==EOF)
{
skip_empty_categories();
llWhisper(0,"Configuration ok.\n" + (string)num_categories + " genres and " + (string)num_stations + " stations.");
display_line("1","Configuration OK");
display_line("2","Genres : " + (string)num_categories);
display_line("3","Stations: " + (string)num_stations);
state menu;
}
else
{
if (process_line(data))
reqid=llGetNotecardLine(config_notecard,lineno++);
else if (config_error)
{
llWhisper(0,"errors found in configuration. please correct them.");
state offline;
}
}
}
}

touch_start(integer total_num)
{
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY && flag)
llResetScript();
}
}

/////////////////////////////////////////////
// state offline
////////////////////////////////////////////

state offline
{
state_entry()
{
llWhisper(0,"Reset on owner touch.");
}

touch_start(integer t)
{
if (llDetectedKey(0)==llGetOwner())
llResetScript();
}
}

/////////////////////////////////////////////
// state menu
////////////////////////////////////////////

state menu
{
state_entry()
{
menu_type=0;
menu_num=0;
listen_handle=0;
}

changed(integer param)
{
if (param & CHANGED_INVENTORY)
llResetScript();
}

on_rez(integer param)
{
llResetScript();
}

touch_start(integer total_num)
{
key toucher=llDetectedKey(0);

if (has_access(toucher))
{
make_menu(toucher);
}
else
llWhisper(0,"sorry, no access.");
}

listen(integer chan, string name,key id,string msg)
{
integer index;

if (menu_type == 0) // main menu
{
if (msg == button_MAIN)
{
menu_type=0;
menu_num =0;
make_menu(id);
}
else if (msg == button_NEXT)
{
menu_num++;
make_menu(id);
}
else if (msg == button_PREV)
{
menu_num--;
make_menu(id);
}
else if (msg == button_ON)
{
radio_status=1;
set_parcel_url(parcel_url);
display_line("1","Radio is ON");
menu_num=0;
llWhisper(0,"Radio now turned on.");
make_menu(id);
}
else if (msg == button_OFF)
{
radio_status=0;
set_parcel_url("");
llSetTimerEvent(0.0);
llWhisper(0,"Radio now turned off.");
}
else if (msg == button_HELP)
{
if (llGetInventoryType(info_notecard) == INVENTORY_NOTECARD)
{
llGiveInventory(id,info_notecard);
}
else
llWhisper(0,"sorry, help not available.");
}
else if (radio_status == 1)
{
index = llListFindList(category_list, (list)msg);

if (index == -1)
llWhisper(0,"error: genre not found: " + msg);
else
{
category_index=index;
llWhisper(0,"Genre now set to " + llList2String(category_list,category_index) + ".");
menu_type=1;
menu_num=0;
make_menu(id);
}
}
}
else if (menu_type == 1 && radio_status == 1) // station menu
{
if (msg == button_MAIN)
{
menu_type=0;
menu_num =0;
make_menu(id);
}
else if (msg == button_NEXT)
{
menu_num++;
make_menu(id);
}
else if (msg == button_PREV)
{
menu_num--;
make_menu(id);
}
else
{
index = llListFindList(station_name, (list)msg);

if (index == -1)
llWhisper(0,"error: station not found: " + msg);
else
{
station_index=index;
string new_url=llList2String(station_url,station_index);

if (new_url != parcel_url)
{
set_parcel_url(new_url);
}
}
}
}
}

timer()
{
retrieve_titelinfo();
llSetTimerEvent(update_time);
}

http_response(key id, integer status, list meta, string body)
{
if (id == httpreq_id)
{
if (status == 200)
{
string feed = llGetSubString(body,llSubStringIndex(body, "<body>") + llStringLength("<body>"), llSubStringIndex(body,"</body>") - 1);
list feed_list = llParseString2List(feed,[","],[]);
string current_title_info= llList2String(feed_list,6);
integer length = llGetListLength(feed_list);

if(llList2String(feed_list,7))
{
integer a = 7;
for(; a<length; ++a)
{
current_title_info += ", " + llList2String(feed_list,a);
}
}

if (current_title_info != last_title_info)
{
last_title_info = current_title_info;
display_line("3","Title : " + current_title_info);
}
}
else
{
display_line("3","Title : " + no_title_info);
}
}
}
}

//////////////////////////////
// end of script
//////////////////////////////
</lsl>

Example notecard
<pre>
# New format Shoutcast - radio controller config notecard
# The format is divided in 4 sections:
# 1 - Access configuration
# 2 - Ban list (keys)
# 3 - Categories (same as genres)
# 4 - Station info (category, name, desc, url)
# The '#' character defines the start of a comment and can be anywhere on a line.
# Everything after the '#' incuding the '#' itself is ignored.
# Case is not important (but information on display will show as entered)
# Spaces before and/or after fields are trimmed.
# Empty lines are ignored.

[ACCESS]
owner=yes # yes, true,1 means owner has access. everything else not.
group=yes # ,, ,, ,, means group has acess. ,, ,, ,,
public=yes # ,, ,, ,, means public has access. ,, ,, ,,

[BANNED]
# keys of banned residents

[GENRE]
# genre name
Hard Rock
Classic Rock
Oldies
Rap/Urban
Comedy
News
Dance
Country
Gothic
# etc.
[STATION]
# Shoutcast radio stations
# Use a '|' between each field - don't mind spaces before and after fields, they will be trimmed
# field1:genre, field2:station name, field3: station description, field4: station url+port
# Note that genre must match case-insensitive a value in [GENRE]
Classic Rock | Absolute | Absolute Radio | http://205.188.215.226:8018
# etc.
</pre>

===TODO===

* Add a llRegionSay to broadcast the station/genre/current songtitle to the region and write a script that displays that info on an Xytext board.

Shoutcast - radio controller v0.3 (remake of similar scripts)

Flennan Roffo — Wed, 09 Feb 2011 21:59:13 GMT

Flennan Roffo:

Shoutcast - radio controller v0.3 (remake of similar scripts)

Flennan Roffo — Wed, 09 Feb 2011 21:54:08 GMT

Flennan Roffo:

{{LSL Header}}
This script controls a shoutcast radio receiver and lets you select the stations that you configured on a notecard. Menu driven. Output of station description, genre and current song title using Xy text.
<lsl>
// Shoutcast - radio controller v0.3
// Logic Scripts (Flennan Roffo)
// (c) 2010 - Flennan Roffo (Logic Scripts)
//
// Remake of similar script:
// + LandOwnersRadio V2.0 by Scripter Coba (( menu driven / notecard config script to select the radio station and sets parcel music url ))
// + Raven radio infoboard by Jamie Otis (( worked at the basis of sis service [sis.slserver.com/sis.php] used Xy text display ))
// + currentPlaying by Darkie Minotaur (( used the /7.html info to fetch current song title info, displayed as float text ))
//
// Purpose:
// * Sets the parcel audio URL and displays the channel info
// * Uses Xytext to display the info.
// * Fetches song title info from the shoutcast url
// Extra Features -- 0.1 release
// * On/Off option
// * Allows multiple menus (if options per menu > 12) using a prev/next button
// * Checks if your url is well-formatted
// * Will delete genres for which no stations exist
// * Will skip stations that have same url and same genre (you can however have an identical station url under different genres).
// * New notecard format
//////////////////////////////////////////////////////////////////////////////////////////
// Extra Features -- 0.2 release
// * Configurable button text
// * Gets parcel URL and automatically sets the genre/station and on/off status accordingly (<-- doesn't work)
//////////////////////////////////////////////////////////////////////////////////////////
// Update -- 0.3 release
// * Fixed bug (only first station in genre displayed in menu)
// * Auto reset script when config card updated
//////////////////////////////////////////////////////////////////////////////////////////
//
// This program is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program. If not, see <http://www.gnu.org/licenses/>.
///////////////////////////////////////////////////////////////////////////////////////////

integer DEBUG=0;

string info_notecard="Radio Control info"; /////// EDITABLE \\\\\\
string config_notecard="Radio Control config"; /////// EDITABLE \\\\\\
string comment_char="#"; /////// EDITABLE \\\\\\
list sep_char_list= ["|"]; /////// EDITABLE \\\\\\
float update_time=5.0; /////// EDITABLE \\\\\\
string no_title_info="(no title info available)"; /////// EDITABLE \\\\\\

// not used currently - for showing info on current song title elsewhere in the region
integer broadcast_channel=-1234; /////// EDITABLE \\\\\\

// Buttons

string button_MAIN = "MAIN";
string button_HELP = "HELP";
string button_NEXT = ">>";
string button_PREV = "<<";
string button_ON = "ON";
string button_OFF = "OFF";

// Lists

list category_list=[];

list station_category=[];
list station_name=[];
list station_desc=[];
list station_url=[];

string last_title_info="";

integer radio_status=0;
string parcel_url="";
integer lineno=0;
key reqid=NULL_KEY;
key httpreq_id=NULL_KEY;
integer config_error=FALSE;
integer flag;
integer section=0;
integer owner_access=TRUE;
integer group_access=FALSE;
integer public_access=TRUE;
list banned_keys=[];

integer menu_channel;
integer listen_handle;
integer menu_type=0;
integer menu_num=0;
integer category_index=0;
integer station_index=0;

integer num_categories=0;
integer num_stations=0;

DebugSay(string msg)
{
if (DEBUG)
llSay(0,"(debug) " + msg);
}

retrieve_titelinfo()
{
string url=llList2String(station_url,station_index);
httpreq_id=llHTTPRequest(url + "/7.html HTTP/1.0\nUser-Agent: LSL Script (Mozilla Compatible)\n\n",[],"");
}

display_line(string line, string message)
{
// Setup XYtext Variables
integer DISPLAY_STRING = 204000;
integer DISPLAY_EXTENDED = 204001;
integer REMAP_INDICES = 204002;
integer RESET_INDICES = 204003;
integer SET_CELL_INFO = 204004;
integer SET_FONT_TEXTURE = 204005;
integer SET_THICKNESS = 204006;
integer SET_COLOR = 204007;

llMessageLinked(LINK_SET,DISPLAY_STRING,message,line);
}

clear_display()
{
// Clears the display
display_line("1","Radio Station ID");
display_line("2","Music Genre....");
display_line("3","Now Playing....");
}

make_menu(key id)
{
menu_channel=random_channel();

if (radio_status == 0)
{
menu_type=0;
menu_num=0;
llDialog(id,"Menu: Status\n\nRadio is OFF", [ "ON", "HELP" ],menu_channel);
}
else
{
if (menu_type ==0)
{
llDialog(id,"Menu: Genres", category_menu(menu_num),menu_channel);
}
else
{
llDialog(id,"Menu: Stations\nGenre: " + llList2String(category_list,category_index), station_menu(menu_num),menu_channel);
}
}

if (listen_handle != 0) llListenRemove(listen_handle);
listen_handle=llListen(menu_channel,"",id,"");
}

list category_menu(integer num)
{ // compile menu list of category list
// if there are more catagories then can be displayed in the menu
// compile a submenu, including options for main menu and more and a blank item.
integer len=llGetListLength(category_list);
list menu=[];

if (len > 9)
{
integer last_sub=(len-1)/9; // submenus start at 0. 9th entry is in submenu 0, 10th in 1, etc.

if (num > last_sub)
{
llWhisper(0,"error: wrong submenu number: " + (string) num + ".");
return [ "MAIN" ];
}
else
{
integer first=9*num;

while (--len >= first)
menu+=(list)llList2String(category_list,len);

if (num == 0)
menu+=(list)button_HELP;
else
menu+=(list)button_MAIN;

if (num == 0)
menu+=(list)button_OFF;
else
menu+=(list)button_PREV;

if (num != last_sub)
menu+=(list)button_NEXT;
}
}
else
{
while (--len >= 0)
menu+=(list)llList2String(category_list,len);

menu+=(list)button_OFF;
menu+=(list)button_HELP;
}

DebugSay("main menu: " + llList2CSV(menu));

return menu; // order_buttons(menu);
}

integer stations_in_category(integer cat)
{
integer count=0;
integer i;
integer len=llGetListLength(station_category);
string category=llList2String(category_list,cat);

for (i=0; i < len; i++)
if (category == llList2String(category_list,i))
count++;

return count;
}

list order_buttons(list buttons)
{
integer offset;
list fixt;
integer flag=0;

while((offset = llGetListLength(buttons)))
{
if (offset > 3)
flag=1;
else
flag=0;

fixt += llList2List(buttons, offset = -3 * flag, -1);
buttons = llDeleteSubList(buttons, offset, -1);
}

return fixt;
}

list station_list(integer category)
{
list s=[];
integer i;
string cname=llList2String(category_list,category_index);

for (i = 0; i < llGetListLength(station_name); i++)
if (llList2String(station_category,i) == cname)
s+=(list)llList2String(station_name,i);

return s;

}

list station_menu(integer num)
{
// compile menu list of station names
// if there are more stations then can be displayed in the menu
// compile a submenu, including options for main menu and more and a blank item.

list stations=station_list(category_index);
integer len=llGetListLength(stations);
list menu=[];

llSay(0,"Category: " + llList2String(category_list,category_index));
llSay(0,"Stations: " + llDumpList2String(stations,","));

if (len > 11)
{
integer last_sub=(len-1)/9;

if (num >= last_sub)
{
llWhisper(0,"error: wrong submenu number: " + (string) num + ".");
return [ "MAIN" ];
}
else
{
integer first=9*num;
integer last=9*num+8;

menu+=(list)button_MAIN;

if (num > 0)
menu+=(list)button_PREV;

if (num < last_sub)
menu+=(list)button_NEXT;

if (len > last)
len =last;

while (--len >= first)
menu+=(list)llList2String(stations,len);
}
}
else
{
menu+=(list)button_MAIN;

while (--len >= 0)
menu+=(list)llList2String(stations,len);
}

DebugSay("station menu: " + llList2CSV(menu));

return menu; // order_buttons(menu);
}

integer has_access(key id)
{
if (llListFindList(banned_keys,(list)id) != -1)
return FALSE;

if (owner_access && id == llGetOwner())
return TRUE;

if (group_access && llSameGroup(id))
return TRUE;

if (public_access)
return TRUE;

return FALSE;
}

integer random_channel()
{
integer min=-2147483647;
integer max=-1000;

return (integer) (min + llFrand(max-min));
}

integer check_url(string url)
{
integer pos=0;

if (llGetSubString(url,0,6) == "http://")
pos=7;
if (llGetSubString(url,0,7) == "https://")
pos=8;

if (pos==0) return FALSE;

string str_ip_port=llGetSubString(url,pos,-1);
list list_ip_port=llParseString2List(str_ip_port,[":"],[]); // split in ip-adress and port
list list_ip=llParseString2List(llList2String(list_ip_port,0),["."],[]); // split ip-adress elements

if (llGetListLength(list_ip_port) != 2 || llGetListLength(list_ip) != 4)
return FALSE;

integer i;
integer test;

for (i=0;i<4;i++)
{
test=llList2Integer(list_ip,i);
if (llList2String(list_ip,i) != (string)test)
return FALSE;
if (test < 0 || test > 255)
return FALSE;
}

test=llList2Integer(list_ip_port,1);
if (llList2String(list_ip_port,1) != (string)test)
return FALSE;

return TRUE;
}

integer true_value(string input)
{
string value=llToLower(llGetSubString(input,0,0));

if (value == "y" || value == "t" || value =="1")
return TRUE;

return FALSE;
}

integer process_line(string dataline)
{
string line=llStringTrim(dataline,STRING_TRIM);
integer index=llSubStringIndex(line,comment_char);

if (index==0) // line starts with comment - ignore line
return TRUE;

if (index!=-1)
line=llStringTrim(llGetSubString(line,0,index-1),STRING_TRIM_TAIL); // skip everything after comment_char and trim tail

if (line=="") // Ignore blank lines
return TRUE;

if (llToLower(line) == "[access]")
{
section = 1;
return TRUE;
}
else if (llToLower(line) == "[banned]")
{
section = 2;
return TRUE;
}
else if (llToLower(line) == "[genre]")
{
section = 3;
return TRUE;
}
else if (llToLower(line) == "[station]")
{
section = 4;
return TRUE;
}
else if (llGetSubString(line,0,0) == "[" && llGetSubString(line,-1,-1) == "]")
{
llWhisper(0,"error: malformed section found at line " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

if (section == 0)
{
llWhisper(0,"error: no section found on line: " + (string) lineno);
config_error = TRUE;
return FALSE;
}

list breakup=llParseString2List(line,["="],[]);
string field=llStringTrim(llList2String(breakup,0),STRING_TRIM);
string values=llStringTrim(llList2String(breakup,1),STRING_TRIM);

if (section == 1) // access
{
field=llToLower(field);

if (field=="owner")
{
owner_access=true_value(values);
return TRUE;
}
else if (field=="group")
{
group_access=true_value(values);
return TRUE;
}
else if (field=="public")
{
public_access=true_value(values);
return TRUE;
}
else
{
llWhisper(0,"error: invalid option on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

}
else if (section == 2) // ban list
{
key try=(key) field;

if (try)
{
banned_keys+=(list)((key) field);
return TRUE;
}
else
return FALSE;
}
else if (section == 3) // categories
{
// DebugSay("category: '" + field + "'");
if (llListFindList(category_list,(list)field) == -1)
{
category_list+=(list)field;
}
else
llWhisper(0,"genre: '" + field + "' already entered; double entry skipped.");

return TRUE;
}
else if (section == 4) // stations
{
list parse=llParseString2List(line,sep_char_list, []);
string category=llStringTrim(llList2String(parse,0),STRING_TRIM);
string name=llStringTrim(llList2String(parse,1),STRING_TRIM);
string desc=llStringTrim(llList2String(parse,2),STRING_TRIM);
string url=llStringTrim(llToLower(llList2String(parse,3)),STRING_TRIM);

if (!available_category(category))
{
llWhisper(0,"error: unknown genre on line: " + (string)lineno + ".\n" + dataline);
DebugSay("genre: '" + category + "'");
config_error=TRUE;
return FALSE;
}

if (check_url(url))
{
if (llListFindList(station_url,(list)url) == -1 || llListFindList(station_category,(list)category) == -1)
{
num_stations++;
station_category+=(list)category;
station_name+=(list)name;
station_desc+=(list)desc;
station_url+=(list)url;
return TRUE;
}
else
{
llWhisper(0,"This station is already entered under the same genre and same url and is skipped.\nStation: " + name + "\nGenre: '" + category + "'\nURL: " + url);
return TRUE;
}
}
else
{
llWhisper(0,"error: malformed url on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}
}

return FALSE;
}

set_parcel_url(string url)
{
parcel_url=url;
llSetParcelMusicURL(parcel_url);

if (parcel_url=="")
{
clear_display();
display_line("1","Radio is OFF");
display_line("2","");
display_line("3","");
}
else
{
llWhisper(0,"station now set to " + llList2String(station_desc,station_index) + ".");
display_line("1","Station: " + llList2String(station_desc,station_index));
display_line("2","Genre : " + llList2String(category_list,category_index));
display_line("3","Now playing.....");
llSetTimerEvent(update_time);
}
}

integer available_category(string category)
{
integer i;
integer len=llGetListLength(category_list);

for (i=0;i<len;i++)
if (llToLower(category) == llToLower(llList2String(category_list,i)))
return TRUE;

return FALSE;
}

integer empty_category(string category)
{
integer i;
integer len=llGetListLength(station_category);

for (i=0; i < len; i++)
if (llToLower(category) == llToLower(llList2String(station_category,i)))
return FALSE;

return TRUE;
}

skip_empty_categories()
{
integer i=0;

while (i<llGetListLength(category_list))
{
if (empty_category(llList2String(category_list,i)))
{
llWhisper(0,"Warning: Genre '" + llList2String(category_list,i) + "' contains no stations and is deleted.");
category_list=llDeleteSubList(category_list,i,i);
}
else
i++;
}

num_categories=llGetListLength(category_list);
}

/////////////////////////////////////////////
// state default
////////////////////////////////////////////

default
{
state_entry()
{
flag=FALSE;
lineno=0;
config_error=FALSE;
num_stations=0;
num_categories=0;
radio_status=0;
menu_num=0;
menu_type=0;

if (llGetInventoryType(config_notecard) != INVENTORY_NONE)
{
reqid=llGetNotecardLine(config_notecard,lineno++);
llWhisper(0, "Reading config notecard...");
display_line("1","Reading configuration.");
display_line("2","Wait....");
display_line("3","");
}
else
{
llWhisper(0,"No config notecard '" + config_notecard + "' present.");
state offline;
}
}

on_rez(integer param)
{
llResetScript();
}

dataserver(key id, string data)
{
if (reqid==id)
{
if (data==EOF)
{
skip_empty_categories();
llWhisper(0,"Configuration ok.\n" + (string)num_categories + " genres and " + (string)num_stations + " stations.");
display_line("1","Configuration OK");
display_line("2","Genres : " + (string)num_categories);
display_line("3","Stations: " + (string)num_stations);
state menu;
}
else
{
if (process_line(data))
reqid=llGetNotecardLine(config_notecard,lineno++);
else if (config_error)
{
llWhisper(0,"errors found in configuration. please correct them.");
state offline;
}
}
}
}

touch_start(integer total_num)
{
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY && flag)
llResetScript();
}
}

/////////////////////////////////////////////
// state offline
////////////////////////////////////////////

state offline
{
state_entry()
{
llWhisper(0,"Reset on owner touch.");
}

touch_start(integer t)
{
if (llDetectedKey(0)==llGetOwner())
llResetScript();
}
}

/////////////////////////////////////////////
// state menu
////////////////////////////////////////////

state menu
{
state_entry()
{
menu_type=0;
menu_num=0;
listen_handle=0;
}

changed(integer param)
{
if (param & CHANGED_INVENTORY)
llResetScript();
}

on_rez(integer param)
{
llResetScript();
}

touch_start(integer total_num)
{
key toucher=llDetectedKey(0);

if (has_access(toucher))
{
make_menu(toucher);
}
else
llWhisper(0,"sorry, no access.");
}

listen(integer chan, string name,key id,string msg)
{
integer index;

if (menu_type == 0) // main menu
{
if (msg == button_MAIN)
{
menu_type=0;
menu_num =0;
make_menu(id);
}
else if (msg == button_NEXT)
{
menu_num++;
make_menu(id);
}
else if (msg == button_PREV)
{
menu_num--;
make_menu(id);
}
else if (msg == button_ON)
{
radio_status=1;
set_parcel_url(parcel_url);
display_line("1","Radio is ON");
menu_num=0;
llWhisper(0,"Radio now turned on.");
make_menu(id);
}
else if (msg == button_OFF)
{
radio_status=0;
set_parcel_url("");
llSetTimerEvent(0.0);
llWhisper(0,"Radio now turned off.");
}
else if (msg == button_HELP)
{
if (llGetInventoryType(info_notecard) == INVENTORY_NOTECARD)
{
llGiveInventory(id,info_notecard);
}
else
llWhisper(0,"sorry, help not available.");
}
else if (radio_status == 1)
{
index = llListFindList(category_list, (list)msg);

if (index == -1)
llWhisper(0,"error: genre not found: " + msg);
else
{
category_index=index;
llWhisper(0,"Genre now set to " + llList2String(category_list,category_index) + ".");
menu_type=1;
menu_num=0;
make_menu(id);
}
}
}
else if (menu_type == 1 && radio_status == 1) // station menu
{
if (msg == button_MAIN)
{
menu_type=0;
menu_num =0;
make_menu(id);
}
else if (msg == button_NEXT)
{
menu_num++;
make_menu(id);
}
else if (msg == button_PREV)
{
menu_num--;
make_menu(id);
}
else
{
index = llListFindList(station_name, (list)msg);

if (index == -1)
llWhisper(0,"error: station not found: " + msg);
else
{
station_index=index;
string new_url=llList2String(station_url,station_index);

if (new_url != parcel_url)
{
set_parcel_url(new_url);
}
}
}
}
}

timer()
{
retrieve_titelinfo();
llSetTimerEvent(update_time);
}

http_response(key id, integer status, list meta, string body)
{
if (id == httpreq_id)
{
if (status == 200)
{
string feed = llGetSubString(body,llSubStringIndex(body, "<body>") + llStringLength("<body>"), llSubStringIndex(body,"</body>") - 1);
list feed_list = llParseString2List(feed,[","],[]);
string current_title_info= llList2String(feed_list,6);
integer length = llGetListLength(feed_list);

if(llList2String(feed_list,7))
{
integer a = 7;
for(; a<length; ++a)
{
current_title_info += ", " + llList2String(feed_list,a);
}
}

if (current_title_info != last_title_info)
{
last_title_info = current_title_info;
display_line("3","Title : " + current_title_info);
}
}
else
{
display_line("3","Title : " + no_title_info);
}
}
}
}

//////////////////////////////
// end of script
/////////////////////////////
</lsl>

Shoutcast - radio controller v0.3 (remake of similar scripts)

Flennan Roffo — Wed, 09 Feb 2011 21:48:50 GMT

Flennan Roffo: Created page with "{{LSL header}} This script controls a shoutcast radio receiver and lets you select the stations that you configured on a notecard. Menu driven. Output of station description, gen…"

{{LSL header}}
This script controls a shoutcast radio receiver and lets you select the stations that you configured on a notecard. Menu driven. Output of station description, genre and current song title using Xy text.
<lsl>
// Shoutcast - radio controller v0.3
// Logic Scripts (Flennan Roffo)
// (c) 2010 - Flennan Roffo (Logic Scripts)
//
// Remake of similar script:
// + LandOwnersRadio V2.0 by Scripter Coba (( menu driven / notecard config script to select the radio station and sets parcel music url ))
// + Raven radio infoboard by Jamie Otis (( worked at the basis of sis service [sis.slserver.com/sis.php] used Xy text display ))
// + currentPlaying by Darkie Minotaur (( used the /7.html info to fetch current song title info, displayed as float text ))
//
// Purpose:
// * Sets the parcel audio URL and displays the channel info
// * Uses Xytext to display the info.
// * Fetches song title info from the shoutcast url
// Extra Features -- 0.1 release
// * On/Off option
// * Allows multiple menus (if options per menu > 12) using a prev/next button
// * Checks if your url is well-formatted
// * Will delete genres for which no stations exist
// * Will skip stations that have same url and same genre (you can however have an identical station url under different genres).
// * New notecard format
//////////////////////////////////////////////////////////////////////////////////////////
// Extra Features -- 0.2 release
// * Configurable button text
// * Gets parcel URL and automatically sets the genre/station and on/off status accordingly (<-- doesn't work)
//////////////////////////////////////////////////////////////////////////////////////////
// Update -- 0.3 release
// * Fixed bug (only first station in genre displayed in menu)
// * Auto reset script when config card updated
//////////////////////////////////////////////////////////////////////////////////////////
//
// This program is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program. If not, see <http://www.gnu.org/licenses/>.
///////////////////////////////////////////////////////////////////////////////////////////

integer DEBUG=0;

string info_notecard="Radio Control info"; /////// EDITABLE \\\\\\
string config_notecard="Radio Control config"; /////// EDITABLE \\\\\\
string comment_char="#"; /////// EDITABLE \\\\\\
list sep_char_list= ["|"]; /////// EDITABLE \\\\\\
float update_time=5.0; /////// EDITABLE \\\\\\
string no_title_info="(no title info available)"; /////// EDITABLE \\\\\\

// not used currently - for showing info on current song title elsewhere in the region
integer broadcast_channel=-1234; /////// EDITABLE \\\\\\

// Buttons

string button_MAIN = "MAIN";
string button_HELP = "HELP";
string button_NEXT = ">>";
string button_PREV = "<<";
string button_ON = "ON";
string button_OFF = "OFF";

// Lists

list category_list=[];

list station_category=[];
list station_name=[];
list station_desc=[];
list station_url=[];

string last_title_info="";

integer radio_status=0;
string parcel_url="";
integer lineno=0;
key reqid=NULL_KEY;
key httpreq_id=NULL_KEY;
integer config_error=FALSE;
integer flag;
integer section=0;
integer owner_access=TRUE;
integer group_access=FALSE;
integer public_access=TRUE;
list banned_keys=[];

integer menu_channel;
integer listen_handle;
integer menu_type=0;
integer menu_num=0;
integer category_index=0;
integer station_index=0;

integer num_categories=0;
integer num_stations=0;

DebugSay(string msg)
{
if (DEBUG)
llSay(0,"(debug) " + msg);
}

retrieve_titelinfo()
{
string url=llList2String(station_url,station_index);
httpreq_id=llHTTPRequest(url + "/7.html HTTP/1.0\nUser-Agent: LSL Script (Mozilla Compatible)\n\n",[],"");
}

display_line(string line, string message)
{
// Setup XYtext Variables
integer DISPLAY_STRING = 204000;
integer DISPLAY_EXTENDED = 204001;
integer REMAP_INDICES = 204002;
integer RESET_INDICES = 204003;
integer SET_CELL_INFO = 204004;
integer SET_FONT_TEXTURE = 204005;
integer SET_THICKNESS = 204006;
integer SET_COLOR = 204007;

llMessageLinked(LINK_SET,DISPLAY_STRING,message,line);
}

clear_display()
{
// Clears the display
display_line("1","Radio Station ID");
display_line("2","Music Genre....");
display_line("3","Now Playing....");
}

make_menu(key id)
{
menu_channel=random_channel();

if (radio_status == 0)
{
menu_type=0;
menu_num=0;
llDialog(id,"Menu: Status\n\nRadio is OFF", [ "ON", "HELP" ],menu_channel);
}
else
{
if (menu_type ==0)
{
llDialog(id,"Menu: Genres", category_menu(menu_num),menu_channel);
}
else
{
llDialog(id,"Menu: Stations\nGenre: " + llList2String(category_list,category_index), station_menu(menu_num),menu_channel);
}
}

if (listen_handle != 0) llListenRemove(listen_handle);
listen_handle=llListen(menu_channel,"",id,"");
}

list category_menu(integer num)
{ // compile menu list of category list
// if there are more catagories then can be displayed in the menu
// compile a submenu, including options for main menu and more and a blank item.
integer len=llGetListLength(category_list);
list menu=[];

if (len > 9)
{
integer last_sub=(len-1)/9; // submenus start at 0. 9th entry is in submenu 0, 10th in 1, etc.

if (num > last_sub)
{
llWhisper(0,"error: wrong submenu number: " + (string) num + ".");
return [ "MAIN" ];
}
else
{
integer first=9*num;

while (--len >= first)
menu+=(list)llList2String(category_list,len);

if (num == 0)
menu+=(list)button_HELP;
else
menu+=(list)button_MAIN;

if (num == 0)
menu+=(list)button_OFF;
else
menu+=(list)button_PREV;

if (num != last_sub)
menu+=(list)button_NEXT;
}
}
else
{
while (--len >= 0)
menu+=(list)llList2String(category_list,len);

menu+=(list)button_OFF;
menu+=(list)button_HELP;
}

DebugSay("main menu: " + llList2CSV(menu));

return menu; // order_buttons(menu);
}

integer stations_in_category(integer cat)
{
integer count=0;
integer i;
integer len=llGetListLength(station_category);
string category=llList2String(category_list,cat);

for (i=0; i < len; i++)
if (category == llList2String(category_list,i))
count++;

return count;
}

list order_buttons(list buttons)
{
integer offset;
list fixt;
integer flag=0;

while((offset = llGetListLength(buttons)))
{
if (offset > 3)
flag=1;
else
flag=0;

fixt += llList2List(buttons, offset = -3 * flag, -1);
buttons = llDeleteSubList(buttons, offset, -1);
}

return fixt;
}

list station_list(integer category)
{
list s=[];
integer i;
string cname=llList2String(category_list,category_index);

for (i = 0; i < llGetListLength(station_name); i++)
if (llList2String(station_category,i) == cname)
s+=(list)llList2String(station_name,i);

return s;

}

list station_menu(integer num)
{
// compile menu list of station names
// if there are more stations then can be displayed in the menu
// compile a submenu, including options for main menu and more and a blank item.

list stations=station_list(category_index);
integer len=llGetListLength(stations);
list menu=[];

llSay(0,"Category: " + llList2String(category_list,category_index));
llSay(0,"Stations: " + llDumpList2String(stations,","));

if (len > 11)
{
integer last_sub=(len-1)/9;

if (num >= last_sub)
{
llWhisper(0,"error: wrong submenu number: " + (string) num + ".");
return [ "MAIN" ];
}
else
{
integer first=9*num;
integer last=9*num+8;

menu+=(list)button_MAIN;

if (num > 0)
menu+=(list)button_PREV;

if (num < last_sub)
menu+=(list)button_NEXT;

if (len > last)
len =last;

while (--len >= first)
menu+=(list)llList2String(stations,len);
}
}
else
{
menu+=(list)button_MAIN;

while (--len >= 0)
menu+=(list)llList2String(stations,len);
}

DebugSay("station menu: " + llList2CSV(menu));

return menu; // order_buttons(menu);
}

integer has_access(key id)
{
if (llListFindList(banned_keys,(list)id) != -1)
return FALSE;

if (owner_access && id == llGetOwner())
return TRUE;

if (group_access && llSameGroup(id))
return TRUE;

if (public_access)
return TRUE;

return FALSE;
}

integer random_channel()
{
integer min=-2147483647;
integer max=-1000;

return (integer) (min + llFrand(max-min));
}

integer check_url(string url)
{
integer pos=0;

if (llGetSubString(url,0,6) == "http://")
pos=7;
if (llGetSubString(url,0,7) == "https://")
pos=8;

if (pos==0) return FALSE;

string str_ip_port=llGetSubString(url,pos,-1);
list list_ip_port=llParseString2List(str_ip_port,[":"],[]); // split in ip-adress and port
list list_ip=llParseString2List(llList2String(list_ip_port,0),["."],[]); // split ip-adress elements

if (llGetListLength(list_ip_port) != 2 || llGetListLength(list_ip) != 4)
return FALSE;

integer i;
integer test;

for (i=0;i<4;i++)
{
test=llList2Integer(list_ip,i);
if (llList2String(list_ip,i) != (string)test)
return FALSE;
if (test < 0 || test > 255)
return FALSE;
}

test=llList2Integer(list_ip_port,1);
if (llList2String(list_ip_port,1) != (string)test)
return FALSE;

return TRUE;
}

integer true_value(string input)
{
string value=llToLower(llGetSubString(input,0,0));

if (value == "y" || value == "t" || value =="1")
return TRUE;

return FALSE;
}

integer process_line(string dataline)
{
string line=llStringTrim(dataline,STRING_TRIM);
integer index=llSubStringIndex(line,comment_char);

if (index==0) // line starts with comment - ignore line
return TRUE;

if (index!=-1)
line=llStringTrim(llGetSubString(line,0,index-1),STRING_TRIM_TAIL); // skip everything after comment_char and trim tail

if (line=="") // Ignore blank lines
return TRUE;

if (llToLower(line) == "[access]")
{
section = 1;
return TRUE;
}
else if (llToLower(line) == "[banned]")
{
section = 2;
return TRUE;
}
else if (llToLower(line) == "[genre]")
{
section = 3;
return TRUE;
}
else if (llToLower(line) == "[station]")
{
section = 4;
return TRUE;
}
else if (llGetSubString(line,0,0) == "[" && llGetSubString(line,-1,-1) == "]")
{
llWhisper(0,"error: malformed section found at line " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

if (section == 0)
{
llWhisper(0,"error: no section found on line: " + (string) lineno);
config_error = TRUE;
return FALSE;
}

list breakup=llParseString2List(line,["="],[]);
string field=llStringTrim(llList2String(breakup,0),STRING_TRIM);
string values=llStringTrim(llList2String(breakup,1),STRING_TRIM);

if (section == 1) // access
{
field=llToLower(field);

if (field=="owner")
{
owner_access=true_value(values);
return TRUE;
}
else if (field=="group")
{
group_access=true_value(values);
return TRUE;
}
else if (field=="public")
{
public_access=true_value(values);
return TRUE;
}
else
{
llWhisper(0,"error: invalid option on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}

}
else if (section == 2) // ban list
{
key try=(key) field;

if (try)
{
banned_keys+=(list)((key) field);
return TRUE;
}
else
return FALSE;
}
else if (section == 3) // categories
{
// DebugSay("category: '" + field + "'");
if (llListFindList(category_list,(list)field) == -1)
{
category_list+=(list)field;
}
else
llWhisper(0,"genre: '" + field + "' already entered; double entry skipped.");

return TRUE;
}
else if (section == 4) // stations
{
list parse=llParseString2List(line,sep_char_list, []);
string category=llStringTrim(llList2String(parse,0),STRING_TRIM);
string name=llStringTrim(llList2String(parse,1),STRING_TRIM);
string desc=llStringTrim(llList2String(parse,2),STRING_TRIM);
string url=llStringTrim(llToLower(llList2String(parse,3)),STRING_TRIM);

if (!available_category(category))
{
llWhisper(0,"error: unknown genre on line: " + (string)lineno + ".\n" + dataline);
DebugSay("genre: '" + category + "'");
config_error=TRUE;
return FALSE;
}

if (check_url(url))
{
if (llListFindList(station_url,(list)url) == -1 || llListFindList(station_category,(list)category) == -1)
{
num_stations++;
station_category+=(list)category;
station_name+=(list)name;
station_desc+=(list)desc;
station_url+=(list)url;
return TRUE;
}
else
{
llWhisper(0,"This station is already entered under the same genre and same url and is skipped.\nStation: " + name + "\nGenre: '" + category + "'\nURL: " + url);
return TRUE;
}
}
else
{
llWhisper(0,"error: malformed url on line: " + (string)lineno + ".\n" + dataline);
config_error=TRUE;
return FALSE;
}
}

return FALSE;
}

set_parcel_url(string url)
{
parcel_url=url;
llSetParcelMusicURL(parcel_url);

if (parcel_url=="")
{
clear_display();
display_line("1","Radio is OFF");
display_line("2","");
display_line("3","");
}
else
{
llWhisper(0,"station now set to " + llList2String(station_desc,station_index) + ".");
display_line("1","Station: " + llList2String(station_desc,station_index));
display_line("2","Genre : " + llList2String(category_list,category_index));
display_line("3","Now playing.....");
llSetTimerEvent(update_time);
}
}

integer available_category(string category)
{
integer i;
integer len=llGetListLength(category_list);

for (i=0;i<len;i++)
if (llToLower(category) == llToLower(llList2String(category_list,i)))
return TRUE;

return FALSE;
}

integer empty_category(string category)
{
integer i;
integer len=llGetListLength(station_category);

for (i=0; i < len; i++)
if (llToLower(category) == llToLower(llList2String(station_category,i)))
return FALSE;

return TRUE;
}

skip_empty_categories()
{
integer i=0;

while (i<llGetListLength(category_list))
{
if (empty_category(llList2String(category_list,i)))
{
llWhisper(0,"Warning: Genre '" + llList2String(category_list,i) + "' contains no stations and is deleted.");
category_list=llDeleteSubList(category_list,i,i);
}
else
i++;
}

num_categories=llGetListLength(category_list);
}

/////////////////////////////////////////////
// state default
////////////////////////////////////////////

default
{
state_entry()
{
flag=FALSE;
lineno=0;
config_error=FALSE;
num_stations=0;
num_categories=0;
radio_status=0;
menu_num=0;
menu_type=0;

if (llGetInventoryType(config_notecard) != INVENTORY_NONE)
{
reqid=llGetNotecardLine(config_notecard,lineno++);
llWhisper(0, "Reading config notecard...");
display_line("1","Reading configuration.");
display_line("2","Wait....");
display_line("3","");
}
else
{
llWhisper(0,"No config notecard '" + config_notecard + "' present.");
state offline;
}
}

on_rez(integer param)
{
llResetScript();
}

dataserver(key id, string data)
{
if (reqid==id)
{
if (data==EOF)
{
skip_empty_categories();
llWhisper(0,"Configuration ok.\n" + (string)num_categories + " genres and " + (string)num_stations + " stations.");
display_line("1","Configuration OK");
display_line("2","Genres : " + (string)num_categories);
display_line("3","Stations: " + (string)num_stations);
state menu;
}
else
{
if (process_line(data))
reqid=llGetNotecardLine(config_notecard,lineno++);
else if (config_error)
{
llWhisper(0,"errors found in configuration. please correct them.");
state offline;
}
}
}
}

touch_start(integer total_num)
{
}

changed(integer ch)
{
if (ch & CHANGED_INVENTORY && flag)
llResetScript();
}
}

/////////////////////////////////////////////
// state offline
////////////////////////////////////////////

state offline
{
state_entry()
{
llWhisper(0,"Reset on owner touch.");
}

touch_start(integer t)
{
if (llDetectedKey(0)==llGetOwner())
llResetScript();
}
}

/////////////////////////////////////////////
// state menu
////////////////////////////////////////////

state menu
{
state_entry()
{
menu_type=0;
menu_num=0;
listen_handle=0;
}

changed(integer param)
{
if (param & CHANGED_INVENTORY)
llResetScript();
}

on_rez(integer param)
{
llResetScript();
}

touch_start(integer total_num)
{
key toucher=llDetectedKey(0);

if (has_access(toucher))
{
make_menu(toucher);
}
else
llWhisper(0,"sorry, no access.");
}

listen(integer chan, string name,key id,string msg)
{
integer index;

if (menu_type == 0) // main menu
{
if (msg == button_MAIN)
{
menu_type=0;
menu_num =0;
make_menu(id);
}
else if (msg == button_NEXT)
{
menu_num++;
make_menu(id);
}
else if (msg == button_PREV)
{
menu_num--;
make_menu(id);
}
else if (msg == button_ON)
{
radio_status=1;
set_parcel_url(parcel_url);
display_line("1","Radio is ON");
menu_num=0;
llWhisper(0,"Radio now turned on.");
make_menu(id);
}
else if (msg == button_OFF)
{
radio_status=0;
set_parcel_url("");
llSetTimerEvent(0.0);
llWhisper(0,"Radio now turned off.");
}
else if (msg == button_HELP)
{
if (llGetInventoryType(info_notecard) == INVENTORY_NOTECARD)
{
llGiveInventory(id,info_notecard);
}
else
llWhisper(0,"sorry, help not available.");
}
else if (radio_status == 1)
{
index = llListFindList(category_list, (list)msg);

if (index == -1)
llWhisper(0,"error: genre not found: " + msg);
else
{
category_index=index;
llWhisper(0,"Genre now set to " + llList2String(category_list,category_index) + ".");
menu_type=1;
menu_num=0;
make_menu(id);
}
}
}
else if (menu_type == 1 && radio_status == 1) // station menu
{
if (msg == button_MAIN)
{
menu_type=0;
menu_num =0;
make_menu(id);
}
else if (msg == button_NEXT)
{
menu_num++;
make_menu(id);
}
else if (msg == button_PREV)
{
menu_num--;
make_menu(id);
}
else
{
index = llListFindList(station_name, (list)msg);

if (index == -1)
llWhisper(0,"error: station not found: " + msg);
else
{
station_index=index;
string new_url=llList2String(station_url,station_index);

if (new_url != parcel_url)
{
set_parcel_url(new_url);
}
}
}
}
}

timer()
{
retrieve_titelinfo();
llSetTimerEvent(update_time);
}

http_response(key id, integer status, list meta, string body)
{
if (id == httpreq_id)
{
if (status == 200)
{
string feed = llGetSubString(body,llSubStringIndex(body, "<body>") + llStringLength("<body>"), llSubStringIndex(body,"</body>") - 1);
list feed_list = llParseString2List(feed,[","],[]);
string current_title_info= llList2String(feed_list,6);
integer length = llGetListLength(feed_list);

if(llList2String(feed_list,7))
{
integer a = 7;
for(; a<length; ++a)
{
current_title_info += ", " + llList2String(feed_list,a);
}
}

if (current_title_info != last_title_info)
{
last_title_info = current_title_info;
display_line("3","Title : " + current_title_info);
}
}
else
{
display_line("3","Title : " + no_title_info);
}
}
}
}

//////////////////////////////
// end of script
/////////////////////////////
</lsl>

Category:LSL Library

Flennan Roffo — Wed, 09 Feb 2011 21:44:02 GMT

Flennan Roffo: Added: Shoutcast - radio controller

{{LSL Header|ml=*}}{{RightToc}}
==Script Library==

<div id="box">
<div style="padding: 0.5em 0.5em 1.5em">
Come to this page to see complex examples that show how to combine parts of LSL.

Go to the [[:Category:LSL Examples|LSL Examples]] page to see brief examples of how to use parts of LSL

Why collect complex examples here? Well, ...

There are many [[script|scripts]] that have become buried in the [[Old forum Scripting Library index| old forum Scripting Library]] or the newer [https://blogs.secondlife.com/community/forums/scripting_library?view=discussions Scripting Library forum], were lost with the death of the early scripting forums, or sit idle in [[inventory|inventories]] that could be useful and should be more accessible.

Other scripters may be in the same situation. This wiki is a well-suited medium for a script library. Feel free to add your scripts to the script library by creating new pages for them and linking to those pages here.

Note that there are many more scripts in the LSL Library here, but you can't get to them if you don't know they exist, because they are subpages now, instead of an automatically updated category. Good luck searching.
</div>
</div>

<div id="box">

== Rules for posting: ==
<div style="padding: 0.5em">
#Your script must be tested and working. If it's not, stick it in your user-space until it is. This is a list of working, usable scripts.
#Add a link to your script's page here. Link back to this page from your script's page. Start your page with <nowiki>{{LSL Header}}</nowiki>.
#Do not add scripts that duplicate the same functionality as an existing script or built in {{LSLGC|Functions|function}}. If yours does, explain why.
#Do not list simple scripts here. Include those among the [[:Category:LSL Examples|LSL Examples]] instead.
</div></div>

<div id="box">
==LSL Script Library==

{| class="sortable" {{Prettytable}}
|- {{Hl2}}
! '''Name'''
! '''Creator'''
! '''Description'''
|-
||[[1st necessity of SL]]
||[[User:Beer Dailey|Beer Dailey]]
||Monitors for avatars and (de)activates scripts states to control script performance/lag.
|-
||[[SetLinkText]]
||[[User:Tacusin Memo|Tacusin Memo]]
||Custom function like llSetText only applying to linked sets.
|-
||[[3D Radar]]
||[[User:Jesse Barnett|Jesse Barnett]]
||Rezzes a ball for each avatar in range. Each ball tracks its own AV and displays distance.
|-
||[[Access (NewAge)]]
||[[User:Asia Snowfall|Asia Snowfall]]
||An easy to use script for permissions on who can use the script, Public/Group/Owner
|-
||[[Aim Detection]]
||[[User:Han Shuffle|Unrevoked Clarity]]
||Monitors for avatars and reports back to owner about who is aiming at them.
|-
||[[AntiDelay Node]]
||[[User:Xaviar Czervik|Xaviar Czervik]]
||Uses [[llMessageLinked]] to stop those pesky delays.
|-
||[[AO Overriding Pose Ball]]
||[[User:Jesse Barnett|Jesse Barnett]]
||No more turning your AO off and on when you sit down
|-
||[[ARCFOUR Strong Encryption Implementation]]
||[[User:Nekow42 Zarf|Nekow42 Zarf]]
||An LSL implementation of ARCFOUR, the most popular stream cipher still in use. It is licensed under a Creative Commons Attribution 3.0 license.
|-
||[[Assembly Programming Language|Assembly-Like Programming Language]]
||[[User:Xaviar Czervik|Xaviar Czervik]]
||A compiler that runs assembly-like programs.
|-
||[[Associative Array Emulator|Associative Array (Dictionary) Emulator]]
||[[User:Alynna Vixen|Alynna Vixen]]
||This library provides a set of functions for using a list as an associative array where string based keys can refer to one or more variant elements.
|-
||[[AvatarFollower]]
||[[User:Dale Innis|Dale Innis]]
||Allows one avatar to automatically follow another.
|-
||[[Avatar Radar (NewAge)]]
||[[User:Asia Snowfall|Asia Snowfall]]
||Version 1.2; A nice new avatar radar script i just finish that you can place in your hud, Also features avatar locator
|-
||[[Base2Dec]]
||[[User:Siann Beck|Siann Beck]]
||Convert a number to decimal from any base.
|-
||[[BaseN]]
||[[User:Nexii Malthus|Nexii Malthus]]
||Variable base compression, dynamically maps to usable UTF code points.
|-
||[[Basic A-Star Pathfinder]]
||[[User:Nexii Malthus|Nexii Malthus]]
|| My own interpretation of A Star into a highly efficient algorithmn
|-
||[[Basic Encryption Modules]]
||[[User:Beverly Larkin|Beverly Larkin]]
||Basic encryption scripts, allows you to encrypt a float and shout it to another prim on a randomly chosen channel.
|-
||[[Be happy]]
||[[User:Emmas Seetan|Emmas Seetan]]
||Basic smile attachment script, makes your avatar smile.
|-
||[[Best Neighbor Ad Hiding Script|Best Neighbor]]
||[[User:Doran Zemlja|Doran Zemlja]]
||Reduce ad clutter by hiding ads when users are on their own land nearby.
|-
||[[BigNum|BigNum Library (RSA Encryption)]]
||[[User:Xaviar Czervik|Xaviar Czervik]]
||A BigNum Library for dealing with big numbers! Specialized for modular multiplication, and RSA encryption.
|-
||[[Binary Clock v1.1|Binary Clock]]
||[[User:Fox Diller|Fox Diller]]
||A Binary Clock.
|-
||[[BinaryDecimalConverter]]
||[[User:Soundless Smalls|Soundless Smalls]]
||Converts a binary value to a decimal value and vice versa.
|-
||[[Blacklist and Remote Kill|Blacklist and Remote Kill]]
||[[User:Chase Quinnell|Chase Quinnell]]
||Blacklist(denial of use) or a creator kill script(can delete someone's item by command on private channel)
|-
||[[User_talk:Rolig_Loon/Bookmark_URLs|Bookmark URLs]]
||[[User:Rolig Loon|Rolig Loon]]
||Dialog driven HUD reads bookmarked URLs from notecards and navigates directly to them with user's in-world browser.
|-
||[[Builders Buddy|Builder's Buddy Tool]]
||[[User:Newfie Pendragon|Newfie Pendragon]]
||Script to easily move/rotate large builds that exceed the linkable size limit (30 meters).
|-
||[[Button Click Detector]]
||{{User|Sendao Goodman}}
||Use [[llDetectedTouchUV]] to determine which button was pressed on a texture.
|-
||[[Camera following prim]]
||[[User:Dale Innis|Dale Innis]]
||Pair of scripts to make a prim follow your camera position around (for lights etc).
|-
||[[Camera Sync]]
||[[User:Meyermagic Salome|Meyermagic Salome]] and [[User:Nomad Padar|Nomad Padar]]
||A system to synchronize the cameras of two avatars.
|-
||[[Chatbot]]
||Anonymous
||Compile and run the LSL you type on a channel, faster than you can thru the 2007-08 SL GUI.
|-
||[[Chat Logger (GPL)]]
||[[User:Nobody Fugazi|Nobody Fugazi]]
||Chat logger which requests permission from participants before recording them.
|-
||[[Chat_Relay|Chat Relay]]
||[[User:grumble Loudon|grumble Loudon]]
||A Chat relay which can be routed using a path header and won't echo.
|-
||[[ClickAndDrag]]
||[[User:Nexii Malthus|Nexii Malthus]]
|| Click and Drag user interface elements using dynamic feedback
|-
||[[Code Racer]]
||Anonymous
||Race two versions of code forever, to see which runs faster.
|-
||[[Code Sizer]]
||Anonymous
||Count the bytes compiled from source code, to measure how to write small code.
|-
||[[User:Void_Singer/Programs#v7-D_Enh._Color_Picker|Color Changer]]
||[[User:Void_Singer|Void_Singer]]
||Dialog driven color changer. Supports 16million+ colors, web color codes, multiple targeted prims, with save and recall.
|-
||[[Color Changer|Color Changer Plus]]
||[[User:Neo Calcutt|Neo Calcutt]]
||A color changer with 14 colors, a random function, and a custom vector function.
|-
||[[Color conversion scripts|Color Conversion]]
||[[User:Sally LaSalle|Sally LaSalle]]
||Convert between Red Green Blue (RGB) and Hue Saturation Value (HSV).
|-
||[[ColorConvert]]
||[[User:Siann Beck|Siann Beck]]
||Convert color values to vector from RGB, hex or HTML color name.
|-
||[[Color script]]
||[[User:Masakazu Kojima|Masakazu Kojima]]
||Script for changing colors trough a listener with pre-defined colors.
|-
||[[Library Combined Library|Combined Library]]
||[[User:Strife Onizuka|Strife Onizuka]]
||Library of mostly encoding and decoding functions, some more useful then others.
* String functions: Replace / Trim right / Trim left / Trim both
* Unicode conversion: UTF8 to Unicode / Unicode to UTF8
* List functions: Replace / Compare
|-
||[[Computer:jaycoonlanguage]]
||[[User:jayco121 Bing|jayco121 Bing]]
|| A language written in LSL that is meant for my computer (available at the shop).
|-
||[[Read Note Card Configuration|Configuration Notecard Reader]]
||{{User|Dedric Mauriac}}
||A script to read configuration information from a notecard. Parses notecard to extract key words and their assigned values. Allows for comment lines and many more useful features.
|-
||[[AdvancedNotecardReader|Configuration Notecard Reader (advanced)]]
||[[Lear Cale|Lear Cale]]
||Robust configuration notecard reader; supports multiple notecards with same suffix, handles reconfig on inventory change, and does not usurp the default state.
|-
||[[Library_Chat_Relay|Conversation Relay]]
||[[User:Jippen Faddoul|Jippen Faddoul]]
||Chat relay which requests permission from participants before relaying their messages. Also includes their attachments. (ToS compliant).
|-
||[[Curtain script]]
||[[User:Zilla Larsson|Zilla Larsson]]
||A simple script to retract/stretch curtains, blinds, bedcovers and more
|-
||[[Dataserver API]]
||[[User:Revolution Perenti|Revolution Perenti]]
||Dataserver Framework for Notecards.
|-
||[[Date Library]]
||[[User:Corto Maltese|Corto Maltese]]
|| Date library, based on number of day since march 3rd 1600, can be used to calculate weekday, date differences, and date offset, and date formating.
|-
||[[Day of the Week]]
||[[User:DoteDote Edison|DoteDote Edison]]
||Function to get day of the week from [[llGetUnixTime]].
|-
||[[Days in Month]]
||[[User:IntLibber Brautigan begin_of_the_skype_highlighting end_of_the_skype_highlighting begin_of_the_skype_highlighting end_of_the_skype_highlighting|IntLibber Brautigan]]
||Clicking on it returns the number of days in the present month. Useful for scripting calendars and tier systems that need to know the number of days in the month at hand or to calculate for any month. Even adjusts for leap years.
|-
||[[Deed Tools]]
||[[User:Falados Kapuskas|Falados Kapuskas]]
||Tools that allow the creator to modify Group-Owned (Deeded) Objects via chat.
|-
||[[Describe Chatter]]
||Anonymous
||Chat to see yourself as others do.
|-
||[[Dialog Control]]
||[[User:Nargus Asturias|Nargus Asturias]]
|| A (not-so) simple dialog & menu control script. Call dialog and receive selected value via [[link_message]](), with built-in timer and [[link_message]]() notification on time out. Supports multi-pages dialog and numeric property dialog. Button text and dialog's returned value can differ.
Latest version also has [[Dialog Menus Control]] built-in; which allow multi-level menus through SL dialog system.
|-
||[[MultiUser_Dialog_Handler|Dialog Menus (multiuser)]]
||[[User:SimonT Quinnell|SimonT Quinnell]]
|| Menu dialog handler that supports multiple menus open at once from the single script. Displays multi-page menus if necessary as well as allowing for fixed header and footer buttons. Timeouts as well as Text and button size limits are handled.
|-
||[[Dialog NumberPad|Dialog Number Pad]]
||[[User:DoteDote Edison|DoteDote Edison]]
||Use a dialog to accept positive integer input from users.
|-
||[[Display Names Radar]]
||[[User:Cerise Sorbet|Cerise Sorbet]]
||Simple HUD type avatar radar that can show [[display names]] and script memory usage
|-
||[[Display Names to Key]]
||[[User:Joran Yoshikawa|Joran Yoshikawa]]
||Simple way to get UUIDs from displaynames
|-
||[[User:Daemonika_Nightfire/Scripts/DS_Display-Username_Online_Indicator|*DS*_Display-Username_Online_Indicator]]
||[[User:Daemonika Nightfire|Daemonika Nightfire]]
||This simple hover text-based script is used to shop owners in Second Life, customers at the current display name and user name to display publicly. Additionally shows the status of the Userkey and online. Furthermore, there are click of a chat link that opens the profile owner.
|-
||[[Displayer Script]]
||[[User:Akinori Kimagawa|Akinori Kimagawa]]
||Display Words On Top Of An Object
|-
||[[Drink script]]
||[[User:Emmas Seetan|Emmas Seetan]]
||Used mainly for food and drink in Second Life.
|-
||[[User:Daemonika_Nightfire/Scripts/DS_Single_AO-Sit|*DS*_Single_AO-Sit]]
||[[User:Daemonika Nightfire|Daemonika Nightfire]]
||Posescript for use with or without AO and with or without Animation. With the menu it is possible the seated Avatar to move.
|-
||[[TOXDropBox|DropBox]]
||[[User:Dimentox Travanti|Dimentox Travanti]]
|| This is a Drop box which allows people to drop certain items in a object & has many config options.
|-
||[[Efficiency Tester]]
||[[User:Xaviar Czervik|Xaviar Czervik]]
||Tests the speed of a function.
|-
||[[Email-to-IM|Email2IM]]
||[[User:DoteDote Edison|DoteDote Edison]]
||Send IMs to SL friends via [[email]] (translate emails from friends into IMs).
|-
|-
||[[User:Kireji_Haiku/SIMchat_headset|Encrypted Region-wide chat]]
||'''[[User:Kireji Haiku|Kireji Haiku]]''' <sup><small>([[User talk:Kireji Haiku|talk]]|[[Special:Contributions/Kireji Haiku|contribs]])</small></sup>
||Encrypted Region-wide chat
|-
||[[ExplodingObjects]]
||[[User:Dale Innis|Dale Innis]]
||Causes an object (of the appropriate type) to explode on command.
|-
||[[FadeEasy]]
||[[User:Nika Rugani|Nika Rugani]]
||The easy way of fading objects in or out (Using llSetLinkAlpha)
|-
||[[FastConeSpread]]
||[[User:Nexii Malthus|Nexii Malthus]]
|| Fast Algorithmn to achieve cone spread, main use in weaponry systems.
|-
||[[User:PixelProphet Lane/Scripts#Fast List Prim Contents|Fast List Prim Contents]]
||[[User:PixelProphet Lane|PixelProphet Lane]]
||Fast and efficient method to print Object Inventory (Name, Type and next Owner permissions)
|-
||[[Find Avatar Key|Find Avatar Key]]
||[[User:Huney Jewell|Huney Jewell]]
||Explores [[UUID]] of avatar whose name is said in local chat or who touches the prim.
|-
||[[First Name Letter Prize]]
||[[User:RaithSphere Whybrow|RaithSphere Whybrow]]
||Gives a prize if the person who sits on it's first letter of first name matches the random letter!
|-
||[[Fix Small Prims|Fix_Small_Prims]]
||[[User:Emma Nowhere|Emma Nowhere]]
||Finds and adjusts the smallest prims in a linkset so that it can be scaled down further.
|-
||[[Float2Hex]]
||[[User:Strife Onizuka|Strife Onizuka]]
||Very useful for transporting [[float|floats]].
|-
||[[Float Box Contents]]
||[[User:Rolig Loon|Rolig Loon]]
||Displays object inventory in hover text, identified by type and updated marquee-style.
|-
||[[Follower (script)|Follower]]
||Unknown, uploaded by [[User:Slik Swindlehurst|Slik Swindlehurst]]
||Makes an object follow the nearest person. Do not use for [[grief|griefing]].
|-
||[[GA Event Notifier]]
||[[User:Victor Hua|Victor Hua]]
||Gathers seven days event data from a Google calendar and display it through a simple interface. The lsl script can access several calendars at once through seperate php files. One file per calendar. Host the included php on your own web server.
|-
||[[Geometric|Geometric Library]]
||Community Project
||A substantial amount of various geometric functions for intersection and other purposes of 3D maths.
|-
||[[Get Profile Picture]]
||[[User:Valentine Foxdale|Valentine Foxdale]]
||Sets the texture of the object to profile picture of the person that touches ot
|-
||[[GetTimestampOffset]]
||[[User:Siann_Beck|Siann Beck]]
||Returns [[llGetTimestamp]]() with an hour offset.
|-
||[[Give InvItem every n hours]]
||[[User:Criz Collins|Criz Collins]]
||Will give an inventory item on touch only every n hours, even if somebody touches the object more than once.
|-
||[[Give random object]]
||[[User:Emmas Seetan|Emmas Seetan]]
||Touch to receive a random object in the prim's inventory
|-
||[[Google Charts]]
||[[User:Dedric Mauriac|Dedric Mauriac]]
||Create links to display raw data as a chart image.
|-
||[[Google_Translator]]
||[[User:Ugleh Ulrik|Ugleh Ulrik]]
||Translates spanish to english, and its simple to make it any other way.
|-
||[[Go transparent when walking]]
||[[User:Emmas Seetan|Emmas Seetan]]
||An attachment that goes invisible when you walk and visible when you don't walk.
|-
||[[Group Authorization]]
||[[User:Chase Quinnell|Chase Quinnell]]
||Checks to see if object is set to appropriate group (checks by [[Group key finder|group key]])
|-
||[[Group Information v1.0]]
||[[User:Tyrennic Rivera|Tyrennic Rivera]]
||When clicked the prim will show group information (set on the prim) from the official Second Life Search page.
|-
||[[Group key finder]]
||[[User:Emmas Seetan|Emmas Seetan]]
||Touch to find the key of the group
|-
||[[Group Privacy]]
||[[User:Chance Unknown|Chance Unknown]]
||Security device to insure members of a group can have a private area. Deactivates when nobody present.
|-
||[[Hello Avatar]]
||Linden Lab
||SL's default script.
|-
||[[Hello Avatar Companion]]
||[[Chase Quinnell]]
||Companion to the original [[Hello Avatar]] script
|-
||[[Hierarchics]]
||[[User:Nexii Malthus|Nexii Malthus]]
|| Advanced script to create an efficient self-aware hierarchic structure.
|-
||[[Hierarchics2]]
||[[User:Nexii Malthus|Nexii Malthus]]
|| Second generation, one script per object. Only two functions, can be embedded in others. Uses the new [[llSetLinkPrimitiveParamsFast]]/[[llGetLinkPrimitiveParams]] functions.
|-
||[[User:Rolig_Loon/High-Capacity_Greeter-Counter|High-Capacity Greeter-Counter]]
||[[User:Rolig Loon|Rolig Loon]]
||Uses a memory compression algorithm to store hashed visitor UUID's in a string instead of using a list.
|-
||[[Holodeck]]
||[[User:Revolution Perenti|Revolution Perenti]]
||Home Rezzing System (Open Source).
|-
||[[HUD Dots Radar]]
||[[User:Cerise Sorbet|Cerise]]
||HUD target example, draws dots on the HUD over avatars in view.
|-
||[[Interpolation|Interpolation Library]]
||[[User:Nexii_Malthus|Nexii Malthus]]
||A small set of interpolation functions.
|-
||[[Intra-Region Update Server]]
||[[User:Emma_Nowhere|Emma Nowhere]]
||Centrally update objects such as Freeview screens or teleport pads within a region that are configured by notecards or contain modifiable objects or media assets.
|-
||[[Inventory_Based_Menu]]
||[[User:Revolution Perenti|Revolution Perenti]]
||Inventory Based Menu System.
|-
||[[iTunes RPC Email|iTunes RPC]]
||[[User:Fox Diller|Fox Diller]]
||iTunes RPC via LSL [[llEmail]] and [[llRemoteDataReply]].
|-
||[[Kilt Editor|Kilt / Skirt Editor]]
||[[User:Brangus Weir|Brangus Weir]]
|| This changes all the parameters of all the flexis in the link set in one swell foop!
|-
||[[Key Pad Door|Keypad Door]]
||[[User:Tdub Dowler|Tdub Dowler]]
|| Door and keypad with changeable code. Follow instructions carefully!
|-
||[[Last Sound System]]
||[[User:Babbage Linden|Babbage Linden]]
||An LSL [http://Last.fm Last.fm] client.
|-
||[[LibraryDisplayLandScreenshot]]
||[[User:Jon Desmoulins|Jon Desmoulins]]
||A modified version of LibraryDisplayProfilePic using the new [[PARCEL_DETAILS_ID]] Implemented in Server v1.36
|-
||[[User:Daemonika_Nightfire/Scripts/LinkNumber-List_in_llSetLinkPrimitiveParamsFast|LinkNumber-List_in_llSetLinkPrimitiveParamsFast]]
||[[User:Daemonika Nightfire|Daemonika Nightfire]]
||Changed several prims in linkset with the same parameters, with a list. Without separate llSetLinkPrimitiveParams for each prim. (ideal for show/hide effects)
|-
||[[Linkset resizer]]
||[[User:Maestro Linden|Maestro Linden]]
||Systematically rescales a linkset by moving and resizing each prim (by using [[llGetLinkPrimitiveParams]] and [[llSetLinkPrimitiveParamsFast]])
|-
||[[Linkset resizer with menu]]
||[[User:Brilliant Scientist|Brilliant Scientist]]
||A menu-driven script that rescales a linkset by moving and resizing the prims using [[llGetLinkPrimitiveParams]] and [[llSetLinkPrimitiveParamsFast]] functions. Based on [[Linkset resizer]].
|-
||[[Linkset Resizer 2]]
||[[User:Emma Nowhere|Emma Nowhere]]
||A more user-friendly resizer script designed for either drop-in use by the end-user or builder or for use in products. Based on [[Fix Small Prims]].
|-
||[[List2CSV]]
||[[User:Kunnis Basiat|Kunnis Basiat]]
||List2CSV & CSV2List that include preserving type and escaping characters.
|-
||[[list_cast]]
||[[User:Fractured Crystal|Fractured Crystal]]
||Casts a list of strings into the type they appear to be. Designed for preprocessing user input for feeding into [[llSetPrimitiveParams]]
|-
||[[Listener Script]]
||[[User:Emmas Seetan|Emmas Seetan]]
||Use to [[listen]] to other people's conversations (Like spying)
|-
||[[User:Void_Singer/Functions#List:_Find_Last_Index|List: Find Last Index]]
||[[User:Void Singer|Void Singer]]
||Returns the last index of searched item in a source list. (backwards version of [[llListFindList]])
|-
||[[User:Void_Singer/Functions#List:_Multi-Find_Index_.28First_or_Last.29|List: Multi Find]]
||[[User:Void Singer|Void Singer]]
||Returns the first found index of multiple search items in a list. (Multi-item version of [[llListFindList]]. Fwd and Rev versions included)
|-
||[[User:Void_Singer/Functions#List:_Get_Reverse_Order|List: Reverse]]
||[[User:Void Singer|Void Singer]]
||Returns an input List in reverse order
|-
||[[Load URL]]
||[[User:Emmas Seetan|Emmas Seetan]]
||Touch to get a dialog to visit the URL inside the script.
|-
||[[User:Kephra_Nurmi/lsDancemachine|lsDancemachine]]
||[[User:Kephra_Nurmi|Kephra Nurmi]]
|| Low lag client server dancemachine.
|-
||[[User:Kephra_Nurmi/lsDeejay|lsDeejay Home Edition]]
||[[User:Kephra_Nurmi|Kephra Nurmi]]
|| Client server media control for music, video, youtube, pictures, and texture animations.
|-
||[[User:Kephra_Nurmi/lsDialog|lsDialog]]
||[[User:Kephra_Nurmi|Kephra Nurmi]]
|| Universal notecard driven menu dialog system.
|-
||[[User:Kephra_Nurmi/lsDisplay|lsDisplay]]
||[[User:Kephra_Nurmi|Kephra Nurmi]]
|| Picture cycler with preloader.
|-
||[[User:Kephra_Nurmi/lsDistributor|lsDistributor]]
||[[User:Kephra_Nurmi|Kephra Nurmi]]
|| Simple 'try' and 'buy' vendor system.
|-
||[[LSL_languageAPI]]
||[[User:Gypsy paz|Gypsy Paz]]
||Multi-lingual API from notecard based language files
|-
||[[Mandelbrot Explorer]]
||[[User:Babbage Linden|Babbage Linden]]
||An interactive fractal explorer.
|-
||[[Materialization Effects]]
||[[User:Overbrain Unplugged|Overbrain Unplugged]]
|| Special effects to add to rezzing events to simulate a teleportation or materialization.
|-
||[[Merge Sort]]
||[[User:Xaviar Czervik|Xaviar Czervik]]
||Implements a Merge Sort in LSL, however this code is 300(ish) times slower than [[llListSort]]. Don't use this in a script!
|-
||[[Minesweeper]]
||[[User:Xaviar Czervik|Xaviar Czervik]]
||A simple minesweeper game.
|-
||[[Morse Code]]
||{{User|Bobbyb30 Swashbuckler}}
||A script that allows for the conversion to and from morse code and can "play" morse code.
|-
||[[Multi-displays Texture Cycler]]
||[[User:Nargus Asturias|Nargus Asturias]]
||A simple texture rotator designed for multiple display screens. With delay between each screen AND delay between each loop.
|-
||[[Multi Item Rezzer|Multi Item Rezzer]]
||[[User:Jesse Barnett|Jesse Barnett]]
||A rework of my old High Altitude Rezzer. Place the objects that you wish to choose from to be rezzed inside. Sit on the rezzer and pick the item and the height. It will go to target height and rez the object.
|-
||[[Multirezzer|Multirezzer (on collision)]]
||[[User:Beet Streeter|Beet Streeter]]
||Spawns up to 10 objects when the object containing the script collides with a user.
|-
||[[Name2Key in LSL]]
||[[User:Maeva Anatine|Maeva Anatine]]
||Get the Name2Key feature inside your scripts. Works even on lastly subscribed avatars.
|-
||[[No Auto-Return]]
||[[User:Bellla Clarity|Bella Clarity]]
||To stop your long and hard builds from getting returned in sandboxes (''only single prims, though!'').
|-
||[[No Auto-Return NR]]
||[[User:Jor3l Boa|Jor3l Boa]]
||This really works (29-05-09), needs a nearby region to do the trick and avoid auto return. (Tested on Blue and Rausch)
|-
||[[No Auto-Return (Multi)]]
||[[User:Xaviar Czervik|Xaviar Czervik]]
||A revision of Bella's that works for multi-prim objects.
|-
||[[No Limit Teleporter]]
||[[User:Morgam Biedermann|Morgam Biedermann]]
||Teleport to infinite altitudes (up to 4096m)
|-
||[[Object Size]]
||[[User:Chase Quinnell|Chase Quinnell]]
||Gets the dimensions and footprint of a linkset
|-
||[[Object to Data v1.3|Object to Data]]
||[[User:Xaviar Czervik|Xaviar Czervik]]
||Turns an object into text (and back). Allows people to transfer objects through notecards (or otherwise).
|-
||[[Online Indicator|Online Indicator]]
||[[User:Kristy Fanshaw|Kristy Fanshaw]]
||Will show if the user is online or not. Displays users profile picture and allows to send IM's to user. Also gives a link to open the users profile
|-
||[[Open Group Join]]
||[[User:Alicia Stella|Alicia Stella]]
||User Touches Object to Join Group from Group Info window, (no bot.)
|-
||[[Open Prim Animator]]
||[[User:Todd Borst|Todd Borst]]
||Single script prim animation tool. Menu driven, easy to use.
|-
||[[Open Zyngo Skin Installer]]
||[[User:Tmzasz Luminos|Tmzasz Luminos]]
||A Simple Script designed to install skins on the popular Skill machines.
|-
||[[One Script, many doors]]
||[[User:Kyrah Abattoir|Kyrah Abattoir]]
||Door script able to manage more than 50 linked doors from a single script instance.
|-
||[[ParseString2List]]
||[[User:Strife Onizuka|Strife Onizuka]]
||Same as [[llParseString2List]] and [[llParseStringKeepNulls]], but not limited to 8 spacers or separators. Thus substitute a call to the [[llParseString2List]] and [[llParseStringKeepNulls]] functions by a call to [[Parse_String_To_List|ParseString2List]] whenever you have more than 8 separators or more than 8 spacers.
|-
||[[Password Generator]]
||[[User:Syntrax Canucci|Syntrax Canucci]]
||This is an over-complicated, semi-complex password generator, which goes through multiple steps.
|-
||[[Pathfinder]]
||[[User:Babbage Linden|Babbage Linden]]
||A potential field based pathfinding library.
|-
||[[Personal ATM Machine]]
||[[User:Jessikiti Nikitin|Jessikiti Nikitin]]
||Allows deposits and withdrawals into another of your accounts, without the account being logged in.
|-
||[[Phantom Child]]
||[[User:Aeron Kohime|Aeron Kohime]]
||Causes a child in a link set to become phantom without the entire object becoming phantom.
|-
||[[PhysicsLib]]
||[[User:Nexii Malthus|Nexii Malthus]]
|| Interesting set of fun physics functions.
|-
||[[Play and Loop Sound]]
||[[User:Bellla Clarity|Bella Clarity]]
||Very short and simple script; plays and loops a sound in an object.
|-
||[[Posing stand|Posing Stand]]
||[[User:Bellla Clarity|Bella Clarity]]
||Just a pose script to edit [[attachments]] more easily.
|-
||[[PosJump]]
||[[User:Uchi Desmoulins|Uchi Desmoulins]]
||A much more efficient alternative to the popular [[warpPos]] function for bypassing 10m distance-moved limitations.
|-
||[[Prefix Calculator]]
||[[User:Xaviar Czervik|Xaviar Czervik]]
|| A calculator that evaluates expressions in prefix notation.
<code>+ 3 4 = 5. * + 1 2 + 3 4 = 14.</code>
|-
||[[Progress Bar]]
||[[User:Nexii Malthus|Nexii Malthus]]
|| Flexible and powerful little function for creating progress bars useful in hovertext.
|-
||[[Pseudo-random Number Generator]]
||[[User:Xaviar Czervik|Xaviar Czervik]]
||Generates a Pseudo-random number between -0x7FFFFFFF and 0x7FFFFFFF
|-
||[[User:Rolig_Loon/Quiz_From_Notecard|Quiz From Notecard]]
||[[User:Rolig Loon|Rolig Loon]]
||A multiple-choice testing script that reads questions and answer choices from a notecard and presents them in dialog boxes.
|-
||[[Rainbow_palette]]
||[[User:Rui Clary|Rui Clary]]
||Build a color picker, using only one prim, and a few lines of code.
|-
||[[Random Gaussian Number Generator]]
||[[User:Vlad Davidson|Vlad Davidson]]
||Generates a random number drawn from a normal (Gaussian; bell-curve) distribution, based on a specified mean/stdev
|-
||[[Random AV Profile Projector]]
||[[User:Debbie Trilling|Debbie Trilling]]
||Randomly selects an AV from a crowd & then projects their profile picture as a 'holographic' image
|-
||[[Random Object Vendor]]
||[[User:CodeBastard Redgrave|CodeBastard Redgrave]]
||Simple vendor that gives out random objects when paid the right amount
|-
||[[Random Password Generator]]
||[[User:Jor3l Boa|Jor3l Boa]]
||Generate Random passwords based on String Length.
|-
||[[RavText]]
||[[User:Ravenous Dingo|Ravenous Dingo]]
||An alternate to XyText. This is a lightweight, multiple font 10 character text display system. It only supports uppercase alphanumeric text and a few special characters, but it is very fast, renders quickly and supports multiple fonts. It is meant for specialized use when all that is desired is basic, fast text display and the extra "bells and whistles" are not needed.
|-
||[[User:PixelProphet Lane/Scripts#Real Object Inventory To Dialog|Real Object Inventory To Dialog]]
||[[User:PixelProphet Lane|PixelProphet Lane]]
||Display any amount of items contained in an Object in a Dialog, regardless of item name length.
|-
||[[RentalBoxv1|Rental Box, Simply]]
||[[User:Sendao Goodman|Sendao Goodman]]
||Simple explanation of how to make rental boxes.
|-
||[[Rental Cube]]
||[[User:Hank Ramos|Hank Ramos]]
||Simple cube for renting out a space.
|-
||[[Remote Texture Loader]]
||{{User|Bobbyb30 Swashbuckler}}
||A set of scripts for remotely loading textures within a sim. This means that a single "texture server" can manage multiple changing billboards within a sim.
|-
||[[Say Region Frames Per Second|Region Frames Per Second]]
||[[User:Heymeriou Mystakidou|Heymariou Mystakidou]]
|| Says the region name and frames per second out loud on command.
|-
||[[Resizer multi-prims|Resizer multi-prims]]
||[[User:Christy Mansbridge|Christy Mansbridge]]
||1 Mono script to resize object (1 to 256 prims) by blue menu. Avoid risk to break the build by increasing link distance.
|-
||[[sbDialog]]
||[[User:Siann_Beck|Siann Beck]]
||A simple replacement function for [[llDialog]]. It re-orders the button list so that the button values, as passed to it, display left-to-right, top-to-bottom. It also opens a [[llListen|listen]] on the specified channel, and returns the handle.
|-
||[[Scheduler]]
||[[User:Haravikk Mistral|Haravikk Mistral]]
||Schedule multiple events using a single script timer
|-
||[[Scheme_Interpreter|Scheme Interpreter]]
||[[User:Xaviar Czervik|Xaviar Czervik]]
||A scheme interpreter capable of handling most scheme expressions, including lambda and lists.
|-
||[[Script Override Functions]]
||[[User:Revolution Perenti|Revolution Perenti]]
||bypass default strings, integer etc in chat channel.
|-
||[[Scripted Attachment Detector.lsl|Scripted Attachment Detector]]
||{{User|Bobbyb30 Swashbuckler}}
||A script that will display avatars wearing scripted attatchments in hovertext. This may be worn as an hud or rezzed.
|-
||[[Self Upgrading Script Enhanced]]
||[[User:Cron Stardust|Cron Stardust]]
||Keeps only latest version of the script on prim (even with multiple adds of the same script!)
|-
||[[Sensor Visualizer]]
||[[User:Cerise Sorbet|Cerise Sorbet]]
||Shows the size and shape you get with [[llSensor]] range and arc parameters
|-
||[[Serverless Key Exchange]]
||[[User:Sendao Goodman|Sendao Goodman]]
||Maintains a network of object keys without using an external server.
|-
||[[SHA1|SHA1 Hash]]
||[[User:Strife Onizuka|Strife Onizuka]]
||Performs a SHA1 Hash on an input text. Similar to MD5 only (slightly) more secure.
|-
||[[Shoutcast - radio controller v0.3 (remake of similar scripts)]]
||[[User:Flennan Roffo|Logic Scripts]]
||Control your shoutcast radio stations with this shoutcast controller. Uses notecard for info about genres and stations and menu to select the station. Sends info to Xytext display.
|-
||[[User:PixelProphet Lane/Scripts#Show Agent Script Count and memory|Show Agent Script Count and memory]]
||[[User:PixelProphet Lane|PixelProphet Lane]]
||Fast and efficient method to display the amount of scripts and memory usage for an agent
|-
||[[Sim Map Particle Projector]]
||[[User:Jesse Barnett|Jesse Barnett]]
||Displays a floating map of the sim the script is in.
|-
||[[Sim Restart Logger]]
||[[User:Kyrah Abattoir|Kyrah Abattoir]]
||Counts region restarts and displays log of last 9 restarts together with region FPS and dilation.
|-
||[[Simple Elevator in a Box]]
||[[User:Hank Ramos|Hank Ramos]]
||Simple elevator example.
|-
||[[Simple Pay Door]]
||[[User:Giygas Static|Giygas Static]]
||Simple door you pay to get access.
|-
||[[Skillingo AntiHack Script]]
||[[User:Tmzasz Luminos|Tmzasz Luminos]]
||A simple Protection script for skillingo thats modifyable to work with other machines.
|-
||[[Skunk Money]]
||[[User:Hank Ramos|Hank Ramos]]
||Fun gambling machine of yesteryear, which only supports freeplay now due to SL regulations against gambling.
|-
||[[SLateIt]]
||[[User:Babbage Linden|Babbage Linden]]
||An augmented virtual reality HUD.
|-
||[[SLetanque]]
||[[User:Babbage Linden|Babbage Linden]]
||An LSL petanque game.
|-
||[[SLURL HUD]]
||[[User:CodeBastard Redgrave|CodeBastard Redgrave]]
||Touch this HUD to get a SLURL through IM, email and floating text.
|-
||[[BuildSlurl (NewAge)]]
||[[User:Archile Azalee|Archile Azalee]]
||A way to create a SLurl in a single function BuildSlurl
|-
||[[SL Mail V1.2]]
||[[User:Flennan Roffo|Flennan Roffo]]
||Second Life mail client V1.2 (released sept'07). Send and receive mail from within Second Life from and to any address. With Address Book function and many chat commands. V1.3 is upcoming soon!
|-
||[[SL_NTPoHTTP_v1.1_client|SL NTPoHTTP client]]
|[[User:SignpostMarv Martin|SignpostMarv Martin]]
||Second Life Needs Time Parsing over Hyper Text Transfer Protocol
Emulates the function of [[llGetWallclock]] for any timezone by using SLOpenID's SLNTPoHTTP service. Also supports ISO 8601 and RFC 2822 timestamps. Script is dependent upon an external service operated by the author!
|-
||[[Smooth Rotating Door]]
|[[User:Toy Wylie|Toy Wylie]]
||A script for doors that open and close smoothly using llTargetOmega
|-
||[[Smooth Sliding Door]]
|[[User:SimonT Quinnell|SimonT Quinnell]]
||A script for sliding doors that open and close smoothly using [[llMoveToTarget]]. Asjusts for prim orientation.
|-
||[[Speed Tester]]
||{{User|Bobbyb30 Swashbuckler}}
||Similar to the [[Efficiency Tester]], this script allows you to test the speed of a particular function or snippet with multiple trials giving min/max/avg/median and the standard deviation.
|-
||[[Spiral Staircase Generator]]
|[[User:Meyermagic Salome|Meyermagic Salome]]
||Generates nice looking spiral staircases without much hassle.
|-
||[[Static URL's for HTTP-In Service|Static_URLs]]
||[[User:Jor3l Boa|Jor3l Boa]]
||How to generate a static url for HTTP-In temporal limitations.
|-
||[[String Compare]]
||[[User:Xaviar Czervik|Xaviar Czervik]]
||Compares two strings and reliably returns either 1, -1, or 0 if they are the same.
|-
||[[Synchronize]]
||[[User:Cay Trudeau|Cay Trudeau]]
||Makes synchronized start to a task on even/odd seconds
|-
||[[User:Void_Singer/Functions#String:_Find_Last_Index|String: Reverse]]
||[[User:Void Singer|Void Singer]]
||Returns an input string in reverse order
|-
||[[User:Void_Singer/Functions#String:_Get_Reverse_Order|String: Last Index]]
||[[User:Void Singer|Void Singer]]
||Returns the last index of search found in string (the backward equivalent of [[llSubStringIndex]])
|-
||[[Tail Messages (NewAge)]]
||[[User:Asia Snowfall|Asia Snowfall]]
||A super nice easy to use script for those non-scripters out there! NewAge coding has done it again where you no longer need to scroll up and down adding buttons and adding messages, Features a tag system (you'll see what i mean :P)
|-
||[[Teleport HUD]]
||[[User:Jesse Barnett|Jesse Barnett]]
||WORKS TO 4096 METERS!! Very user friendly teleport HUD. Add destinations by touching "Add" & naming destination in chat. Automatically gets sim name and coordinates. Will only display the destinations in the sim you are currently in. Demonstrates more advanced list manipulation and stride functions.
|-
||[[User:Void_Singer/Programs#v7-D_Enh._Landmark-2-Map|Teleporter (landmark based)]]
||[[User:Void_Singer|Void_Singer]]
||Uses Landmarks to offer map teleports. Works as Hud or inworld objects, just drop in landmarks and go.
|-
||[[Text_Scroller|Text Scroller]]
||[[User:Fred_Gandt|Fred Gandt]]
||A simple text display object that scrolls text (applied as a texture) from right to left (like ''those'' LED signs) in a continuous loop.
|-
||[[Bobbyb's texture changer|Texture Changers]]
||{{User|Bobbyb30 Swashbuckler}}
||A collection of texture changing scripts.
|-
||[[Texture Menu Management|Texture Management]]
||[[User:Revolution Perenti|Revolution Perenti]]
||Dialog Menu based Texture Selection.
|-
||[[Tic Tac Toe]]
||[[User:CG Linden|CG Linden]]
||Step by step demo on how to implement a larger scripting project
|-
||[[TightList]]
||[[User:Strife Onizuka|Revolution Perenti]]
||Tight List is a family of functions for encoding lists as strings and then decoding them back into lists.
There are two flavors: TightList and TightListType. TightListType preserves types and uses a 6 char header, while TightList uses a 1 char header that doesn't preserve type.
|-
||[[Timer Module]]
||[[User:Isabelle Aquitaine|Isabelle Aquitaine]]
||Manage multiple timers via linked messages.
|-
||[[User:Void_Singer/Functions#Unix_time_code_to_list_format|Timestamp:<br>Unix time code to list format]]
||[[User:Void Singer|Void Singer]]
||converts Unix timestamps to their [Y, M, D, h, m, s] equivalents (ex: 1234567890 to [2009, 2, 13, 3, 31, 30])
|-
||[[User:Void_Singer/Functions#List_format_to_Unix_time_code.|Timestamp:<br>List format to Unix time code]]
||[[User:Void Singer|Void Singer]]
||converts [Y, M, D, h, m, s] timestamps to their Unix equivalents (ex: [2009, 2, 13, 3, 31, 30] to 1234567890)
|-
||[[User:Void_Singer/Functions#Weekday_from_Unix_timestamp|Timestamp:<br>Weekday from Unix timestamp]]
||[[User:Void Singer|Void Singer]]
||Gets weekday from Unix timestamps (ex: "Friday" from 1234567890)
|-
||[[User:Void_Singer/Functions#Weekday_from_.28_Y.2C_M.2C_D_.29_format|Timestamp:<br>Weekday from (Y, M, D) format]]
||[[User:Void Singer|Void Singer]]
||Gets weekday from (Y, M, D) timestamps (ex: "Friday" from (2009, 2, 13))
|-
||[[Touch A Quote]]
||[[User:CodeBastard Redgrave|CodeBastard Redgrave]]
||Touch an object to read quotes sequentially from a notecard
|-
||[[Touring Balloon]]
||[[User:Hank Ramos|Hank Ramos]]
||Automated touring balloon with many options from long ago. Always seems to work on one SL release, and not the other.
|-
||[[Under Age Boot]]
|[[User:Chance Unknown|Chance Unknown]]
||Security device example to teleport home accounts below a minimum age limit; can be useful in combating free griefer accounts.
|-
||[[User:Rolig_Loon/UNDO_PosRot|UNDO_PosRot]]
||[[User:Rolig Loon|Rolig Loon]]
||Allows user to undo position and rotation changes that have been made "manually" to any or all prims in a linkset.
|-
||[[Universal Translator]]
|[[User:Hank Ramos|Hank Ramos]]
||Chat listener that handles seamless translation of public chat between 50+ written languages without the need for configuration. Handles numerous avatars, auto-detects languages, and works together with multiple copies of translators to spread-workload using a sophisticated back-end communications sub-system.
|-
||[[Unix2DateTime]]
|[[User:Flennan Roffo|Flennan Roffo]]
||Conversion from Unix time ([[llGetUnixTime]]()) to date and time string and vice versa.
|-
||[[Unmutable Descript Nagger]]
|[[User:Bobbyb30 Zohari|Bobbyb30 Zohari]]
||To nag avatars to take off their scripted attatchments.
|-
||[[Unpacker On Rez (NewAge)]]
|[[User:Asia Snowfall|Asia Snowfall]]
||A very simple to use script for all you creators out there, This script will enable you to send out boxed items and make it easier for users to unpack, Also features auto die on completion. Very simple to configure!
|-
||[[Unpacker On Touch (NewAge)]]
|[[User:Asia Snowfall|Asia Snowfall]]
||Exactly like Unpacker On Rez, But changed some things about to make it Unpack On Touch
|-
||[[Update distributor]]
|[[User:Dale Innis|Dale Innis]]
||Distribute an object (like a project update) to a list of people named in a notecard.
|-
||[[UUID2Channel]]
||[[User:Project Neox|Project Neox]]
||Optimised version of the original key2channel generators.
|-
||[[UUID Song Generator]]
||{{User|Sendao Goodman}}
||Translates a UUID into a simple song and plays it.
|-
||[[VirtualID_URLMap|VirtualID URL Mapper for HTTP-in]]
|[[User:Cenji Neutra|Cenji Neutra]]
||A script showing how to setup a static URL of the form <your-alias>.obj.virtualid.info which maps to the dynamic HTTP-in URL LSL generates and keeps it up-to-date.
|-
||[[User:Void_Singer/Programs#v7-D_Advanced_Visitor_Greeter|Visitor Greeter]]
|[[User:Void_Singer|Void_Singer]]
||Reduced spam visitor greeter, highly configurable, easy to modify.
|-
||[[Visitor Logger (Web/Basic) ]]
|[[User:Buddy Sprocket|Buddy Sprocket]]
||A very basic visitor logger - log visitors in SL to a text file on your web-site.
|-
||[[Vote Simple]]
|[[User:JB_Kraft|JB Kraft]]
||Simple vote collector. One avi, one vote.
|-
||[[Walking Sound (NewAge)]]
|[[User:Asia Snowfall|Asia Snowfall]]
||Very powerful walking sound script, Featuring customer ability to add their own sounds with the API Sound Feature!
|-
||[[WarpPos]]
|[[User:Keknehv Psaltery|Keknehv Psaltery]]
||Non-physical movement without the 10m limit.
|-
||[[Wiki3DBuilder]] [[Wiki3DBuilder1.0]]
||[[User:Salahzar Stenvaag|Salahzar Stenvaag]]
||Allows a group of people to collectively build up complex 3D mindmaps with connected concepts. Uses particles for connections and low prim usage. Nodes can be textured, colored, changed form size moved collectively by everybody and can distribute notecards, landmarks, URL, objects, textures. I provide two version 0.1 and 1.0 and probably next version will communicate with moodle and sloodle external websites.
|-
||[[Window Control]]
||[[User:Emmas Seetan|Emmas Seetan]]
||For window opacity, helpful for buildings.
|-
||[[WHMcs SecondLife plugin]]
|[[User:Alicia Sautereau|Alicia Sautereau]]
||Linden Dollar payment plugin for the WHMcs hosting portal.
|-
||[[XTEA Strong Encryption Implementation]]
||[[User:Morse Dillon|Morse Dillon]]
||An LSL implementation of XTEA (eXtended Tiny Encryption Algorithm). This is the first known public release of a 'real' strong encryption implementation in LSL and is released under the GNU General Public License (GPL).
|-
||[[XyText 1.5|XyText]]
||[[User:Xylor Baysklef|Xylor Baysklef]]
|| Display text (up to 10 characters) on a prim. Use as many prims as desired.
|-
||[[XyyyyzText|XyyyyzText]]
||[[User:Criz Collins|Criz Collins]]
|| Display text (up to 10 characters) on a prim. Displays different text for each line instead of one single text, that will be broken into the next lines. Watch here for what that means: http://screencast.com/t/1wMLujLcEO
|-
||[[XyzzyText|XyzzyText]]
||[[User:Thraxis Epsilon|Thraxis Epsilon]] and [[User:Gigs Taggart|Gigs Taggart]]
|| Display text (up to 10 characters) on a prim. Way more efficient than XyText.
|-
||[[Youtube TV]]
||[[User:Morgam Biedermann|Morgam Biedermann]]
||Watch your favorite Youtube videos / auto set the texture to the parcel media texture.
|-
||[[Zero Lag Poseball]]
||[[User:Jippen Faddoul|Jippen Faddoul]] and [[User:Daemonika Nightfire|Daemonika Nightfire]]
||A simple poseball with no lag
|-
||[[Input number of seconds, get a string back that shows days, hours, minutes, seconds]]
||[[User:Fire Centaur|Fire Centaur]]
||Returns a string that displays days, hours, seconds
|-
||[[Random Giver Prim]]
||[[User:Damian Darkwyr|Damian Darkwyr]]
||A randomized item giver with a game-like twist
|-
||[[Client Specific Contents Giver]]
||[[User:Damian Darkwyr|Damian Darkwyr]]
||Give Contents only to users of a specific Client. Such as Phoenix, CoolVL or 2.0
|}

==Support Script Library==
These are scripts in other languages, intended to be run on other systems that support scripts written in LSL

{| class="sortable" {{Prettytable}}
|- {{Hl2}}
! '''Name'''
! '''Creator'''
! '''Description'''
|-
|| [[User:Ina Centaur/UUID/calimg.api|Calendar Image UUID API]]
|| [[User:Ina Centaur|Ina Centaur]]
|| API that gives the UUID of an image of a calendar image give month and year arguments.
|-
||[[HTTP Post request to a PHP server]]
||[[User:Corto Maltese|Corto Maltese]]
|| This small library allows you to make simple POST requests to your website. The libraries allow you to get your request through the variable $_POST on the server. It also include a basic security mechanism aimed to stop hacking. Comprises of LSL client script and PHP server script.
|-
|| [[User:Ina Centaur/PHP/k2n.php|Key2Name.php]]
|| [[User:Ina Centaur|Ina Centaur]]
|| Get Avatar's Name using Second Life search service. (like in LSL Key2Name)
|-
|| [[Lame_Object_DNS_and_Cross_Sim_Messaging|Lame Object DNS and Cross Sim Messaging]]
|| [[User:Liandra Ceawlin|Liandra Ceawlin]]
|| Simple, cheeseball method of doing cross-sim communications with http-in and an external object DNS service.
|-
|| [[User:SignpostMarv Martin/PHP/llXorBase64StringsCorrect|llXorBase64StringsCorrect]]
|| [[User:SignpostMarv Martin|SignpostMarv Martin]]
|| An implementation of [[llXorBase64StringsCorrect]] in PHP- should be useful if you're using llXorBase64StringsCorrect to do cryptography work in LSL2 and posting it out to the web via [[llHTTPRequest]].
|-
|| [[User:SignpostMarv Martin/PHP/lsl fu.php|lsl_fu.php]]
|| [[User:SignpostMarv Martin|SignpostMarv Martin]]
|| A basic OOP'd PHP Class containing VeloxSeverine's $_POST fixer and Marv's own eccentric ideas for "fixing" things.
|-
|| [[User:Jor3l Boa/PHP/n2k.php|Name2Key.php]]
|| [[User:Jor3l Boa|Jor3l Boa]]
|| Get Avatar's UUID using Second Life search service. (like in LSL Name2Key)
|-
|| [[Public_Object_DNS|Public Object DNS]]
|| [[User:Liandra Ceawlin|Liandra Ceawlin]]
|| Public object DNS-like system running on GAE, for http-in. Hopefully scalable enough for wide-spread usage.
|-
|| Silo
|| [[User:Zero_Linden|Zero Linden]]
|| General purpose data store in PHP. Use this to persist arbitrary data from LSL via [[llHTTPRequest]]. See:
* [http://www.notabene-sl.com/misc/silo-README.txt README] file
* [http://www.notabene-sl.com/misc/silo.tgz silo.tgz] tarball
* forum post [http://forums-archive.secondlife.com/54/69/119570/1.html Announcement].
|-
||[[Silverday ObjectDNS]]
||[[User:Till Stirling|Till Stirling]]
||Dynamic Object-DNS-System to provide dynamic mapping of LSL-URLs to persistent domains. Features include redirect service, password protected domains, write protected domains, LSL-API for all necessary functions, optional web-interface.
|-
|| [http://aubretec.com/products/sldb SLDB]
|| [[User:Luc Aubret|Luc Aubret]]
|| Flexible web database storage using PHP/MySQL. Used to store per-user field/value pairs from in-world objects using [[llHTTPRequest]].
* [http://aubretec.com/support/manuals/sldbkit/ Implementation Guide]
* [http://aubretec.com/wp-content/uploads/2009/05/sldb.zip Download] (.zip, 12kb)
|}

== See Also ==
<div style="padding: 0.5em">
'''Articles'''
*[[:Category:LSL Examples| Examples]]

</div></div>

{{LSLC|}}

WhoAddedWhat

Flennan Roffo — Sat, 05 Feb 2011 21:43:39 GMT

Flennan Roffo: small typing error corrected

To enable you to tell what has been added to a script in the event of '''CHANGED_ALLOWED_DROP''' you can use the following code:

<lsl>// Scripted by Laronzo Fitzgerald

list content[]; // a list of all items already added to the object

if (change & (CHANGED_ALLOWED_DROP | CHANGED_INVENTORY))
{
integer n = llGetInventoryNumber(INVENTORY_ALL);

while(n)
{
integer valid = llGetListLength(contents);
if(valid != 0)
{
string added = llGetInventoryName(INVENTORY_ALL, --n);
integer index = llListFindList(content, [added]);
if(!(~index))
{
integer type = llGetInventoryType(added);

if(type != 10 && (string)type != "") // don't add the object's script to the list of items!
{
content += added; // add the new item to the checklist of inventory items
// Do anything else you want related to the new item here
}
}
}
}
}</lsl>

[[llAllowInventoryDrop]]

SL Mail V1.2

Flennan Roffo — Tue, 25 Jan 2011 23:56:47 GMT

Flennan Roffo: /* Second Life mail client */

{{LSL Header}} __NOTOC__
<div id="box">
='''Second Life mail client'''=
<div style="padding: 0.5em">

'''Send and receive email from within Second Life from and to any address.'''

Implemented with Address Book function (in a notecard named 'Address Book') to stores addresses by name and to compile groups of named addresses. Current version is stand-alone (no server functionality) and uses chat commands only.

[[Image:BannerSLMail.jpg]]

URL: [http://www.slmail.info slmail.info] <strike>(website coming soon!)</strike> <b>url slmail.info no longer used for SL Mail, and was taken for some other purpose.</b>

</div>
</div>

<div id="box">

=Release Notes V1.2=
<div style="padding: 0.5em">
SL Mail V1.2 Release notes (edition 2, 4 sept 2007)
</div>
</div>

<div id="box">
=='''LICENCE INFO'''==
<div style="padding: 0.5em">
SL Mail V1.2 is released under GNU free software licence
</div>
</div>

<div id="box">
=='''PRODUCTION & MAINTANENCE'''==
<div style="padding: 0.5em">
by Logic Scripted Products and Script Services

[[Image:Logicbanner1.jpg]]

URL: [http://www.logicscripts.org logicscripts.org] (website coming soon!)

SLurl:
{{SLurl
|region=Peacock Park
|x=189
|y=226
|z=69
|title=Logic Scripted products and Script services
|}}

Contact: [[User:Flennan Roffo|Flennan Roffo]]

Email: [mailto:info@slmail.info '''info'''] or [mailto:Flennan.Roffo@slmail.info '''Flennan Roffo''']
'''* The slmail.info URL appears to not be registered and this information appears to be out of date. *'''
</div>
</div>

<div id="box">

=='''DESCRIPTION'''==
<div style="padding: 0.5em">
SL Mail V1.2 is a simple tool to send and receive mail from within SL.
You can either compose a message yourself using chat recording, or choose a notecard from inventory to send. The Address Book functionality allows you to use short names for mail recipients stored in a notecard. The current version does not have a persisent mail address. Watch out for the upcoming next release (V1.3) which will facilitate persisent in-world mail addresses and will be enhanced with many new features (See: Requests For Change (RFC).
</div>
</div>

<div id="box">

=='''COMMANDS'''==
<div style="padding: 0.5em">
{| {{Prettytable}}
|-
|{{Hl2}}| '''Command'''
|{{Hl2}}| '''Description'''
|-
||'''@Help'''
||Show Help about available commands
|-
||'''@Record'''
||Starts a chat recording (for owner only).
|-
||'''@Stop'''
||Stops the chat recording without sending
|-
||'''@Continue'''
||Continues a previously stopped chat recording. Lines will be appended to you recording buffer.
|-
||'''@Show'''
||Shows the content of the recording buffer.
|-
||'''@Send'''
||If recording, stops the recording, and sends the mail (need to supply mail address and subject first!)
|-
||'''@Send <notecard>'''
||Sends the content of the notecard, instead of the chat recording.
|-
||'''@Ignore'''
||Ignores your current chat recording.
|-
||'''@Mail <address>'''
||Define the mail address to send to.
|-
||'''@Mail'''
||Shows the current mail address to send to.
|-
||'''@Subject <subject>'''
||Define the subject of the mail.
|-
||'''@Subject'''
||Shows the current mail subject.
|-
||'''@Home <address>'''
||Set the HOME address of the owner (mail will be forwarder to this address when offline).
|-
||'''@Home'''
||Show the HOME address.
|-
||'''@Info'''
||Shows the mail address the object this script is running in uses (e.g. <object-key>@lsl.secondlife.com).
|-
||'''@Read'''
||Reads the current message from the mail buffer (the mail buffer gets filled with mail you receive)
|-
||'''@Select <msg>'''
||Select a message number from the availabe messages in the mail buffer.
|-
||'''@Next'''
||Make next message the current message.
|-
||'''@Prev'''
||Make previous message the current message.
|-
||'''@First'''
||Make the first message the current message.
|-
||'''@Last'''
||Make the last message the current message.
|-
||'''@Clear'''
||Clear the mail buffer
|-
||'''@Delete'''
||Deletes only the current message
|-
||'''@Reply'''
||Starts a chat recording to reply to the current message. Mail adress and subject are filled in automatically.
|}

Note:

* Commands are case insensitive ("@read" == "@READ"). Arguments might not be case insensitive.
</div>
</div>

<div id="box">
=='''ADDRESS BOOK FORMAT'''==
<div style="padding: 0.5em">
A notecard of the name 'Address Book' is read during initialization which may contain Address Book items and Groups.
The notecard is split in two sections, which need to be defined in that particular order.

'''[ADDRESS BOOK]'''

Defines the section in which you can put names for mail addresses, like this:

'''Name1=account@thisdomain.com'''

'''Name2=user@otherdomain.com'''

etc.

'''[GROUP]'''

Define groups of previously defined names under a new name, like for instance:

'''MyGroup=Name1, Name2'''

Note that names of groups and individual mail adresses share the same namespace and must be unique.

So when you filled in your mail adresses in the Address Book, you can now use:

'''@Mail Name1'''

To send mail to <account@thisdomain.com>

or you can use

'''@Mail MyGroup'''

To send mail to <account@thisdomain.com> and <user@otherdomain.com>
Mails will be sent one after another.

Notes:

* Names for Addreses and Groups are case insensitive (e.g. "mary" == "MARY")

* The special address 'Self' can be used in commands where otherwise an address specification can be used. 'Self' is case insensitive (e.g. "self" == "SELF")

</div>
</div>

<div id="box">
=='''LIMITATIONS'''==
<div style="padding: 0.5em">
The current version is limited by the following:

* Chat recording lines are limited by the 255 byte limit

* Output of lines from the mail buffer are also limited by this 255 byte limit

* Incoming mail is limited to a 1000 (1024?) byte limit

* Outgoing mai is limited by a 4096 byte limit, which includes the standard mail header (region/location info on the first two lines)

We are making adjustments to this release to help overcome these limitations. At least the line lenght limit can be overcome by introducing a line continuation character (for example a hyphen '-') that when used at the end of a line appends the next line, so lines longer then 255 bytes are possible then.

To overcome the outgoing mail length limit, the mail can be broken textualy into parts, and each part can be send seperatedely, with an indication in the subject or in an introduced primary line of the mail body to indicate that the mail was split into parts.
For incoming mail and at least to receive mail from other SL Mail programs, a protocol will be introduced to receive mail in parts that are joined together after receiving them to form a single mail.

These enhancements will be made available in the next release (V1.3) of SL Mail
</div>
</div>

<div id="box">
=='''BUGS'''==
<div style="padding: 0.5em">
Report any bugs you find in this release to Logic (IM: Flennan Roffo).
</div>
</div>

<div id="box">
=='''REQUEST FOR CHANGE (RFC)'''==
<div style="padding: 0.5em">
Do you have additional wishes for enhancement of this product?
Contact Flennan Roffo and we will see if they can be implemented in the next release.

Existing RFC's are:

* Menu support for commands.

* Lines on incoming/outgoing mail longer than 255 bytes.

* Send messages longer than 4096 (minus SL mail header) bytes.

* Receive messages longer than 1024 bytes.

* Permanent mail addresses for the SL Mail client (like: <Flennan.Roffo@somedomain.sl>)

Add your RFC!
</div>
</div>

<div id="box">
=='''SL MAIL SUPPORT & DEVELOPMENT'''==
<div style="padding: 0.5em">

In-world join the group "SL Mail" for bug reports, feature requests, the latest SL Mail release, and notices about development issues.
</div>
</div>

<div id="box">

=Scripts=
</div>

<div id="box">
==Script: SL Mail v1.2==
<div style="padding: 0.5em;">
SL Mail core module which scans for incoming mail messages and executes commands used by the owner.
<lsl>
// SL Mail V1.2.lsl
// (c) 2007 Logic Scripted Products and Script Services
// Flennan Roffo

// VERSION
// Version: 1.2

// HISTORY
// Date Version Author Comment
// --------------------------------------------------------------------------------------
// 28 aug 2007 V 1.0 Flennan Roffo Created
//
// 1 sep 2007 V 1.1 Flennan Roffo @Reply empties the recording buffer.
// @Send while recording ends recording
// and sends the mail if a mail address
// and subject are supplied.
// Fixed incorrect date in Unix2DateTime.
// 3 sep 2007 V 1.2 Flennan Roffo Notification options:
// - When online, send an IM when mail is received.
// - When offline, send to HOME mail adress.
// Adressbook
// - Read adress book from config notecard.

// LICENCE
// This program is free software; you can redistribute it and/or
// modify it under the terms of the GNU General Public License
// as published by the Free Software Foundation; either version 2
// of the License, or (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
// (Also available at http://www.gnu.org/copyleft/gpl.html)

// DESCRIPTION
// Let's you record a message and sent to email and get messages and reply to messages.
// Must supply a valid mail adress and non-empty subject using chat commands.

// TODO:
// 1) Check for the maximum length of an email message (including newline and header).
// 2) Read adress book from notecard. *DONE*
// 3) Send incoming mail to personal mail adress when offline. *DONE*
// 4) Alert with an IM when online upon receiving new mail. *DONE*

string SL_MAIL_VERSION = "V 1.2";
string SL_MAIL_DATE = " 2 sep 2007";
integer ErrorFlag = FALSE;
list ScriptList = [ "SL Mail Help V1.2", "SL Mail AddressBook V1.2",
"SL Mail OnlineStatus V1.2", "SL Mail FetchNotecard V1.2" ];
string LSL_DOMAIN="lsl.secondlife.com";
integer StatusOnline=FALSE;

// Commands

string COMMAND_RECORD = "@RECORD";
string COMMAND_CONTINUE = "@CONTINUE";
string COMMAND_STOP = "@STOP";
string COMMAND_MAIL = "@MAIL";
string COMMAND_SUBJECT = "@SUBJECT";
string COMMAND_SEND = "@SEND";
string COMMAND_SEE = "@SEE";
string COMMAND_IGNORE = "@IGNORE";
string COMMAND_READ = "@READ";
string COMMAND_DELETE = "@DELETE";
string COMMAND_CLEAR = "@CLEAR";
string COMMAND_REPLY = "@REPLY";
string COMMAND_NEXT = "@NEXT";
string COMMAND_PREV = "@PREV";
string COMMAND_FIRST = "@FIRST";
string COMMAND_LAST = "@LAST";
string COMMAND_LIST = "@LIST";
string COMMAND_SELECT = "@SELECT";
string COMMAND_HELP = "@HELP";
string COMMAND_INFO = "@INFO";
string COMMAND_RESET = "@RESET";
string COMMAND_SHOW = "@SHOW";
string COMMAND_ON = "@ON";
string COMMAND_OFF = "@OFF";
string COMMAND_HOME = "@HOME";
string COMMAND_LOAD = "@LOAD";
string COMMAND_ADDRESS = "@ADDRESS";

// Recording

integer Recording = FALSE;

list ChatRecording=[];
integer NumLines=0;
integer Length=0;

list TimeList=[];
list AddressList=[];
list SubjectList=[];
list BodyList=[];
integer NumMessages=0;
integer CurrentMessage=-1;

float MAIL_FETCH_INTERVAL=5.0;

// Link Messages

integer MSG_HELP = 10000;
integer MSG_STATUS_ONLINE = 30000;
integer MSG_STATUS_OFFLINE = 30100;

integer MSG_MESSAGE_SETADDRESS = 90000;
integer MSG_MESSAGE_GETADDRESS = 90050;
integer MSG_MESSAGE_SETSUBJECT = 90100;
integer MSG_MESSAGE_GETSUBJECT = 90150;
integer MSG_MESSAGE_SEND = 90200;
integer MSG_MESSAGE_SENDHOME = 90300;
integer MSG_MESSAGE_SEND_NOTECARD = 90400;
integer MSG_MESSAGE_ADDRESSBOOK = 90500;
integer MSG_MESSAGE_GETHOME = 90600;
integer MSG_MESSAGE_SETHOME = 90700;
integer MSG_MESSAGE_INFO = 90800;

integer MSG_ADDRESSBOOK_LOADED = 91000;
integer MSG_ADDRESSBOOK_ERROR = 91100;

integer MSG_MESSAGE_REPLY = 99000;

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////// Unix Time conversion //////////////////

integer DAYS_PER_YEAR = 365; // Non leap year
integer SECONDS_PER_YEAR = 31536000; // Non leap year
integer SECONDS_PER_DAY = 86400;
integer SECONDS_PER_HOUR = 3600;
integer SECONDS_PER_MINUTE = 60;

////////////////////////////// LeapYear() /////////////////////////////

integer LeapYear(integer year)
{
if (year % 4 == 0)
{
if (year % 100 == 0)
{
if (year % 400 == 0)
{
return 1;
}
else
{
return 0;
}
}
else
{
return 1;
}
}
else
{
return 0;
}
}

////////////////////////////// DaysPerMonth() ///////////////////////////////////////

integer DaysPerMonth(integer year,integer month)
{
if (month < 8)
{
if (month % 2 == 0)
{
if (month == 2)
{
if (LeapYear(year))
{
return 29;
}
else
{
return 28;
}
}
else
{
return 30;
}
}
else
{
return 31;
}
}
else
{
if (month % 2 == 0)
{
return 31;
}
else
{
return 30;
}
}
}

/////////////////////////// DaysPerYear() ////////////////////////////////////

integer DaysPerYear(integer year)
{
if (LeapYear(year))
return DAYS_PER_YEAR + 1;
else
return DAYS_PER_YEAR;
}

/////////////////////////////// Unix2DataTime() ///////////////////////////////////////

list Unix2DateTime(integer unixtime)
{
integer days_since_1_1_1970 = unixtime / SECONDS_PER_DAY;
integer day = days_since_1_1_1970 + 1;
integer year = 1970;
integer days_per_year = DaysPerYear(year);

while (day > days_per_year)
{
day -= days_per_year;
++year;
days_per_year = DaysPerYear(year);
}

integer month = 1;
integer days_per_month = DaysPerMonth(year,month);

while (day > days_per_month)
{
day -= days_per_month;

if (++month > 12)
{
++year;
month = 1;
}

days_per_month = DaysPerMonth(year,month);
}

integer seconds_since_midnight = unixtime % SECONDS_PER_DAY;
integer hour = seconds_since_midnight / SECONDS_PER_HOUR;
integer second = seconds_since_midnight % SECONDS_PER_HOUR;
integer minute = second / SECONDS_PER_MINUTE;
second = second % SECONDS_PER_MINUTE;

return [ year, month, day, hour, minute, second ];
}

///////////////////////////////// MonthName() ////////////////////////////

list MonthNameList = [ "JAN", "FEB", "MAR", "APR", "MAY", "JUN",
"JUL", "AUG", "SEP", "OCT" , "NOV", "DEC" ];

string MonthName(integer month)
{
if (month >= 0 && month < 12)
return llList2String(MonthNameList, month);
else
return "";
}

///////////////////////////////// DateString() ///////////////////////////

string DateString(list timelist)
{
integer year = llList2Integer(timelist,0);
integer month = llList2Integer(timelist,1);
integer day = llList2Integer(timelist,2);

return (string)day + "-" + MonthName(month - 1) + "-" + (string)year;
}

///////////////////////////////// TimeString() ////////////////////////////

string TimeString(list timelist)
{
integer hour = llList2Integer(timelist,3);
integer minute = llList2Integer(timelist,4);
integer second = llList2Integer(timelist,5);
string hourstr = (string)hour;
string minutestr = (string)minute;
string secondstr = (string)second;

if (hour < 10) hourstr = "0" + hourstr;
if (minute < 10) minutestr = "0" + minutestr;
if (second < 10) secondstr = "0" + secondstr;
return hourstr + ":" + minutestr + ":" + secondstr;
}

/////////////////////////////////// SendMail() /////////////////////////////////////

SendMail(string body)
{
// llOwnerSay("Sending message to '" + address + "' with subject '" + subject +"'.");
llMessageLinked(LINK_THIS, MSG_MESSAGE_SEND, body, NULL_KEY);
}

///////////////////////////////// SendHome() ///////////////////////////////////////

SendHome(string subject, string body)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SENDHOME, body, (key)subject);
}

///////////////////////////////// Show() ////////////////////////////////////////////

Show()
{
integer i;

llOwnerSay("Current chat recording is:");
llOwnerSay("--------------------------");

for (i = 0; i < NumLines; ++i)
{
llOwnerSay(llList2String(ChatRecording,i));
}

llOwnerSay("--------------------------");
llOwnerSay("Lines is " + (string)NumLines);
llOwnerSay("Message length is " + (string)Length);
}

/////////////////////////////// Read() /////////////////////////////////////////

Read()
{
llOwnerSay("Reading message " + (string)CurrentMessage + " from mail buffer.");
integer time = (integer)llList2Integer(TimeList,CurrentMessage);
list timelist=Unix2DateTime(time);
string Address = llList2String(AddressList,CurrentMessage);
string Subject = llList2String(SubjectList,CurrentMessage);
string Body = llList2String(BodyList,CurrentMessage);
llOwnerSay("Date : " + DateString(timelist));
llOwnerSay("Time : " + TimeString(timelist));
llOwnerSay("Address: " + Address);
llOwnerSay("Subject: " + Subject);
llOwnerSay("Begin of message body:");
llOwnerSay("-------------------------");
list bodylist=llParseStringKeepNulls(Body, [ "\n" ], []);
integer num=llGetListLength(bodylist);
integer i;

for (i = 0; i < num; ++i)
{
llOwnerSay(llList2String(bodylist,i));
}

llOwnerSay("-------------------------");
llOwnerSay("End of message body.");
}

////////////////////////////////////// List ////////////////////////////////////////////

List()
{
llOwnerSay("The mail buffer contains the following messages:\n");

integer i;

for (i = 0; i < NumMessages; ++i)
{
integer time=llList2Integer(TimeList,i);
list timelist=Unix2DateTime(time);
if (i > 0) llOwnerSay("+-+-+-+-+-+-+-+-+-+-+-+-");
llOwnerSay("Message: " + (string)i);
llOwnerSay("Date : " + DateString(timelist));
llOwnerSay("Time : " + TimeString(timelist));
llOwnerSay("From: " + llList2String(AddressList,i));
llOwnerSay("Subject: " + llList2String(SubjectList,i));
}
}

//////////////////////////// NotifyNewMail() /////////////////////////

NotifyNewMail(string time, string address, string subject, string body)
{
list timelist=Unix2DateTime((integer)time);

if (StatusOnline)
{
llInstantMessage(llGetOwner(), "You received a new mail message on "
+ DateString(timelist) + " at " + TimeString(timelist)
+ " from " + address
+ " with the subject " + subject);
}
else
{
SendHome("FW: " + subject, "Received at: " + DateString(timelist) + " " + TimeString(timelist) + "\nFrom: " + address
+ "\nBegin message body:\n-------------------\n" + body + "\n-------------------\nEnd message body.");
}
}

///////////////////////////// ResetOtherScripts() //////////////////////

ResetOtherScripts()
{
string name;
integer i;
integer num=llGetListLength(ScriptList);

for (i = 0; i < num; ++i)
{
name = llList2String(ScriptList,i);

if (llGetInventoryType(name) == INVENTORY_SCRIPT)
{
llResetOtherScript(name);
}
else
{
llOwnerSay("Error - script '" + name + "' not found.");
ErrorFlag = TRUE;
}
}
}

//////////////////////////////////////
// default
//////////////////////////////////////

default
{
////////////////////// state_entry() /////////////////////////

state_entry()
{
llOwnerSay("Welcome to SL Mail, released under GNU software licence.");
llOwnerSay("Version " + SL_MAIL_VERSION + " " + SL_MAIL_DATE);
llOwnerSay("Produced by Logic Scripted Products & Product Services");
llOwnerSay("Free memory: " + (string)llGetFreeMemory());
ResetOtherScripts();

if (ErrorFlag)
state Error;
}

/////////////////////// on_rez() //////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

/////////////////////// changed() ////////////////////////////

changed(integer mask)
{
if (mask & CHANGED_INVENTORY)
{
llResetScript();
}
}

/////////////////////// link_message() /////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
else if (msgid == MSG_ADDRESSBOOK_LOADED)
{
state running;
}
else if (msgid == MSG_ADDRESSBOOK_ERROR)
{
state Error;
}
}
}

///////////////////////////////////////
// state running
//////////////////////////////////////

state running
{
///////////////////////// state_entry() //////////////////////

state_entry()
{
llListen(0, "", llGetOwner(), "");
llOwnerSay("SL mail ready.\nSend and Get mail in Second Life.\nType @HELP for more info.");
llMessageLinked(LINK_THIS, MSG_MESSAGE_INFO, "", NULL_KEY);
llGetNextEmail("", "");
llSetTimerEvent(MAIL_FETCH_INTERVAL);
}

//////////////////////// on_rez() ////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

//////////////////////// listen() ////////////////////////////

listen(integer channel, string name, key id, string message)
{
string trimmessage=llStringTrim(message,STRING_TRIM);
list parse = llParseStringKeepNulls(trimmessage, [ " "], []);
string command = llToUpper(llList2String(parse,0));
string arg = llStringTrim(llList2String(parse,1),STRING_TRIM);
integer nargs = llGetListLength(parse);
string argstr="";

if (nargs > 1) argstr=llGetSubString(message, llSubStringIndex(message, " ") + 1, -1);

if (Recording)
{
if (command == COMMAND_STOP)
{
llOwnerSay("Recording stopped. Type @SHOW to see the message you have entered,"
+ " or @SEND to send it.");
Recording = FALSE;
return;
}
if (command == COMMAND_SEND)
{
Recording = FALSE;

SendMail(llDumpList2String(ChatRecording, "\n"));
return;
}
else
{
ChatRecording = (ChatRecording=[]) + ChatRecording + [ message ];
++NumLines;
Length += llStringLength(message) + 2;
return;
}
}
else
{
if (command == COMMAND_RECORD)
{
llOwnerSay("Start recording your message. Type @STOP to end recording.");
ChatRecording = [];
NumLines=0;
Length=0;
Recording = TRUE;
return;
}
if (command == COMMAND_CONTINUE)
{
llOwnerSay("Continue recording your message. Type @STOP to end recording.");
Recording = TRUE;
return;
}
if (command == COMMAND_REPLY)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
string address=llList2String(AddressList,CurrentMessage);
string subject="Re: " + llList2String(SubjectList,CurrentMessage);
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETADDRESS, address, NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETSUBJECT, subject, NULL_KEY);
ChatRecording = [];
NumLines=0;
Length=0;
Recording = TRUE;
}
return;
}
if (command == COMMAND_MAIL)
{
string mailaddress=llStringTrim(argstr,STRING_TRIM);

if (mailaddress != "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETADDRESS, mailaddress, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETADDRESS, "", NULL_KEY);
}
return;
}
if (command == COMMAND_SUBJECT)
{
string mailsubject=llStringTrim(argstr,STRING_TRIM);

if (mailsubject != "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETSUBJECT, mailsubject, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETSUBJECT, "", NULL_KEY);
}
return;
}
if (command == COMMAND_STOP)
{
llOwnerSay("Not recording.");
return;
}
if (command == COMMAND_SEND)
{
if (nargs == 1)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
SendMail(llDumpList2String(ChatRecording, "\n"));
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SEND_NOTECARD, argstr, NULL_KEY);
}
return;
}
if (command == COMMAND_IGNORE)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
ChatRecording = [];
NumLines = 0;
Length = 0;
}
return;
}
if (command == COMMAND_SHOW)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
Show();
}
return;
}
if (command == COMMAND_READ)
{
if (NumMessages == 0)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
Read();
}
return;
}
if (command == COMMAND_NEXT)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == NumMessages - 1)
{
llOwnerSay("Already at last message.");
}
else
{
++CurrentMessage;
Read();
}
}
return;
}
if (command == COMMAND_PREV)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == 0)
{
llOwnerSay("Already at first message.");
}
else
{
--CurrentMessage;
Read();
}
}
return;
}
if (command == COMMAND_FIRST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == 0)
{
llOwnerSay("Already at first message.");
}
else
{
CurrentMessage = 0;
Read();
}
}
return;
}
if (command == COMMAND_LAST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == NumMessages - 1)
{
llOwnerSay("Already at last message.");
}
else
{
CurrentMessage = NumMessages - 1;
Read();
}
}
return;
}
if (command == COMMAND_LIST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
List();
}
return;
}
if (command == COMMAND_SELECT)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else if (nargs == 1)
{
llOwnerSay("Need to supply a message number.");
}
else
{
integer msgnum = (integer)arg;

if (msgnum < 0 || msgnum >= NumMessages)
{
llOwnerSay("Message number " + arg + " not in mail buffer.");
}
else
{
CurrentMessage = msgnum;
}
}
return;
}
if (command == COMMAND_DELETE)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
TimeList = llDeleteSubList(TimeList,CurrentMessage,CurrentMessage);
AddressList = llDeleteSubList(AddressList,CurrentMessage,CurrentMessage);
SubjectList = llDeleteSubList(SubjectList,CurrentMessage,CurrentMessage);
BodyList = llDeleteSubList(BodyList,CurrentMessage,CurrentMessage);
--NumMessages;

if (NumMessages == 0)
{
CurrentMessage = -1;
}
else if (CurrentMessage >= NumMessages)
{
CurrentMessage = NumMessages - 1;
}
}
return;
}
if (command == COMMAND_CLEAR)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
TimeList=[];
AddressList=[];
SubjectList=[];
BodyList=[];
NumMessages=0;
CurrentMessage=-1;
}
return;
}
if (command == COMMAND_HELP)
{
llMessageLinked(LINK_THIS, MSG_HELP, arg, NULL_KEY);
return;
}
if (command == COMMAND_INFO)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_INFO, "", NULL_KEY);
return;
}
if (command == COMMAND_SHOW)
{
Show();
return;
}
if (command == COMMAND_RESET)
{
llResetScript();
return;
}
if (command == COMMAND_OFF)
{
state not_running;
}
if (command == COMMAND_HOME)
{
if (nargs==1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETHOME, "", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETHOME, argstr, NULL_KEY);
}
return;
}
}
}

///////////////////////// timer() ///////////////////////////////

timer()
{
llGetNextEmail("", "");
}

///////////////////////// email() ///////////////////////////////

email(string time, string address, string subject, string body, integer queued)
{
NotifyNewMail(time, address, subject, body);
TimeList = (TimeList=[]) + TimeList + [time];
AddressList = (AddressList=[]) + AddressList + [address];
SubjectList = (SubjectList=[]) + SubjectList + [subject];
BodyList = (BodyList=[]) + BodyList + [body];
++NumMessages;

if (CurrentMessage == -1)
{
CurrentMessage = 0;
}
else
{
CurrentMessage = NumMessages - 1;
}
}

///////////////////// link_message() //////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
else if (msgid == MSG_MESSAGE_REPLY)
{
llOwnerSay(message);
}
}
}

//////////////////////////////////
// state not_running
//////////////////////////////////

state not_running
{
///////////////////// state_entry() //////////////////////////

state_entry()
{
llOwnerSay("SL Mailbox switched OFF. Say @ON to switch it back on.");
llListen(0, "", llGetOwner(), "");
}

//////////////////// on_rez() ///////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

//////////////////// listen() ////////////////////////////////

listen(integer chan, string name, key id, string message)
{
string command=llToUpper(message);

if (command == COMMAND_ON)
{
state running;
}
}

///////////////////// link_message() //////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
}
}

//////////////////////////////////
// state Error
//////////////////////////////////

state Error
{
state_entry()
{
llOwnerSay("Error in SL Mail: not all component scripts found.");
}

changed(integer mask)
{
if (mask & CHANGED_INVENTORY)
{
llResetScript();
}
}

on_rez(integer start_param)
{
llResetScript();
}
}

//////////////////////////////////
// End SL Mail V1.2.lsl
//////////////////////////////////
</lsl>
</div>
</div>

<div id="box">

==Script: SL Mail Address Book V1.2==
<div style="padding: 0.5em;">
Read and interpret the contents of the Address Book.
<lsl>
// SL Mail AddressBook V1.2.lsl
//
// DESCRIPTION
//
// Read the Address Book from a notecard named "Address Book".
//
// The Address Book has the following format:
//
// [ADDRESS BOOK]
// Name1=username@yourdomain.com
// Name2=otheruser@otherdomain.com
// ...
// [GROUP]
// group1=Name1, Name2
// ...
//
// Notes:
// 1. Group and Name share the same namespace, and must be unique.
// 2. It is allowed to have a name in the addressbook with multiple addresses, seperated by comma's.
//
/////////////////////////////////////////////////

string CurrentMailAddress = "";
string CurrentMailSubject = "";
integer StatusOnline = FALSE;

// Fetch or Send notecard

string Notecard2Fetch="";

// Address Book Names

list AddressBookList=[];
list MailAddressList=[];

string STRING_HOME="HOME";
string STRING_SELF="SELF";

// Address Book Groups

list GroupList=[];
list GroupNameList=[];

string LSL_DOMAIN = "lsl.secondlife.com";

// Read Address Book notecard

string ADDRESSBOOK_NOTECARD="Address Book";
integer Line=0;
key reqAddressBook=NULL_KEY;
float TIMEOUT_INTERVAL=5.0;

integer Section=0;
integer SECTION_ADDRESS_BOOK=1;
integer SECTION_GROUP=2;
string STRING_ADDRESS_BOOK="ADDRESS BOOK";
string STRING_GROUP="GROUP";

// Links messages

integer MSG_MESSAGE_SETADDRESS = 90000;
integer MSG_MESSAGE_GETADDRESS = 90050;
integer MSG_MESSAGE_SETSUBJECT = 90100;
integer MSG_MESSAGE_GETSUBJECT = 90150;
integer MSG_MESSAGE_SEND = 90200;
integer MSG_MESSAGE_SENDHOME = 90300;
integer MSG_MESSAGE_SEND_NOTECARD = 90400;
integer MSG_MESSAGE_ADDRESSBOOK = 90500;
integer MSG_MESSAGE_GETHOME = 90600;
integer MSG_MESSAGE_SETHOME = 90700;
integer MSG_MESSAGE_INFO = 90800;
integer MSG_MESSAGE_NOTIFY = 90900;

integer MSG_ADDRESSBOOK_LOADED = 91000;
integer MSG_ADDRESSBOOK_ERROR = 91100;

integer MSG_MESSAGE_REPLY = 99000;

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////// GetSelfAddress() ///////////////////////

string GetSelfAddress()
{
return (string)llGetKey() + "@" + LSL_DOMAIN;
}

///////////////////////////// Info() /////////////////////////////////

Info()
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "The mail address for this object is: "
+ GetSelfAddress() + ".", NULL_KEY);
}

///////////////////////////////// IsValidKeyFormat() //////////////////////

integer IsValidKeyFormat(string str)
{
string keychars = "0123456789abcdef";

if (llStringLength(str) != 36)
return FALSE;

if( (llGetSubString( str, 8, 8 ) != "-" ||
llGetSubString( str, 13, 13 ) != "-" ||
llGetSubString( str, 18, 18 ) != "-" ||
llGetSubString( str, 23, 23 ) != "-" ) )
return FALSE;

integer i;

for (i = 0; i < 8; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 9; i < 13; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 14; i < 18; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 19; i < 23; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 24; i < 36; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

return TRUE;
}

///////////////////////////////// ValidMailAddress() ////////////////////////

integer ValidMailAddress(string arg)
{
string adress = llToLower(llStringTrim(arg,STRING_TRIM));

if (adress == "")
return FALSE;

list parse = llParseStringKeepNulls(adress, [ "@" ], []);
string account = llList2String(parse,0);
string domain = llList2String(parse,1);

if (llGetListLength(parse) != 2 || llStringLength(account) == 0 || llStringLength(domain) == 0)
return FALSE;

if (domain == LSL_DOMAIN)
{
return IsValidKeyFormat(account);
}
else
{
list parsedomain = llParseString2List(domain, [ "." ], []);

if (llGetListLength(parsedomain) < 2)
return FALSE;

integer num = llGetListLength(parsedomain);
integer i;

for (i = 0; i < num; ++i)
{
if (llStringLength(llList2String(parsedomain,i)) < 2)
{
return FALSE;
}
}
}

return TRUE;
}

/////////////////////////////////// GetAddressStr() ///////////////////

string GetAndCheckAddressStr(string address)
{
list addresslist = llCSV2List(address);
integer num=llGetListLength(addresslist);
integer i;
string addressstr="";
string curaddress="";

for (i = 0; i < num; ++i)
{
curaddress=llList2String(addresslist,i);

if (ValidMailAddress(curaddress))
{
addressstr = (addressstr="") + addressstr + curaddress + ",";
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address string: '"
+ curaddress + "'.", NULL_KEY);
}
}

return llGetSubString(addressstr, 0, -2);
}

///////////////////////////// ProcessLine() ////////////////////////////

ProcessLine(string rawline)
{
string line=llStringTrim(rawline,STRING_TRIM);
string first=llGetSubString(line,0,0);
string last=llGetSubString(line,-1,-1);

// Ignore a blank line or comment line
if (line == "" || first == "#")
return;

// Check for the right section

if (first == "[" && last == "]")
{
string sectionstr=llToUpper(llStringTrim(llGetSubString(line,1,-2),STRING_TRIM));

if (sectionstr == STRING_ADDRESS_BOOK)
{
Section = SECTION_ADDRESS_BOOK;
}
else if (sectionstr == STRING_GROUP)
{
if (Section == 0)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1)
+ ". Group section defined before Address Book section.", NULL_KEY);
}
else
{
Section = SECTION_GROUP;
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid section header '" + sectionstr
+ "' in " + ADDRESSBOOK_NOTECARD + " at line " + (string)(Line + 1) + ".", NULL_KEY);
}

return;
}

// Must be in a section

if (Section == 0)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ". No section header.", NULL_KEY);
return;
}

list parse=llParseString2List(line, [ "=" ], []);
integer num=llGetListLength(parse);

// Format must be correct

if (num != 2)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line+1) + ":\n" + rawline, NULL_KEY);
return;
}

if (Section == SECTION_ADDRESS_BOOK)
{
string name=llStringTrim(llList2String(parse,0),STRING_TRIM);

if (llToUpper(name) == STRING_SELF)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address book entry '" + name
+ "'. Reserved word in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ".", NULL_KEY);
}
else if (llListFindList(AddressBookList, [ name ]) == -1)
{
string address=llStringTrim(llList2String(parse,1),STRING_TRIM);
string addressstr=GetAndCheckAddressStr(address);

if (addressstr != "")
{
AddressBookList = (AddressBookList=[]) + AddressBookList + [ name ];
MailAddressList = (MailAddressList=[]) + MailAddressList + [ addressstr ];
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "No valid mail address for '" + name
+ "'. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line " + (string)(Line + 1)
+ ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Name '" + name
+ "' already defined. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else // Group
{
string group=llStringTrim(llList2String(parse,0),STRING_TRIM);

if (llToUpper(group) == STRING_SELF)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address book entry '" + group
+ "'. Reserved word in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ".", NULL_KEY);
}
else if (llListFindList(AddressBookList, [ group ]) == -1)
{
if (llListFindList(GroupList, [ group ]) == -1)
{
string names=llStringTrim(llList2String(parse,1),STRING_TRIM);
list namelist=llCSV2List(names);
integer num=llGetListLength(namelist);
integer i;
integer index;
string name;
string namestr="";

for (i = 0; i < num; ++i)
{
name=llList2String(namelist,i);
index=llListFindList(AddressBookList, [ name ]);

if (index == -1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Name '" + name + "' defined in Group '"
+ group + "' not found in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
else
{
namestr = (namestr="") + namestr + name + ",";
}
}

if (namestr != "")
{
namestr=llGetSubString(namestr,0,-2);
GroupList = (GroupList=[]) + GroupList + [ group ];
GroupNameList = (GroupNameList=[]) + GroupNameList + [ namestr ];
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' has no valid names. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' already defined in Group. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' already defined in Address Book. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
}

//////////////////////////////// GetGroupAddressList ///////////////

string GetGroupAddressList(string group)
{
integer index=llListFindList(GroupList, [ group ]);
integer i;
integer num=llGetListLength(GroupList);
string grouplist="";

if (index == -1)
{
return "";
}
else
{
for (i = index; i < num; ++i)
{
if (llList2String(GroupList,i) == group)
{
grouplist = (grouplist="") + grouplist + llList2String(GroupNameList,i) + ",";
}
}

if (grouplist != "") grouplist=llGetSubString(grouplist,0,-2); // remove last ","
return grouplist;
}
}

//////////////////////////////// SetMailAddress() //////////////////

SetMailAddress(string address)
{
integer index=llListFindList(AddressBookList, [ address ]);

if (index == -1)
{
index=llListFindList(GroupList, [ address ]);

if (index == -1)
{
if (llToUpper(address) == STRING_SELF)
{
CurrentMailAddress = GetSelfAddress();
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
else if(ValidMailAddress(address))
{
CurrentMailAddress = address;
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Mail adress " + address
+ " : not found in adress book or invalid format.", NULL_KEY);
}
}
else
{
CurrentMailAddress = GetGroupAddressList(address);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject set to: "
+ CurrentMailAddress, NULL_KEY);
}
}
else
{
CurrentMailAddress = llList2String(MailAddressList,index);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
}

/////////////////////////////////// SendMail() ///////////////////////

SendMail(string message)
{
if (CurrentMailAddress == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "SendMail: No mail address defined.", NULL_KEY);
}
else if (CurrentMailSubject == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "SendMail: No subject defined.", NULL_KEY);
}
else
{
list mailaddresslist=llCSV2List(CurrentMailAddress);
integer num=llGetListLength(mailaddresslist);
integer i;
string address;

for (i = 0; i < num; ++i)
{
address=llList2String(mailaddresslist,i);
llEmail(address, CurrentMailSubject, message);
}
}
}

/////////////////////////////////// SendMailHome() ////////////////////

SendMailHome(string message, string subject)
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, STRING_HOME
+ " not set. Set your home adress with @HOME <address>.", NULL_KEY);
}
else
{
string homeaddress=llList2String(AddressBookList,index);
list homelist=llCSV2List(homeaddress);
integer num=llGetListLength(homelist);
integer i;
string address;

for (i = 0; i < num; ++i)
{
address=llList2String(homelist,i);
llEmail(address, subject, message);
}
}
}

/////////////////////////////////// GetHomeAddress() //////////////////

string GetHomeAddress()
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
return "not set";
}
else
{
return llList2String(MailAddressList,index);
}
}

/////////////////////////////////// SetHomeAddress() //////////////////

SetHomeAddress(string address)
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
AddressBookList = (AddressBookList=[]) + [ STRING_HOME ] + AddressBookList;
MailAddressList = (MailAddressList=[]) + [ GetAndCheckAddressStr(address) ] + MailAddressList;
}
else
{
MailAddressList = llListReplaceList(MailAddressList, [ GetAndCheckAddressStr(address) ], index, index);
}
}

////////////////////////////////////
// default
////////////////////////////////////

default
{
///////////////////// state_entry() //////////////////

state_entry()
{
Line=0;
Section=0;
llSetTimerEvent(TIMEOUT_INTERVAL);
reqAddressBook=llGetNotecardLine(ADDRESSBOOK_NOTECARD, 0);
}

///////////////////// dataserver() ////////////////////

dataserver(key id, string data)
{
if (id == reqAddressBook)
{
reqAddressBook = NULL_KEY;

if (data != EOF)
{
ProcessLine(data);
reqAddressBook=llGetNotecardLine(ADDRESSBOOK_NOTECARD, ++Line);
}
else
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_LOADED, "", NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Address Book loaded.", NULL_KEY);
state running;
}
}
}

//////////////////////// timer() ///////////////////////////

timer()
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_ERROR, "", NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Could not read Address Book: "
+ ADDRESSBOOK_NOTECARD + ".", NULL_KEY);
llSetTimerEvent(0.0);
}
}

////////////////////////////////////////////
// state running
////////////////////////////////////////////

state running
{
state_entry()
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_LOADED, "", NULL_KEY);
}

///////////////////////// link_message() ////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_MESSAGE_GETSUBJECT)
{
if (CurrentMailSubject == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject is empty.", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject is: "
+ CurrentMailSubject, NULL_KEY);
}
}
else if (msgid == MSG_MESSAGE_SETSUBJECT)
{
CurrentMailSubject = message;
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject set to: "
+ CurrentMailSubject, NULL_KEY);
}
else if (msgid == MSG_MESSAGE_GETADDRESS)
{
if (CurrentMailAddress == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address is empty.", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address is: "
+ CurrentMailAddress, NULL_KEY);
}
}
else if (msgid == MSG_MESSAGE_SETADDRESS)
{
SetMailAddress(message);
}
else if (msgid == MSG_MESSAGE_SEND)
{
if (message == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Body of message to send is empty. "
+ "No mail is send.", NULL_KEY);
}
else
{
SendMail(message);
}
}
else if (msgid == MSG_MESSAGE_SENDHOME)
{
SendMailHome(message, (string)id);
}
else if (msgid == MSG_MESSAGE_SEND_NOTECARD)
{
if (llGetInventoryType(message) == INVENTORY_NOTECARD)
{
Notecard2Fetch = message;
llMessageLinked(LINK_THIS, MSG_NOTECARD_READ, message, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Notecard " + message + " not found.", NULL_KEY);
}
}
else if (msgid == MSG_NOTECARD_FETCHED)
{
if (message == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Notecard " + Notecard2Fetch
+ " was empty or could not be read.", NULL_KEY);
}
else
{
SendMail(message);
}
}
else if (msgid == MSG_MESSAGE_GETHOME)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Home address is: " + GetHomeAddress() + ".", NULL_KEY);
}
else if (msgid == MSG_MESSAGE_SETHOME)
{
SetHomeAddress(message);
}
else if (msgid == MSG_MESSAGE_INFO)
{
Info();
}
}
}

/////////////////////////////////////
// End SL Mail AddressBook V1.2.lsl
/////////////////////////////////////
</lsl>
</div>
</div>

<div id="box">

==Script: SL Mail FetchNotecard V1.2==
<div style="padding: 0.5em;">
Fetch the contents of a notecard and return it via link message as a string.
<lsl>
// SL Mail FetchNotecard V1.2.lsl
//
//

// Notecard

integer Line=0;
string Notecard2Fetch="";
key reqNotecard=NULL_KEY;
float TIMEOUT_INTERVAL=10.0;
integer Fetched=FALSE;

// Lines

list LineList=[];

// Link messages

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////////////////////
// default
//////////////////////////////////////////

default
{
/////////////////////// dataserver() //////////////////////////////

dataserver(key id, string data)
{
if (id == reqNotecard)
{
reqNotecard=NULL_KEY;

if (data != EOF)
{
LineList = (LineList=[]) + LineList + [ data ];
reqNotecard = llGetNotecardLine(Notecard2Fetch, ++Line);
}
else
{
Fetched=TRUE;
llMessageLinked(LINK_THIS, MSG_NOTECARD_FETCHED, llDumpList2String(LineList, "\n"), NULL_KEY);
llSetTimerEvent(0.0);
}
}
}

/////////////////////// timer() ///////////////////////////////////

timer()
{
if (!Fetched)
{
llMessageLinked(LINK_THIS, MSG_NOTECARD_FETCHED, "", NULL_KEY);
llSetTimerEvent(0.0);
}
}

/////////////////////// link_message() ////////////////////////////

link_message(integer send, integer msgid, string message, key id)
{
if (msgid == MSG_NOTECARD_READ)
{
Line=0;
Notecard2Fetch=message;
LineList=[];
Fetched=FALSE;
reqNotecard=llGetNotecardLine(Notecard2Fetch, Line);
llSetTimerEvent(TIMEOUT_INTERVAL);
}
}
}

// End SL Mail FetchNotecard V1.2.lsl
</lsl>
</div>
</div>

<div id="box">

==Script: SL OnlineStatus V1.2==
<div style="padding: 0.5em;">
Fetch online status of owner.
<lsl>
// SL Mail OnlineStatus V1.2.lsl
//
//

// Online status

key reqOnlineStatus=NULL_KEY;
float STATUS_INTERVAL=2.0;

// Link messages

integer MSG_STATUS_ONLINE = 30000;
integer MS_STATUS_OFFLINE = 30100;

////////////////////////////////
// default
////////////////////////////////

default
{
///////////////////////// state_entry() /////////////////////////

state_entry()
{
reqOnlineStatus=llRequestAgentData(llGetOwner(), DATA_ONLINE);
llSetTimerEvent(STATUS_INTERVAL);
}

///////////////////////// dataserver() //////////////////////////

dataserver(key id, string data)
{
if (id == reqOnlineStatus)
{
reqOnlineStatus = NULL_KEY;

if (data=="1")
{
llMessageLinked(LINK_THIS, MSG_STATUS_ONLINE, "", NULL_KEY);
}
else if (data=="0")
{
llMessageLinked(LINK_THIS, MS_STATUS_OFFLINE, "", NULL_KEY);
}
}
}

///////////////////////// timer() ///////////////////////////////

timer()
{
reqOnlineStatus = llRequestAgentData(llGetOwner(), DATA_ONLINE);
}
}

// End SL Mail OnlineStatus V1.2.lsl
</lsl>
</div>
</div>

<div id="box">

==Script: SL Mail Help V1.2==
<div style="padding: 0.5em;">
Display help information.

<lsl>
// SL Mail Help V1.2.lsl
//
//

integer MSG_HELP = 10000;

///////////////////////////////// Help() ///////////////////////////////////////

Help()
{
llOwnerSay("HELP for SL Mail V1.2.");
llOwnerSay("COMMANDS:");
llOwnerSay("@HELP - displays help info.");
llOwnerSay("@INFO - display mailaddress of this object.");
llOwnerSay("@RECORD - start recording.");
llOwnerSay("@CONTINUE - continue recording.");
llOwnerSay("@STOP - stop recording.");
llOwnerSay("@IGNORE - ignore the recording.");
llOwnerSay("@SHOW - show what your recorded.");
llOwnerSay("@SEND - send the recording.");
llOwnerSay("@MAIL <mailadress> - set the mail adress.");
llOwnerSay("@SUBJECT subject - set the mail subject.");
llOwnerSay("@LIST - list messages in mail buffer.");
llOwnerSay("@SELECT <message> - select message from mail buffer.");
llOwnerSay("@READ - read current message from mail buffer.");
llOwnerSay("@NEXT - read next message from mail buffer.");
llOwnerSay("@PREV - read previous message from mail buffer.");
llOwnerSay("@FIRST - read first message from mail buffer.");
llOwnerSay("@LAST - read last message from mail buffer.");
llOwnerSay("@DELETE - delete current message from mail buffer.");
llOwnerSay("@CLEAR - clear the mail buffer.");
llOwnerSay("@REPLY - reply to current message.");
llOwnerSay("@RESET - reset the script.");
llOwnerSay("@HOME - set the home mail adress.");
llOwnerSay("@OFF - switch mailbox OFF.");
llOwnerSay("@ON - switch mailbox ON.");
}

/////////////////////////////////////////////
// default
/////////////////////////////////////////////

default
{
link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_HELP)
{
Help();
}
}
}

// End SL Mail Help V1.2.lsl
</lsl>
</div>
</div>
[[Image:slmail.info.jpg]]

{{LSLC|Library}}

SL Mail V1.2

Flennan Roffo — Tue, 25 Jan 2011 23:56:16 GMT

Flennan Roffo:

{{LSL Header}} __NOTOC__
<div id="box">
='''Second Life mail client'''=
<div style="padding: 0.5em">

'''Send and receive email from within Second Life from and to any address.'''

Implemented with Address Book function (in a notecard named 'Address Book') to stores addresses by name and to compile groups of named addresses. Current version is stand-alone (no server functionality) and uses chat commands only.

[[Image:BannerSLMail.jpg]]

URL: [http://www.slmail.info slmail.info] <strike>(website coming soon!)</strike> <bold>url slmail.info no longer used for SL Mail, and was taken for some other purpose.</bold>

</div>
</div>

<div id="box">

=Release Notes V1.2=
<div style="padding: 0.5em">
SL Mail V1.2 Release notes (edition 2, 4 sept 2007)
</div>
</div>

<div id="box">
=='''LICENCE INFO'''==
<div style="padding: 0.5em">
SL Mail V1.2 is released under GNU free software licence
</div>
</div>

<div id="box">
=='''PRODUCTION & MAINTANENCE'''==
<div style="padding: 0.5em">
by Logic Scripted Products and Script Services

[[Image:Logicbanner1.jpg]]

URL: [http://www.logicscripts.org logicscripts.org] (website coming soon!)

SLurl:
{{SLurl
|region=Peacock Park
|x=189
|y=226
|z=69
|title=Logic Scripted products and Script services
|}}

Contact: [[User:Flennan Roffo|Flennan Roffo]]

Email: [mailto:info@slmail.info '''info'''] or [mailto:Flennan.Roffo@slmail.info '''Flennan Roffo''']
'''* The slmail.info URL appears to not be registered and this information appears to be out of date. *'''
</div>
</div>

<div id="box">

=='''DESCRIPTION'''==
<div style="padding: 0.5em">
SL Mail V1.2 is a simple tool to send and receive mail from within SL.
You can either compose a message yourself using chat recording, or choose a notecard from inventory to send. The Address Book functionality allows you to use short names for mail recipients stored in a notecard. The current version does not have a persisent mail address. Watch out for the upcoming next release (V1.3) which will facilitate persisent in-world mail addresses and will be enhanced with many new features (See: Requests For Change (RFC).
</div>
</div>

<div id="box">

=='''COMMANDS'''==
<div style="padding: 0.5em">
{| {{Prettytable}}
|-
|{{Hl2}}| '''Command'''
|{{Hl2}}| '''Description'''
|-
||'''@Help'''
||Show Help about available commands
|-
||'''@Record'''
||Starts a chat recording (for owner only).
|-
||'''@Stop'''
||Stops the chat recording without sending
|-
||'''@Continue'''
||Continues a previously stopped chat recording. Lines will be appended to you recording buffer.
|-
||'''@Show'''
||Shows the content of the recording buffer.
|-
||'''@Send'''
||If recording, stops the recording, and sends the mail (need to supply mail address and subject first!)
|-
||'''@Send <notecard>'''
||Sends the content of the notecard, instead of the chat recording.
|-
||'''@Ignore'''
||Ignores your current chat recording.
|-
||'''@Mail <address>'''
||Define the mail address to send to.
|-
||'''@Mail'''
||Shows the current mail address to send to.
|-
||'''@Subject <subject>'''
||Define the subject of the mail.
|-
||'''@Subject'''
||Shows the current mail subject.
|-
||'''@Home <address>'''
||Set the HOME address of the owner (mail will be forwarder to this address when offline).
|-
||'''@Home'''
||Show the HOME address.
|-
||'''@Info'''
||Shows the mail address the object this script is running in uses (e.g. <object-key>@lsl.secondlife.com).
|-
||'''@Read'''
||Reads the current message from the mail buffer (the mail buffer gets filled with mail you receive)
|-
||'''@Select <msg>'''
||Select a message number from the availabe messages in the mail buffer.
|-
||'''@Next'''
||Make next message the current message.
|-
||'''@Prev'''
||Make previous message the current message.
|-
||'''@First'''
||Make the first message the current message.
|-
||'''@Last'''
||Make the last message the current message.
|-
||'''@Clear'''
||Clear the mail buffer
|-
||'''@Delete'''
||Deletes only the current message
|-
||'''@Reply'''
||Starts a chat recording to reply to the current message. Mail adress and subject are filled in automatically.
|}

Note:

* Commands are case insensitive ("@read" == "@READ"). Arguments might not be case insensitive.
</div>
</div>

<div id="box">
=='''ADDRESS BOOK FORMAT'''==
<div style="padding: 0.5em">
A notecard of the name 'Address Book' is read during initialization which may contain Address Book items and Groups.
The notecard is split in two sections, which need to be defined in that particular order.

'''[ADDRESS BOOK]'''

Defines the section in which you can put names for mail addresses, like this:

'''Name1=account@thisdomain.com'''

'''Name2=user@otherdomain.com'''

etc.

'''[GROUP]'''

Define groups of previously defined names under a new name, like for instance:

'''MyGroup=Name1, Name2'''

Note that names of groups and individual mail adresses share the same namespace and must be unique.

So when you filled in your mail adresses in the Address Book, you can now use:

'''@Mail Name1'''

To send mail to <account@thisdomain.com>

or you can use

'''@Mail MyGroup'''

To send mail to <account@thisdomain.com> and <user@otherdomain.com>
Mails will be sent one after another.

Notes:

* Names for Addreses and Groups are case insensitive (e.g. "mary" == "MARY")

* The special address 'Self' can be used in commands where otherwise an address specification can be used. 'Self' is case insensitive (e.g. "self" == "SELF")

</div>
</div>

<div id="box">
=='''LIMITATIONS'''==
<div style="padding: 0.5em">
The current version is limited by the following:

* Chat recording lines are limited by the 255 byte limit

* Output of lines from the mail buffer are also limited by this 255 byte limit

* Incoming mail is limited to a 1000 (1024?) byte limit

* Outgoing mai is limited by a 4096 byte limit, which includes the standard mail header (region/location info on the first two lines)

We are making adjustments to this release to help overcome these limitations. At least the line lenght limit can be overcome by introducing a line continuation character (for example a hyphen '-') that when used at the end of a line appends the next line, so lines longer then 255 bytes are possible then.

To overcome the outgoing mail length limit, the mail can be broken textualy into parts, and each part can be send seperatedely, with an indication in the subject or in an introduced primary line of the mail body to indicate that the mail was split into parts.
For incoming mail and at least to receive mail from other SL Mail programs, a protocol will be introduced to receive mail in parts that are joined together after receiving them to form a single mail.

These enhancements will be made available in the next release (V1.3) of SL Mail
</div>
</div>

<div id="box">
=='''BUGS'''==
<div style="padding: 0.5em">
Report any bugs you find in this release to Logic (IM: Flennan Roffo).
</div>
</div>

<div id="box">
=='''REQUEST FOR CHANGE (RFC)'''==
<div style="padding: 0.5em">
Do you have additional wishes for enhancement of this product?
Contact Flennan Roffo and we will see if they can be implemented in the next release.

Existing RFC's are:

* Menu support for commands.

* Lines on incoming/outgoing mail longer than 255 bytes.

* Send messages longer than 4096 (minus SL mail header) bytes.

* Receive messages longer than 1024 bytes.

* Permanent mail addresses for the SL Mail client (like: <Flennan.Roffo@somedomain.sl>)

Add your RFC!
</div>
</div>

<div id="box">
=='''SL MAIL SUPPORT & DEVELOPMENT'''==
<div style="padding: 0.5em">

In-world join the group "SL Mail" for bug reports, feature requests, the latest SL Mail release, and notices about development issues.
</div>
</div>

<div id="box">

=Scripts=
</div>

<div id="box">
==Script: SL Mail v1.2==
<div style="padding: 0.5em;">
SL Mail core module which scans for incoming mail messages and executes commands used by the owner.
<lsl>
// SL Mail V1.2.lsl
// (c) 2007 Logic Scripted Products and Script Services
// Flennan Roffo

// VERSION
// Version: 1.2

// HISTORY
// Date Version Author Comment
// --------------------------------------------------------------------------------------
// 28 aug 2007 V 1.0 Flennan Roffo Created
//
// 1 sep 2007 V 1.1 Flennan Roffo @Reply empties the recording buffer.
// @Send while recording ends recording
// and sends the mail if a mail address
// and subject are supplied.
// Fixed incorrect date in Unix2DateTime.
// 3 sep 2007 V 1.2 Flennan Roffo Notification options:
// - When online, send an IM when mail is received.
// - When offline, send to HOME mail adress.
// Adressbook
// - Read adress book from config notecard.

// LICENCE
// This program is free software; you can redistribute it and/or
// modify it under the terms of the GNU General Public License
// as published by the Free Software Foundation; either version 2
// of the License, or (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
// (Also available at http://www.gnu.org/copyleft/gpl.html)

// DESCRIPTION
// Let's you record a message and sent to email and get messages and reply to messages.
// Must supply a valid mail adress and non-empty subject using chat commands.

// TODO:
// 1) Check for the maximum length of an email message (including newline and header).
// 2) Read adress book from notecard. *DONE*
// 3) Send incoming mail to personal mail adress when offline. *DONE*
// 4) Alert with an IM when online upon receiving new mail. *DONE*

string SL_MAIL_VERSION = "V 1.2";
string SL_MAIL_DATE = " 2 sep 2007";
integer ErrorFlag = FALSE;
list ScriptList = [ "SL Mail Help V1.2", "SL Mail AddressBook V1.2",
"SL Mail OnlineStatus V1.2", "SL Mail FetchNotecard V1.2" ];
string LSL_DOMAIN="lsl.secondlife.com";
integer StatusOnline=FALSE;

// Commands

string COMMAND_RECORD = "@RECORD";
string COMMAND_CONTINUE = "@CONTINUE";
string COMMAND_STOP = "@STOP";
string COMMAND_MAIL = "@MAIL";
string COMMAND_SUBJECT = "@SUBJECT";
string COMMAND_SEND = "@SEND";
string COMMAND_SEE = "@SEE";
string COMMAND_IGNORE = "@IGNORE";
string COMMAND_READ = "@READ";
string COMMAND_DELETE = "@DELETE";
string COMMAND_CLEAR = "@CLEAR";
string COMMAND_REPLY = "@REPLY";
string COMMAND_NEXT = "@NEXT";
string COMMAND_PREV = "@PREV";
string COMMAND_FIRST = "@FIRST";
string COMMAND_LAST = "@LAST";
string COMMAND_LIST = "@LIST";
string COMMAND_SELECT = "@SELECT";
string COMMAND_HELP = "@HELP";
string COMMAND_INFO = "@INFO";
string COMMAND_RESET = "@RESET";
string COMMAND_SHOW = "@SHOW";
string COMMAND_ON = "@ON";
string COMMAND_OFF = "@OFF";
string COMMAND_HOME = "@HOME";
string COMMAND_LOAD = "@LOAD";
string COMMAND_ADDRESS = "@ADDRESS";

// Recording

integer Recording = FALSE;

list ChatRecording=[];
integer NumLines=0;
integer Length=0;

list TimeList=[];
list AddressList=[];
list SubjectList=[];
list BodyList=[];
integer NumMessages=0;
integer CurrentMessage=-1;

float MAIL_FETCH_INTERVAL=5.0;

// Link Messages

integer MSG_HELP = 10000;
integer MSG_STATUS_ONLINE = 30000;
integer MSG_STATUS_OFFLINE = 30100;

integer MSG_MESSAGE_SETADDRESS = 90000;
integer MSG_MESSAGE_GETADDRESS = 90050;
integer MSG_MESSAGE_SETSUBJECT = 90100;
integer MSG_MESSAGE_GETSUBJECT = 90150;
integer MSG_MESSAGE_SEND = 90200;
integer MSG_MESSAGE_SENDHOME = 90300;
integer MSG_MESSAGE_SEND_NOTECARD = 90400;
integer MSG_MESSAGE_ADDRESSBOOK = 90500;
integer MSG_MESSAGE_GETHOME = 90600;
integer MSG_MESSAGE_SETHOME = 90700;
integer MSG_MESSAGE_INFO = 90800;

integer MSG_ADDRESSBOOK_LOADED = 91000;
integer MSG_ADDRESSBOOK_ERROR = 91100;

integer MSG_MESSAGE_REPLY = 99000;

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////// Unix Time conversion //////////////////

integer DAYS_PER_YEAR = 365; // Non leap year
integer SECONDS_PER_YEAR = 31536000; // Non leap year
integer SECONDS_PER_DAY = 86400;
integer SECONDS_PER_HOUR = 3600;
integer SECONDS_PER_MINUTE = 60;

////////////////////////////// LeapYear() /////////////////////////////

integer LeapYear(integer year)
{
if (year % 4 == 0)
{
if (year % 100 == 0)
{
if (year % 400 == 0)
{
return 1;
}
else
{
return 0;
}
}
else
{
return 1;
}
}
else
{
return 0;
}
}

////////////////////////////// DaysPerMonth() ///////////////////////////////////////

integer DaysPerMonth(integer year,integer month)
{
if (month < 8)
{
if (month % 2 == 0)
{
if (month == 2)
{
if (LeapYear(year))
{
return 29;
}
else
{
return 28;
}
}
else
{
return 30;
}
}
else
{
return 31;
}
}
else
{
if (month % 2 == 0)
{
return 31;
}
else
{
return 30;
}
}
}

/////////////////////////// DaysPerYear() ////////////////////////////////////

integer DaysPerYear(integer year)
{
if (LeapYear(year))
return DAYS_PER_YEAR + 1;
else
return DAYS_PER_YEAR;
}

/////////////////////////////// Unix2DataTime() ///////////////////////////////////////

list Unix2DateTime(integer unixtime)
{
integer days_since_1_1_1970 = unixtime / SECONDS_PER_DAY;
integer day = days_since_1_1_1970 + 1;
integer year = 1970;
integer days_per_year = DaysPerYear(year);

while (day > days_per_year)
{
day -= days_per_year;
++year;
days_per_year = DaysPerYear(year);
}

integer month = 1;
integer days_per_month = DaysPerMonth(year,month);

while (day > days_per_month)
{
day -= days_per_month;

if (++month > 12)
{
++year;
month = 1;
}

days_per_month = DaysPerMonth(year,month);
}

integer seconds_since_midnight = unixtime % SECONDS_PER_DAY;
integer hour = seconds_since_midnight / SECONDS_PER_HOUR;
integer second = seconds_since_midnight % SECONDS_PER_HOUR;
integer minute = second / SECONDS_PER_MINUTE;
second = second % SECONDS_PER_MINUTE;

return [ year, month, day, hour, minute, second ];
}

///////////////////////////////// MonthName() ////////////////////////////

list MonthNameList = [ "JAN", "FEB", "MAR", "APR", "MAY", "JUN",
"JUL", "AUG", "SEP", "OCT" , "NOV", "DEC" ];

string MonthName(integer month)
{
if (month >= 0 && month < 12)
return llList2String(MonthNameList, month);
else
return "";
}

///////////////////////////////// DateString() ///////////////////////////

string DateString(list timelist)
{
integer year = llList2Integer(timelist,0);
integer month = llList2Integer(timelist,1);
integer day = llList2Integer(timelist,2);

return (string)day + "-" + MonthName(month - 1) + "-" + (string)year;
}

///////////////////////////////// TimeString() ////////////////////////////

string TimeString(list timelist)
{
integer hour = llList2Integer(timelist,3);
integer minute = llList2Integer(timelist,4);
integer second = llList2Integer(timelist,5);
string hourstr = (string)hour;
string minutestr = (string)minute;
string secondstr = (string)second;

if (hour < 10) hourstr = "0" + hourstr;
if (minute < 10) minutestr = "0" + minutestr;
if (second < 10) secondstr = "0" + secondstr;
return hourstr + ":" + minutestr + ":" + secondstr;
}

/////////////////////////////////// SendMail() /////////////////////////////////////

SendMail(string body)
{
// llOwnerSay("Sending message to '" + address + "' with subject '" + subject +"'.");
llMessageLinked(LINK_THIS, MSG_MESSAGE_SEND, body, NULL_KEY);
}

///////////////////////////////// SendHome() ///////////////////////////////////////

SendHome(string subject, string body)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SENDHOME, body, (key)subject);
}

///////////////////////////////// Show() ////////////////////////////////////////////

Show()
{
integer i;

llOwnerSay("Current chat recording is:");
llOwnerSay("--------------------------");

for (i = 0; i < NumLines; ++i)
{
llOwnerSay(llList2String(ChatRecording,i));
}

llOwnerSay("--------------------------");
llOwnerSay("Lines is " + (string)NumLines);
llOwnerSay("Message length is " + (string)Length);
}

/////////////////////////////// Read() /////////////////////////////////////////

Read()
{
llOwnerSay("Reading message " + (string)CurrentMessage + " from mail buffer.");
integer time = (integer)llList2Integer(TimeList,CurrentMessage);
list timelist=Unix2DateTime(time);
string Address = llList2String(AddressList,CurrentMessage);
string Subject = llList2String(SubjectList,CurrentMessage);
string Body = llList2String(BodyList,CurrentMessage);
llOwnerSay("Date : " + DateString(timelist));
llOwnerSay("Time : " + TimeString(timelist));
llOwnerSay("Address: " + Address);
llOwnerSay("Subject: " + Subject);
llOwnerSay("Begin of message body:");
llOwnerSay("-------------------------");
list bodylist=llParseStringKeepNulls(Body, [ "\n" ], []);
integer num=llGetListLength(bodylist);
integer i;

for (i = 0; i < num; ++i)
{
llOwnerSay(llList2String(bodylist,i));
}

llOwnerSay("-------------------------");
llOwnerSay("End of message body.");
}

////////////////////////////////////// List ////////////////////////////////////////////

List()
{
llOwnerSay("The mail buffer contains the following messages:\n");

integer i;

for (i = 0; i < NumMessages; ++i)
{
integer time=llList2Integer(TimeList,i);
list timelist=Unix2DateTime(time);
if (i > 0) llOwnerSay("+-+-+-+-+-+-+-+-+-+-+-+-");
llOwnerSay("Message: " + (string)i);
llOwnerSay("Date : " + DateString(timelist));
llOwnerSay("Time : " + TimeString(timelist));
llOwnerSay("From: " + llList2String(AddressList,i));
llOwnerSay("Subject: " + llList2String(SubjectList,i));
}
}

//////////////////////////// NotifyNewMail() /////////////////////////

NotifyNewMail(string time, string address, string subject, string body)
{
list timelist=Unix2DateTime((integer)time);

if (StatusOnline)
{
llInstantMessage(llGetOwner(), "You received a new mail message on "
+ DateString(timelist) + " at " + TimeString(timelist)
+ " from " + address
+ " with the subject " + subject);
}
else
{
SendHome("FW: " + subject, "Received at: " + DateString(timelist) + " " + TimeString(timelist) + "\nFrom: " + address
+ "\nBegin message body:\n-------------------\n" + body + "\n-------------------\nEnd message body.");
}
}

///////////////////////////// ResetOtherScripts() //////////////////////

ResetOtherScripts()
{
string name;
integer i;
integer num=llGetListLength(ScriptList);

for (i = 0; i < num; ++i)
{
name = llList2String(ScriptList,i);

if (llGetInventoryType(name) == INVENTORY_SCRIPT)
{
llResetOtherScript(name);
}
else
{
llOwnerSay("Error - script '" + name + "' not found.");
ErrorFlag = TRUE;
}
}
}

//////////////////////////////////////
// default
//////////////////////////////////////

default
{
////////////////////// state_entry() /////////////////////////

state_entry()
{
llOwnerSay("Welcome to SL Mail, released under GNU software licence.");
llOwnerSay("Version " + SL_MAIL_VERSION + " " + SL_MAIL_DATE);
llOwnerSay("Produced by Logic Scripted Products & Product Services");
llOwnerSay("Free memory: " + (string)llGetFreeMemory());
ResetOtherScripts();

if (ErrorFlag)
state Error;
}

/////////////////////// on_rez() //////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

/////////////////////// changed() ////////////////////////////

changed(integer mask)
{
if (mask & CHANGED_INVENTORY)
{
llResetScript();
}
}

/////////////////////// link_message() /////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
else if (msgid == MSG_ADDRESSBOOK_LOADED)
{
state running;
}
else if (msgid == MSG_ADDRESSBOOK_ERROR)
{
state Error;
}
}
}

///////////////////////////////////////
// state running
//////////////////////////////////////

state running
{
///////////////////////// state_entry() //////////////////////

state_entry()
{
llListen(0, "", llGetOwner(), "");
llOwnerSay("SL mail ready.\nSend and Get mail in Second Life.\nType @HELP for more info.");
llMessageLinked(LINK_THIS, MSG_MESSAGE_INFO, "", NULL_KEY);
llGetNextEmail("", "");
llSetTimerEvent(MAIL_FETCH_INTERVAL);
}

//////////////////////// on_rez() ////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

//////////////////////// listen() ////////////////////////////

listen(integer channel, string name, key id, string message)
{
string trimmessage=llStringTrim(message,STRING_TRIM);
list parse = llParseStringKeepNulls(trimmessage, [ " "], []);
string command = llToUpper(llList2String(parse,0));
string arg = llStringTrim(llList2String(parse,1),STRING_TRIM);
integer nargs = llGetListLength(parse);
string argstr="";

if (nargs > 1) argstr=llGetSubString(message, llSubStringIndex(message, " ") + 1, -1);

if (Recording)
{
if (command == COMMAND_STOP)
{
llOwnerSay("Recording stopped. Type @SHOW to see the message you have entered,"
+ " or @SEND to send it.");
Recording = FALSE;
return;
}
if (command == COMMAND_SEND)
{
Recording = FALSE;

SendMail(llDumpList2String(ChatRecording, "\n"));
return;
}
else
{
ChatRecording = (ChatRecording=[]) + ChatRecording + [ message ];
++NumLines;
Length += llStringLength(message) + 2;
return;
}
}
else
{
if (command == COMMAND_RECORD)
{
llOwnerSay("Start recording your message. Type @STOP to end recording.");
ChatRecording = [];
NumLines=0;
Length=0;
Recording = TRUE;
return;
}
if (command == COMMAND_CONTINUE)
{
llOwnerSay("Continue recording your message. Type @STOP to end recording.");
Recording = TRUE;
return;
}
if (command == COMMAND_REPLY)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
string address=llList2String(AddressList,CurrentMessage);
string subject="Re: " + llList2String(SubjectList,CurrentMessage);
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETADDRESS, address, NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETSUBJECT, subject, NULL_KEY);
ChatRecording = [];
NumLines=0;
Length=0;
Recording = TRUE;
}
return;
}
if (command == COMMAND_MAIL)
{
string mailaddress=llStringTrim(argstr,STRING_TRIM);

if (mailaddress != "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETADDRESS, mailaddress, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETADDRESS, "", NULL_KEY);
}
return;
}
if (command == COMMAND_SUBJECT)
{
string mailsubject=llStringTrim(argstr,STRING_TRIM);

if (mailsubject != "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETSUBJECT, mailsubject, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETSUBJECT, "", NULL_KEY);
}
return;
}
if (command == COMMAND_STOP)
{
llOwnerSay("Not recording.");
return;
}
if (command == COMMAND_SEND)
{
if (nargs == 1)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
SendMail(llDumpList2String(ChatRecording, "\n"));
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SEND_NOTECARD, argstr, NULL_KEY);
}
return;
}
if (command == COMMAND_IGNORE)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
ChatRecording = [];
NumLines = 0;
Length = 0;
}
return;
}
if (command == COMMAND_SHOW)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
Show();
}
return;
}
if (command == COMMAND_READ)
{
if (NumMessages == 0)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
Read();
}
return;
}
if (command == COMMAND_NEXT)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == NumMessages - 1)
{
llOwnerSay("Already at last message.");
}
else
{
++CurrentMessage;
Read();
}
}
return;
}
if (command == COMMAND_PREV)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == 0)
{
llOwnerSay("Already at first message.");
}
else
{
--CurrentMessage;
Read();
}
}
return;
}
if (command == COMMAND_FIRST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == 0)
{
llOwnerSay("Already at first message.");
}
else
{
CurrentMessage = 0;
Read();
}
}
return;
}
if (command == COMMAND_LAST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == NumMessages - 1)
{
llOwnerSay("Already at last message.");
}
else
{
CurrentMessage = NumMessages - 1;
Read();
}
}
return;
}
if (command == COMMAND_LIST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
List();
}
return;
}
if (command == COMMAND_SELECT)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else if (nargs == 1)
{
llOwnerSay("Need to supply a message number.");
}
else
{
integer msgnum = (integer)arg;

if (msgnum < 0 || msgnum >= NumMessages)
{
llOwnerSay("Message number " + arg + " not in mail buffer.");
}
else
{
CurrentMessage = msgnum;
}
}
return;
}
if (command == COMMAND_DELETE)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
TimeList = llDeleteSubList(TimeList,CurrentMessage,CurrentMessage);
AddressList = llDeleteSubList(AddressList,CurrentMessage,CurrentMessage);
SubjectList = llDeleteSubList(SubjectList,CurrentMessage,CurrentMessage);
BodyList = llDeleteSubList(BodyList,CurrentMessage,CurrentMessage);
--NumMessages;

if (NumMessages == 0)
{
CurrentMessage = -1;
}
else if (CurrentMessage >= NumMessages)
{
CurrentMessage = NumMessages - 1;
}
}
return;
}
if (command == COMMAND_CLEAR)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
TimeList=[];
AddressList=[];
SubjectList=[];
BodyList=[];
NumMessages=0;
CurrentMessage=-1;
}
return;
}
if (command == COMMAND_HELP)
{
llMessageLinked(LINK_THIS, MSG_HELP, arg, NULL_KEY);
return;
}
if (command == COMMAND_INFO)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_INFO, "", NULL_KEY);
return;
}
if (command == COMMAND_SHOW)
{
Show();
return;
}
if (command == COMMAND_RESET)
{
llResetScript();
return;
}
if (command == COMMAND_OFF)
{
state not_running;
}
if (command == COMMAND_HOME)
{
if (nargs==1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETHOME, "", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETHOME, argstr, NULL_KEY);
}
return;
}
}
}

///////////////////////// timer() ///////////////////////////////

timer()
{
llGetNextEmail("", "");
}

///////////////////////// email() ///////////////////////////////

email(string time, string address, string subject, string body, integer queued)
{
NotifyNewMail(time, address, subject, body);
TimeList = (TimeList=[]) + TimeList + [time];
AddressList = (AddressList=[]) + AddressList + [address];
SubjectList = (SubjectList=[]) + SubjectList + [subject];
BodyList = (BodyList=[]) + BodyList + [body];
++NumMessages;

if (CurrentMessage == -1)
{
CurrentMessage = 0;
}
else
{
CurrentMessage = NumMessages - 1;
}
}

///////////////////// link_message() //////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
else if (msgid == MSG_MESSAGE_REPLY)
{
llOwnerSay(message);
}
}
}

//////////////////////////////////
// state not_running
//////////////////////////////////

state not_running
{
///////////////////// state_entry() //////////////////////////

state_entry()
{
llOwnerSay("SL Mailbox switched OFF. Say @ON to switch it back on.");
llListen(0, "", llGetOwner(), "");
}

//////////////////// on_rez() ///////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

//////////////////// listen() ////////////////////////////////

listen(integer chan, string name, key id, string message)
{
string command=llToUpper(message);

if (command == COMMAND_ON)
{
state running;
}
}

///////////////////// link_message() //////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
}
}

//////////////////////////////////
// state Error
//////////////////////////////////

state Error
{
state_entry()
{
llOwnerSay("Error in SL Mail: not all component scripts found.");
}

changed(integer mask)
{
if (mask & CHANGED_INVENTORY)
{
llResetScript();
}
}

on_rez(integer start_param)
{
llResetScript();
}
}

//////////////////////////////////
// End SL Mail V1.2.lsl
//////////////////////////////////
</lsl>
</div>
</div>

<div id="box">

==Script: SL Mail Address Book V1.2==
<div style="padding: 0.5em;">
Read and interpret the contents of the Address Book.
<lsl>
// SL Mail AddressBook V1.2.lsl
//
// DESCRIPTION
//
// Read the Address Book from a notecard named "Address Book".
//
// The Address Book has the following format:
//
// [ADDRESS BOOK]
// Name1=username@yourdomain.com
// Name2=otheruser@otherdomain.com
// ...
// [GROUP]
// group1=Name1, Name2
// ...
//
// Notes:
// 1. Group and Name share the same namespace, and must be unique.
// 2. It is allowed to have a name in the addressbook with multiple addresses, seperated by comma's.
//
/////////////////////////////////////////////////

string CurrentMailAddress = "";
string CurrentMailSubject = "";
integer StatusOnline = FALSE;

// Fetch or Send notecard

string Notecard2Fetch="";

// Address Book Names

list AddressBookList=[];
list MailAddressList=[];

string STRING_HOME="HOME";
string STRING_SELF="SELF";

// Address Book Groups

list GroupList=[];
list GroupNameList=[];

string LSL_DOMAIN = "lsl.secondlife.com";

// Read Address Book notecard

string ADDRESSBOOK_NOTECARD="Address Book";
integer Line=0;
key reqAddressBook=NULL_KEY;
float TIMEOUT_INTERVAL=5.0;

integer Section=0;
integer SECTION_ADDRESS_BOOK=1;
integer SECTION_GROUP=2;
string STRING_ADDRESS_BOOK="ADDRESS BOOK";
string STRING_GROUP="GROUP";

// Links messages

integer MSG_MESSAGE_SETADDRESS = 90000;
integer MSG_MESSAGE_GETADDRESS = 90050;
integer MSG_MESSAGE_SETSUBJECT = 90100;
integer MSG_MESSAGE_GETSUBJECT = 90150;
integer MSG_MESSAGE_SEND = 90200;
integer MSG_MESSAGE_SENDHOME = 90300;
integer MSG_MESSAGE_SEND_NOTECARD = 90400;
integer MSG_MESSAGE_ADDRESSBOOK = 90500;
integer MSG_MESSAGE_GETHOME = 90600;
integer MSG_MESSAGE_SETHOME = 90700;
integer MSG_MESSAGE_INFO = 90800;
integer MSG_MESSAGE_NOTIFY = 90900;

integer MSG_ADDRESSBOOK_LOADED = 91000;
integer MSG_ADDRESSBOOK_ERROR = 91100;

integer MSG_MESSAGE_REPLY = 99000;

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////// GetSelfAddress() ///////////////////////

string GetSelfAddress()
{
return (string)llGetKey() + "@" + LSL_DOMAIN;
}

///////////////////////////// Info() /////////////////////////////////

Info()
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "The mail address for this object is: "
+ GetSelfAddress() + ".", NULL_KEY);
}

///////////////////////////////// IsValidKeyFormat() //////////////////////

integer IsValidKeyFormat(string str)
{
string keychars = "0123456789abcdef";

if (llStringLength(str) != 36)
return FALSE;

if( (llGetSubString( str, 8, 8 ) != "-" ||
llGetSubString( str, 13, 13 ) != "-" ||
llGetSubString( str, 18, 18 ) != "-" ||
llGetSubString( str, 23, 23 ) != "-" ) )
return FALSE;

integer i;

for (i = 0; i < 8; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 9; i < 13; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 14; i < 18; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 19; i < 23; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 24; i < 36; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

return TRUE;
}

///////////////////////////////// ValidMailAddress() ////////////////////////

integer ValidMailAddress(string arg)
{
string adress = llToLower(llStringTrim(arg,STRING_TRIM));

if (adress == "")
return FALSE;

list parse = llParseStringKeepNulls(adress, [ "@" ], []);
string account = llList2String(parse,0);
string domain = llList2String(parse,1);

if (llGetListLength(parse) != 2 || llStringLength(account) == 0 || llStringLength(domain) == 0)
return FALSE;

if (domain == LSL_DOMAIN)
{
return IsValidKeyFormat(account);
}
else
{
list parsedomain = llParseString2List(domain, [ "." ], []);

if (llGetListLength(parsedomain) < 2)
return FALSE;

integer num = llGetListLength(parsedomain);
integer i;

for (i = 0; i < num; ++i)
{
if (llStringLength(llList2String(parsedomain,i)) < 2)
{
return FALSE;
}
}
}

return TRUE;
}

/////////////////////////////////// GetAddressStr() ///////////////////

string GetAndCheckAddressStr(string address)
{
list addresslist = llCSV2List(address);
integer num=llGetListLength(addresslist);
integer i;
string addressstr="";
string curaddress="";

for (i = 0; i < num; ++i)
{
curaddress=llList2String(addresslist,i);

if (ValidMailAddress(curaddress))
{
addressstr = (addressstr="") + addressstr + curaddress + ",";
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address string: '"
+ curaddress + "'.", NULL_KEY);
}
}

return llGetSubString(addressstr, 0, -2);
}

///////////////////////////// ProcessLine() ////////////////////////////

ProcessLine(string rawline)
{
string line=llStringTrim(rawline,STRING_TRIM);
string first=llGetSubString(line,0,0);
string last=llGetSubString(line,-1,-1);

// Ignore a blank line or comment line
if (line == "" || first == "#")
return;

// Check for the right section

if (first == "[" && last == "]")
{
string sectionstr=llToUpper(llStringTrim(llGetSubString(line,1,-2),STRING_TRIM));

if (sectionstr == STRING_ADDRESS_BOOK)
{
Section = SECTION_ADDRESS_BOOK;
}
else if (sectionstr == STRING_GROUP)
{
if (Section == 0)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1)
+ ". Group section defined before Address Book section.", NULL_KEY);
}
else
{
Section = SECTION_GROUP;
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid section header '" + sectionstr
+ "' in " + ADDRESSBOOK_NOTECARD + " at line " + (string)(Line + 1) + ".", NULL_KEY);
}

return;
}

// Must be in a section

if (Section == 0)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ". No section header.", NULL_KEY);
return;
}

list parse=llParseString2List(line, [ "=" ], []);
integer num=llGetListLength(parse);

// Format must be correct

if (num != 2)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line+1) + ":\n" + rawline, NULL_KEY);
return;
}

if (Section == SECTION_ADDRESS_BOOK)
{
string name=llStringTrim(llList2String(parse,0),STRING_TRIM);

if (llToUpper(name) == STRING_SELF)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address book entry '" + name
+ "'. Reserved word in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ".", NULL_KEY);
}
else if (llListFindList(AddressBookList, [ name ]) == -1)
{
string address=llStringTrim(llList2String(parse,1),STRING_TRIM);
string addressstr=GetAndCheckAddressStr(address);

if (addressstr != "")
{
AddressBookList = (AddressBookList=[]) + AddressBookList + [ name ];
MailAddressList = (MailAddressList=[]) + MailAddressList + [ addressstr ];
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "No valid mail address for '" + name
+ "'. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line " + (string)(Line + 1)
+ ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Name '" + name
+ "' already defined. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else // Group
{
string group=llStringTrim(llList2String(parse,0),STRING_TRIM);

if (llToUpper(group) == STRING_SELF)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address book entry '" + group
+ "'. Reserved word in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ".", NULL_KEY);
}
else if (llListFindList(AddressBookList, [ group ]) == -1)
{
if (llListFindList(GroupList, [ group ]) == -1)
{
string names=llStringTrim(llList2String(parse,1),STRING_TRIM);
list namelist=llCSV2List(names);
integer num=llGetListLength(namelist);
integer i;
integer index;
string name;
string namestr="";

for (i = 0; i < num; ++i)
{
name=llList2String(namelist,i);
index=llListFindList(AddressBookList, [ name ]);

if (index == -1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Name '" + name + "' defined in Group '"
+ group + "' not found in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
else
{
namestr = (namestr="") + namestr + name + ",";
}
}

if (namestr != "")
{
namestr=llGetSubString(namestr,0,-2);
GroupList = (GroupList=[]) + GroupList + [ group ];
GroupNameList = (GroupNameList=[]) + GroupNameList + [ namestr ];
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' has no valid names. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' already defined in Group. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' already defined in Address Book. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
}

//////////////////////////////// GetGroupAddressList ///////////////

string GetGroupAddressList(string group)
{
integer index=llListFindList(GroupList, [ group ]);
integer i;
integer num=llGetListLength(GroupList);
string grouplist="";

if (index == -1)
{
return "";
}
else
{
for (i = index; i < num; ++i)
{
if (llList2String(GroupList,i) == group)
{
grouplist = (grouplist="") + grouplist + llList2String(GroupNameList,i) + ",";
}
}

if (grouplist != "") grouplist=llGetSubString(grouplist,0,-2); // remove last ","
return grouplist;
}
}

//////////////////////////////// SetMailAddress() //////////////////

SetMailAddress(string address)
{
integer index=llListFindList(AddressBookList, [ address ]);

if (index == -1)
{
index=llListFindList(GroupList, [ address ]);

if (index == -1)
{
if (llToUpper(address) == STRING_SELF)
{
CurrentMailAddress = GetSelfAddress();
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
else if(ValidMailAddress(address))
{
CurrentMailAddress = address;
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Mail adress " + address
+ " : not found in adress book or invalid format.", NULL_KEY);
}
}
else
{
CurrentMailAddress = GetGroupAddressList(address);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject set to: "
+ CurrentMailAddress, NULL_KEY);
}
}
else
{
CurrentMailAddress = llList2String(MailAddressList,index);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
}

/////////////////////////////////// SendMail() ///////////////////////

SendMail(string message)
{
if (CurrentMailAddress == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "SendMail: No mail address defined.", NULL_KEY);
}
else if (CurrentMailSubject == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "SendMail: No subject defined.", NULL_KEY);
}
else
{
list mailaddresslist=llCSV2List(CurrentMailAddress);
integer num=llGetListLength(mailaddresslist);
integer i;
string address;

for (i = 0; i < num; ++i)
{
address=llList2String(mailaddresslist,i);
llEmail(address, CurrentMailSubject, message);
}
}
}

/////////////////////////////////// SendMailHome() ////////////////////

SendMailHome(string message, string subject)
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, STRING_HOME
+ " not set. Set your home adress with @HOME <address>.", NULL_KEY);
}
else
{
string homeaddress=llList2String(AddressBookList,index);
list homelist=llCSV2List(homeaddress);
integer num=llGetListLength(homelist);
integer i;
string address;

for (i = 0; i < num; ++i)
{
address=llList2String(homelist,i);
llEmail(address, subject, message);
}
}
}

/////////////////////////////////// GetHomeAddress() //////////////////

string GetHomeAddress()
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
return "not set";
}
else
{
return llList2String(MailAddressList,index);
}
}

/////////////////////////////////// SetHomeAddress() //////////////////

SetHomeAddress(string address)
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
AddressBookList = (AddressBookList=[]) + [ STRING_HOME ] + AddressBookList;
MailAddressList = (MailAddressList=[]) + [ GetAndCheckAddressStr(address) ] + MailAddressList;
}
else
{
MailAddressList = llListReplaceList(MailAddressList, [ GetAndCheckAddressStr(address) ], index, index);
}
}

////////////////////////////////////
// default
////////////////////////////////////

default
{
///////////////////// state_entry() //////////////////

state_entry()
{
Line=0;
Section=0;
llSetTimerEvent(TIMEOUT_INTERVAL);
reqAddressBook=llGetNotecardLine(ADDRESSBOOK_NOTECARD, 0);
}

///////////////////// dataserver() ////////////////////

dataserver(key id, string data)
{
if (id == reqAddressBook)
{
reqAddressBook = NULL_KEY;

if (data != EOF)
{
ProcessLine(data);
reqAddressBook=llGetNotecardLine(ADDRESSBOOK_NOTECARD, ++Line);
}
else
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_LOADED, "", NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Address Book loaded.", NULL_KEY);
state running;
}
}
}

//////////////////////// timer() ///////////////////////////

timer()
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_ERROR, "", NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Could not read Address Book: "
+ ADDRESSBOOK_NOTECARD + ".", NULL_KEY);
llSetTimerEvent(0.0);
}
}

////////////////////////////////////////////
// state running
////////////////////////////////////////////

state running
{
state_entry()
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_LOADED, "", NULL_KEY);
}

///////////////////////// link_message() ////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_MESSAGE_GETSUBJECT)
{
if (CurrentMailSubject == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject is empty.", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject is: "
+ CurrentMailSubject, NULL_KEY);
}
}
else if (msgid == MSG_MESSAGE_SETSUBJECT)
{
CurrentMailSubject = message;
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject set to: "
+ CurrentMailSubject, NULL_KEY);
}
else if (msgid == MSG_MESSAGE_GETADDRESS)
{
if (CurrentMailAddress == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address is empty.", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address is: "
+ CurrentMailAddress, NULL_KEY);
}
}
else if (msgid == MSG_MESSAGE_SETADDRESS)
{
SetMailAddress(message);
}
else if (msgid == MSG_MESSAGE_SEND)
{
if (message == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Body of message to send is empty. "
+ "No mail is send.", NULL_KEY);
}
else
{
SendMail(message);
}
}
else if (msgid == MSG_MESSAGE_SENDHOME)
{
SendMailHome(message, (string)id);
}
else if (msgid == MSG_MESSAGE_SEND_NOTECARD)
{
if (llGetInventoryType(message) == INVENTORY_NOTECARD)
{
Notecard2Fetch = message;
llMessageLinked(LINK_THIS, MSG_NOTECARD_READ, message, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Notecard " + message + " not found.", NULL_KEY);
}
}
else if (msgid == MSG_NOTECARD_FETCHED)
{
if (message == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Notecard " + Notecard2Fetch
+ " was empty or could not be read.", NULL_KEY);
}
else
{
SendMail(message);
}
}
else if (msgid == MSG_MESSAGE_GETHOME)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Home address is: " + GetHomeAddress() + ".", NULL_KEY);
}
else if (msgid == MSG_MESSAGE_SETHOME)
{
SetHomeAddress(message);
}
else if (msgid == MSG_MESSAGE_INFO)
{
Info();
}
}
}

/////////////////////////////////////
// End SL Mail AddressBook V1.2.lsl
/////////////////////////////////////
</lsl>
</div>
</div>

<div id="box">

==Script: SL Mail FetchNotecard V1.2==
<div style="padding: 0.5em;">
Fetch the contents of a notecard and return it via link message as a string.
<lsl>
// SL Mail FetchNotecard V1.2.lsl
//
//

// Notecard

integer Line=0;
string Notecard2Fetch="";
key reqNotecard=NULL_KEY;
float TIMEOUT_INTERVAL=10.0;
integer Fetched=FALSE;

// Lines

list LineList=[];

// Link messages

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////////////////////
// default
//////////////////////////////////////////

default
{
/////////////////////// dataserver() //////////////////////////////

dataserver(key id, string data)
{
if (id == reqNotecard)
{
reqNotecard=NULL_KEY;

if (data != EOF)
{
LineList = (LineList=[]) + LineList + [ data ];
reqNotecard = llGetNotecardLine(Notecard2Fetch, ++Line);
}
else
{
Fetched=TRUE;
llMessageLinked(LINK_THIS, MSG_NOTECARD_FETCHED, llDumpList2String(LineList, "\n"), NULL_KEY);
llSetTimerEvent(0.0);
}
}
}

/////////////////////// timer() ///////////////////////////////////

timer()
{
if (!Fetched)
{
llMessageLinked(LINK_THIS, MSG_NOTECARD_FETCHED, "", NULL_KEY);
llSetTimerEvent(0.0);
}
}

/////////////////////// link_message() ////////////////////////////

link_message(integer send, integer msgid, string message, key id)
{
if (msgid == MSG_NOTECARD_READ)
{
Line=0;
Notecard2Fetch=message;
LineList=[];
Fetched=FALSE;
reqNotecard=llGetNotecardLine(Notecard2Fetch, Line);
llSetTimerEvent(TIMEOUT_INTERVAL);
}
}
}

// End SL Mail FetchNotecard V1.2.lsl
</lsl>
</div>
</div>

<div id="box">

==Script: SL OnlineStatus V1.2==
<div style="padding: 0.5em;">
Fetch online status of owner.
<lsl>
// SL Mail OnlineStatus V1.2.lsl
//
//

// Online status

key reqOnlineStatus=NULL_KEY;
float STATUS_INTERVAL=2.0;

// Link messages

integer MSG_STATUS_ONLINE = 30000;
integer MS_STATUS_OFFLINE = 30100;

////////////////////////////////
// default
////////////////////////////////

default
{
///////////////////////// state_entry() /////////////////////////

state_entry()
{
reqOnlineStatus=llRequestAgentData(llGetOwner(), DATA_ONLINE);
llSetTimerEvent(STATUS_INTERVAL);
}

///////////////////////// dataserver() //////////////////////////

dataserver(key id, string data)
{
if (id == reqOnlineStatus)
{
reqOnlineStatus = NULL_KEY;

if (data=="1")
{
llMessageLinked(LINK_THIS, MSG_STATUS_ONLINE, "", NULL_KEY);
}
else if (data=="0")
{
llMessageLinked(LINK_THIS, MS_STATUS_OFFLINE, "", NULL_KEY);
}
}
}

///////////////////////// timer() ///////////////////////////////

timer()
{
reqOnlineStatus = llRequestAgentData(llGetOwner(), DATA_ONLINE);
}
}

// End SL Mail OnlineStatus V1.2.lsl
</lsl>
</div>
</div>

<div id="box">

==Script: SL Mail Help V1.2==
<div style="padding: 0.5em;">
Display help information.

<lsl>
// SL Mail Help V1.2.lsl
//
//

integer MSG_HELP = 10000;

///////////////////////////////// Help() ///////////////////////////////////////

Help()
{
llOwnerSay("HELP for SL Mail V1.2.");
llOwnerSay("COMMANDS:");
llOwnerSay("@HELP - displays help info.");
llOwnerSay("@INFO - display mailaddress of this object.");
llOwnerSay("@RECORD - start recording.");
llOwnerSay("@CONTINUE - continue recording.");
llOwnerSay("@STOP - stop recording.");
llOwnerSay("@IGNORE - ignore the recording.");
llOwnerSay("@SHOW - show what your recorded.");
llOwnerSay("@SEND - send the recording.");
llOwnerSay("@MAIL <mailadress> - set the mail adress.");
llOwnerSay("@SUBJECT subject - set the mail subject.");
llOwnerSay("@LIST - list messages in mail buffer.");
llOwnerSay("@SELECT <message> - select message from mail buffer.");
llOwnerSay("@READ - read current message from mail buffer.");
llOwnerSay("@NEXT - read next message from mail buffer.");
llOwnerSay("@PREV - read previous message from mail buffer.");
llOwnerSay("@FIRST - read first message from mail buffer.");
llOwnerSay("@LAST - read last message from mail buffer.");
llOwnerSay("@DELETE - delete current message from mail buffer.");
llOwnerSay("@CLEAR - clear the mail buffer.");
llOwnerSay("@REPLY - reply to current message.");
llOwnerSay("@RESET - reset the script.");
llOwnerSay("@HOME - set the home mail adress.");
llOwnerSay("@OFF - switch mailbox OFF.");
llOwnerSay("@ON - switch mailbox ON.");
}

/////////////////////////////////////////////
// default
/////////////////////////////////////////////

default
{
link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_HELP)
{
Help();
}
}
}

// End SL Mail Help V1.2.lsl
</lsl>
</div>
</div>
[[Image:slmail.info.jpg]]

{{LSLC|Library}}

SL Mail V1.2

Flennan Roffo — Fri, 09 May 2008 11:13:45 GMT

Flennan Roffo:

{{LSL Header}} __NOTOC__
<div id="box">
='''Second Life mail client'''=
<div style="padding: 0.5em">

'''Send and receive email from within Second Life from and to any address.'''

Implemented with Address Book function (in a notecard named 'Address Book') to stores addresses by name and to compile groups of named addresses. Current version is stand-alone (no server functionality) and uses chat commands only.

[[Image:BannerSLMail.jpg]]

URL: [http://www.slmail.info slmail.info] (website coming soon!)

</div>
</div>

<div id="box">

=Release Notes V1.2=
<div style="padding: 0.5em">
SL Mail V1.2 Release notes (edition 2, 4 sept 2007)
</div>
</div>

<div id="box">
=='''LICENCE INFO'''==
<div style="padding: 0.5em">
SL Mail V1.2 is released under GNU free software licence
</div>
</div>

<div id="box">
=='''PRODUCTION & MAINTANENCE'''==
<div style="padding: 0.5em">
by Logic Scripted Products and Script Services

[[Image:Logicbanner1.jpg]]

URL: [http://www.logicscripts.org logicscripts.org] (website coming soon!)

SLurl:
{{SLurl
|region=Peacock Park
|x=189
|y=226
|z=69
|title=Logic Scripted products and Script services
|}}

Contact: [[User:Flennan Roffo|Flennan Roffo]]

Email: [mailto:info@slmail.info '''info'''] or [mailto:Flennan.Roffo@slmail.info '''Flennan Roffo''']

</div>
</div>

<div id="box">

=='''DESCRIPTION'''==
<div style="padding: 0.5em">
SL Mail V1.2 is a simple tool to send and receive mail from within SL.
You can either compose a message yourself using chat recording, or choose a notecard from inventory to send. The Address Book functionality allows you to use short names for mail recipients stored in a notecard. The current version does not have a persisent mail address. Watch out for the upcoming next release (V1.3) which will facilitate persisent in-world mail addresses and will be enhanced with many new features (See: Requests For Change (RFC).
</div>
</div>

<div id="box">

=='''COMMANDS'''==
<div style="padding: 0.5em">
{| {{Prettytable}}
|-
|{{Hl2}}| '''Command'''
|{{Hl2}}| '''Description'''
|-
||'''@Help'''
||Show Help about available commands
|-
||'''@Record'''
||Starts a chat recording (for owner only).
|-
||'''@Stop'''
||Stops the chat recording without sending
|-
||'''@Continue'''
||Continues a previously stopped chat recording. Lines will be appended to you recording buffer.
|-
||'''@Show'''
||Shows the content of the recording buffer.
|-
||'''@Send'''
||If recording, stops the recording, and sends the mail (need to supply mail address and subject first!)
|-
||'''@Send <notecard>'''
||Sends the content of the notecard, instead of the chat recording.
|-
||'''@Ignore'''
||Ignores your current chat recording.
|-
||'''@Mail <address>'''
||Define the mail address to send to.
|-
||'''@Mail'''
||Shows the current mail address to send to.
|-
||'''@Subject <subject>'''
||Define the subject of the mail.
|-
||'''@Subject'''
||Shows the current mail subject.
|-
||'''@Home <address>'''
||Set the HOME address of the owner (mail will be forwarder to this address when offline).
|-
||'''@Home'''
||Show the HOME address.
|-
||'''@Info'''
||Shows the mail address the object this script is running in uses (e.g. <object-key>@lsl.secondlife.com).
|-
||'''@Read'''
||Reads the current message from the mail buffer (the mail buffer gets filled with mail you receive)
|-
||'''@Select <msg>'''
||Select a message number from the availabe messages in the mail buffer.
|-
||'''@Next'''
||Make next message the current message.
|-
||'''@Prev'''
||Make previous message the current message.
|-
||'''@First'''
||Make the first message the current message.
|-
||'''@Last'''
||Make the last message the current message.
|-
||'''@Clear'''
||Clear the mail buffer
|-
||'''@Delete'''
||Deletes only the current message
|-
||'''@Reply'''
||Starts a chat recording to reply to the current message. Mail adress and subject are filled in automatically.
|}

Note:

* Commands are case insensitive ("@read" == "@READ"). Arguments might not be case insensitive.
</div>
</div>

<div id="box">
=='''ADDRESS BOOK FORMAT'''==
<div style="padding: 0.5em">
A notecard of the name 'Address Book' is read during initialization which may contain Address Book items and Groups.
The notecard is split in two sections, which need to be defined in that particular order.

'''[ADDRESS BOOK]'''

Defines the section in which you can put names for mail addresses, like this:

'''Name1=account@thisdomain.com'''

'''Name2=user@otherdomain.com'''

etc.

'''[GROUP]'''

Define groups of previously defined names under a new name, like for instance:

'''MyGroup=Name1, Name2'''

Note that names of groups and individual mail adresses share the same namespace and must be unique.

So when you filled in your mail adresses in the Address Book, you can now use:

'''@Mail Name1'''

To send mail to <account@thisdomain.com>

or you can use

'''@Mail MyGroup'''

To send mail to <account@thisdomain.com> and <user@otherdomain.com>
Mails will be sent one after another.

Notes:

* Names for Addreses and Groups are case insensitive (e.g. "mary" == "MARY")

* The special address 'Self' can be used in commands where otherwise an address specification can be used. 'Self' is case insensitive (e.g. "self" == "SELF")

</div>
</div>

<div id="box">
=='''LIMITATIONS'''==
<div style="padding: 0.5em">
The current version is limited by the following:

* Chat recording lines are limited by the 255 byte limit

* Output of lines from the mail buffer are also limited by this 255 byte limit

* Incoming mail is limited to a 1000 (1024?) byte limit

* Outgoing mai is limited by a 4096 byte limit, which includes the standard mail header (region/location info on the first two lines)

We are making adjustments to this release to help overcome these limitations. At least the line lenght limit can be overcome by introducing a line continuation character (for example a hyphen '-') that when used at the end of a line appends the next line, so lines longer then 255 bytes are possible then.

To overcome the outgoing mail length limit, the mail can be broken textualy into parts, and each part can be send seperatedely, with an indication in the subject or in an introduced primary line of the mail body to indicate that the mail was split into parts.
For incoming mail and at least to receive mail from other SL Mail programs, a protocol will be introduced to receive mail in parts that are joined together after receiving them to form a single mail.

These enhancements will be made available in the next release (V1.3) of SL Mail
</div>
</div>

<div id="box">
=='''BUGS'''==
<div style="padding: 0.5em">
Report any bugs you find in this release to Logic (IM: Flennan Roffo).
</div>
</div>

<div id="box">
=='''REQUEST FOR CHANGE (RFC)'''==
<div style="padding: 0.5em">
Do you have additional wishes for enhancement of this product?
Contact Flennan Roffo and we will see if they can be implemented in the next release.

Existing RFC's are:

* Menu support for commands.

* Lines on incoming/outgoing mail longer than 255 bytes.

* Send messages longer than 4096 (minus SL mail header) bytes.

* Receive messages longer than 1024 bytes.

* Permanent mail addresses for the SL Mail client (like: <Flennan.Roffo@somedomain.sl>)

Add your RFC!
</div>
</div>

<div id="box">
=='''SL MAIL SUPPORT & DEVELOPMENT'''==
<div style="padding: 0.5em">

In-world join the group "SL Mail" for bug reports, feature requests, the latest SL Mail release, and notices about development issues.
</div>
</div>

<div id="box">

=Scripts=
</div>

<div id="box">
==Script: SL Mail v1.2==
<div style="padding: 0.5em;">
SL Mail core module which scans for incoming mail messages and executes commands used by the owner.
<lsl>
// SL Mail V1.2.lsl
// (c) 2007 Logic Scripted Products and Script Services
// Flennan Roffo

// VERSION
// Version: 1.2

// HISTORY
// Date Version Author Comment
// --------------------------------------------------------------------------------------
// 28 aug 2007 V 1.0 Flennan Roffo Created
//
// 1 sep 2007 V 1.1 Flennan Roffo @Reply empties the recording buffer.
// @Send while recording ends recording
// and sends the mail if a mail address
// and subject are supplied.
// Fixed incorrect date in Unix2DateTime.
// 3 sep 2007 V 1.2 Flennan Roffo Notification options:
// - When online, send an IM when mail is received.
// - When offline, send to HOME mail adress.
// Adressbook
// - Read adress book from config notecard.

// LICENCE
// This program is free software; you can redistribute it and/or
// modify it under the terms of the GNU General Public License
// as published by the Free Software Foundation; either version 2
// of the License, or (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
// (Also available at http://www.gnu.org/copyleft/gpl.html)

// DESCRIPTION
// Let's you record a message and sent to email and get messages and reply to messages.
// Must supply a valid mail adress and non-empty subject using chat commands.

// TODO:
// 1) Check for the maximum length of an email message (including newline and header).
// 2) Read adress book from notecard. *DONE*
// 3) Send incoming mail to personal mail adress when offline. *DONE*
// 4) Alert with an IM when online upon receiving new mail. *DONE*

string SL_MAIL_VERSION = "V 1.2";
string SL_MAIL_DATE = " 2 sep 2007";
integer ErrorFlag = FALSE;
list ScriptList = [ "SL Mail Help V1.2", "SL Mail AddressBook V1.2",
"SL Mail OnlineStatus V1.2", "SL Mail FetchNotecard V1.2" ];
string LSL_DOMAIN="lsl.secondlife.com";
integer StatusOnline=FALSE;

// Commands

string COMMAND_RECORD = "@RECORD";
string COMMAND_CONTINUE = "@CONTINUE";
string COMMAND_STOP = "@STOP";
string COMMAND_MAIL = "@MAIL";
string COMMAND_SUBJECT = "@SUBJECT";
string COMMAND_SEND = "@SEND";
string COMMAND_SEE = "@SEE";
string COMMAND_IGNORE = "@IGNORE";
string COMMAND_READ = "@READ";
string COMMAND_DELETE = "@DELETE";
string COMMAND_CLEAR = "@CLEAR";
string COMMAND_REPLY = "@REPLY";
string COMMAND_NEXT = "@NEXT";
string COMMAND_PREV = "@PREV";
string COMMAND_FIRST = "@FIRST";
string COMMAND_LAST = "@LAST";
string COMMAND_LIST = "@LIST";
string COMMAND_SELECT = "@SELECT";
string COMMAND_HELP = "@HELP";
string COMMAND_INFO = "@INFO";
string COMMAND_RESET = "@RESET";
string COMMAND_SHOW = "@SHOW";
string COMMAND_ON = "@ON";
string COMMAND_OFF = "@OFF";
string COMMAND_HOME = "@HOME";
string COMMAND_LOAD = "@LOAD";
string COMMAND_ADDRESS = "@ADDRESS";

// Recording

integer Recording = FALSE;

list ChatRecording=[];
integer NumLines=0;
integer Length=0;

list TimeList=[];
list AddressList=[];
list SubjectList=[];
list BodyList=[];
integer NumMessages=0;
integer CurrentMessage=-1;

float MAIL_FETCH_INTERVAL=5.0;

// Link Messages

integer MSG_HELP = 10000;
integer MSG_STATUS_ONLINE = 30000;
integer MSG_STATUS_OFFLINE = 30100;

integer MSG_MESSAGE_SETADDRESS = 90000;
integer MSG_MESSAGE_GETADDRESS = 90050;
integer MSG_MESSAGE_SETSUBJECT = 90100;
integer MSG_MESSAGE_GETSUBJECT = 90150;
integer MSG_MESSAGE_SEND = 90200;
integer MSG_MESSAGE_SENDHOME = 90300;
integer MSG_MESSAGE_SEND_NOTECARD = 90400;
integer MSG_MESSAGE_ADDRESSBOOK = 90500;
integer MSG_MESSAGE_GETHOME = 90600;
integer MSG_MESSAGE_SETHOME = 90700;
integer MSG_MESSAGE_INFO = 90800;

integer MSG_ADDRESSBOOK_LOADED = 91000;
integer MSG_ADDRESSBOOK_ERROR = 91100;

integer MSG_MESSAGE_REPLY = 99000;

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////// Unix Time conversion //////////////////

integer DAYS_PER_YEAR = 365; // Non leap year
integer SECONDS_PER_YEAR = 31536000; // Non leap year
integer SECONDS_PER_DAY = 86400;
integer SECONDS_PER_HOUR = 3600;
integer SECONDS_PER_MINUTE = 60;

////////////////////////////// LeapYear() /////////////////////////////

integer LeapYear(integer year)
{
if (year % 4 == 0)
{
if (year % 100 == 0)
{
if (year % 400 == 0)
{
return 1;
}
else
{
return 0;
}
}
else
{
return 1;
}
}
else
{
return 0;
}
}

////////////////////////////// DaysPerMonth() ///////////////////////////////////////

integer DaysPerMonth(integer year,integer month)
{
if (month < 8)
{
if (month % 2 == 0)
{
if (month == 2)
{
if (LeapYear(year))
{
return 29;
}
else
{
return 28;
}
}
else
{
return 30;
}
}
else
{
return 31;
}
}
else
{
if (month % 2 == 0)
{
return 31;
}
else
{
return 30;
}
}
}

/////////////////////////// DaysPerYear() ////////////////////////////////////

integer DaysPerYear(integer year)
{
if (LeapYear(year))
return DAYS_PER_YEAR + 1;
else
return DAYS_PER_YEAR;
}

/////////////////////////////// Unix2DataTime() ///////////////////////////////////////

list Unix2DateTime(integer unixtime)
{
integer days_since_1_1_1970 = unixtime / SECONDS_PER_DAY;
integer day = days_since_1_1_1970 + 1;
integer year = 1970;
integer days_per_year = DaysPerYear(year);

while (day > days_per_year)
{
day -= days_per_year;
++year;
days_per_year = DaysPerYear(year);
}

integer month = 1;
integer days_per_month = DaysPerMonth(year,month);

while (day > days_per_month)
{
day -= days_per_month;

if (++month > 12)
{
++year;
month = 1;
}

days_per_month = DaysPerMonth(year,month);
}

integer seconds_since_midnight = unixtime % SECONDS_PER_DAY;
integer hour = seconds_since_midnight / SECONDS_PER_HOUR;
integer second = seconds_since_midnight % SECONDS_PER_HOUR;
integer minute = second / SECONDS_PER_MINUTE;
second = second % SECONDS_PER_MINUTE;

return [ year, month, day, hour, minute, second ];
}

///////////////////////////////// MonthName() ////////////////////////////

list MonthNameList = [ "JAN", "FEB", "MAR", "APR", "MAY", "JUN",
"JUL", "AUG", "SEP", "OCT" , "NOV", "DEC" ];

string MonthName(integer month)
{
if (month >= 0 && month < 12)
return llList2String(MonthNameList, month);
else
return "";
}

///////////////////////////////// DateString() ///////////////////////////

string DateString(list timelist)
{
integer year = llList2Integer(timelist,0);
integer month = llList2Integer(timelist,1);
integer day = llList2Integer(timelist,2);

return (string)day + "-" + MonthName(month - 1) + "-" + (string)year;
}

///////////////////////////////// TimeString() ////////////////////////////

string TimeString(list timelist)
{
integer hour = llList2Integer(timelist,3);
integer minute = llList2Integer(timelist,4);
integer second = llList2Integer(timelist,5);
string hourstr = (string)hour;
string minutestr = (string)minute;
string secondstr = (string)second;

if (hour < 10) hourstr = "0" + hourstr;
if (minute < 10) minutestr = "0" + minutestr;
if (second < 10) secondstr = "0" + secondstr;
return hourstr + ":" + minutestr + ":" + secondstr;
}

/////////////////////////////////// SendMail() /////////////////////////////////////

SendMail(string body)
{
// llOwnerSay("Sending message to '" + address + "' with subject '" + subject +"'.");
llMessageLinked(LINK_THIS, MSG_MESSAGE_SEND, body, NULL_KEY);
}

///////////////////////////////// SendHome() ///////////////////////////////////////

SendHome(string subject, string body)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SENDHOME, body, (key)subject);
}

///////////////////////////////// Show() ////////////////////////////////////////////

Show()
{
integer i;

llOwnerSay("Current chat recording is:");
llOwnerSay("--------------------------");

for (i = 0; i < NumLines; ++i)
{
llOwnerSay(llList2String(ChatRecording,i));
}

llOwnerSay("--------------------------");
llOwnerSay("Lines is " + (string)NumLines);
llOwnerSay("Message length is " + (string)Length);
}

/////////////////////////////// Read() /////////////////////////////////////////

Read()
{
llOwnerSay("Reading message " + (string)CurrentMessage + " from mail buffer.");
integer time = (integer)llList2Integer(TimeList,CurrentMessage);
list timelist=Unix2DateTime(time);
string Address = llList2String(AddressList,CurrentMessage);
string Subject = llList2String(SubjectList,CurrentMessage);
string Body = llList2String(BodyList,CurrentMessage);
llOwnerSay("Date : " + DateString(timelist));
llOwnerSay("Time : " + TimeString(timelist));
llOwnerSay("Address: " + Address);
llOwnerSay("Subject: " + Subject);
llOwnerSay("Begin of message body:");
llOwnerSay("-------------------------");
list bodylist=llParseStringKeepNulls(Body, [ "\n" ], []);
integer num=llGetListLength(bodylist);
integer i;

for (i = 0; i < num; ++i)
{
llOwnerSay(llList2String(bodylist,i));
}

llOwnerSay("-------------------------");
llOwnerSay("End of message body.");
}

////////////////////////////////////// List ////////////////////////////////////////////

List()
{
llOwnerSay("The mail buffer contains the following messages:\n");

integer i;

for (i = 0; i < NumMessages; ++i)
{
integer time=llList2Integer(TimeList,i);
list timelist=Unix2DateTime(time);
if (i > 0) llOwnerSay("+-+-+-+-+-+-+-+-+-+-+-+-");
llOwnerSay("Message: " + (string)i);
llOwnerSay("Date : " + DateString(timelist));
llOwnerSay("Time : " + TimeString(timelist));
llOwnerSay("From: " + llList2String(AddressList,i));
llOwnerSay("Subject: " + llList2String(SubjectList,i));
}
}

//////////////////////////// NotifyNewMail() /////////////////////////

NotifyNewMail(string time, string address, string subject, string body)
{
list timelist=Unix2DateTime((integer)time);

if (StatusOnline)
{
llInstantMessage(llGetOwner(), "You received a new mail message on "
+ DateString(timelist) + " at " + TimeString(timelist)
+ " from " + address
+ " with the subject " + subject);
}
else
{
SendHome("FW: " + subject, "Received at: " + DateString(timelist) + " " + TimeString(timelist) + "\nFrom: " + address
+ "\nBegin message body:\n-------------------\n" + body + "\n-------------------\nEnd message body.");
}
}

///////////////////////////// ResetOtherScripts() //////////////////////

ResetOtherScripts()
{
string name;
integer i;
integer num=llGetListLength(ScriptList);

for (i = 0; i < num; ++i)
{
name = llList2String(ScriptList,i);

if (llGetInventoryType(name) == INVENTORY_SCRIPT)
{
llResetOtherScript(name);
}
else
{
llOwnerSay("Error - script '" + name + "' not found.");
ErrorFlag = TRUE;
}
}
}

//////////////////////////////////////
// default
//////////////////////////////////////

default
{
////////////////////// state_entry() /////////////////////////

state_entry()
{
llOwnerSay("Welcome to SL Mail, released under GNU software licence.");
llOwnerSay("Version " + SL_MAIL_VERSION + " " + SL_MAIL_DATE);
llOwnerSay("Produced by Logic Scripted Products & Product Services");
llOwnerSay("Free memory: " + (string)llGetFreeMemory());
ResetOtherScripts();

if (ErrorFlag)
state Error;
}

/////////////////////// on_rez() //////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

/////////////////////// changed() ////////////////////////////

changed(integer mask)
{
if (mask & CHANGED_INVENTORY)
{
llResetScript();
}
}

/////////////////////// link_message() /////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
else if (msgid == MSG_ADDRESSBOOK_LOADED)
{
state running;
}
else if (msgid == MSG_ADDRESSBOOK_ERROR)
{
state Error;
}
}
}

///////////////////////////////////////
// state running
//////////////////////////////////////

state running
{
///////////////////////// state_entry() //////////////////////

state_entry()
{
llListen(0, "", llGetOwner(), "");
llOwnerSay("SL mail ready.\nSend and Get mail in Second Life.\nType @HELP for more info.");
llMessageLinked(LINK_THIS, MSG_MESSAGE_INFO, "", NULL_KEY);
llGetNextEmail("", "");
llSetTimerEvent(MAIL_FETCH_INTERVAL);
}

//////////////////////// on_rez() ////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

//////////////////////// listen() ////////////////////////////

listen(integer channel, string name, key id, string message)
{
string trimmessage=llStringTrim(message,STRING_TRIM);
list parse = llParseStringKeepNulls(trimmessage, [ " "], []);
string command = llToUpper(llList2String(parse,0));
string arg = llStringTrim(llList2String(parse,1),STRING_TRIM);
integer nargs = llGetListLength(parse);
string argstr="";

if (nargs > 1) argstr=llGetSubString(message, llSubStringIndex(message, " ") + 1, -1);

if (Recording)
{
if (command == COMMAND_STOP)
{
llOwnerSay("Recording stopped. Type @SHOW to see the message you have entered,"
+ " or @SEND to send it.");
Recording = FALSE;
return;
}
if (command == COMMAND_SEND)
{
Recording = FALSE;

SendMail(llDumpList2String(ChatRecording, "\n"));
return;
}
else
{
ChatRecording = (ChatRecording=[]) + ChatRecording + [ message ];
++NumLines;
Length += llStringLength(message) + 2;
return;
}
}
else
{
if (command == COMMAND_RECORD)
{
llOwnerSay("Start recording your message. Type @STOP to end recording.");
ChatRecording = [];
NumLines=0;
Length=0;
Recording = TRUE;
return;
}
if (command == COMMAND_CONTINUE)
{
llOwnerSay("Continue recording your message. Type @STOP to end recording.");
Recording = TRUE;
return;
}
if (command == COMMAND_REPLY)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
string address=llList2String(AddressList,CurrentMessage);
string subject="Re: " + llList2String(SubjectList,CurrentMessage);
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETADDRESS, address, NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETSUBJECT, subject, NULL_KEY);
ChatRecording = [];
NumLines=0;
Length=0;
Recording = TRUE;
}
return;
}
if (command == COMMAND_MAIL)
{
string mailaddress=llStringTrim(argstr,STRING_TRIM);

if (mailaddress != "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETADDRESS, mailaddress, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETADDRESS, "", NULL_KEY);
}
return;
}
if (command == COMMAND_SUBJECT)
{
string mailsubject=llStringTrim(argstr,STRING_TRIM);

if (mailsubject != "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETSUBJECT, mailsubject, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETSUBJECT, "", NULL_KEY);
}
return;
}
if (command == COMMAND_STOP)
{
llOwnerSay("Not recording.");
return;
}
if (command == COMMAND_SEND)
{
if (nargs == 1)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
SendMail(llDumpList2String(ChatRecording, "\n"));
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SEND_NOTECARD, argstr, NULL_KEY);
}
return;
}
if (command == COMMAND_IGNORE)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
ChatRecording = [];
NumLines = 0;
Length = 0;
}
return;
}
if (command == COMMAND_SHOW)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
Show();
}
return;
}
if (command == COMMAND_READ)
{
if (NumMessages == 0)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
Read();
}
return;
}
if (command == COMMAND_NEXT)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == NumMessages - 1)
{
llOwnerSay("Already at last message.");
}
else
{
++CurrentMessage;
Read();
}
}
return;
}
if (command == COMMAND_PREV)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == 0)
{
llOwnerSay("Already at first message.");
}
else
{
--CurrentMessage;
Read();
}
}
return;
}
if (command == COMMAND_FIRST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == 0)
{
llOwnerSay("Already at first message.");
}
else
{
CurrentMessage = 0;
Read();
}
}
return;
}
if (command == COMMAND_LAST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == NumMessages - 1)
{
llOwnerSay("Already at last message.");
}
else
{
CurrentMessage = NumMessages - 1;
Read();
}
}
return;
}
if (command == COMMAND_LIST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
List();
}
return;
}
if (command == COMMAND_SELECT)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else if (nargs == 1)
{
llOwnerSay("Need to supply a message number.");
}
else
{
integer msgnum = (integer)arg;

if (msgnum < 0 || msgnum >= NumMessages)
{
llOwnerSay("Message number " + arg + " not in mail buffer.");
}
else
{
CurrentMessage = msgnum;
}
}
return;
}
if (command == COMMAND_DELETE)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
TimeList = llDeleteSubList(TimeList,CurrentMessage,CurrentMessage);
AddressList = llDeleteSubList(AddressList,CurrentMessage,CurrentMessage);
SubjectList = llDeleteSubList(SubjectList,CurrentMessage,CurrentMessage);
BodyList = llDeleteSubList(BodyList,CurrentMessage,CurrentMessage);
--NumMessages;

if (NumMessages == 0)
{
CurrentMessage = -1;
}
else if (CurrentMessage >= NumMessages)
{
CurrentMessage = NumMessages - 1;
}
}
return;
}
if (command == COMMAND_CLEAR)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
TimeList=[];
AddressList=[];
SubjectList=[];
BodyList=[];
NumMessages=0;
CurrentMessage=-1;
}
return;
}
if (command == COMMAND_HELP)
{
llMessageLinked(LINK_THIS, MSG_HELP, arg, NULL_KEY);
return;
}
if (command == COMMAND_INFO)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_INFO, "", NULL_KEY);
return;
}
if (command == COMMAND_SHOW)
{
Show();
return;
}
if (command == COMMAND_RESET)
{
llResetScript();
return;
}
if (command == COMMAND_OFF)
{
state not_running;
}
if (command == COMMAND_HOME)
{
if (nargs==1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETHOME, "", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETHOME, argstr, NULL_KEY);
}
return;
}
}
}

///////////////////////// timer() ///////////////////////////////

timer()
{
llGetNextEmail("", "");
}

///////////////////////// email() ///////////////////////////////

email(string time, string address, string subject, string body, integer queued)
{
NotifyNewMail(time, address, subject, body);
TimeList = (TimeList=[]) + TimeList + [time];
AddressList = (AddressList=[]) + AddressList + [address];
SubjectList = (SubjectList=[]) + SubjectList + [subject];
BodyList = (BodyList=[]) + BodyList + [body];
++NumMessages;

if (CurrentMessage == -1)
{
CurrentMessage = 0;
}
else
{
CurrentMessage = NumMessages - 1;
}
}

///////////////////// link_message() //////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
else if (msgid == MSG_MESSAGE_REPLY)
{
llOwnerSay(message);
}
}
}

//////////////////////////////////
// state not_running
//////////////////////////////////

state not_running
{
///////////////////// state_entry() //////////////////////////

state_entry()
{
llOwnerSay("SL Mailbox switched OFF. Say @ON to switch it back on.");
llListen(0, "", llGetOwner(), "");
}

//////////////////// on_rez() ///////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

//////////////////// listen() ////////////////////////////////

listen(integer chan, string name, key id, string message)
{
string command=llToUpper(message);

if (command == COMMAND_ON)
{
state running;
}
}

///////////////////// link_message() //////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
}
}

//////////////////////////////////
// state Error
//////////////////////////////////

state Error
{
state_entry()
{
llOwnerSay("Error in SL Mail: not all component scripts found.");
}

changed(integer mask)
{
if (mask & CHANGED_INVENTORY)
{
llResetScript();
}
}

on_rez(integer start_param)
{
llResetScript();
}
}

//////////////////////////////////
// End SL Mail V1.2.lsl
//////////////////////////////////
</lsl>
</div>
</div>

<div id="box">

==Script: SL Mail Address Book V1.2==
<div style="padding: 0.5em;">
Read and interpret the contents of the Address Book.
<lsl>
// SL Mail AddressBook V1.2.lsl
//
// DESCRIPTION
//
// Read the Address Book from a notecard named "Address Book".
//
// The Address Book has the following format:
//
// [ADDRESS BOOK]
// Name1=username@yourdomain.com
// Name2=otheruser@otherdomain.com
// ...
// [GROUP]
// group1=Name1, Name2
// ...
//
// Notes:
// 1. Group and Name share the same namespace, and must be unique.
// 2. It is allowed to have a name in the addressbook with multiple addresses, seperated by comma's.
//
/////////////////////////////////////////////////

string CurrentMailAddress = "";
string CurrentMailSubject = "";
integer StatusOnline = FALSE;

// Fetch or Send notecard

string Notecard2Fetch="";

// Address Book Names

list AddressBookList=[];
list MailAddressList=[];

string STRING_HOME="HOME";
string STRING_SELF="SELF";

// Address Book Groups

list GroupList=[];
list GroupNameList=[];

string LSL_DOMAIN = "lsl.secondlife.com";

// Read Address Book notecard

string ADDRESSBOOK_NOTECARD="Address Book";
integer Line=0;
key reqAddressBook=NULL_KEY;
float TIMEOUT_INTERVAL=5.0;

integer Section=0;
integer SECTION_ADDRESS_BOOK=1;
integer SECTION_GROUP=2;
string STRING_ADDRESS_BOOK="ADDRESS BOOK";
string STRING_GROUP="GROUP";

// Links messages

integer MSG_MESSAGE_SETADDRESS = 90000;
integer MSG_MESSAGE_GETADDRESS = 90050;
integer MSG_MESSAGE_SETSUBJECT = 90100;
integer MSG_MESSAGE_GETSUBJECT = 90150;
integer MSG_MESSAGE_SEND = 90200;
integer MSG_MESSAGE_SENDHOME = 90300;
integer MSG_MESSAGE_SEND_NOTECARD = 90400;
integer MSG_MESSAGE_ADDRESSBOOK = 90500;
integer MSG_MESSAGE_GETHOME = 90600;
integer MSG_MESSAGE_SETHOME = 90700;
integer MSG_MESSAGE_INFO = 90800;
integer MSG_MESSAGE_NOTIFY = 90900;

integer MSG_ADDRESSBOOK_LOADED = 91000;
integer MSG_ADDRESSBOOK_ERROR = 91100;

integer MSG_MESSAGE_REPLY = 99000;

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////// GetSelfAddress() ///////////////////////

string GetSelfAddress()
{
return (string)llGetKey() + "@" + LSL_DOMAIN;
}

///////////////////////////// Info() /////////////////////////////////

Info()
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "The mail address for this object is: "
+ GetSelfAddress() + ".", NULL_KEY);
}

///////////////////////////////// IsValidKeyFormat() //////////////////////

integer IsValidKeyFormat(string str)
{
string keychars = "0123456789abcdef";

if (llStringLength(str) != 36)
return FALSE;

if( (llGetSubString( str, 8, 8 ) != "-" ||
llGetSubString( str, 13, 13 ) != "-" ||
llGetSubString( str, 18, 18 ) != "-" ||
llGetSubString( str, 23, 23 ) != "-" ) )
return FALSE;

integer i;

for (i = 0; i < 8; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 9; i < 13; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 14; i < 18; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 19; i < 23; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 24; i < 36; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

return TRUE;
}

///////////////////////////////// ValidMailAddress() ////////////////////////

integer ValidMailAddress(string arg)
{
string adress = llToLower(llStringTrim(arg,STRING_TRIM));

if (adress == "")
return FALSE;

list parse = llParseStringKeepNulls(adress, [ "@" ], []);
string account = llList2String(parse,0);
string domain = llList2String(parse,1);

if (llGetListLength(parse) != 2 || llStringLength(account) == 0 || llStringLength(domain) == 0)
return FALSE;

if (domain == LSL_DOMAIN)
{
return IsValidKeyFormat(account);
}
else
{
list parsedomain = llParseString2List(domain, [ "." ], []);

if (llGetListLength(parsedomain) < 2)
return FALSE;

integer num = llGetListLength(parsedomain);
integer i;

for (i = 0; i < num; ++i)
{
if (llStringLength(llList2String(parsedomain,i)) < 2)
{
return FALSE;
}
}
}

return TRUE;
}

/////////////////////////////////// GetAddressStr() ///////////////////

string GetAndCheckAddressStr(string address)
{
list addresslist = llCSV2List(address);
integer num=llGetListLength(addresslist);
integer i;
string addressstr="";
string curaddress="";

for (i = 0; i < num; ++i)
{
curaddress=llList2String(addresslist,i);

if (ValidMailAddress(curaddress))
{
addressstr = (addressstr="") + addressstr + curaddress + ",";
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address string: '"
+ curaddress + "'.", NULL_KEY);
}
}

return llGetSubString(addressstr, 0, -2);
}

///////////////////////////// ProcessLine() ////////////////////////////

ProcessLine(string rawline)
{
string line=llStringTrim(rawline,STRING_TRIM);
string first=llGetSubString(line,0,0);
string last=llGetSubString(line,-1,-1);

// Ignore a blank line or comment line
if (line == "" || first == "#")
return;

// Check for the right section

if (first == "[" && last == "]")
{
string sectionstr=llToUpper(llStringTrim(llGetSubString(line,1,-2),STRING_TRIM));

if (sectionstr == STRING_ADDRESS_BOOK)
{
Section = SECTION_ADDRESS_BOOK;
}
else if (sectionstr == STRING_GROUP)
{
if (Section == 0)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1)
+ ". Group section defined before Address Book section.", NULL_KEY);
}
else
{
Section = SECTION_GROUP;
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid section header '" + sectionstr
+ "' in " + ADDRESSBOOK_NOTECARD + " at line " + (string)(Line + 1) + ".", NULL_KEY);
}

return;
}

// Must be in a section

if (Section == 0)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ". No section header.", NULL_KEY);
return;
}

list parse=llParseString2List(line, [ "=" ], []);
integer num=llGetListLength(parse);

// Format must be correct

if (num != 2)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line+1) + ":\n" + rawline, NULL_KEY);
return;
}

if (Section == SECTION_ADDRESS_BOOK)
{
string name=llStringTrim(llList2String(parse,0),STRING_TRIM);

if (llToUpper(name) == STRING_SELF)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address book entry '" + name
+ "'. Reserved word in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ".", NULL_KEY);
}
else if (llListFindList(AddressBookList, [ name ]) == -1)
{
string address=llStringTrim(llList2String(parse,1),STRING_TRIM);
string addressstr=GetAndCheckAddressStr(address);

if (addressstr != "")
{
AddressBookList = (AddressBookList=[]) + AddressBookList + [ name ];
MailAddressList = (MailAddressList=[]) + MailAddressList + [ addressstr ];
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "No valid mail address for '" + name
+ "'. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line " + (string)(Line + 1)
+ ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Name '" + name
+ "' already defined. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else // Group
{
string group=llStringTrim(llList2String(parse,0),STRING_TRIM);

if (llToUpper(group) == STRING_SELF)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address book entry '" + group
+ "'. Reserved word in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ".", NULL_KEY);
}
else if (llListFindList(AddressBookList, [ group ]) == -1)
{
if (llListFindList(GroupList, [ group ]) == -1)
{
string names=llStringTrim(llList2String(parse,1),STRING_TRIM);
list namelist=llCSV2List(names);
integer num=llGetListLength(namelist);
integer i;
integer index;
string name;
string namestr="";

for (i = 0; i < num; ++i)
{
name=llList2String(namelist,i);
index=llListFindList(AddressBookList, [ name ]);

if (index == -1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Name '" + name + "' defined in Group '"
+ group + "' not found in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
else
{
namestr = (namestr="") + namestr + name + ",";
}
}

if (namestr != "")
{
namestr=llGetSubString(namestr,0,-2);
GroupList = (GroupList=[]) + GroupList + [ group ];
GroupNameList = (GroupNameList=[]) + GroupNameList + [ namestr ];
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' has no valid names. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' already defined in Group. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' already defined in Address Book. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
}

//////////////////////////////// GetGroupAddressList ///////////////

string GetGroupAddressList(string group)
{
integer index=llListFindList(GroupList, [ group ]);
integer i;
integer num=llGetListLength(GroupList);
string grouplist="";

if (index == -1)
{
return "";
}
else
{
for (i = index; i < num; ++i)
{
if (llList2String(GroupList,i) == group)
{
grouplist = (grouplist="") + grouplist + llList2String(GroupNameList,i) + ",";
}
}

if (grouplist != "") grouplist=llGetSubString(grouplist,0,-2); // remove last ","
return grouplist;
}
}

//////////////////////////////// SetMailAddress() //////////////////

SetMailAddress(string address)
{
integer index=llListFindList(AddressBookList, [ address ]);

if (index == -1)
{
index=llListFindList(GroupList, [ address ]);

if (index == -1)
{
if (llToUpper(address) == STRING_SELF)
{
CurrentMailAddress = GetSelfAddress();
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
else if(ValidMailAddress(address))
{
CurrentMailAddress = address;
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Mail adress " + address
+ " : not found in adress book or invalid format.", NULL_KEY);
}
}
else
{
CurrentMailAddress = GetGroupAddressList(address);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject set to: "
+ CurrentMailAddress, NULL_KEY);
}
}
else
{
CurrentMailAddress = llList2String(MailAddressList,index);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
}

/////////////////////////////////// SendMail() ///////////////////////

SendMail(string message)
{
if (CurrentMailAddress == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "SendMail: No mail address defined.", NULL_KEY);
}
else if (CurrentMailSubject == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "SendMail: No subject defined.", NULL_KEY);
}
else
{
list mailaddresslist=llCSV2List(CurrentMailAddress);
integer num=llGetListLength(mailaddresslist);
integer i;
string address;

for (i = 0; i < num; ++i)
{
address=llList2String(mailaddresslist,i);
llEmail(address, CurrentMailSubject, message);
}
}
}

/////////////////////////////////// SendMailHome() ////////////////////

SendMailHome(string message, string subject)
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, STRING_HOME
+ " not set. Set your home adress with @HOME <address>.", NULL_KEY);
}
else
{
string homeaddress=llList2String(AddressBookList,index);
list homelist=llCSV2List(homeaddress);
integer num=llGetListLength(homelist);
integer i;
string address;

for (i = 0; i < num; ++i)
{
address=llList2String(homelist,i);
llEmail(address, subject, message);
}
}
}

/////////////////////////////////// GetHomeAddress() //////////////////

string GetHomeAddress()
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
return "not set";
}
else
{
return llList2String(MailAddressList,index);
}
}

/////////////////////////////////// SetHomeAddress() //////////////////

SetHomeAddress(string address)
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
AddressBookList = (AddressBookList=[]) + [ STRING_HOME ] + AddressBookList;
MailAddressList = (MailAddressList=[]) + [ GetAndCheckAddressStr(address) ] + MailAddressList;
}
else
{
MailAddressList = llListReplaceList(MailAddressList, [ GetAndCheckAddressStr(address) ], index, index);
}
}

////////////////////////////////////
// default
////////////////////////////////////

default
{
///////////////////// state_entry() //////////////////

state_entry()
{
Line=0;
Section=0;
llSetTimerEvent(TIMEOUT_INTERVAL);
reqAddressBook=llGetNotecardLine(ADDRESSBOOK_NOTECARD, 0);
}

///////////////////// dataserver() ////////////////////

dataserver(key id, string data)
{
if (id == reqAddressBook)
{
reqAddressBook = NULL_KEY;

if (data != EOF)
{
ProcessLine(data);
reqAddressBook=llGetNotecardLine(ADDRESSBOOK_NOTECARD, ++Line);
}
else
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_LOADED, "", NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Address Book loaded.", NULL_KEY);
state running;
}
}
}

//////////////////////// timer() ///////////////////////////

timer()
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_ERROR, "", NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Could not read Address Book: "
+ ADDRESSBOOK_NOTECARD + ".", NULL_KEY);
llSetTimerEvent(0.0);
}
}

////////////////////////////////////////////
// state running
////////////////////////////////////////////

state running
{
state_entry()
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_LOADED, "", NULL_KEY);
}

///////////////////////// link_message() ////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_MESSAGE_GETSUBJECT)
{
if (CurrentMailSubject == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject is empty.", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject is: "
+ CurrentMailSubject, NULL_KEY);
}
}
else if (msgid == MSG_MESSAGE_SETSUBJECT)
{
CurrentMailSubject = message;
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject set to: "
+ CurrentMailSubject, NULL_KEY);
}
else if (msgid == MSG_MESSAGE_GETADDRESS)
{
if (CurrentMailAddress == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address is empty.", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address is: "
+ CurrentMailAddress, NULL_KEY);
}
}
else if (msgid == MSG_MESSAGE_SETADDRESS)
{
SetMailAddress(message);
}
else if (msgid == MSG_MESSAGE_SEND)
{
if (message == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Body of message to send is empty. "
+ "No mail is send.", NULL_KEY);
}
else
{
SendMail(message);
}
}
else if (msgid == MSG_MESSAGE_SENDHOME)
{
SendMailHome(message, (string)id);
}
else if (msgid == MSG_MESSAGE_SEND_NOTECARD)
{
if (llGetInventoryType(message) == INVENTORY_NOTECARD)
{
Notecard2Fetch = message;
llMessageLinked(LINK_THIS, MSG_NOTECARD_READ, message, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Notecard " + message + " not found.", NULL_KEY);
}
}
else if (msgid == MSG_NOTECARD_FETCHED)
{
if (message == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Notecard " + Notecard2Fetch
+ " was empty or could not be read.", NULL_KEY);
}
else
{
SendMail(message);
}
}
else if (msgid == MSG_MESSAGE_GETHOME)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Home address is: " + GetHomeAddress() + ".", NULL_KEY);
}
else if (msgid == MSG_MESSAGE_SETHOME)
{
SetHomeAddress(message);
}
else if (msgid == MSG_MESSAGE_INFO)
{
Info();
}
}
}

/////////////////////////////////////
// End SL Mail AddressBook V1.2.lsl
/////////////////////////////////////
</lsl>
</div>
</div>

<div id="box">

==Script: SL Mail FetchNotecard V1.2==
<div style="padding: 0.5em;">
Fetch the contents of a notecard and return it via link message as a string.
<lsl>
// SL Mail FetchNotecard V1.2.lsl
//
//

// Notecard

integer Line=0;
string Notecard2Fetch="";
key reqNotecard=NULL_KEY;
float TIMEOUT_INTERVAL=10.0;
integer Fetched=FALSE;

// Lines

list LineList=[];

// Link messages

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////////////////////
// default
//////////////////////////////////////////

default
{
/////////////////////// dataserver() //////////////////////////////

dataserver(key id, string data)
{
if (id == reqNotecard)
{
reqNotecard=NULL_KEY;

if (data != EOF)
{
LineList = (LineList=[]) + LineList + [ data ];
reqNotecard = llGetNotecardLine(Notecard2Fetch, ++Line);
}
else
{
Fetched=TRUE;
llMessageLinked(LINK_THIS, MSG_NOTECARD_FETCHED, llDumpList2String(LineList, "\n"), NULL_KEY);
llSetTimerEvent(0.0);
}
}
}

/////////////////////// timer() ///////////////////////////////////

timer()
{
if (!Fetched)
{
llMessageLinked(LINK_THIS, MSG_NOTECARD_FETCHED, "", NULL_KEY);
llSetTimerEvent(0.0);
}
}

/////////////////////// link_message() ////////////////////////////

link_message(integer send, integer msgid, string message, key id)
{
if (msgid == MSG_NOTECARD_READ)
{
Line=0;
Notecard2Fetch=message;
LineList=[];
Fetched=FALSE;
reqNotecard=llGetNotecardLine(Notecard2Fetch, Line);
llSetTimerEvent(TIMEOUT_INTERVAL);
}
}
}

// End SL Mail FetchNotecard V1.2.lsl
</lsl>
</div>
</div>

<div id="box">

==Script: SL OnlineStatus V1.2==
<div style="padding: 0.5em;">
Fetch online status of owner.
<lsl>
// SL Mail OnlineStatus V1.2.lsl
//
//

// Online status

key reqOnlineStatus=NULL_KEY;
float STATUS_INTERVAL=2.0;

// Link messages

integer MSG_STATUS_ONLINE = 30000;
integer MS_STATUS_OFFLINE = 30100;

////////////////////////////////
// default
////////////////////////////////

default
{
///////////////////////// state_entry() /////////////////////////

state_entry()
{
reqOnlineStatus=llRequestAgentData(llGetOwner(), DATA_ONLINE);
llSetTimerEvent(STATUS_INTERVAL);
}

///////////////////////// dataserver() //////////////////////////

dataserver(key id, string data)
{
if (id == reqOnlineStatus)
{
reqOnlineStatus = NULL_KEY;

if (data=="1")
{
llMessageLinked(LINK_THIS, MSG_STATUS_ONLINE, "", NULL_KEY);
}
else if (data=="0")
{
llMessageLinked(LINK_THIS, MS_STATUS_OFFLINE, "", NULL_KEY);
}
}
}

///////////////////////// timer() ///////////////////////////////

timer()
{
reqOnlineStatus = llRequestAgentData(llGetOwner(), DATA_ONLINE);
}
}

// End SL Mail OnlineStatus V1.2.lsl
</lsl>
</div>
</div>

<div id="box">

==Script: SL Mail Help V1.2==
<div style="padding: 0.5em;">
Display help information.

<lsl>
// SL Mail Help V1.2.lsl
//
//

integer MSG_HELP = 10000;

///////////////////////////////// Help() ///////////////////////////////////////

Help()
{
llOwnerSay("HELP for SL Mail V1.2.");
llOwnerSay("COMMANDS:");
llOwnerSay("@HELP - displays help info.");
llOwnerSay("@INFO - display mailaddress of this object.");
llOwnerSay("@RECORD - start recording.");
llOwnerSay("@CONTINUE - continue recording.");
llOwnerSay("@STOP - stop recording.");
llOwnerSay("@IGNORE - ignore the recording.");
llOwnerSay("@SHOW - show what your recorded.");
llOwnerSay("@SEND - send the recording.");
llOwnerSay("@MAIL <mailadress> - set the mail adress.");
llOwnerSay("@SUBJECT subject - set the mail subject.");
llOwnerSay("@LIST - list messages in mail buffer.");
llOwnerSay("@SELECT <message> - select message from mail buffer.");
llOwnerSay("@READ - read current message from mail buffer.");
llOwnerSay("@NEXT - read next message from mail buffer.");
llOwnerSay("@PREV - read previous message from mail buffer.");
llOwnerSay("@FIRST - read first message from mail buffer.");
llOwnerSay("@LAST - read last message from mail buffer.");
llOwnerSay("@DELETE - delete current message from mail buffer.");
llOwnerSay("@CLEAR - clear the mail buffer.");
llOwnerSay("@REPLY - reply to current message.");
llOwnerSay("@RESET - reset the script.");
llOwnerSay("@HOME - set the home mail adress.");
llOwnerSay("@OFF - switch mailbox OFF.");
llOwnerSay("@ON - switch mailbox ON.");
}

/////////////////////////////////////////////
// default
/////////////////////////////////////////////

default
{
link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_HELP)
{
Help();
}
}
}

// End SL Mail Help V1.2.lsl
</lsl>
</div>
</div>
[[Image:slmail.info.jpg]]

{{LSLC|Library}}

SL Mail V1.2

Flennan Roffo — Fri, 09 May 2008 11:10:08 GMT

Flennan Roffo: added <lsl> tag

{{LSL Header}} __NOTOC__
<div id="box">
='''Second Life mail client'''=
<div style="padding: 0.5em">

'''Send and receive email from within Second Life from and to any address.'''

Implemented with Address Book function (in a notecard named 'Address Book') to stores addresses by name and to compile groups of named addresses. Current version is stand-alone (no server functionality) and uses chat commands only.

[[Image:BannerSLMail.jpg]]

URL: [http://www.slmail.info slmail.info] (website coming soon!)

</div>
</div>

<div id="box">

=Release Notes V1.2=
<div style="padding: 0.5em">
SL Mail V1.2 Release notes (edition 2, 4 sept 2007)
</div>
</div>

<div id="box">
=='''LICENCE INFO'''==
<div style="padding: 0.5em">
SL Mail V1.2 is released under GNU free software licence
</div>
</div>

<div id="box">
=='''PRODUCTION & MAINTANENCE'''==
<div style="padding: 0.5em">
by Logic Scripted Products and Script Services

[[Image:Logicbanner1.jpg]]

URL: [http://www.logicscripts.org logicscripts.org] (website coming soon!)

SLurl:
{{SLurl
|region=Peacock Park
|x=189
|y=226
|z=69
|title=Logic Scripted products and Script services
|}}

Contact: [[User:Flennan Roffo|Flennan Roffo]]

Email: [mailto:info@slmail.info '''info'''] or [mailto:Flennan.Roffo@slmail.info '''Flennan Roffo''']

</div>
</div>

<div id="box">

=='''DESCRIPTION'''==
<div style="padding: 0.5em">
SL Mail V1.2 is a simple tool to send and receive mail from within SL.
You can either compose a message yourself using chat recording, or choose a notecard from inventory to send. The Address Book functionality allows you to use short names for mail recipients stored in a notecard. The current version does not have a persisent mail address. Watch out for the upcoming next release (V1.3) which will facilitate persisent in-world mail addresses and will be enhanced with many new features (See: Requests For Change (RFC).
</div>
</div>

<div id="box">

=='''COMMANDS'''==
<div style="padding: 0.5em">
{| {{Prettytable}}
|-
|{{Hl2}}| '''Command'''
|{{Hl2}}| '''Description'''
|-
||'''@Help'''
||Show Help about available commands
|-
||'''@Record'''
||Starts a chat recording (for owner only).
|-
||'''@Stop'''
||Stops the chat recording without sending
|-
||'''@Continue'''
||Continues a previously stopped chat recording. Lines will be appended to you recording buffer.
|-
||'''@Show'''
||Shows the content of the recording buffer.
|-
||'''@Send'''
||If recording, stops the recording, and sends the mail (need to supply mail address and subject first!)
|-
||'''@Send <notecard>'''
||Sends the content of the notecard, instead of the chat recording.
|-
||'''@Ignore'''
||Ignores your current chat recording.
|-
||'''@Mail <address>'''
||Define the mail address to send to.
|-
||'''@Mail'''
||Shows the current mail address to send to.
|-
||'''@Subject <subject>'''
||Define the subject of the mail.
|-
||'''@Subject'''
||Shows the current mail subject.
|-
||'''@Home <address>'''
||Set the HOME address of the owner (mail will be forwarder to this address when offline).
|-
||'''@Home'''
||Show the HOME address.
|-
||'''@Info'''
||Shows the mail address the object this script is running in uses (e.g. <object-key>@lsl.secondlife.com).
|-
||'''@Read'''
||Reads the current message from the mail buffer (the mail buffer gets filled with mail you receive)
|-
||'''@Select <msg>'''
||Select a message number from the availabe messages in the mail buffer.
|-
||'''@Next'''
||Make next message the current message.
|-
||'''@Prev'''
||Make previous message the current message.
|-
||'''@First'''
||Make the first message the current message.
|-
||'''@Last'''
||Make the last message the current message.
|-
||'''@Clear'''
||Clear the mail buffer
|-
||'''@Delete'''
||Deletes only the current message
|-
||'''@Reply'''
||Starts a chat recording to reply to the current message. Mail adress and subject are filled in automatically.
|}

Note:

* Commands are case insensitive ("@read" == "@READ"). Arguments might not be case insensitive.
</div>
</div>

<div id="box">
=='''ADDRESS BOOK FORMAT'''==
<div style="padding: 0.5em">
A notecard of the name 'Address Book' is read during initialization which may contain Address Book items and Groups.
The notecard is split in two sections, which need to be defined in that particular order.

'''[ADDRESS BOOK]'''

Defines the section in which you can put names for mail addresses, like this:

'''Name1=account@thisdomain.com'''

'''Name2=user@otherdomain.com'''

etc.

'''[GROUP]'''

Define groups of previously defined names under a new name, like for instance:

'''MyGroup=Name1, Name2'''

Note that names of groups and individual mail adresses share the same namespace and must be unique.

So when you filled in your mail adresses in the Address Book, you can now use:

'''@Mail Name1'''

To send mail to <account@thisdomain.com>

or you can use

'''@Mail MyGroup'''

To send mail to <account@thisdomain.com> and <user@otherdomain.com>
Mails will be sent one after another.

Notes:

* Names for Addreses and Groups are case insensitive (e.g. "mary" == "MARY")

* The special address 'Self' can be used in commands where otherwise an address specification can be used. 'Self' is case insensitive (e.g. "self" == "SELF")

</div>
</div>

<div id="box">
=='''LIMITATIONS'''==
<div style="padding: 0.5em">
The current version is limited by the following:

* Chat recording lines are limited by the 255 byte limit

* Output of lines from the mail buffer are also limited by this 255 byte limit

* Incoming mail is limited to a 1000 (1024?) byte limit

* Outgoing mai is limited by a 4096 byte limit, which includes the standard mail header (region/location info on the first two lines)

We are making adjustments to this release to help overcome these limitations. At least the line lenght limit can be overcome by introducing a line continuation character (for example a hyphen '-') that when used at the end of a line appends the next line, so lines longer then 255 bytes are possible then.

To overcome the outgoing mail length limit, the mail can be broken textualy into parts, and each part can be send seperatedely, with an indication in the subject or in an introduced primary line of the mail body to indicate that the mail was split into parts.
For incoming mail and at least to receive mail from other SL Mail programs, a protocol will be introduced to receive mail in parts that are joined together after receiving them to form a single mail.

These enhancements will be made available in the next release (V1.3) of SL Mail
</div>
</div>

<div id="box">
=='''BUGS'''==
<div style="padding: 0.5em">
Report any bugs you find in this release to Logic (IM: Flennan Roffo).
</div>
</div>

<div id="box">
=='''REQUEST FOR CHANGE (RFC)'''==
<div style="padding: 0.5em">
Do you have additional wishes for enhancement of this product?
Contact Flennan Roffo and we will see if they can be implemented in the next release.

Existing RFC's are:

* Menu support for commands.

* Lines on incoming/outgoing mail longer than 255 bytes.

* Send messages longer than 4096 (minus SL mail header) bytes.

* Receive messages longer than 1024 bytes.

* Permanent mail addresses for the SL Mail client (like: <Flennan.Roffo@somedomain.sl>)

Add your RFC!
</div>
</div>

<div id="box">
=='''SL MAIL SUPPORT & DEVELOPMENT'''==
<div style="padding: 0.5em">

In-world join the group "SL Mail" for bug reports, feature requests, the latest SL Mail release, and notices about development issues.
</div>
</div>

<div id="box">

=Scripts=
</div>

<div id="box">
==Script: SL Mail v1.2==
<div style="padding: 0.5em;">
SL Mail core module which scans for incoming mail messages and executes commands used by the owner.
<pre>
<lsl>
// SL Mail V1.2.lsl
// (c) 2007 Logic Scripted Products and Script Services
// Flennan Roffo

// VERSION
// Version: 1.2

// HISTORY
// Date Version Author Comment
// --------------------------------------------------------------------------------------
// 28 aug 2007 V 1.0 Flennan Roffo Created
//
// 1 sep 2007 V 1.1 Flennan Roffo @Reply empties the recording buffer.
// @Send while recording ends recording
// and sends the mail if a mail address
// and subject are supplied.
// Fixed incorrect date in Unix2DateTime.
// 3 sep 2007 V 1.2 Flennan Roffo Notification options:
// - When online, send an IM when mail is received.
// - When offline, send to HOME mail adress.
// Adressbook
// - Read adress book from config notecard.

// LICENCE
// This program is free software; you can redistribute it and/or
// modify it under the terms of the GNU General Public License
// as published by the Free Software Foundation; either version 2
// of the License, or (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
// (Also available at http://www.gnu.org/copyleft/gpl.html)

// DESCRIPTION
// Let's you record a message and sent to email and get messages and reply to messages.
// Must supply a valid mail adress and non-empty subject using chat commands.

// TODO:
// 1) Check for the maximum length of an email message (including newline and header).
// 2) Read adress book from notecard. *DONE*
// 3) Send incoming mail to personal mail adress when offline. *DONE*
// 4) Alert with an IM when online upon receiving new mail. *DONE*

string SL_MAIL_VERSION = "V 1.2";
string SL_MAIL_DATE = " 2 sep 2007";
integer ErrorFlag = FALSE;
list ScriptList = [ "SL Mail Help V1.2", "SL Mail AddressBook V1.2",
"SL Mail OnlineStatus V1.2", "SL Mail FetchNotecard V1.2" ];
string LSL_DOMAIN="lsl.secondlife.com";
integer StatusOnline=FALSE;

// Commands

string COMMAND_RECORD = "@RECORD";
string COMMAND_CONTINUE = "@CONTINUE";
string COMMAND_STOP = "@STOP";
string COMMAND_MAIL = "@MAIL";
string COMMAND_SUBJECT = "@SUBJECT";
string COMMAND_SEND = "@SEND";
string COMMAND_SEE = "@SEE";
string COMMAND_IGNORE = "@IGNORE";
string COMMAND_READ = "@READ";
string COMMAND_DELETE = "@DELETE";
string COMMAND_CLEAR = "@CLEAR";
string COMMAND_REPLY = "@REPLY";
string COMMAND_NEXT = "@NEXT";
string COMMAND_PREV = "@PREV";
string COMMAND_FIRST = "@FIRST";
string COMMAND_LAST = "@LAST";
string COMMAND_LIST = "@LIST";
string COMMAND_SELECT = "@SELECT";
string COMMAND_HELP = "@HELP";
string COMMAND_INFO = "@INFO";
string COMMAND_RESET = "@RESET";
string COMMAND_SHOW = "@SHOW";
string COMMAND_ON = "@ON";
string COMMAND_OFF = "@OFF";
string COMMAND_HOME = "@HOME";
string COMMAND_LOAD = "@LOAD";
string COMMAND_ADDRESS = "@ADDRESS";

// Recording

integer Recording = FALSE;

list ChatRecording=[];
integer NumLines=0;
integer Length=0;

list TimeList=[];
list AddressList=[];
list SubjectList=[];
list BodyList=[];
integer NumMessages=0;
integer CurrentMessage=-1;

float MAIL_FETCH_INTERVAL=5.0;

// Link Messages

integer MSG_HELP = 10000;
integer MSG_STATUS_ONLINE = 30000;
integer MSG_STATUS_OFFLINE = 30100;

integer MSG_MESSAGE_SETADDRESS = 90000;
integer MSG_MESSAGE_GETADDRESS = 90050;
integer MSG_MESSAGE_SETSUBJECT = 90100;
integer MSG_MESSAGE_GETSUBJECT = 90150;
integer MSG_MESSAGE_SEND = 90200;
integer MSG_MESSAGE_SENDHOME = 90300;
integer MSG_MESSAGE_SEND_NOTECARD = 90400;
integer MSG_MESSAGE_ADDRESSBOOK = 90500;
integer MSG_MESSAGE_GETHOME = 90600;
integer MSG_MESSAGE_SETHOME = 90700;
integer MSG_MESSAGE_INFO = 90800;

integer MSG_ADDRESSBOOK_LOADED = 91000;
integer MSG_ADDRESSBOOK_ERROR = 91100;

integer MSG_MESSAGE_REPLY = 99000;

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////// Unix Time conversion //////////////////

integer DAYS_PER_YEAR = 365; // Non leap year
integer SECONDS_PER_YEAR = 31536000; // Non leap year
integer SECONDS_PER_DAY = 86400;
integer SECONDS_PER_HOUR = 3600;
integer SECONDS_PER_MINUTE = 60;

////////////////////////////// LeapYear() /////////////////////////////

integer LeapYear(integer year)
{
if (year % 4 == 0)
{
if (year % 100 == 0)
{
if (year % 400 == 0)
{
return 1;
}
else
{
return 0;
}
}
else
{
return 1;
}
}
else
{
return 0;
}
}

////////////////////////////// DaysPerMonth() ///////////////////////////////////////

integer DaysPerMonth(integer year,integer month)
{
if (month < 8)
{
if (month % 2 == 0)
{
if (month == 2)
{
if (LeapYear(year))
{
return 29;
}
else
{
return 28;
}
}
else
{
return 30;
}
}
else
{
return 31;
}
}
else
{
if (month % 2 == 0)
{
return 31;
}
else
{
return 30;
}
}
}

/////////////////////////// DaysPerYear() ////////////////////////////////////

integer DaysPerYear(integer year)
{
if (LeapYear(year))
return DAYS_PER_YEAR + 1;
else
return DAYS_PER_YEAR;
}

/////////////////////////////// Unix2DataTime() ///////////////////////////////////////

list Unix2DateTime(integer unixtime)
{
integer days_since_1_1_1970 = unixtime / SECONDS_PER_DAY;
integer day = days_since_1_1_1970 + 1;
integer year = 1970;
integer days_per_year = DaysPerYear(year);

while (day > days_per_year)
{
day -= days_per_year;
++year;
days_per_year = DaysPerYear(year);
}

integer month = 1;
integer days_per_month = DaysPerMonth(year,month);

while (day > days_per_month)
{
day -= days_per_month;

if (++month > 12)
{
++year;
month = 1;
}

days_per_month = DaysPerMonth(year,month);
}

integer seconds_since_midnight = unixtime % SECONDS_PER_DAY;
integer hour = seconds_since_midnight / SECONDS_PER_HOUR;
integer second = seconds_since_midnight % SECONDS_PER_HOUR;
integer minute = second / SECONDS_PER_MINUTE;
second = second % SECONDS_PER_MINUTE;

return [ year, month, day, hour, minute, second ];
}

///////////////////////////////// MonthName() ////////////////////////////

list MonthNameList = [ "JAN", "FEB", "MAR", "APR", "MAY", "JUN",
"JUL", "AUG", "SEP", "OCT" , "NOV", "DEC" ];

string MonthName(integer month)
{
if (month >= 0 && month < 12)
return llList2String(MonthNameList, month);
else
return "";
}

///////////////////////////////// DateString() ///////////////////////////

string DateString(list timelist)
{
integer year = llList2Integer(timelist,0);
integer month = llList2Integer(timelist,1);
integer day = llList2Integer(timelist,2);

return (string)day + "-" + MonthName(month - 1) + "-" + (string)year;
}

///////////////////////////////// TimeString() ////////////////////////////

string TimeString(list timelist)
{
integer hour = llList2Integer(timelist,3);
integer minute = llList2Integer(timelist,4);
integer second = llList2Integer(timelist,5);
string hourstr = (string)hour;
string minutestr = (string)minute;
string secondstr = (string)second;

if (hour < 10) hourstr = "0" + hourstr;
if (minute < 10) minutestr = "0" + minutestr;
if (second < 10) secondstr = "0" + secondstr;
return hourstr + ":" + minutestr + ":" + secondstr;
}

/////////////////////////////////// SendMail() /////////////////////////////////////

SendMail(string body)
{
// llOwnerSay("Sending message to '" + address + "' with subject '" + subject +"'.");
llMessageLinked(LINK_THIS, MSG_MESSAGE_SEND, body, NULL_KEY);
}

///////////////////////////////// SendHome() ///////////////////////////////////////

SendHome(string subject, string body)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SENDHOME, body, (key)subject);
}

///////////////////////////////// Show() ////////////////////////////////////////////

Show()
{
integer i;

llOwnerSay("Current chat recording is:");
llOwnerSay("--------------------------");

for (i = 0; i < NumLines; ++i)
{
llOwnerSay(llList2String(ChatRecording,i));
}

llOwnerSay("--------------------------");
llOwnerSay("Lines is " + (string)NumLines);
llOwnerSay("Message length is " + (string)Length);
}

/////////////////////////////// Read() /////////////////////////////////////////

Read()
{
llOwnerSay("Reading message " + (string)CurrentMessage + " from mail buffer.");
integer time = (integer)llList2Integer(TimeList,CurrentMessage);
list timelist=Unix2DateTime(time);
string Address = llList2String(AddressList,CurrentMessage);
string Subject = llList2String(SubjectList,CurrentMessage);
string Body = llList2String(BodyList,CurrentMessage);
llOwnerSay("Date : " + DateString(timelist));
llOwnerSay("Time : " + TimeString(timelist));
llOwnerSay("Address: " + Address);
llOwnerSay("Subject: " + Subject);
llOwnerSay("Begin of message body:");
llOwnerSay("-------------------------");
list bodylist=llParseStringKeepNulls(Body, [ "\n" ], []);
integer num=llGetListLength(bodylist);
integer i;

for (i = 0; i < num; ++i)
{
llOwnerSay(llList2String(bodylist,i));
}

llOwnerSay("-------------------------");
llOwnerSay("End of message body.");
}

////////////////////////////////////// List ////////////////////////////////////////////

List()
{
llOwnerSay("The mail buffer contains the following messages:\n");

integer i;

for (i = 0; i < NumMessages; ++i)
{
integer time=llList2Integer(TimeList,i);
list timelist=Unix2DateTime(time);
if (i > 0) llOwnerSay("+-+-+-+-+-+-+-+-+-+-+-+-");
llOwnerSay("Message: " + (string)i);
llOwnerSay("Date : " + DateString(timelist));
llOwnerSay("Time : " + TimeString(timelist));
llOwnerSay("From: " + llList2String(AddressList,i));
llOwnerSay("Subject: " + llList2String(SubjectList,i));
}
}

//////////////////////////// NotifyNewMail() /////////////////////////

NotifyNewMail(string time, string address, string subject, string body)
{
list timelist=Unix2DateTime((integer)time);

if (StatusOnline)
{
llInstantMessage(llGetOwner(), "You received a new mail message on "
+ DateString(timelist) + " at " + TimeString(timelist)
+ " from " + address
+ " with the subject " + subject);
}
else
{
SendHome("FW: " + subject, "Received at: " + DateString(timelist) + " " + TimeString(timelist) + "\nFrom: " + address
+ "\nBegin message body:\n-------------------\n" + body + "\n-------------------\nEnd message body.");
}
}

///////////////////////////// ResetOtherScripts() //////////////////////

ResetOtherScripts()
{
string name;
integer i;
integer num=llGetListLength(ScriptList);

for (i = 0; i < num; ++i)
{
name = llList2String(ScriptList,i);

if (llGetInventoryType(name) == INVENTORY_SCRIPT)
{
llResetOtherScript(name);
}
else
{
llOwnerSay("Error - script '" + name + "' not found.");
ErrorFlag = TRUE;
}
}
}

//////////////////////////////////////
// default
//////////////////////////////////////

default
{
////////////////////// state_entry() /////////////////////////

state_entry()
{
llOwnerSay("Welcome to SL Mail, released under GNU software licence.");
llOwnerSay("Version " + SL_MAIL_VERSION + " " + SL_MAIL_DATE);
llOwnerSay("Produced by Logic Scripted Products & Product Services");
llOwnerSay("Free memory: " + (string)llGetFreeMemory());
ResetOtherScripts();

if (ErrorFlag)
state Error;
}

/////////////////////// on_rez() //////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

/////////////////////// changed() ////////////////////////////

changed(integer mask)
{
if (mask & CHANGED_INVENTORY)
{
llResetScript();
}
}

/////////////////////// link_message() /////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
else if (msgid == MSG_ADDRESSBOOK_LOADED)
{
state running;
}
else if (msgid == MSG_ADDRESSBOOK_ERROR)
{
state Error;
}
}
}

///////////////////////////////////////
// state running
//////////////////////////////////////

state running
{
///////////////////////// state_entry() //////////////////////

state_entry()
{
llListen(0, "", llGetOwner(), "");
llOwnerSay("SL mail ready.\nSend and Get mail in Second Life.\nType @HELP for more info.");
llMessageLinked(LINK_THIS, MSG_MESSAGE_INFO, "", NULL_KEY);
llGetNextEmail("", "");
llSetTimerEvent(MAIL_FETCH_INTERVAL);
}

//////////////////////// on_rez() ////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

//////////////////////// listen() ////////////////////////////

listen(integer channel, string name, key id, string message)
{
string trimmessage=llStringTrim(message,STRING_TRIM);
list parse = llParseStringKeepNulls(trimmessage, [ " "], []);
string command = llToUpper(llList2String(parse,0));
string arg = llStringTrim(llList2String(parse,1),STRING_TRIM);
integer nargs = llGetListLength(parse);
string argstr="";

if (nargs > 1) argstr=llGetSubString(message, llSubStringIndex(message, " ") + 1, -1);

if (Recording)
{
if (command == COMMAND_STOP)
{
llOwnerSay("Recording stopped. Type @SHOW to see the message you have entered,"
+ " or @SEND to send it.");
Recording = FALSE;
return;
}
if (command == COMMAND_SEND)
{
Recording = FALSE;

SendMail(llDumpList2String(ChatRecording, "\n"));
return;
}
else
{
ChatRecording = (ChatRecording=[]) + ChatRecording + [ message ];
++NumLines;
Length += llStringLength(message) + 2;
return;
}
}
else
{
if (command == COMMAND_RECORD)
{
llOwnerSay("Start recording your message. Type @STOP to end recording.");
ChatRecording = [];
NumLines=0;
Length=0;
Recording = TRUE;
return;
}
if (command == COMMAND_CONTINUE)
{
llOwnerSay("Continue recording your message. Type @STOP to end recording.");
Recording = TRUE;
return;
}
if (command == COMMAND_REPLY)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
string address=llList2String(AddressList,CurrentMessage);
string subject="Re: " + llList2String(SubjectList,CurrentMessage);
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETADDRESS, address, NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETSUBJECT, subject, NULL_KEY);
ChatRecording = [];
NumLines=0;
Length=0;
Recording = TRUE;
}
return;
}
if (command == COMMAND_MAIL)
{
string mailaddress=llStringTrim(argstr,STRING_TRIM);

if (mailaddress != "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETADDRESS, mailaddress, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETADDRESS, "", NULL_KEY);
}
return;
}
if (command == COMMAND_SUBJECT)
{
string mailsubject=llStringTrim(argstr,STRING_TRIM);

if (mailsubject != "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETSUBJECT, mailsubject, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETSUBJECT, "", NULL_KEY);
}
return;
}
if (command == COMMAND_STOP)
{
llOwnerSay("Not recording.");
return;
}
if (command == COMMAND_SEND)
{
if (nargs == 1)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
SendMail(llDumpList2String(ChatRecording, "\n"));
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SEND_NOTECARD, argstr, NULL_KEY);
}
return;
}
if (command == COMMAND_IGNORE)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
ChatRecording = [];
NumLines = 0;
Length = 0;
}
return;
}
if (command == COMMAND_SHOW)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
Show();
}
return;
}
if (command == COMMAND_READ)
{
if (NumMessages == 0)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
Read();
}
return;
}
if (command == COMMAND_NEXT)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == NumMessages - 1)
{
llOwnerSay("Already at last message.");
}
else
{
++CurrentMessage;
Read();
}
}
return;
}
if (command == COMMAND_PREV)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == 0)
{
llOwnerSay("Already at first message.");
}
else
{
--CurrentMessage;
Read();
}
}
return;
}
if (command == COMMAND_FIRST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == 0)
{
llOwnerSay("Already at first message.");
}
else
{
CurrentMessage = 0;
Read();
}
}
return;
}
if (command == COMMAND_LAST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == NumMessages - 1)
{
llOwnerSay("Already at last message.");
}
else
{
CurrentMessage = NumMessages - 1;
Read();
}
}
return;
}
if (command == COMMAND_LIST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
List();
}
return;
}
if (command == COMMAND_SELECT)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else if (nargs == 1)
{
llOwnerSay("Need to supply a message number.");
}
else
{
integer msgnum = (integer)arg;

if (msgnum < 0 || msgnum >= NumMessages)
{
llOwnerSay("Message number " + arg + " not in mail buffer.");
}
else
{
CurrentMessage = msgnum;
}
}
return;
}
if (command == COMMAND_DELETE)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
TimeList = llDeleteSubList(TimeList,CurrentMessage,CurrentMessage);
AddressList = llDeleteSubList(AddressList,CurrentMessage,CurrentMessage);
SubjectList = llDeleteSubList(SubjectList,CurrentMessage,CurrentMessage);
BodyList = llDeleteSubList(BodyList,CurrentMessage,CurrentMessage);
--NumMessages;

if (NumMessages == 0)
{
CurrentMessage = -1;
}
else if (CurrentMessage >= NumMessages)
{
CurrentMessage = NumMessages - 1;
}
}
return;
}
if (command == COMMAND_CLEAR)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
TimeList=[];
AddressList=[];
SubjectList=[];
BodyList=[];
NumMessages=0;
CurrentMessage=-1;
}
return;
}
if (command == COMMAND_HELP)
{
llMessageLinked(LINK_THIS, MSG_HELP, arg, NULL_KEY);
return;
}
if (command == COMMAND_INFO)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_INFO, "", NULL_KEY);
return;
}
if (command == COMMAND_SHOW)
{
Show();
return;
}
if (command == COMMAND_RESET)
{
llResetScript();
return;
}
if (command == COMMAND_OFF)
{
state not_running;
}
if (command == COMMAND_HOME)
{
if (nargs==1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETHOME, "", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETHOME, argstr, NULL_KEY);
}
return;
}
}
}

///////////////////////// timer() ///////////////////////////////

timer()
{
llGetNextEmail("", "");
}

///////////////////////// email() ///////////////////////////////

email(string time, string address, string subject, string body, integer queued)
{
NotifyNewMail(time, address, subject, body);
TimeList = (TimeList=[]) + TimeList + [time];
AddressList = (AddressList=[]) + AddressList + [address];
SubjectList = (SubjectList=[]) + SubjectList + [subject];
BodyList = (BodyList=[]) + BodyList + [body];
++NumMessages;

if (CurrentMessage == -1)
{
CurrentMessage = 0;
}
else
{
CurrentMessage = NumMessages - 1;
}
}

///////////////////// link_message() //////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
else if (msgid == MSG_MESSAGE_REPLY)
{
llOwnerSay(message);
}
}
}

//////////////////////////////////
// state not_running
//////////////////////////////////

state not_running
{
///////////////////// state_entry() //////////////////////////

state_entry()
{
llOwnerSay("SL Mailbox switched OFF. Say @ON to switch it back on.");
llListen(0, "", llGetOwner(), "");
}

//////////////////// on_rez() ///////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

//////////////////// listen() ////////////////////////////////

listen(integer chan, string name, key id, string message)
{
string command=llToUpper(message);

if (command == COMMAND_ON)
{
state running;
}
}

///////////////////// link_message() //////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
}
}

//////////////////////////////////
// state Error
//////////////////////////////////

state Error
{
state_entry()
{
llOwnerSay("Error in SL Mail: not all component scripts found.");
}

changed(integer mask)
{
if (mask & CHANGED_INVENTORY)
{
llResetScript();
}
}

on_rez(integer start_param)
{
llResetScript();
}
}

//////////////////////////////////
// End SL Mail V1.2.lsl
//////////////////////////////////
</lsl>
</pre>
</div>
</div>

<div id="box">

==Script: SL Mail Address Book V1.2==
<div style="padding: 0.5em;">
Read and interpret the contents of the Address Book.
<pre>
<lsl>
// SL Mail AddressBook V1.2.lsl
//
// DESCRIPTION
//
// Read the Address Book from a notecard named "Address Book".
//
// The Address Book has the following format:
//
// [ADDRESS BOOK]
// Name1=username@yourdomain.com
// Name2=otheruser@otherdomain.com
// ...
// [GROUP]
// group1=Name1, Name2
// ...
//
// Notes:
// 1. Group and Name share the same namespace, and must be unique.
// 2. It is allowed to have a name in the addressbook with multiple addresses, seperated by comma's.
//
/////////////////////////////////////////////////

string CurrentMailAddress = "";
string CurrentMailSubject = "";
integer StatusOnline = FALSE;

// Fetch or Send notecard

string Notecard2Fetch="";

// Address Book Names

list AddressBookList=[];
list MailAddressList=[];

string STRING_HOME="HOME";
string STRING_SELF="SELF";

// Address Book Groups

list GroupList=[];
list GroupNameList=[];

string LSL_DOMAIN = "lsl.secondlife.com";

// Read Address Book notecard

string ADDRESSBOOK_NOTECARD="Address Book";
integer Line=0;
key reqAddressBook=NULL_KEY;
float TIMEOUT_INTERVAL=5.0;

integer Section=0;
integer SECTION_ADDRESS_BOOK=1;
integer SECTION_GROUP=2;
string STRING_ADDRESS_BOOK="ADDRESS BOOK";
string STRING_GROUP="GROUP";

// Links messages

integer MSG_MESSAGE_SETADDRESS = 90000;
integer MSG_MESSAGE_GETADDRESS = 90050;
integer MSG_MESSAGE_SETSUBJECT = 90100;
integer MSG_MESSAGE_GETSUBJECT = 90150;
integer MSG_MESSAGE_SEND = 90200;
integer MSG_MESSAGE_SENDHOME = 90300;
integer MSG_MESSAGE_SEND_NOTECARD = 90400;
integer MSG_MESSAGE_ADDRESSBOOK = 90500;
integer MSG_MESSAGE_GETHOME = 90600;
integer MSG_MESSAGE_SETHOME = 90700;
integer MSG_MESSAGE_INFO = 90800;
integer MSG_MESSAGE_NOTIFY = 90900;

integer MSG_ADDRESSBOOK_LOADED = 91000;
integer MSG_ADDRESSBOOK_ERROR = 91100;

integer MSG_MESSAGE_REPLY = 99000;

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////// GetSelfAddress() ///////////////////////

string GetSelfAddress()
{
return (string)llGetKey() + "@" + LSL_DOMAIN;
}

///////////////////////////// Info() /////////////////////////////////

Info()
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "The mail address for this object is: "
+ GetSelfAddress() + ".", NULL_KEY);
}

///////////////////////////////// IsValidKeyFormat() //////////////////////

integer IsValidKeyFormat(string str)
{
string keychars = "0123456789abcdef";

if (llStringLength(str) != 36)
return FALSE;

if( (llGetSubString( str, 8, 8 ) != "-" ||
llGetSubString( str, 13, 13 ) != "-" ||
llGetSubString( str, 18, 18 ) != "-" ||
llGetSubString( str, 23, 23 ) != "-" ) )
return FALSE;

integer i;

for (i = 0; i < 8; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 9; i < 13; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 14; i < 18; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 19; i < 23; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 24; i < 36; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

return TRUE;
}

///////////////////////////////// ValidMailAddress() ////////////////////////

integer ValidMailAddress(string arg)
{
string adress = llToLower(llStringTrim(arg,STRING_TRIM));

if (adress == "")
return FALSE;

list parse = llParseStringKeepNulls(adress, [ "@" ], []);
string account = llList2String(parse,0);
string domain = llList2String(parse,1);

if (llGetListLength(parse) != 2 || llStringLength(account) == 0 || llStringLength(domain) == 0)
return FALSE;

if (domain == LSL_DOMAIN)
{
return IsValidKeyFormat(account);
}
else
{
list parsedomain = llParseString2List(domain, [ "." ], []);

if (llGetListLength(parsedomain) < 2)
return FALSE;

integer num = llGetListLength(parsedomain);
integer i;

for (i = 0; i < num; ++i)
{
if (llStringLength(llList2String(parsedomain,i)) < 2)
{
return FALSE;
}
}
}

return TRUE;
}

/////////////////////////////////// GetAddressStr() ///////////////////

string GetAndCheckAddressStr(string address)
{
list addresslist = llCSV2List(address);
integer num=llGetListLength(addresslist);
integer i;
string addressstr="";
string curaddress="";

for (i = 0; i < num; ++i)
{
curaddress=llList2String(addresslist,i);

if (ValidMailAddress(curaddress))
{
addressstr = (addressstr="") + addressstr + curaddress + ",";
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address string: '"
+ curaddress + "'.", NULL_KEY);
}
}

return llGetSubString(addressstr, 0, -2);
}

///////////////////////////// ProcessLine() ////////////////////////////

ProcessLine(string rawline)
{
string line=llStringTrim(rawline,STRING_TRIM);
string first=llGetSubString(line,0,0);
string last=llGetSubString(line,-1,-1);

// Ignore a blank line or comment line
if (line == "" || first == "#")
return;

// Check for the right section

if (first == "[" && last == "]")
{
string sectionstr=llToUpper(llStringTrim(llGetSubString(line,1,-2),STRING_TRIM));

if (sectionstr == STRING_ADDRESS_BOOK)
{
Section = SECTION_ADDRESS_BOOK;
}
else if (sectionstr == STRING_GROUP)
{
if (Section == 0)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1)
+ ". Group section defined before Address Book section.", NULL_KEY);
}
else
{
Section = SECTION_GROUP;
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid section header '" + sectionstr
+ "' in " + ADDRESSBOOK_NOTECARD + " at line " + (string)(Line + 1) + ".", NULL_KEY);
}

return;
}

// Must be in a section

if (Section == 0)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ". No section header.", NULL_KEY);
return;
}

list parse=llParseString2List(line, [ "=" ], []);
integer num=llGetListLength(parse);

// Format must be correct

if (num != 2)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line+1) + ":\n" + rawline, NULL_KEY);
return;
}

if (Section == SECTION_ADDRESS_BOOK)
{
string name=llStringTrim(llList2String(parse,0),STRING_TRIM);

if (llToUpper(name) == STRING_SELF)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address book entry '" + name
+ "'. Reserved word in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ".", NULL_KEY);
}
else if (llListFindList(AddressBookList, [ name ]) == -1)
{
string address=llStringTrim(llList2String(parse,1),STRING_TRIM);
string addressstr=GetAndCheckAddressStr(address);

if (addressstr != "")
{
AddressBookList = (AddressBookList=[]) + AddressBookList + [ name ];
MailAddressList = (MailAddressList=[]) + MailAddressList + [ addressstr ];
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "No valid mail address for '" + name
+ "'. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line " + (string)(Line + 1)
+ ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Name '" + name
+ "' already defined. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else // Group
{
string group=llStringTrim(llList2String(parse,0),STRING_TRIM);

if (llToUpper(group) == STRING_SELF)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address book entry '" + group
+ "'. Reserved word in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ".", NULL_KEY);
}
else if (llListFindList(AddressBookList, [ group ]) == -1)
{
if (llListFindList(GroupList, [ group ]) == -1)
{
string names=llStringTrim(llList2String(parse,1),STRING_TRIM);
list namelist=llCSV2List(names);
integer num=llGetListLength(namelist);
integer i;
integer index;
string name;
string namestr="";

for (i = 0; i < num; ++i)
{
name=llList2String(namelist,i);
index=llListFindList(AddressBookList, [ name ]);

if (index == -1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Name '" + name + "' defined in Group '"
+ group + "' not found in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
else
{
namestr = (namestr="") + namestr + name + ",";
}
}

if (namestr != "")
{
namestr=llGetSubString(namestr,0,-2);
GroupList = (GroupList=[]) + GroupList + [ group ];
GroupNameList = (GroupNameList=[]) + GroupNameList + [ namestr ];
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' has no valid names. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' already defined in Group. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' already defined in Address Book. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
}

//////////////////////////////// GetGroupAddressList ///////////////

string GetGroupAddressList(string group)
{
integer index=llListFindList(GroupList, [ group ]);
integer i;
integer num=llGetListLength(GroupList);
string grouplist="";

if (index == -1)
{
return "";
}
else
{
for (i = index; i < num; ++i)
{
if (llList2String(GroupList,i) == group)
{
grouplist = (grouplist="") + grouplist + llList2String(GroupNameList,i) + ",";
}
}

if (grouplist != "") grouplist=llGetSubString(grouplist,0,-2); // remove last ","
return grouplist;
}
}

//////////////////////////////// SetMailAddress() //////////////////

SetMailAddress(string address)
{
integer index=llListFindList(AddressBookList, [ address ]);

if (index == -1)
{
index=llListFindList(GroupList, [ address ]);

if (index == -1)
{
if (llToUpper(address) == STRING_SELF)
{
CurrentMailAddress = GetSelfAddress();
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
else if(ValidMailAddress(address))
{
CurrentMailAddress = address;
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Mail adress " + address
+ " : not found in adress book or invalid format.", NULL_KEY);
}
}
else
{
CurrentMailAddress = GetGroupAddressList(address);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject set to: "
+ CurrentMailAddress, NULL_KEY);
}
}
else
{
CurrentMailAddress = llList2String(MailAddressList,index);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
}

/////////////////////////////////// SendMail() ///////////////////////

SendMail(string message)
{
if (CurrentMailAddress == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "SendMail: No mail address defined.", NULL_KEY);
}
else if (CurrentMailSubject == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "SendMail: No subject defined.", NULL_KEY);
}
else
{
list mailaddresslist=llCSV2List(CurrentMailAddress);
integer num=llGetListLength(mailaddresslist);
integer i;
string address;

for (i = 0; i < num; ++i)
{
address=llList2String(mailaddresslist,i);
llEmail(address, CurrentMailSubject, message);
}
}
}

/////////////////////////////////// SendMailHome() ////////////////////

SendMailHome(string message, string subject)
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, STRING_HOME
+ " not set. Set your home adress with @HOME <address>.", NULL_KEY);
}
else
{
string homeaddress=llList2String(AddressBookList,index);
list homelist=llCSV2List(homeaddress);
integer num=llGetListLength(homelist);
integer i;
string address;

for (i = 0; i < num; ++i)
{
address=llList2String(homelist,i);
llEmail(address, subject, message);
}
}
}

/////////////////////////////////// GetHomeAddress() //////////////////

string GetHomeAddress()
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
return "not set";
}
else
{
return llList2String(MailAddressList,index);
}
}

/////////////////////////////////// SetHomeAddress() //////////////////

SetHomeAddress(string address)
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
AddressBookList = (AddressBookList=[]) + [ STRING_HOME ] + AddressBookList;
MailAddressList = (MailAddressList=[]) + [ GetAndCheckAddressStr(address) ] + MailAddressList;
}
else
{
MailAddressList = llListReplaceList(MailAddressList, [ GetAndCheckAddressStr(address) ], index, index);
}
}

////////////////////////////////////
// default
////////////////////////////////////

default
{
///////////////////// state_entry() //////////////////

state_entry()
{
Line=0;
Section=0;
llSetTimerEvent(TIMEOUT_INTERVAL);
reqAddressBook=llGetNotecardLine(ADDRESSBOOK_NOTECARD, 0);
}

///////////////////// dataserver() ////////////////////

dataserver(key id, string data)
{
if (id == reqAddressBook)
{
reqAddressBook = NULL_KEY;

if (data != EOF)
{
ProcessLine(data);
reqAddressBook=llGetNotecardLine(ADDRESSBOOK_NOTECARD, ++Line);
}
else
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_LOADED, "", NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Address Book loaded.", NULL_KEY);
state running;
}
}
}

//////////////////////// timer() ///////////////////////////

timer()
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_ERROR, "", NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Could not read Address Book: "
+ ADDRESSBOOK_NOTECARD + ".", NULL_KEY);
llSetTimerEvent(0.0);
}
}

////////////////////////////////////////////
// state running
////////////////////////////////////////////

state running
{
state_entry()
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_LOADED, "", NULL_KEY);
}

///////////////////////// link_message() ////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_MESSAGE_GETSUBJECT)
{
if (CurrentMailSubject == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject is empty.", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject is: "
+ CurrentMailSubject, NULL_KEY);
}
}
else if (msgid == MSG_MESSAGE_SETSUBJECT)
{
CurrentMailSubject = message;
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject set to: "
+ CurrentMailSubject, NULL_KEY);
}
else if (msgid == MSG_MESSAGE_GETADDRESS)
{
if (CurrentMailAddress == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address is empty.", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address is: "
+ CurrentMailAddress, NULL_KEY);
}
}
else if (msgid == MSG_MESSAGE_SETADDRESS)
{
SetMailAddress(message);
}
else if (msgid == MSG_MESSAGE_SEND)
{
if (message == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Body of message to send is empty. "
+ "No mail is send.", NULL_KEY);
}
else
{
SendMail(message);
}
}
else if (msgid == MSG_MESSAGE_SENDHOME)
{
SendMailHome(message, (string)id);
}
else if (msgid == MSG_MESSAGE_SEND_NOTECARD)
{
if (llGetInventoryType(message) == INVENTORY_NOTECARD)
{
Notecard2Fetch = message;
llMessageLinked(LINK_THIS, MSG_NOTECARD_READ, message, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Notecard " + message + " not found.", NULL_KEY);
}
}
else if (msgid == MSG_NOTECARD_FETCHED)
{
if (message == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Notecard " + Notecard2Fetch
+ " was empty or could not be read.", NULL_KEY);
}
else
{
SendMail(message);
}
}
else if (msgid == MSG_MESSAGE_GETHOME)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Home address is: " + GetHomeAddress() + ".", NULL_KEY);
}
else if (msgid == MSG_MESSAGE_SETHOME)
{
SetHomeAddress(message);
}
else if (msgid == MSG_MESSAGE_INFO)
{
Info();
}
}
}

/////////////////////////////////////
// End SL Mail AddressBook V1.2.lsl
/////////////////////////////////////
</lsl>
</pre>
</div>
</div>

<div id="box">

==Script: SL Mail FetchNotecard V1.2==
<div style="padding: 0.5em;">
Fetch the contents of a notecard and return it via link message as a string.
<pre>
<lsl>
// SL Mail FetchNotecard V1.2.lsl
//
//

// Notecard

integer Line=0;
string Notecard2Fetch="";
key reqNotecard=NULL_KEY;
float TIMEOUT_INTERVAL=10.0;
integer Fetched=FALSE;

// Lines

list LineList=[];

// Link messages

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////////////////////
// default
//////////////////////////////////////////

default
{
/////////////////////// dataserver() //////////////////////////////

dataserver(key id, string data)
{
if (id == reqNotecard)
{
reqNotecard=NULL_KEY;

if (data != EOF)
{
LineList = (LineList=[]) + LineList + [ data ];
reqNotecard = llGetNotecardLine(Notecard2Fetch, ++Line);
}
else
{
Fetched=TRUE;
llMessageLinked(LINK_THIS, MSG_NOTECARD_FETCHED, llDumpList2String(LineList, "\n"), NULL_KEY);
llSetTimerEvent(0.0);
}
}
}

/////////////////////// timer() ///////////////////////////////////

timer()
{
if (!Fetched)
{
llMessageLinked(LINK_THIS, MSG_NOTECARD_FETCHED, "", NULL_KEY);
llSetTimerEvent(0.0);
}
}

/////////////////////// link_message() ////////////////////////////

link_message(integer send, integer msgid, string message, key id)
{
if (msgid == MSG_NOTECARD_READ)
{
Line=0;
Notecard2Fetch=message;
LineList=[];
Fetched=FALSE;
reqNotecard=llGetNotecardLine(Notecard2Fetch, Line);
llSetTimerEvent(TIMEOUT_INTERVAL);
}
}
}

// End SL Mail FetchNotecard V1.2.lsl
</lsl>
</pre>
</div>
</div>

<div id="box">

==Script: SL OnlineStatus V1.2==
<div style="padding: 0.5em;">
Fetch online status of owner.
<pre>
<lsl>
// SL Mail OnlineStatus V1.2.lsl
//
//

// Online status

key reqOnlineStatus=NULL_KEY;
float STATUS_INTERVAL=2.0;

// Link messages

integer MSG_STATUS_ONLINE = 30000;
integer MS_STATUS_OFFLINE = 30100;

////////////////////////////////
// default
////////////////////////////////

default
{
///////////////////////// state_entry() /////////////////////////

state_entry()
{
reqOnlineStatus=llRequestAgentData(llGetOwner(), DATA_ONLINE);
llSetTimerEvent(STATUS_INTERVAL);
}

///////////////////////// dataserver() //////////////////////////

dataserver(key id, string data)
{
if (id == reqOnlineStatus)
{
reqOnlineStatus = NULL_KEY;

if (data=="1")
{
llMessageLinked(LINK_THIS, MSG_STATUS_ONLINE, "", NULL_KEY);
}
else if (data=="0")
{
llMessageLinked(LINK_THIS, MS_STATUS_OFFLINE, "", NULL_KEY);
}
}
}

///////////////////////// timer() ///////////////////////////////

timer()
{
reqOnlineStatus = llRequestAgentData(llGetOwner(), DATA_ONLINE);
}
}

// End SL Mail OnlineStatus V1.2.lsl
</lsl>
</pre>
</div>
</div>

<div id="box">

==Script: SL Mail Help V1.2==
<div style="padding: 0.5em;">
Display help information.

<pre>
<lsl>
// SL Mail Help V1.2.lsl
//
//

integer MSG_HELP = 10000;

///////////////////////////////// Help() ///////////////////////////////////////

Help()
{
llOwnerSay("HELP for SL Mail V1.2.");
llOwnerSay("COMMANDS:");
llOwnerSay("@HELP - displays help info.");
llOwnerSay("@INFO - display mailaddress of this object.");
llOwnerSay("@RECORD - start recording.");
llOwnerSay("@CONTINUE - continue recording.");
llOwnerSay("@STOP - stop recording.");
llOwnerSay("@IGNORE - ignore the recording.");
llOwnerSay("@SHOW - show what your recorded.");
llOwnerSay("@SEND - send the recording.");
llOwnerSay("@MAIL <mailadress> - set the mail adress.");
llOwnerSay("@SUBJECT subject - set the mail subject.");
llOwnerSay("@LIST - list messages in mail buffer.");
llOwnerSay("@SELECT <message> - select message from mail buffer.");
llOwnerSay("@READ - read current message from mail buffer.");
llOwnerSay("@NEXT - read next message from mail buffer.");
llOwnerSay("@PREV - read previous message from mail buffer.");
llOwnerSay("@FIRST - read first message from mail buffer.");
llOwnerSay("@LAST - read last message from mail buffer.");
llOwnerSay("@DELETE - delete current message from mail buffer.");
llOwnerSay("@CLEAR - clear the mail buffer.");
llOwnerSay("@REPLY - reply to current message.");
llOwnerSay("@RESET - reset the script.");
llOwnerSay("@HOME - set the home mail adress.");
llOwnerSay("@OFF - switch mailbox OFF.");
llOwnerSay("@ON - switch mailbox ON.");
}

/////////////////////////////////////////////
// default
/////////////////////////////////////////////

default
{
link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_HELP)
{
Help();
}
}
}

// End SL Mail Help V1.2.lsl
</lsl>
</pre>
</div>
</div>
[[Image:slmail.info.jpg]]

{{LSLC|Library}}

User:Flennan Roffo

Flennan Roffo — Thu, 11 Oct 2007 03:48:41 GMT

Flennan Roffo:

__NOTOC__
=About Flennan Roffo=
{|
|-
||[[Image:FlennanRoffo80x80.jpg|frameless|100px|Flennan Roffo]]
||Second Life resident since 11 July 2007. Scripter and owner of Logic Scripted products and Script services. You can visit me at my office in Peacock Park (189, 226, 69):
{{SLurl
|region=Peacock Park
|x=189
|y=226
|z=69
|title=Logic Scripted products and Script services
|}}
|}

=Logic Scripted products and Script services=
[[Image:Logicscripts.org.jpg]]

URL: [http://www.logicscripts.org logiscripts.org]

==ABOUT LOGIC==
Logic Scripted Products and Script Services is, as you might have already guessed, all about LSL scripts and script services. My goal is to provide many good quality scripts for every business.

==PRODUCTS==

I am in the process of developing some very usefull products. Note though that each of these products are in early development phase and that new feautures will be released in upcoming releases. Currently I have released the following products:

* '''Logic Mailbox Basic V 1.0'''
Basic model for a mailbox that allows anyone to drop you a notecard. Comes with a standard skin. For skin customization, contact Mad Maddy Studio.

[[Image:Slmailbox.jpg]]

See the demo at Logic office:
{{SLurl
|region=Peacock Park
|x=189
|y=226
|z=69
|title=Logic Scripted products and Script services
|}}

* '''Logic Vendor V 1.0'''
Vendor that allows you to display many sellable items (objects) and per item you can give a customer a notecard. The sell price is split amongst multiple authors. Set up is easy, since you have to enter the key of each author only once, and can reference any author by nick.

[[Image:Logicvendorv10.jpg|300px]]

See the demo at Logic office:
{{SLurl
|region=Peacock Park
|x=189
|y=226
|z=69
|title=Logic Scripted products and Script services
|}}

* '''SL Mail V 1.2'''
SecondLife mail client, released under GNU GPL licence. You can send and receive mail from within SecondLife both from and to other mail clients or external mail adresses. Has many command options and comes with an adjustable address book that allows to enter addresses and address groups.

'''Get your free copy today at logic office:'''
{{SLurl
|region=Peacock Park
|x=189
|y=226
|z=69
|title=Logic Scripted products and Script services
|}}

Or, alternatively, get it from the Second Life wiki [[SL Mail V1.2|here]]

[[Image:slmail.info.jpg]]

URL: [http://www.slmail.info slmail.info]

==SERVICE CHARGING POLICY==

The charging policy for script services depends on a number of factors:
* The usuability of the script. Simply stated, if the script does not provide what it is supposed to do no charge will be applied.
* The amount of work needed to create, adapt and test the script.
* The custumor. As a rule, the richer the customer, the higher the price, and the more the script or service I provide enhances business profits, the more is charged.
* The pricing will be based on the length of the service timeperiod.
* Prices are within reason.
* Part or whole price can be refunded if you have a well grounded complaint (script not behaving as specified or a large delay in delivering the scripts).
* Payment in advance for small projects are not necessary. For larger projects in which significant amount of time is invested advanced payment is asked for in the order of 10%-50% of the agreed price.

==TERMS OF USE==

The scripts I make available public will come with a Terms of Use or Fair Use policy.

These terms of use include:

* No selling or charging for free scripts

Any script you purchase at Logic and/or is provided by Logic (either as a seperate script or as part of a Logic Scripted Product) MAY NOT BE RESOLD OR CHARGED FOR.

If I find someone either selling Logic scripts or making a no-mod version of it, I will contact you about breaking this rule, and if necessary there will be made a public notice of this and take other measures if necessary.

* No breaking of SL TOS

You may not use any script or product (wether a Logic script or product or not) that breaks the Second Life Terms of Service (TOS). You can find the SL TOS on the official Second Life website: [http://www.secondlife.com/tos.php Second Life Terms of Service]

* Donate for free scripts/services

If you found my scripts and/or other services quite usefull and got them free of charge, you might consider giving a donation. A donation box will be installed any time soon.

==HIRING==

Logic can be hired for diverse projects. This includes besised LSL scripts and also website interfaces (PHP/MySQL) that interface with a scripted product in Second Life. Examples: visitor statistics, detectors, security devices, vendors, rental boxes, and so on.

==LOGIC & STUDIO MAD MADDY==

Logic Scripted Products and Script Services cooperates with Mad Maddy Studio. Mad Maddy Studio is specialised in custom made Textures, Business Logo's and so on.

For more information about Mad Maddy Studio, and for all your graphical design requests, contact: [[User:Madeliefste Oh|Madeliefste Oh]].

[[Image:MMbanner1.jpg]]

URL: [http://www.madmaddy.com madmaddy.com]

=LSL Scripts & Tutorials=
Logic Scripted products and Script services is serving the broad public domain also by providing a good resource for scripts and script tutorials. This webservice is starting somewhere in october or november 2007.
The plan is to both collect & document existing scripts that reside in the inventory of residents or circulate in script groups and also create some new scripts ourselves that serve the interest of the public domain at large, and which will complement existing LSL wiki's, website and script resources/tutorials around the world wide web.
The website will provide usefull resources for both scripters and non-scripters (script users) and will accomodate both the interests of those that are new to scripting as well as die-hard LSL scripters.
==SCRIPT & SCRIPT TUTORIAL LIBRARY==
Both scripts and script tutorials will be placed in a repository/database which facilitates easy access and good searching options and is open for contributions by anyone. To maintain a good quality level some form of moderation will be put in place. User feedback to the site will be encouraged strongly, as also the sharing of script knowledge, tips & tricks, etc. Other planned part of the website will be a page to make requests for scripts, either for scripts that do not yet exist in the public domain, or for feature requests on existing scripts. Be aware though that this service is not meant to be a place for hiring scripters or to buy a script, and is not intended to replace companies that provide those services for fees, but only is meant to serve the interests of the public in improving high quality scripts that are available as open source.

==SCRIPT USERS==

For those that do not do scripting themselves, and have no interest in becoming a scripter, but do use scripts and/or buy scripts or script services, and want to know more about scripting at the user level, also those demands will be served on the '''lslscripts.org''' website. Documentation will be provided on issues like:
* How much can be charged for a script/script service or hiring of a scripter?
* What licence model is applicable for the scripts I need for my project?
etc.
Linked to this website a script group in-world will be founded under the name: '''lslscripts.org'''. This group will be open for anyone to join.
==SUPPORT LSLSCRIPTS.ORG. DONATE YOUR SCRIPTS OR SCRIPT TUTORIALS==
Donations to '''lslscripts.org''' are welcome, both in the form of scripts, tutorials and some Linden$ for supporting the site and cover its costs are welcome. Want to become actively involved in developing this website, or just want to communicate your ideas about it? Don't hesitate to contact the founder of '''lslscripts.org''' Flennan Roffo. All contributions, small or large, are welcome.
Those that are interested in providing some usefull information about scripting, for example in the form of Blog entries or tutorials or other usefull stuff that fits the purpose of this webservice, please contact me. Also if you can support '''lslscripts.org''' by placing an advertise free of charge for this webservice on your parcel which connects to the '''lslscripts.org''' webservice, do not hesitate to contact me.

Flennan Roffo

'''Logic Scripted products and Script services'''

[[Image:Lslscripts.org.jpg]]

URL: [http://www.lslscripts.org lslscripts.org]

'''DONATE YOUR SCRIPTS & SCRIPT TUTORIALS TO LSLSCRIPTS.ORG. BECOME INVOLVED.'''

{{visl
|name=
|Scripter=*
|}}

User:Flennan Roffo

Flennan Roffo — Wed, 10 Oct 2007 15:50:36 GMT

Flennan Roffo:

__NOTOC__
=About Flennan Roffo=
{|
|-
||[[Image:FlennanRoffo80x80.jpg|frameless|100px|Flennan Roffo]]
||Second Life resident since 11 July 2007. Scripter and owner of Logic Scripted products and Script services. You can visit me at my office in Peacock Park (189, 226, 69):
{{SLurl
|region=Peacock Park
|x=189
|y=226
|z=69
|title=Logic Scripted products and Script services
|}}
|}

=Logic Scripted products and Script services=
[[Image:Logicscripts.org.jpg]]

URL: [http://www.logicscripts.org logiscripts.org]

==ABOUT LOGIC==
Logic Scripted Products and Script Services is, as you might have already guessed, all about LSL scripts and script services. My goal is to provide many good quality scripts for every business.

==PRODUCTS==

I am in the process of developing some very usefull products. Note though that each of these products are in early development phase and that new feautures will be released in upcoming releases. Currently I have released the following products:

* '''Logic Mailbox Basic V 1.0'''
Basic model for a mailbox that allows anyone to drop you a notecard. Comes with a standard skin. For skin customization, contact Mad Maddy Studio.

[[Image:Slmailbox.jpg]]

See the demo at Logic office:
{{SLurl
|region=Peacock Park
|x=189
|y=226
|z=69
|title=Logic Scripted products and Script services
|}}

* '''Logic Vendor V 1.0'''
Vendor that allows you to display many sellable items (objects) and per item you can give a customer a notecard. The sell price is split amongst multiple authors. Set up is easy, since you have to enter the key of each author only once, and can reference any author by nick.

[[Image:Logicvendorv10.jpg|300px]]

See the demo at Logic office:
{{SLurl
|region=Peacock Park
|x=189
|y=226
|z=69
|title=Logic Scripted products and Script services
|}}

* '''SL Mail V 1.2'''
SecondLife mail client, released under GNU GPL licence. You can send and receive mail from within SecondLife both from and to other mail clients or external mail adresses. Has many command options and comes with an adjustable address book that allows to enter addresses and address groups.

'''Get your free copy today at logic office:'''
{{SLurl
|region=Peacock Park
|x=189
|y=226
|z=69
|title=Logic Scripted products and Script services
|}}

Or, alternatively, get it from the Second Life wiki [[SL Mail V1.2|here]]

[[Image:slmail.info.jpg]]

URL: [http://www.slmail.info slmail.info]

==SERVICE CHARGING POLICY==

The charging policy for script services depends on a number of factors:
* The usuability of the script. Simply stated, if the script does not provide what it is supposed to do no charge will be applied.
* The amount of work needed to create, adapt and test the script.
* The custumor. As a rule, the richer the customer, the higher the price, and the more the script or service I provide enhances business profits, the more is charged.
* The pricing will be based on the length of the service timeperiod.
* Prices are within reason.
* Part or whole price can be refunded if you have a well grounded complaint (script not behaving as specified or a large delay in delivering the scripts).
* Payment in advance for small projects are not necessary. For larger projects in which significant amount of time is invested advanced payment is asked for in the order of 10%-50% of the agreed price.

==TERMS OF USE==

The scripts I make available public will come with a Terms of Use or Fair Use policy.

These terms of use include:

* No selling or charging for free scripts

Any script you purchase at Logic and/or is provided by Logic (either as a seperate script or as part of a Logic Scripted Product) MAY NOT BE RESOLD OR CHARGED FOR.

If I find someone either selling Logic scripts or making a no-mod version of it, I will contact you about breaking this rule, and if necessary there will be made a public notice of this and take other measures if necessary.

* No breaking of SL TOS

You may not use any script or product (wether a Logic script or product or not) that breaks the Second Life Terms of Service (TOS). You can find the SL TOS on the official Second Life website: http://www.secondlife.com

* Donate for free scripts/services

If you found my scripts and/or other services quite usefull and got them free of charge, you might consider giving a donation. A donation box will be installed any time soon.

==HIRING==

Logic can be hired for diverse projects. This includes besised LSL scripts and also website interfaces (PHP/MySQL) that interface with a scripted product in Second Life. Examples: visitor statistics, detectors, security devices, vendors, rental boxes, and so on.

==LOGIC & STUDIO MAD MADDY==

Logic Scripted Products and Script Services cooperates with Mad Maddy Studio. Mad Maddy Studio is specialised in custom made Textures, Business Logo's and so on.

For more information about Mad Maddy Studio, and for all your graphical design requests, contact: [[User:Madeliefste Oh|Madeliefste Oh]].

[[Image:MMbanner1.jpg]]

URL: [http://www.madmaddy.com madmaddy.com]

=LSL Scripts & Tutorials=
Logic Scripted products and Script services is serving the broad public domain also by providing a good resource for scripts and script tutorials. This webservice is starting somewhere in october or november 2007.
The plan is to both collect & document existing scripts that reside in the inventory of residents or circulate in script groups and also create some new scripts ourselves that serve the interest of the public domain at large, and which will complement existing LSL wiki's, website and script resources/tutorials around the world wide web.
The website will provide usefull resources for both scripters and non-scripters (script users) and will accomodate both the interests of those that are new to scripting as well as die-hard LSL scripters.
==SCRIPT & SCRIPT TUTORIAL LIBRARY==
Both scripts and script tutorials will be placed in a repository/database which facilitates easy access and good searching options and is open for contributions by anyone. To maintain a good quality level some form of moderation will be put in place. User feedback to the site will be encouraged strongly, as also the sharing of script knowledge, tips & tricks, etc. Other planned part of the website will be a page to make requests for scripts, either for scripts that do not yet exist in the public domain, or for feature requests on existing scripts. Be aware though that this service is not meant to be a place for hiring scripters or to buy a script, and is not intended to replace companies that provide those services for fees, but only is meant to serve the interests of the public in improving high quality scripts that are available as open source.

==SCRIPT USERS==

For those that do not do scripting themselves, and have no interest in becoming a scripter, but do use scripts and/or buy scripts or script services, and want to know more about scripting at the user level, also those demands will be served on the '''lslscripts.org''' website. Documentation will be provided on issues like:
* How much can be charged for a script/script service or hiring of a scripter?
* What licence model is applicable for the scripts I need for my project?
etc.
Linked to this website a script group in-world will be founded under the name: '''lslscripts.org'''. This group will be open for anyone to join.
==SUPPORT LSLSCRIPTS.ORG. DONATE YOUR SCRIPTS OR SCRIPT TUTORIALS==
Donations to '''lslscripts.org''' are welcome, both in the form of scripts, tutorials and some Linden$ for supporting the site and cover its costs are welcome. Want to become actively involved in developing this website, or just want to communicate your ideas about it? Don't hesitate to contact the founder of '''lslscripts.org''' Flennan Roffo. All contributions, small or large, are welcome.
Those that are interested in providing some usefull information about scripting, for example in the form of Blog entries or tutorials or other usefull stuff that fits the purpose of this webservice, please contact me. Also if you can support '''lslscripts.org''' by placing an advertise free of charge for this webservice on your parcel which connects to the '''lslscripts.org''' webservice, do not hesitate to contact me.

Flennan Roffo

'''Logic Scripted products and Script services'''

[[Image:Lslscripts.org.jpg]]

URL: [http://www.lslscripts.org lslscripts.org]

'''DONATE YOUR SCRIPTS & SCRIPT TUTORIALS TO LSLSCRIPTS.ORG. BECOME INVOLVED.'''

{{visl
|name=
|Scripter=*
|}}

SL Mail V1.2

Flennan Roffo — Sun, 07 Oct 2007 12:09:50 GMT

Flennan Roffo: /* '''Second Life mail client''' */

{{LSL Header}} __NOTOC__
<div id="box">
='''Second Life mail client'''=
<div style="padding: 0.5em">

'''Send and receive email from within Second Life from and to any address.'''

Implemented with Address Book function (in a notecard named 'Address Book') to stores addresses by name and to compile groups of named addresses. Current version is stand-alone (no server functionality) and uses chat commands only.

[[Image:BannerSLMail.jpg]]

URL: [http://www.slmail.info slmail.info] (website coming soon!)

</div>
</div>

<div id="box">

=Release Notes V1.2=
<div style="padding: 0.5em">
SL Mail V1.2 Release notes (edition 2, 4 sept 2007)
</div>
</div>

<div id="box">
=='''LICENCE INFO'''==
<div style="padding: 0.5em">
SL Mail V1.2 is released under GNU free software licence
</div>
</div>

<div id="box">
=='''PRODUCTION & MAINTANENCE'''==
<div style="padding: 0.5em">
by Logic Scripted Products and Script Services

[[Image:Logicbanner1.jpg]]

URL: [http://www.logicscripts.org logicscripts.org] (website coming soon!)

SLurl:
{{SLurl
|region=Peacock Park
|x=189
|y=226
|z=69
|title=Logic Scripted products and Script services
|}}

Contact: [[User:Flennan Roffo|Flennan Roffo]]

Email: [mailto:info@slmail.info '''info'''] or [mailto:Flennan.Roffo@slmail.info '''Flennan Roffo''']

</div>
</div>

<div id="box">

=='''DESCRIPTION'''==
<div style="padding: 0.5em">
SL Mail V1.2 is a simple tool to send and receive mail from within SL.
You can either compose a message yourself using chat recording, or choose a notecard from inventory to send. The Address Book functionality allows you to use short names for mail recipients stored in a notecard. The current version does not have a persisent mail address. Watch out for the upcoming next release (V1.3) which will facilitate persisent in-world mail addresses and will be enhanced with many new features (See: Requests For Change (RFC).
</div>
</div>

<div id="box">

=='''COMMANDS'''==
<div style="padding: 0.5em">
{| {{Prettytable}}
|-
|{{Hl2}}| '''Command'''
|{{Hl2}}| '''Description'''
|-
||'''@Help'''
||Show Help about available commands
|-
||'''@Record'''
||Starts a chat recording (for owner only).
|-
||'''@Stop'''
||Stops the chat recording without sending
|-
||'''@Continue'''
||Continues a previously stopped chat recording. Lines will be appended to you recording buffer.
|-
||'''@Show'''
||Shows the content of the recording buffer.
|-
||'''@Send'''
||If recording, stops the recording, and sends the mail (need to supply mail address and subject first!)
|-
||'''@Send <notecard>'''
||Sends the content of the notecard, instead of the chat recording.
|-
||'''@Ignore'''
||Ignores your current chat recording.
|-
||'''@Mail <address>'''
||Define the mail address to send to.
|-
||'''@Mail'''
||Shows the current mail address to send to.
|-
||'''@Subject <subject>'''
||Define the subject of the mail.
|-
||'''@Subject'''
||Shows the current mail subject.
|-
||'''@Home <address>'''
||Set the HOME address of the owner (mail will be forwarder to this address when offline).
|-
||'''@Home'''
||Show the HOME address.
|-
||'''@Info'''
||Shows the mail address the object this script is running in uses (e.g. <object-key>@lsl.secondlife.com).
|-
||'''@Read'''
||Reads the current message from the mail buffer (the mail buffer gets filled with mail you receive)
|-
||'''@Select <msg>'''
||Select a message number from the availabe messages in the mail buffer.
|-
||'''@Next'''
||Make next message the current message.
|-
||'''@Prev'''
||Make previous message the current message.
|-
||'''@First'''
||Make the first message the current message.
|-
||'''@Last'''
||Make the last message the current message.
|-
||'''@Clear'''
||Clear the mail buffer
|-
||'''@Delete'''
||Deletes only the current message
|-
||'''@Reply'''
||Starts a chat recording to reply to the current message. Mail adress and subject are filled in automatically.
|}

Note:

* Commands are case insensitive ("@read" == "@READ"). Arguments might not be case insensitive.
</div>
</div>

<div id="box">
=='''ADDRESS BOOK FORMAT'''==
<div style="padding: 0.5em">
A notecard of the name 'Address Book' is read during initialization which may contain Address Book items and Groups.
The notecard is split in two sections, which need to be defined in that particular order.

'''[ADDRESS BOOK]'''

Defines the section in which you can put names for mail addresses, like this:

'''Name1=account@thisdomain.com'''

'''Name2=user@otherdomain.com'''

etc.

'''[GROUP]'''

Define groups of previously defined names under a new name, like for instance:

'''MyGroup=Name1, Name2'''

Note that names of groups and individual mail adresses share the same namespace and must be unique.

So when you filled in your mail adresses in the Address Book, you can now use:

'''@Mail Name1'''

To send mail to <account@thisdomain.com>

or you can use

'''@Mail MyGroup'''

To send mail to <account@thisdomain.com> and <user@otherdomain.com>
Mails will be sent one after another.

Notes:

* Names for Addreses and Groups are case insensitive (e.g. "mary" == "MARY")

* The special address 'Self' can be used in commands where otherwise an address specification can be used. 'Self' is case insensitive (e.g. "self" == "SELF")

</div>
</div>

<div id="box">
=='''LIMITATIONS'''==
<div style="padding: 0.5em">
The current version is limited by the following:

* Chat recording lines are limited by the 255 byte limit

* Output of lines from the mail buffer are also limited by this 255 byte limit

* Incoming mail is limited to a 1000 (1024?) byte limit

* Outgoing mai is limited by a 4096 byte limit, which includes the standard mail header (region/location info on the first two lines)

We are making adjustments to this release to help overcome these limitations. At least the line lenght limit can be overcome by introducing a line continuation character (for example a hyphen '-') that when used at the end of a line appends the next line, so lines longer then 255 bytes are possible then.

To overcome the outgoing mail length limit, the mail can be broken textualy into parts, and each part can be send seperatedely, with an indication in the subject or in an introduced primary line of the mail body to indicate that the mail was split into parts.
For incoming mail and at least to receive mail from other SL Mail programs, a protocol will be introduced to receive mail in parts that are joined together after receiving them to form a single mail.

These enhancements will be made available in the next release (V1.3) of SL Mail
</div>
</div>

<div id="box">
=='''BUGS'''==
<div style="padding: 0.5em">
Report any bugs you find in this release to Logic (IM: Flennan Roffo).
</div>
</div>

<div id="box">
=='''REQUEST FOR CHANGE (RFC)'''==
<div style="padding: 0.5em">
Do you have additional wishes for enhancement of this product?
Contact Flennan Roffo and we will see if they can be implemented in the next release.

Existing RFC's are:

* Menu support for commands.

* Lines on incoming/outgoing mail longer than 255 bytes.

* Send messages longer than 4096 (minus SL mail header) bytes.

* Receive messages longer than 1024 bytes.

* Permanent mail addresses for the SL Mail client (like: <Flennan.Roffo@somedomain.sl>)

Add your RFC!
</div>
</div>

<div id="box">
=='''SL MAIL SUPPORT & DEVELOPMENT'''==
<div style="padding: 0.5em">

In-world join the group "SL Mail" for bug reports, feature requests, the latest SL Mail release, and notices about development issues.
</div>
</div>

<div id="box">

=Scripts=
</div>

<div id="box">
==Script: SL Mail v1.2==
<div style="padding: 0.5em;">
SL Mail core module which scans for incoming mail messages and executes commands used by the owner.
<pre>
// SL Mail V1.2.lsl
// (c) 2007 Logic Scripted Products and Script Services
// Flennan Roffo

// VERSION
// Version: 1.2

// HISTORY
// Date Version Author Comment
// --------------------------------------------------------------------------------------
// 28 aug 2007 V 1.0 Flennan Roffo Created
//
// 1 sep 2007 V 1.1 Flennan Roffo @Reply empties the recording buffer.
// @Send while recording ends recording
// and sends the mail if a mail address
// and subject are supplied.
// Fixed incorrect date in Unix2DateTime.
// 3 sep 2007 V 1.2 Flennan Roffo Notification options:
// - When online, send an IM when mail is received.
// - When offline, send to HOME mail adress.
// Adressbook
// - Read adress book from config notecard.

// LICENCE
// This program is free software; you can redistribute it and/or
// modify it under the terms of the GNU General Public License
// as published by the Free Software Foundation; either version 2
// of the License, or (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
// (Also available at http://www.gnu.org/copyleft/gpl.html)

// DESCRIPTION
// Let's you record a message and sent to email and get messages and reply to messages.
// Must supply a valid mail adress and non-empty subject using chat commands.

// TODO:
// 1) Check for the maximum length of an email message (including newline and header).
// 2) Read adress book from notecard. *DONE*
// 3) Send incoming mail to personal mail adress when offline. *DONE*
// 4) Alert with an IM when online upon receiving new mail. *DONE*

string SL_MAIL_VERSION = "V 1.2";
string SL_MAIL_DATE = " 2 sep 2007";
integer ErrorFlag = FALSE;
list ScriptList = [ "SL Mail Help V1.2", "SL Mail AddressBook V1.2",
"SL Mail OnlineStatus V1.2", "SL Mail FetchNotecard V1.2" ];
string LSL_DOMAIN="lsl.secondlife.com";
integer StatusOnline=FALSE;

// Commands

string COMMAND_RECORD = "@RECORD";
string COMMAND_CONTINUE = "@CONTINUE";
string COMMAND_STOP = "@STOP";
string COMMAND_MAIL = "@MAIL";
string COMMAND_SUBJECT = "@SUBJECT";
string COMMAND_SEND = "@SEND";
string COMMAND_SEE = "@SEE";
string COMMAND_IGNORE = "@IGNORE";
string COMMAND_READ = "@READ";
string COMMAND_DELETE = "@DELETE";
string COMMAND_CLEAR = "@CLEAR";
string COMMAND_REPLY = "@REPLY";
string COMMAND_NEXT = "@NEXT";
string COMMAND_PREV = "@PREV";
string COMMAND_FIRST = "@FIRST";
string COMMAND_LAST = "@LAST";
string COMMAND_LIST = "@LIST";
string COMMAND_SELECT = "@SELECT";
string COMMAND_HELP = "@HELP";
string COMMAND_INFO = "@INFO";
string COMMAND_RESET = "@RESET";
string COMMAND_SHOW = "@SHOW";
string COMMAND_ON = "@ON";
string COMMAND_OFF = "@OFF";
string COMMAND_HOME = "@HOME";
string COMMAND_LOAD = "@LOAD";
string COMMAND_ADDRESS = "@ADDRESS";

// Recording

integer Recording = FALSE;

list ChatRecording=[];
integer NumLines=0;
integer Length=0;

list TimeList=[];
list AddressList=[];
list SubjectList=[];
list BodyList=[];
integer NumMessages=0;
integer CurrentMessage=-1;

float MAIL_FETCH_INTERVAL=5.0;

// Link Messages

integer MSG_HELP = 10000;
integer MSG_STATUS_ONLINE = 30000;
integer MSG_STATUS_OFFLINE = 30100;

integer MSG_MESSAGE_SETADDRESS = 90000;
integer MSG_MESSAGE_GETADDRESS = 90050;
integer MSG_MESSAGE_SETSUBJECT = 90100;
integer MSG_MESSAGE_GETSUBJECT = 90150;
integer MSG_MESSAGE_SEND = 90200;
integer MSG_MESSAGE_SENDHOME = 90300;
integer MSG_MESSAGE_SEND_NOTECARD = 90400;
integer MSG_MESSAGE_ADDRESSBOOK = 90500;
integer MSG_MESSAGE_GETHOME = 90600;
integer MSG_MESSAGE_SETHOME = 90700;
integer MSG_MESSAGE_INFO = 90800;

integer MSG_ADDRESSBOOK_LOADED = 91000;
integer MSG_ADDRESSBOOK_ERROR = 91100;

integer MSG_MESSAGE_REPLY = 99000;

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////// Unix Time conversion //////////////////

integer DAYS_PER_YEAR = 365; // Non leap year
integer SECONDS_PER_YEAR = 31536000; // Non leap year
integer SECONDS_PER_DAY = 86400;
integer SECONDS_PER_HOUR = 3600;
integer SECONDS_PER_MINUTE = 60;

////////////////////////////// LeapYear() /////////////////////////////

integer LeapYear(integer year)
{
if (year % 4 == 0)
{
if (year % 100 == 0)
{
if (year % 400 == 0)
{
return 1;
}
else
{
return 0;
}
}
else
{
return 1;
}
}
else
{
return 0;
}
}

////////////////////////////// DaysPerMonth() ///////////////////////////////////////

integer DaysPerMonth(integer year,integer month)
{
if (month < 8)
{
if (month % 2 == 0)
{
if (month == 2)
{
if (LeapYear(year))
{
return 29;
}
else
{
return 28;
}
}
else
{
return 30;
}
}
else
{
return 31;
}
}
else
{
if (month % 2 == 0)
{
return 31;
}
else
{
return 30;
}
}
}

/////////////////////////// DaysPerYear() ////////////////////////////////////

integer DaysPerYear(integer year)
{
if (LeapYear(year))
return DAYS_PER_YEAR + 1;
else
return DAYS_PER_YEAR;
}

/////////////////////////////// Unix2DataTime() ///////////////////////////////////////

list Unix2DateTime(integer unixtime)
{
integer days_since_1_1_1970 = unixtime / SECONDS_PER_DAY;
integer day = days_since_1_1_1970 + 1;
integer year = 1970;
integer days_per_year = DaysPerYear(year);

while (day > days_per_year)
{
day -= days_per_year;
++year;
days_per_year = DaysPerYear(year);
}

integer month = 1;
integer days_per_month = DaysPerMonth(year,month);

while (day > days_per_month)
{
day -= days_per_month;

if (++month > 12)
{
++year;
month = 1;
}

days_per_month = DaysPerMonth(year,month);
}

integer seconds_since_midnight = unixtime % SECONDS_PER_DAY;
integer hour = seconds_since_midnight / SECONDS_PER_HOUR;
integer second = seconds_since_midnight % SECONDS_PER_HOUR;
integer minute = second / SECONDS_PER_MINUTE;
second = second % SECONDS_PER_MINUTE;

return [ year, month, day, hour, minute, second ];
}

///////////////////////////////// MonthName() ////////////////////////////

list MonthNameList = [ "JAN", "FEB", "MAR", "APR", "MAY", "JUN",
"JUL", "AUG", "SEP", "OCT" , "NOV", "DEC" ];

string MonthName(integer month)
{
if (month >= 0 && month < 12)
return llList2String(MonthNameList, month);
else
return "";
}

///////////////////////////////// DateString() ///////////////////////////

string DateString(list timelist)
{
integer year = llList2Integer(timelist,0);
integer month = llList2Integer(timelist,1);
integer day = llList2Integer(timelist,2);

return (string)day + "-" + MonthName(month - 1) + "-" + (string)year;
}

///////////////////////////////// TimeString() ////////////////////////////

string TimeString(list timelist)
{
integer hour = llList2Integer(timelist,3);
integer minute = llList2Integer(timelist,4);
integer second = llList2Integer(timelist,5);
string hourstr = (string)hour;
string minutestr = (string)minute;
string secondstr = (string)second;

if (hour < 10) hourstr = "0" + hourstr;
if (minute < 10) minutestr = "0" + minutestr;
if (second < 10) secondstr = "0" + secondstr;
return hourstr + ":" + minutestr + ":" + secondstr;
}

/////////////////////////////////// SendMail() /////////////////////////////////////

SendMail(string body)
{
// llOwnerSay("Sending message to '" + address + "' with subject '" + subject +"'.");
llMessageLinked(LINK_THIS, MSG_MESSAGE_SEND, body, NULL_KEY);
}

///////////////////////////////// SendHome() ///////////////////////////////////////

SendHome(string subject, string body)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SENDHOME, body, (key)subject);
}

///////////////////////////////// Show() ////////////////////////////////////////////

Show()
{
integer i;

llOwnerSay("Current chat recording is:");
llOwnerSay("--------------------------");

for (i = 0; i < NumLines; ++i)
{
llOwnerSay(llList2String(ChatRecording,i));
}

llOwnerSay("--------------------------");
llOwnerSay("Lines is " + (string)NumLines);
llOwnerSay("Message length is " + (string)Length);
}

/////////////////////////////// Read() /////////////////////////////////////////

Read()
{
llOwnerSay("Reading message " + (string)CurrentMessage + " from mail buffer.");
integer time = (integer)llList2Integer(TimeList,CurrentMessage);
list timelist=Unix2DateTime(time);
string Address = llList2String(AddressList,CurrentMessage);
string Subject = llList2String(SubjectList,CurrentMessage);
string Body = llList2String(BodyList,CurrentMessage);
llOwnerSay("Date : " + DateString(timelist));
llOwnerSay("Time : " + TimeString(timelist));
llOwnerSay("Address: " + Address);
llOwnerSay("Subject: " + Subject);
llOwnerSay("Begin of message body:");
llOwnerSay("-------------------------");
list bodylist=llParseStringKeepNulls(Body, [ "\n" ], []);
integer num=llGetListLength(bodylist);
integer i;

for (i = 0; i < num; ++i)
{
llOwnerSay(llList2String(bodylist,i));
}

llOwnerSay("-------------------------");
llOwnerSay("End of message body.");
}

////////////////////////////////////// List ////////////////////////////////////////////

List()
{
llOwnerSay("The mail buffer contains the following messages:\n");

integer i;

for (i = 0; i < NumMessages; ++i)
{
integer time=llList2Integer(TimeList,i);
list timelist=Unix2DateTime(time);
if (i > 0) llOwnerSay("+-+-+-+-+-+-+-+-+-+-+-+-");
llOwnerSay("Message: " + (string)i);
llOwnerSay("Date : " + DateString(timelist));
llOwnerSay("Time : " + TimeString(timelist));
llOwnerSay("From: " + llList2String(AddressList,i));
llOwnerSay("Subject: " + llList2String(SubjectList,i));
}
}

//////////////////////////// NotifyNewMail() /////////////////////////

NotifyNewMail(string time, string address, string subject, string body)
{
list timelist=Unix2DateTime((integer)time);

if (StatusOnline)
{
llInstantMessage(llGetOwner(), "You received a new mail message on "
+ DateString(timelist) + " at " + TimeString(timelist)
+ " from " + address
+ " with the subject " + subject);
}
else
{
SendHome("FW: " + subject, "Received at: " + DateString(timelist) + " " + TimeString(timelist) + "\nFrom: " + address
+ "\nBegin message body:\n-------------------\n" + body + "\n-------------------\nEnd message body.");
}
}

///////////////////////////// ResetOtherScripts() //////////////////////

ResetOtherScripts()
{
string name;
integer i;
integer num=llGetListLength(ScriptList);

for (i = 0; i < num; ++i)
{
name = llList2String(ScriptList,i);

if (llGetInventoryType(name) == INVENTORY_SCRIPT)
{
llResetOtherScript(name);
}
else
{
llOwnerSay("Error - script '" + name + "' not found.");
ErrorFlag = TRUE;
}
}
}

//////////////////////////////////////
// default
//////////////////////////////////////

default
{
////////////////////// state_entry() /////////////////////////

state_entry()
{
llOwnerSay("Welcome to SL Mail, released under GNU software licence.");
llOwnerSay("Version " + SL_MAIL_VERSION + " " + SL_MAIL_DATE);
llOwnerSay("Produced by Logic Scripted Products & Product Services");
llOwnerSay("Free memory: " + (string)llGetFreeMemory());
ResetOtherScripts();

if (ErrorFlag)
state Error;
}

/////////////////////// on_rez() //////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

/////////////////////// changed() ////////////////////////////

changed(integer mask)
{
if (mask & CHANGED_INVENTORY)
{
llResetScript();
}
}

/////////////////////// link_message() /////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
else if (msgid == MSG_ADDRESSBOOK_LOADED)
{
state running;
}
else if (msgid == MSG_ADDRESSBOOK_ERROR)
{
state Error;
}
}
}

///////////////////////////////////////
// state running
//////////////////////////////////////

state running
{
///////////////////////// state_entry() //////////////////////

state_entry()
{
llListen(0, "", llGetOwner(), "");
llOwnerSay("SL mail ready.\nSend and Get mail in Second Life.\nType @HELP for more info.");
llMessageLinked(LINK_THIS, MSG_MESSAGE_INFO, "", NULL_KEY);
llGetNextEmail("", "");
llSetTimerEvent(MAIL_FETCH_INTERVAL);
}

//////////////////////// on_rez() ////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

//////////////////////// listen() ////////////////////////////

listen(integer channel, string name, key id, string message)
{
string trimmessage=llStringTrim(message,STRING_TRIM);
list parse = llParseStringKeepNulls(trimmessage, [ " "], []);
string command = llToUpper(llList2String(parse,0));
string arg = llStringTrim(llList2String(parse,1),STRING_TRIM);
integer nargs = llGetListLength(parse);
string argstr="";

if (nargs > 1) argstr=llGetSubString(message, llSubStringIndex(message, " ") + 1, -1);

if (Recording)
{
if (command == COMMAND_STOP)
{
llOwnerSay("Recording stopped. Type @SHOW to see the message you have entered,"
+ " or @SEND to send it.");
Recording = FALSE;
return;
}
if (command == COMMAND_SEND)
{
Recording = FALSE;

SendMail(llDumpList2String(ChatRecording, "\n"));
return;
}
else
{
ChatRecording = (ChatRecording=[]) + ChatRecording + [ message ];
++NumLines;
Length += llStringLength(message) + 2;
return;
}
}
else
{
if (command == COMMAND_RECORD)
{
llOwnerSay("Start recording your message. Type @STOP to end recording.");
ChatRecording = [];
NumLines=0;
Length=0;
Recording = TRUE;
return;
}
if (command == COMMAND_CONTINUE)
{
llOwnerSay("Continue recording your message. Type @STOP to end recording.");
Recording = TRUE;
return;
}
if (command == COMMAND_REPLY)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
string address=llList2String(AddressList,CurrentMessage);
string subject="Re: " + llList2String(SubjectList,CurrentMessage);
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETADDRESS, address, NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETSUBJECT, subject, NULL_KEY);
ChatRecording = [];
NumLines=0;
Length=0;
Recording = TRUE;
}
return;
}
if (command == COMMAND_MAIL)
{
string mailaddress=llStringTrim(argstr,STRING_TRIM);

if (mailaddress != "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETADDRESS, mailaddress, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETADDRESS, "", NULL_KEY);
}
return;
}
if (command == COMMAND_SUBJECT)
{
string mailsubject=llStringTrim(argstr,STRING_TRIM);

if (mailsubject != "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETSUBJECT, mailsubject, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETSUBJECT, "", NULL_KEY);
}
return;
}
if (command == COMMAND_STOP)
{
llOwnerSay("Not recording.");
return;
}
if (command == COMMAND_SEND)
{
if (nargs == 1)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
SendMail(llDumpList2String(ChatRecording, "\n"));
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SEND_NOTECARD, argstr, NULL_KEY);
}
return;
}
if (command == COMMAND_IGNORE)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
ChatRecording = [];
NumLines = 0;
Length = 0;
}
return;
}
if (command == COMMAND_SHOW)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
Show();
}
return;
}
if (command == COMMAND_READ)
{
if (NumMessages == 0)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
Read();
}
return;
}
if (command == COMMAND_NEXT)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == NumMessages - 1)
{
llOwnerSay("Already at last message.");
}
else
{
++CurrentMessage;
Read();
}
}
return;
}
if (command == COMMAND_PREV)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == 0)
{
llOwnerSay("Already at first message.");
}
else
{
--CurrentMessage;
Read();
}
}
return;
}
if (command == COMMAND_FIRST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == 0)
{
llOwnerSay("Already at first message.");
}
else
{
CurrentMessage = 0;
Read();
}
}
return;
}
if (command == COMMAND_LAST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == NumMessages - 1)
{
llOwnerSay("Already at last message.");
}
else
{
CurrentMessage = NumMessages - 1;
Read();
}
}
return;
}
if (command == COMMAND_LIST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
List();
}
return;
}
if (command == COMMAND_SELECT)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else if (nargs == 1)
{
llOwnerSay("Need to supply a message number.");
}
else
{
integer msgnum = (integer)arg;

if (msgnum < 0 || msgnum >= NumMessages)
{
llOwnerSay("Message number " + arg + " not in mail buffer.");
}
else
{
CurrentMessage = msgnum;
}
}
return;
}
if (command == COMMAND_DELETE)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
TimeList = llDeleteSubList(TimeList,CurrentMessage,CurrentMessage);
AddressList = llDeleteSubList(AddressList,CurrentMessage,CurrentMessage);
SubjectList = llDeleteSubList(SubjectList,CurrentMessage,CurrentMessage);
BodyList = llDeleteSubList(BodyList,CurrentMessage,CurrentMessage);
--NumMessages;

if (NumMessages == 0)
{
CurrentMessage = -1;
}
else if (CurrentMessage >= NumMessages)
{
CurrentMessage = NumMessages - 1;
}
}
return;
}
if (command == COMMAND_CLEAR)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
TimeList=[];
AddressList=[];
SubjectList=[];
BodyList=[];
NumMessages=0;
CurrentMessage=-1;
}
return;
}
if (command == COMMAND_HELP)
{
llMessageLinked(LINK_THIS, MSG_HELP, arg, NULL_KEY);
return;
}
if (command == COMMAND_INFO)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_INFO, "", NULL_KEY);
return;
}
if (command == COMMAND_SHOW)
{
Show();
return;
}
if (command == COMMAND_RESET)
{
llResetScript();
return;
}
if (command == COMMAND_OFF)
{
state not_running;
}
if (command == COMMAND_HOME)
{
if (nargs==1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETHOME, "", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETHOME, argstr, NULL_KEY);
}
return;
}
}
}

///////////////////////// timer() ///////////////////////////////

timer()
{
llGetNextEmail("", "");
}

///////////////////////// email() ///////////////////////////////

email(string time, string address, string subject, string body, integer queued)
{
NotifyNewMail(time, address, subject, body);
TimeList = (TimeList=[]) + TimeList + [time];
AddressList = (AddressList=[]) + AddressList + [address];
SubjectList = (SubjectList=[]) + SubjectList + [subject];
BodyList = (BodyList=[]) + BodyList + [body];
++NumMessages;

if (CurrentMessage == -1)
{
CurrentMessage = 0;
}
else
{
CurrentMessage = NumMessages - 1;
}
}

///////////////////// link_message() //////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
else if (msgid == MSG_MESSAGE_REPLY)
{
llOwnerSay(message);
}
}
}

//////////////////////////////////
// state not_running
//////////////////////////////////

state not_running
{
///////////////////// state_entry() //////////////////////////

state_entry()
{
llOwnerSay("SL Mailbox switched OFF. Say @ON to switch it back on.");
llListen(0, "", llGetOwner(), "");
}

//////////////////// on_rez() ///////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

//////////////////// listen() ////////////////////////////////

listen(integer chan, string name, key id, string message)
{
string command=llToUpper(message);

if (command == COMMAND_ON)
{
state running;
}
}

///////////////////// link_message() //////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
}
}

//////////////////////////////////
// state Error
//////////////////////////////////

state Error
{
state_entry()
{
llOwnerSay("Error in SL Mail: not all component scripts found.");
}

changed(integer mask)
{
if (mask & CHANGED_INVENTORY)
{
llResetScript();
}
}

on_rez(integer start_param)
{
llResetScript();
}
}

//////////////////////////////////
// End SL Mail V1.2.lsl
//////////////////////////////////
</pre>
</div>
</div>

<div id="box">

==Script: SL Mail Address Book V1.2==
<div style="padding: 0.5em;">
Read and interpret the contents of the Address Book.
<pre>
// SL Mail AddressBook V1.2.lsl
//
// DESCRIPTION
//
// Read the Address Book from a notecard named "Address Book".
//
// The Address Book has the following format:
//
// [ADDRESS BOOK]
// Name1=username@yourdomain.com
// Name2=otheruser@otherdomain.com
// ...
// [GROUP]
// group1=Name1, Name2
// ...
//
// Notes:
// 1. Group and Name share the same namespace, and must be unique.
// 2. It is allowed to have a name in the addressbook with multiple addresses, seperated by comma's.
//
/////////////////////////////////////////////////

string CurrentMailAddress = "";
string CurrentMailSubject = "";
integer StatusOnline = FALSE;

// Fetch or Send notecard

string Notecard2Fetch="";

// Address Book Names

list AddressBookList=[];
list MailAddressList=[];

string STRING_HOME="HOME";
string STRING_SELF="SELF";

// Address Book Groups

list GroupList=[];
list GroupNameList=[];

string LSL_DOMAIN = "lsl.secondlife.com";

// Read Address Book notecard

string ADDRESSBOOK_NOTECARD="Address Book";
integer Line=0;
key reqAddressBook=NULL_KEY;
float TIMEOUT_INTERVAL=5.0;

integer Section=0;
integer SECTION_ADDRESS_BOOK=1;
integer SECTION_GROUP=2;
string STRING_ADDRESS_BOOK="ADDRESS BOOK";
string STRING_GROUP="GROUP";

// Links messages

integer MSG_MESSAGE_SETADDRESS = 90000;
integer MSG_MESSAGE_GETADDRESS = 90050;
integer MSG_MESSAGE_SETSUBJECT = 90100;
integer MSG_MESSAGE_GETSUBJECT = 90150;
integer MSG_MESSAGE_SEND = 90200;
integer MSG_MESSAGE_SENDHOME = 90300;
integer MSG_MESSAGE_SEND_NOTECARD = 90400;
integer MSG_MESSAGE_ADDRESSBOOK = 90500;
integer MSG_MESSAGE_GETHOME = 90600;
integer MSG_MESSAGE_SETHOME = 90700;
integer MSG_MESSAGE_INFO = 90800;
integer MSG_MESSAGE_NOTIFY = 90900;

integer MSG_ADDRESSBOOK_LOADED = 91000;
integer MSG_ADDRESSBOOK_ERROR = 91100;

integer MSG_MESSAGE_REPLY = 99000;

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////// GetSelfAddress() ///////////////////////

string GetSelfAddress()
{
return (string)llGetKey() + "@" + LSL_DOMAIN;
}

///////////////////////////// Info() /////////////////////////////////

Info()
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "The mail address for this object is: "
+ GetSelfAddress() + ".", NULL_KEY);
}

///////////////////////////////// IsValidKeyFormat() //////////////////////

integer IsValidKeyFormat(string str)
{
string keychars = "0123456789abcdef";

if (llStringLength(str) != 36)
return FALSE;

if( (llGetSubString( str, 8, 8 ) != "-" ||
llGetSubString( str, 13, 13 ) != "-" ||
llGetSubString( str, 18, 18 ) != "-" ||
llGetSubString( str, 23, 23 ) != "-" ) )
return FALSE;

integer i;

for (i = 0; i < 8; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 9; i < 13; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 14; i < 18; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 19; i < 23; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 24; i < 36; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

return TRUE;
}

///////////////////////////////// ValidMailAddress() ////////////////////////

integer ValidMailAddress(string arg)
{
string adress = llToLower(llStringTrim(arg,STRING_TRIM));

if (adress == "")
return FALSE;

list parse = llParseStringKeepNulls(adress, [ "@" ], []);
string account = llList2String(parse,0);
string domain = llList2String(parse,1);

if (llGetListLength(parse) != 2 || llStringLength(account) == 0 || llStringLength(domain) == 0)
return FALSE;

if (domain == LSL_DOMAIN)
{
return IsValidKeyFormat(account);
}
else
{
list parsedomain = llParseString2List(domain, [ "." ], []);

if (llGetListLength(parsedomain) < 2)
return FALSE;

integer num = llGetListLength(parsedomain);
integer i;

for (i = 0; i < num; ++i)
{
if (llStringLength(llList2String(parsedomain,i)) < 2)
{
return FALSE;
}
}
}

return TRUE;
}

/////////////////////////////////// GetAddressStr() ///////////////////

string GetAndCheckAddressStr(string address)
{
list addresslist = llCSV2List(address);
integer num=llGetListLength(addresslist);
integer i;
string addressstr="";
string curaddress="";

for (i = 0; i < num; ++i)
{
curaddress=llList2String(addresslist,i);

if (ValidMailAddress(curaddress))
{
addressstr = (addressstr="") + addressstr + curaddress + ",";
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address string: '"
+ curaddress + "'.", NULL_KEY);
}
}

return llGetSubString(addressstr, 0, -2);
}

///////////////////////////// ProcessLine() ////////////////////////////

ProcessLine(string rawline)
{
string line=llStringTrim(rawline,STRING_TRIM);
string first=llGetSubString(line,0,0);
string last=llGetSubString(line,-1,-1);

// Ignore a blank line or comment line
if (line == "" || first == "#")
return;

// Check for the right section

if (first == "[" && last == "]")
{
string sectionstr=llToUpper(llStringTrim(llGetSubString(line,1,-2),STRING_TRIM));

if (sectionstr == STRING_ADDRESS_BOOK)
{
Section = SECTION_ADDRESS_BOOK;
}
else if (sectionstr == STRING_GROUP)
{
if (Section == 0)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1)
+ ". Group section defined before Address Book section.", NULL_KEY);
}
else
{
Section = SECTION_GROUP;
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid section header '" + sectionstr
+ "' in " + ADDRESSBOOK_NOTECARD + " at line " + (string)(Line + 1) + ".", NULL_KEY);
}

return;
}

// Must be in a section

if (Section == 0)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ". No section header.", NULL_KEY);
return;
}

list parse=llParseString2List(line, [ "=" ], []);
integer num=llGetListLength(parse);

// Format must be correct

if (num != 2)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line+1) + ":\n" + rawline, NULL_KEY);
return;
}

if (Section == SECTION_ADDRESS_BOOK)
{
string name=llStringTrim(llList2String(parse,0),STRING_TRIM);

if (llToUpper(name) == STRING_SELF)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address book entry '" + name
+ "'. Reserved word in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ".", NULL_KEY);
}
else if (llListFindList(AddressBookList, [ name ]) == -1)
{
string address=llStringTrim(llList2String(parse,1),STRING_TRIM);
string addressstr=GetAndCheckAddressStr(address);

if (addressstr != "")
{
AddressBookList = (AddressBookList=[]) + AddressBookList + [ name ];
MailAddressList = (MailAddressList=[]) + MailAddressList + [ addressstr ];
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "No valid mail address for '" + name
+ "'. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line " + (string)(Line + 1)
+ ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Name '" + name
+ "' already defined. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else // Group
{
string group=llStringTrim(llList2String(parse,0),STRING_TRIM);

if (llToUpper(group) == STRING_SELF)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address book entry '" + group
+ "'. Reserved word in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ".", NULL_KEY);
}
else if (llListFindList(AddressBookList, [ group ]) == -1)
{
if (llListFindList(GroupList, [ group ]) == -1)
{
string names=llStringTrim(llList2String(parse,1),STRING_TRIM);
list namelist=llCSV2List(names);
integer num=llGetListLength(namelist);
integer i;
integer index;
string name;
string namestr="";

for (i = 0; i < num; ++i)
{
name=llList2String(namelist,i);
index=llListFindList(AddressBookList, [ name ]);

if (index == -1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Name '" + name + "' defined in Group '"
+ group + "' not found in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
else
{
namestr = (namestr="") + namestr + name + ",";
}
}

if (namestr != "")
{
namestr=llGetSubString(namestr,0,-2);
GroupList = (GroupList=[]) + GroupList + [ group ];
GroupNameList = (GroupNameList=[]) + GroupNameList + [ namestr ];
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' has no valid names. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' already defined in Group. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' already defined in Address Book. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
}

//////////////////////////////// GetGroupAddressList ///////////////

string GetGroupAddressList(string group)
{
integer index=llListFindList(GroupList, [ group ]);
integer i;
integer num=llGetListLength(GroupList);
string grouplist="";

if (index == -1)
{
return "";
}
else
{
for (i = index; i < num; ++i)
{
if (llList2String(GroupList,i) == group)
{
grouplist = (grouplist="") + grouplist + llList2String(GroupNameList,i) + ",";
}
}

if (grouplist != "") grouplist=llGetSubString(grouplist,0,-2); // remove last ","
return grouplist;
}
}

//////////////////////////////// SetMailAddress() //////////////////

SetMailAddress(string address)
{
integer index=llListFindList(AddressBookList, [ address ]);

if (index == -1)
{
index=llListFindList(GroupList, [ address ]);

if (index == -1)
{
if (llToUpper(address) == STRING_SELF)
{
CurrentMailAddress = GetSelfAddress();
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
else if(ValidMailAddress(address))
{
CurrentMailAddress = address;
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Mail adress " + address
+ " : not found in adress book or invalid format.", NULL_KEY);
}
}
else
{
CurrentMailAddress = GetGroupAddressList(address);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject set to: "
+ CurrentMailAddress, NULL_KEY);
}
}
else
{
CurrentMailAddress = llList2String(MailAddressList,index);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
}

/////////////////////////////////// SendMail() ///////////////////////

SendMail(string message)
{
if (CurrentMailAddress == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "SendMail: No mail address defined.", NULL_KEY);
}
else if (CurrentMailSubject == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "SendMail: No subject defined.", NULL_KEY);
}
else
{
list mailaddresslist=llCSV2List(CurrentMailAddress);
integer num=llGetListLength(mailaddresslist);
integer i;
string address;

for (i = 0; i < num; ++i)
{
address=llList2String(mailaddresslist,i);
llEmail(address, CurrentMailSubject, message);
}
}
}

/////////////////////////////////// SendMailHome() ////////////////////

SendMailHome(string message, string subject)
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, STRING_HOME
+ " not set. Set your home adress with @HOME <address>.", NULL_KEY);
}
else
{
string homeaddress=llList2String(AddressBookList,index);
list homelist=llCSV2List(homeaddress);
integer num=llGetListLength(homelist);
integer i;
string address;

for (i = 0; i < num; ++i)
{
address=llList2String(homelist,i);
llEmail(address, subject, message);
}
}
}

/////////////////////////////////// GetHomeAddress() //////////////////

string GetHomeAddress()
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
return "not set";
}
else
{
return llList2String(MailAddressList,index);
}
}

/////////////////////////////////// SetHomeAddress() //////////////////

SetHomeAddress(string address)
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
AddressBookList = (AddressBookList=[]) + [ STRING_HOME ] + AddressBookList;
MailAddressList = (MailAddressList=[]) + [ GetAndCheckAddressStr(address) ] + MailAddressList;
}
else
{
MailAddressList = llListReplaceList(MailAddressList, [ GetAndCheckAddressStr(address) ], index, index);
}
}

////////////////////////////////////
// default
////////////////////////////////////

default
{
///////////////////// state_entry() //////////////////

state_entry()
{
Line=0;
Section=0;
llSetTimerEvent(TIMEOUT_INTERVAL);
reqAddressBook=llGetNotecardLine(ADDRESSBOOK_NOTECARD, 0);
}

///////////////////// dataserver() ////////////////////

dataserver(key id, string data)
{
if (id == reqAddressBook)
{
reqAddressBook = NULL_KEY;

if (data != EOF)
{
ProcessLine(data);
reqAddressBook=llGetNotecardLine(ADDRESSBOOK_NOTECARD, ++Line);
}
else
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_LOADED, "", NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Address Book loaded.", NULL_KEY);
state running;
}
}
}

//////////////////////// timer() ///////////////////////////

timer()
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_ERROR, "", NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Could not read Address Book: "
+ ADDRESSBOOK_NOTECARD + ".", NULL_KEY);
llSetTimerEvent(0.0);
}
}

////////////////////////////////////////////
// state running
////////////////////////////////////////////

state running
{
state_entry()
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_LOADED, "", NULL_KEY);
}

///////////////////////// link_message() ////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_MESSAGE_GETSUBJECT)
{
if (CurrentMailSubject == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject is empty.", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject is: "
+ CurrentMailSubject, NULL_KEY);
}
}
else if (msgid == MSG_MESSAGE_SETSUBJECT)
{
CurrentMailSubject = message;
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject set to: "
+ CurrentMailSubject, NULL_KEY);
}
else if (msgid == MSG_MESSAGE_GETADDRESS)
{
if (CurrentMailAddress == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address is empty.", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address is: "
+ CurrentMailAddress, NULL_KEY);
}
}
else if (msgid == MSG_MESSAGE_SETADDRESS)
{
SetMailAddress(message);
}
else if (msgid == MSG_MESSAGE_SEND)
{
if (message == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Body of message to send is empty. "
+ "No mail is send.", NULL_KEY);
}
else
{
SendMail(message);
}
}
else if (msgid == MSG_MESSAGE_SENDHOME)
{
SendMailHome(message, (string)id);
}
else if (msgid == MSG_MESSAGE_SEND_NOTECARD)
{
if (llGetInventoryType(message) == INVENTORY_NOTECARD)
{
Notecard2Fetch = message;
llMessageLinked(LINK_THIS, MSG_NOTECARD_READ, message, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Notecard " + message + " not found.", NULL_KEY);
}
}
else if (msgid == MSG_NOTECARD_FETCHED)
{
if (message == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Notecard " + Notecard2Fetch
+ " was empty or could not be read.", NULL_KEY);
}
else
{
SendMail(message);
}
}
else if (msgid == MSG_MESSAGE_GETHOME)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Home address is: " + GetHomeAddress() + ".", NULL_KEY);
}
else if (msgid == MSG_MESSAGE_SETHOME)
{
SetHomeAddress(message);
}
else if (msgid == MSG_MESSAGE_INFO)
{
Info();
}
}
}

/////////////////////////////////////
// End SL Mail AddressBook V1.2.lsl
/////////////////////////////////////
</pre>
</div>
</div>

<div id="box">

==Script: SL Mail FetchNotecard V1.2==
<div style="padding: 0.5em;">
Fetch the contents of a notecard and return it via link message as a string.
<pre>
// SL Mail FetchNotecard V1.2.lsl
//
//

// Notecard

integer Line=0;
string Notecard2Fetch="";
key reqNotecard=NULL_KEY;
float TIMEOUT_INTERVAL=10.0;
integer Fetched=FALSE;

// Lines

list LineList=[];

// Link messages

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////////////////////
// default
//////////////////////////////////////////

default
{
/////////////////////// dataserver() //////////////////////////////

dataserver(key id, string data)
{
if (id == reqNotecard)
{
reqNotecard=NULL_KEY;

if (data != EOF)
{
LineList = (LineList=[]) + LineList + [ data ];
reqNotecard = llGetNotecardLine(Notecard2Fetch, ++Line);
}
else
{
Fetched=TRUE;
llMessageLinked(LINK_THIS, MSG_NOTECARD_FETCHED, llDumpList2String(LineList, "\n"), NULL_KEY);
llSetTimerEvent(0.0);
}
}
}

/////////////////////// timer() ///////////////////////////////////

timer()
{
if (!Fetched)
{
llMessageLinked(LINK_THIS, MSG_NOTECARD_FETCHED, "", NULL_KEY);
llSetTimerEvent(0.0);
}
}

/////////////////////// link_message() ////////////////////////////

link_message(integer send, integer msgid, string message, key id)
{
if (msgid == MSG_NOTECARD_READ)
{
Line=0;
Notecard2Fetch=message;
LineList=[];
Fetched=FALSE;
reqNotecard=llGetNotecardLine(Notecard2Fetch, Line);
llSetTimerEvent(TIMEOUT_INTERVAL);
}
}
}

// End SL Mail FetchNotecard V1.2.lsl
</pre>
</div>
</div>

<div id="box">

==Script: SL OnlineStatus V1.2==
<div style="padding: 0.5em;">
Fetch online status of owner.
<pre>
// SL Mail OnlineStatus V1.2.lsl
//
//

// Online status

key reqOnlineStatus=NULL_KEY;
float STATUS_INTERVAL=2.0;

// Link messages

integer MSG_STATUS_ONLINE = 30000;
integer MS_STATUS_OFFLINE = 30100;

////////////////////////////////
// default
////////////////////////////////

default
{
///////////////////////// state_entry() /////////////////////////

state_entry()
{
reqOnlineStatus=llRequestAgentData(llGetOwner(), DATA_ONLINE);
llSetTimerEvent(STATUS_INTERVAL);
}

///////////////////////// dataserver() //////////////////////////

dataserver(key id, string data)
{
if (id == reqOnlineStatus)
{
reqOnlineStatus = NULL_KEY;

if (data=="1")
{
llMessageLinked(LINK_THIS, MSG_STATUS_ONLINE, "", NULL_KEY);
}
else if (data=="0")
{
llMessageLinked(LINK_THIS, MS_STATUS_OFFLINE, "", NULL_KEY);
}
}
}

///////////////////////// timer() ///////////////////////////////

timer()
{
reqOnlineStatus = llRequestAgentData(llGetOwner(), DATA_ONLINE);
}
}

// End SL Mail OnlineStatus V1.2.lsl
</pre>
</div>
</div>

<div id="box">

==Script: SL Mail Help V1.2==
<div style="padding: 0.5em;">
Display help information.

<pre>
// SL Mail Help V1.2.lsl
//
//

integer MSG_HELP = 10000;

///////////////////////////////// Help() ///////////////////////////////////////

Help()
{
llOwnerSay("HELP for SL Mail V1.2.");
llOwnerSay("COMMANDS:");
llOwnerSay("@HELP - displays help info.");
llOwnerSay("@INFO - display mailaddress of this object.");
llOwnerSay("@RECORD - start recording.");
llOwnerSay("@CONTINUE - continue recording.");
llOwnerSay("@STOP - stop recording.");
llOwnerSay("@IGNORE - ignore the recording.");
llOwnerSay("@SHOW - show what your recorded.");
llOwnerSay("@SEND - send the recording.");
llOwnerSay("@MAIL <mailadress> - set the mail adress.");
llOwnerSay("@SUBJECT subject - set the mail subject.");
llOwnerSay("@LIST - list messages in mail buffer.");
llOwnerSay("@SELECT <message> - select message from mail buffer.");
llOwnerSay("@READ - read current message from mail buffer.");
llOwnerSay("@NEXT - read next message from mail buffer.");
llOwnerSay("@PREV - read previous message from mail buffer.");
llOwnerSay("@FIRST - read first message from mail buffer.");
llOwnerSay("@LAST - read last message from mail buffer.");
llOwnerSay("@DELETE - delete current message from mail buffer.");
llOwnerSay("@CLEAR - clear the mail buffer.");
llOwnerSay("@REPLY - reply to current message.");
llOwnerSay("@RESET - reset the script.");
llOwnerSay("@HOME - set the home mail adress.");
llOwnerSay("@OFF - switch mailbox OFF.");
llOwnerSay("@ON - switch mailbox ON.");
}

/////////////////////////////////////////////
// default
/////////////////////////////////////////////

default
{
link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_HELP)
{
Help();
}
}
}

// End SL Mail Help V1.2.lsl
</pre>
</div>
</div>
[[Image:slmail.info.jpg]]

{{LSLC|Library}}

SL Mail V1.2

Flennan Roffo — Sun, 07 Oct 2007 12:08:39 GMT

Flennan Roffo: /* '''Second Life mail client''' */

{{LSL Header}} __NOTOC__
<div id="box">
='''Second Life mail client'''=
<div style="padding: 0.5em">

'''Send and receive email from within Second Life from and to any address.'''

Implemented with Address Book function (in a notecard named 'Address Book') to stores addresses by name and to compile groups of named addresses. Current version is stand-alone (no server functionality) and uses chat commands only.

{{Click
| image=BannerSLMail.jpg
| width=500px
| height=100px
| link=http://slmail.info
}}

URL: [http://www.slmail.info slmail.info] (website coming soon!)

</div>
</div>

<div id="box">

=Release Notes V1.2=
<div style="padding: 0.5em">
SL Mail V1.2 Release notes (edition 2, 4 sept 2007)
</div>
</div>

<div id="box">
=='''LICENCE INFO'''==
<div style="padding: 0.5em">
SL Mail V1.2 is released under GNU free software licence
</div>
</div>

<div id="box">
=='''PRODUCTION & MAINTANENCE'''==
<div style="padding: 0.5em">
by Logic Scripted Products and Script Services

[[Image:Logicbanner1.jpg]]

URL: [http://www.logicscripts.org logicscripts.org] (website coming soon!)

SLurl:
{{SLurl
|region=Peacock Park
|x=189
|y=226
|z=69
|title=Logic Scripted products and Script services
|}}

Contact: [[User:Flennan Roffo|Flennan Roffo]]

Email: [mailto:info@slmail.info '''info'''] or [mailto:Flennan.Roffo@slmail.info '''Flennan Roffo''']

</div>
</div>

<div id="box">

=='''DESCRIPTION'''==
<div style="padding: 0.5em">
SL Mail V1.2 is a simple tool to send and receive mail from within SL.
You can either compose a message yourself using chat recording, or choose a notecard from inventory to send. The Address Book functionality allows you to use short names for mail recipients stored in a notecard. The current version does not have a persisent mail address. Watch out for the upcoming next release (V1.3) which will facilitate persisent in-world mail addresses and will be enhanced with many new features (See: Requests For Change (RFC).
</div>
</div>

<div id="box">

=='''COMMANDS'''==
<div style="padding: 0.5em">
{| {{Prettytable}}
|-
|{{Hl2}}| '''Command'''
|{{Hl2}}| '''Description'''
|-
||'''@Help'''
||Show Help about available commands
|-
||'''@Record'''
||Starts a chat recording (for owner only).
|-
||'''@Stop'''
||Stops the chat recording without sending
|-
||'''@Continue'''
||Continues a previously stopped chat recording. Lines will be appended to you recording buffer.
|-
||'''@Show'''
||Shows the content of the recording buffer.
|-
||'''@Send'''
||If recording, stops the recording, and sends the mail (need to supply mail address and subject first!)
|-
||'''@Send <notecard>'''
||Sends the content of the notecard, instead of the chat recording.
|-
||'''@Ignore'''
||Ignores your current chat recording.
|-
||'''@Mail <address>'''
||Define the mail address to send to.
|-
||'''@Mail'''
||Shows the current mail address to send to.
|-
||'''@Subject <subject>'''
||Define the subject of the mail.
|-
||'''@Subject'''
||Shows the current mail subject.
|-
||'''@Home <address>'''
||Set the HOME address of the owner (mail will be forwarder to this address when offline).
|-
||'''@Home'''
||Show the HOME address.
|-
||'''@Info'''
||Shows the mail address the object this script is running in uses (e.g. <object-key>@lsl.secondlife.com).
|-
||'''@Read'''
||Reads the current message from the mail buffer (the mail buffer gets filled with mail you receive)
|-
||'''@Select <msg>'''
||Select a message number from the availabe messages in the mail buffer.
|-
||'''@Next'''
||Make next message the current message.
|-
||'''@Prev'''
||Make previous message the current message.
|-
||'''@First'''
||Make the first message the current message.
|-
||'''@Last'''
||Make the last message the current message.
|-
||'''@Clear'''
||Clear the mail buffer
|-
||'''@Delete'''
||Deletes only the current message
|-
||'''@Reply'''
||Starts a chat recording to reply to the current message. Mail adress and subject are filled in automatically.
|}

Note:

* Commands are case insensitive ("@read" == "@READ"). Arguments might not be case insensitive.
</div>
</div>

<div id="box">
=='''ADDRESS BOOK FORMAT'''==
<div style="padding: 0.5em">
A notecard of the name 'Address Book' is read during initialization which may contain Address Book items and Groups.
The notecard is split in two sections, which need to be defined in that particular order.

'''[ADDRESS BOOK]'''

Defines the section in which you can put names for mail addresses, like this:

'''Name1=account@thisdomain.com'''

'''Name2=user@otherdomain.com'''

etc.

'''[GROUP]'''

Define groups of previously defined names under a new name, like for instance:

'''MyGroup=Name1, Name2'''

Note that names of groups and individual mail adresses share the same namespace and must be unique.

So when you filled in your mail adresses in the Address Book, you can now use:

'''@Mail Name1'''

To send mail to <account@thisdomain.com>

or you can use

'''@Mail MyGroup'''

To send mail to <account@thisdomain.com> and <user@otherdomain.com>
Mails will be sent one after another.

Notes:

* Names for Addreses and Groups are case insensitive (e.g. "mary" == "MARY")

* The special address 'Self' can be used in commands where otherwise an address specification can be used. 'Self' is case insensitive (e.g. "self" == "SELF")

</div>
</div>

<div id="box">
=='''LIMITATIONS'''==
<div style="padding: 0.5em">
The current version is limited by the following:

* Chat recording lines are limited by the 255 byte limit

* Output of lines from the mail buffer are also limited by this 255 byte limit

* Incoming mail is limited to a 1000 (1024?) byte limit

* Outgoing mai is limited by a 4096 byte limit, which includes the standard mail header (region/location info on the first two lines)

We are making adjustments to this release to help overcome these limitations. At least the line lenght limit can be overcome by introducing a line continuation character (for example a hyphen '-') that when used at the end of a line appends the next line, so lines longer then 255 bytes are possible then.

To overcome the outgoing mail length limit, the mail can be broken textualy into parts, and each part can be send seperatedely, with an indication in the subject or in an introduced primary line of the mail body to indicate that the mail was split into parts.
For incoming mail and at least to receive mail from other SL Mail programs, a protocol will be introduced to receive mail in parts that are joined together after receiving them to form a single mail.

These enhancements will be made available in the next release (V1.3) of SL Mail
</div>
</div>

<div id="box">
=='''BUGS'''==
<div style="padding: 0.5em">
Report any bugs you find in this release to Logic (IM: Flennan Roffo).
</div>
</div>

<div id="box">
=='''REQUEST FOR CHANGE (RFC)'''==
<div style="padding: 0.5em">
Do you have additional wishes for enhancement of this product?
Contact Flennan Roffo and we will see if they can be implemented in the next release.

Existing RFC's are:

* Menu support for commands.

* Lines on incoming/outgoing mail longer than 255 bytes.

* Send messages longer than 4096 (minus SL mail header) bytes.

* Receive messages longer than 1024 bytes.

* Permanent mail addresses for the SL Mail client (like: <Flennan.Roffo@somedomain.sl>)

Add your RFC!
</div>
</div>

<div id="box">
=='''SL MAIL SUPPORT & DEVELOPMENT'''==
<div style="padding: 0.5em">

In-world join the group "SL Mail" for bug reports, feature requests, the latest SL Mail release, and notices about development issues.
</div>
</div>

<div id="box">

=Scripts=
</div>

<div id="box">
==Script: SL Mail v1.2==
<div style="padding: 0.5em;">
SL Mail core module which scans for incoming mail messages and executes commands used by the owner.
<pre>
// SL Mail V1.2.lsl
// (c) 2007 Logic Scripted Products and Script Services
// Flennan Roffo

// VERSION
// Version: 1.2

// HISTORY
// Date Version Author Comment
// --------------------------------------------------------------------------------------
// 28 aug 2007 V 1.0 Flennan Roffo Created
//
// 1 sep 2007 V 1.1 Flennan Roffo @Reply empties the recording buffer.
// @Send while recording ends recording
// and sends the mail if a mail address
// and subject are supplied.
// Fixed incorrect date in Unix2DateTime.
// 3 sep 2007 V 1.2 Flennan Roffo Notification options:
// - When online, send an IM when mail is received.
// - When offline, send to HOME mail adress.
// Adressbook
// - Read adress book from config notecard.

// LICENCE
// This program is free software; you can redistribute it and/or
// modify it under the terms of the GNU General Public License
// as published by the Free Software Foundation; either version 2
// of the License, or (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
// (Also available at http://www.gnu.org/copyleft/gpl.html)

// DESCRIPTION
// Let's you record a message and sent to email and get messages and reply to messages.
// Must supply a valid mail adress and non-empty subject using chat commands.

// TODO:
// 1) Check for the maximum length of an email message (including newline and header).
// 2) Read adress book from notecard. *DONE*
// 3) Send incoming mail to personal mail adress when offline. *DONE*
// 4) Alert with an IM when online upon receiving new mail. *DONE*

string SL_MAIL_VERSION = "V 1.2";
string SL_MAIL_DATE = " 2 sep 2007";
integer ErrorFlag = FALSE;
list ScriptList = [ "SL Mail Help V1.2", "SL Mail AddressBook V1.2",
"SL Mail OnlineStatus V1.2", "SL Mail FetchNotecard V1.2" ];
string LSL_DOMAIN="lsl.secondlife.com";
integer StatusOnline=FALSE;

// Commands

string COMMAND_RECORD = "@RECORD";
string COMMAND_CONTINUE = "@CONTINUE";
string COMMAND_STOP = "@STOP";
string COMMAND_MAIL = "@MAIL";
string COMMAND_SUBJECT = "@SUBJECT";
string COMMAND_SEND = "@SEND";
string COMMAND_SEE = "@SEE";
string COMMAND_IGNORE = "@IGNORE";
string COMMAND_READ = "@READ";
string COMMAND_DELETE = "@DELETE";
string COMMAND_CLEAR = "@CLEAR";
string COMMAND_REPLY = "@REPLY";
string COMMAND_NEXT = "@NEXT";
string COMMAND_PREV = "@PREV";
string COMMAND_FIRST = "@FIRST";
string COMMAND_LAST = "@LAST";
string COMMAND_LIST = "@LIST";
string COMMAND_SELECT = "@SELECT";
string COMMAND_HELP = "@HELP";
string COMMAND_INFO = "@INFO";
string COMMAND_RESET = "@RESET";
string COMMAND_SHOW = "@SHOW";
string COMMAND_ON = "@ON";
string COMMAND_OFF = "@OFF";
string COMMAND_HOME = "@HOME";
string COMMAND_LOAD = "@LOAD";
string COMMAND_ADDRESS = "@ADDRESS";

// Recording

integer Recording = FALSE;

list ChatRecording=[];
integer NumLines=0;
integer Length=0;

list TimeList=[];
list AddressList=[];
list SubjectList=[];
list BodyList=[];
integer NumMessages=0;
integer CurrentMessage=-1;

float MAIL_FETCH_INTERVAL=5.0;

// Link Messages

integer MSG_HELP = 10000;
integer MSG_STATUS_ONLINE = 30000;
integer MSG_STATUS_OFFLINE = 30100;

integer MSG_MESSAGE_SETADDRESS = 90000;
integer MSG_MESSAGE_GETADDRESS = 90050;
integer MSG_MESSAGE_SETSUBJECT = 90100;
integer MSG_MESSAGE_GETSUBJECT = 90150;
integer MSG_MESSAGE_SEND = 90200;
integer MSG_MESSAGE_SENDHOME = 90300;
integer MSG_MESSAGE_SEND_NOTECARD = 90400;
integer MSG_MESSAGE_ADDRESSBOOK = 90500;
integer MSG_MESSAGE_GETHOME = 90600;
integer MSG_MESSAGE_SETHOME = 90700;
integer MSG_MESSAGE_INFO = 90800;

integer MSG_ADDRESSBOOK_LOADED = 91000;
integer MSG_ADDRESSBOOK_ERROR = 91100;

integer MSG_MESSAGE_REPLY = 99000;

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////// Unix Time conversion //////////////////

integer DAYS_PER_YEAR = 365; // Non leap year
integer SECONDS_PER_YEAR = 31536000; // Non leap year
integer SECONDS_PER_DAY = 86400;
integer SECONDS_PER_HOUR = 3600;
integer SECONDS_PER_MINUTE = 60;

////////////////////////////// LeapYear() /////////////////////////////

integer LeapYear(integer year)
{
if (year % 4 == 0)
{
if (year % 100 == 0)
{
if (year % 400 == 0)
{
return 1;
}
else
{
return 0;
}
}
else
{
return 1;
}
}
else
{
return 0;
}
}

////////////////////////////// DaysPerMonth() ///////////////////////////////////////

integer DaysPerMonth(integer year,integer month)
{
if (month < 8)
{
if (month % 2 == 0)
{
if (month == 2)
{
if (LeapYear(year))
{
return 29;
}
else
{
return 28;
}
}
else
{
return 30;
}
}
else
{
return 31;
}
}
else
{
if (month % 2 == 0)
{
return 31;
}
else
{
return 30;
}
}
}

/////////////////////////// DaysPerYear() ////////////////////////////////////

integer DaysPerYear(integer year)
{
if (LeapYear(year))
return DAYS_PER_YEAR + 1;
else
return DAYS_PER_YEAR;
}

/////////////////////////////// Unix2DataTime() ///////////////////////////////////////

list Unix2DateTime(integer unixtime)
{
integer days_since_1_1_1970 = unixtime / SECONDS_PER_DAY;
integer day = days_since_1_1_1970 + 1;
integer year = 1970;
integer days_per_year = DaysPerYear(year);

while (day > days_per_year)
{
day -= days_per_year;
++year;
days_per_year = DaysPerYear(year);
}

integer month = 1;
integer days_per_month = DaysPerMonth(year,month);

while (day > days_per_month)
{
day -= days_per_month;

if (++month > 12)
{
++year;
month = 1;
}

days_per_month = DaysPerMonth(year,month);
}

integer seconds_since_midnight = unixtime % SECONDS_PER_DAY;
integer hour = seconds_since_midnight / SECONDS_PER_HOUR;
integer second = seconds_since_midnight % SECONDS_PER_HOUR;
integer minute = second / SECONDS_PER_MINUTE;
second = second % SECONDS_PER_MINUTE;

return [ year, month, day, hour, minute, second ];
}

///////////////////////////////// MonthName() ////////////////////////////

list MonthNameList = [ "JAN", "FEB", "MAR", "APR", "MAY", "JUN",
"JUL", "AUG", "SEP", "OCT" , "NOV", "DEC" ];

string MonthName(integer month)
{
if (month >= 0 && month < 12)
return llList2String(MonthNameList, month);
else
return "";
}

///////////////////////////////// DateString() ///////////////////////////

string DateString(list timelist)
{
integer year = llList2Integer(timelist,0);
integer month = llList2Integer(timelist,1);
integer day = llList2Integer(timelist,2);

return (string)day + "-" + MonthName(month - 1) + "-" + (string)year;
}

///////////////////////////////// TimeString() ////////////////////////////

string TimeString(list timelist)
{
integer hour = llList2Integer(timelist,3);
integer minute = llList2Integer(timelist,4);
integer second = llList2Integer(timelist,5);
string hourstr = (string)hour;
string minutestr = (string)minute;
string secondstr = (string)second;

if (hour < 10) hourstr = "0" + hourstr;
if (minute < 10) minutestr = "0" + minutestr;
if (second < 10) secondstr = "0" + secondstr;
return hourstr + ":" + minutestr + ":" + secondstr;
}

/////////////////////////////////// SendMail() /////////////////////////////////////

SendMail(string body)
{
// llOwnerSay("Sending message to '" + address + "' with subject '" + subject +"'.");
llMessageLinked(LINK_THIS, MSG_MESSAGE_SEND, body, NULL_KEY);
}

///////////////////////////////// SendHome() ///////////////////////////////////////

SendHome(string subject, string body)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SENDHOME, body, (key)subject);
}

///////////////////////////////// Show() ////////////////////////////////////////////

Show()
{
integer i;

llOwnerSay("Current chat recording is:");
llOwnerSay("--------------------------");

for (i = 0; i < NumLines; ++i)
{
llOwnerSay(llList2String(ChatRecording,i));
}

llOwnerSay("--------------------------");
llOwnerSay("Lines is " + (string)NumLines);
llOwnerSay("Message length is " + (string)Length);
}

/////////////////////////////// Read() /////////////////////////////////////////

Read()
{
llOwnerSay("Reading message " + (string)CurrentMessage + " from mail buffer.");
integer time = (integer)llList2Integer(TimeList,CurrentMessage);
list timelist=Unix2DateTime(time);
string Address = llList2String(AddressList,CurrentMessage);
string Subject = llList2String(SubjectList,CurrentMessage);
string Body = llList2String(BodyList,CurrentMessage);
llOwnerSay("Date : " + DateString(timelist));
llOwnerSay("Time : " + TimeString(timelist));
llOwnerSay("Address: " + Address);
llOwnerSay("Subject: " + Subject);
llOwnerSay("Begin of message body:");
llOwnerSay("-------------------------");
list bodylist=llParseStringKeepNulls(Body, [ "\n" ], []);
integer num=llGetListLength(bodylist);
integer i;

for (i = 0; i < num; ++i)
{
llOwnerSay(llList2String(bodylist,i));
}

llOwnerSay("-------------------------");
llOwnerSay("End of message body.");
}

////////////////////////////////////// List ////////////////////////////////////////////

List()
{
llOwnerSay("The mail buffer contains the following messages:\n");

integer i;

for (i = 0; i < NumMessages; ++i)
{
integer time=llList2Integer(TimeList,i);
list timelist=Unix2DateTime(time);
if (i > 0) llOwnerSay("+-+-+-+-+-+-+-+-+-+-+-+-");
llOwnerSay("Message: " + (string)i);
llOwnerSay("Date : " + DateString(timelist));
llOwnerSay("Time : " + TimeString(timelist));
llOwnerSay("From: " + llList2String(AddressList,i));
llOwnerSay("Subject: " + llList2String(SubjectList,i));
}
}

//////////////////////////// NotifyNewMail() /////////////////////////

NotifyNewMail(string time, string address, string subject, string body)
{
list timelist=Unix2DateTime((integer)time);

if (StatusOnline)
{
llInstantMessage(llGetOwner(), "You received a new mail message on "
+ DateString(timelist) + " at " + TimeString(timelist)
+ " from " + address
+ " with the subject " + subject);
}
else
{
SendHome("FW: " + subject, "Received at: " + DateString(timelist) + " " + TimeString(timelist) + "\nFrom: " + address
+ "\nBegin message body:\n-------------------\n" + body + "\n-------------------\nEnd message body.");
}
}

///////////////////////////// ResetOtherScripts() //////////////////////

ResetOtherScripts()
{
string name;
integer i;
integer num=llGetListLength(ScriptList);

for (i = 0; i < num; ++i)
{
name = llList2String(ScriptList,i);

if (llGetInventoryType(name) == INVENTORY_SCRIPT)
{
llResetOtherScript(name);
}
else
{
llOwnerSay("Error - script '" + name + "' not found.");
ErrorFlag = TRUE;
}
}
}

//////////////////////////////////////
// default
//////////////////////////////////////

default
{
////////////////////// state_entry() /////////////////////////

state_entry()
{
llOwnerSay("Welcome to SL Mail, released under GNU software licence.");
llOwnerSay("Version " + SL_MAIL_VERSION + " " + SL_MAIL_DATE);
llOwnerSay("Produced by Logic Scripted Products & Product Services");
llOwnerSay("Free memory: " + (string)llGetFreeMemory());
ResetOtherScripts();

if (ErrorFlag)
state Error;
}

/////////////////////// on_rez() //////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

/////////////////////// changed() ////////////////////////////

changed(integer mask)
{
if (mask & CHANGED_INVENTORY)
{
llResetScript();
}
}

/////////////////////// link_message() /////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
else if (msgid == MSG_ADDRESSBOOK_LOADED)
{
state running;
}
else if (msgid == MSG_ADDRESSBOOK_ERROR)
{
state Error;
}
}
}

///////////////////////////////////////
// state running
//////////////////////////////////////

state running
{
///////////////////////// state_entry() //////////////////////

state_entry()
{
llListen(0, "", llGetOwner(), "");
llOwnerSay("SL mail ready.\nSend and Get mail in Second Life.\nType @HELP for more info.");
llMessageLinked(LINK_THIS, MSG_MESSAGE_INFO, "", NULL_KEY);
llGetNextEmail("", "");
llSetTimerEvent(MAIL_FETCH_INTERVAL);
}

//////////////////////// on_rez() ////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

//////////////////////// listen() ////////////////////////////

listen(integer channel, string name, key id, string message)
{
string trimmessage=llStringTrim(message,STRING_TRIM);
list parse = llParseStringKeepNulls(trimmessage, [ " "], []);
string command = llToUpper(llList2String(parse,0));
string arg = llStringTrim(llList2String(parse,1),STRING_TRIM);
integer nargs = llGetListLength(parse);
string argstr="";

if (nargs > 1) argstr=llGetSubString(message, llSubStringIndex(message, " ") + 1, -1);

if (Recording)
{
if (command == COMMAND_STOP)
{
llOwnerSay("Recording stopped. Type @SHOW to see the message you have entered,"
+ " or @SEND to send it.");
Recording = FALSE;
return;
}
if (command == COMMAND_SEND)
{
Recording = FALSE;

SendMail(llDumpList2String(ChatRecording, "\n"));
return;
}
else
{
ChatRecording = (ChatRecording=[]) + ChatRecording + [ message ];
++NumLines;
Length += llStringLength(message) + 2;
return;
}
}
else
{
if (command == COMMAND_RECORD)
{
llOwnerSay("Start recording your message. Type @STOP to end recording.");
ChatRecording = [];
NumLines=0;
Length=0;
Recording = TRUE;
return;
}
if (command == COMMAND_CONTINUE)
{
llOwnerSay("Continue recording your message. Type @STOP to end recording.");
Recording = TRUE;
return;
}
if (command == COMMAND_REPLY)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
string address=llList2String(AddressList,CurrentMessage);
string subject="Re: " + llList2String(SubjectList,CurrentMessage);
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETADDRESS, address, NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETSUBJECT, subject, NULL_KEY);
ChatRecording = [];
NumLines=0;
Length=0;
Recording = TRUE;
}
return;
}
if (command == COMMAND_MAIL)
{
string mailaddress=llStringTrim(argstr,STRING_TRIM);

if (mailaddress != "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETADDRESS, mailaddress, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETADDRESS, "", NULL_KEY);
}
return;
}
if (command == COMMAND_SUBJECT)
{
string mailsubject=llStringTrim(argstr,STRING_TRIM);

if (mailsubject != "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETSUBJECT, mailsubject, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETSUBJECT, "", NULL_KEY);
}
return;
}
if (command == COMMAND_STOP)
{
llOwnerSay("Not recording.");
return;
}
if (command == COMMAND_SEND)
{
if (nargs == 1)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
SendMail(llDumpList2String(ChatRecording, "\n"));
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SEND_NOTECARD, argstr, NULL_KEY);
}
return;
}
if (command == COMMAND_IGNORE)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
ChatRecording = [];
NumLines = 0;
Length = 0;
}
return;
}
if (command == COMMAND_SHOW)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
Show();
}
return;
}
if (command == COMMAND_READ)
{
if (NumMessages == 0)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
Read();
}
return;
}
if (command == COMMAND_NEXT)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == NumMessages - 1)
{
llOwnerSay("Already at last message.");
}
else
{
++CurrentMessage;
Read();
}
}
return;
}
if (command == COMMAND_PREV)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == 0)
{
llOwnerSay("Already at first message.");
}
else
{
--CurrentMessage;
Read();
}
}
return;
}
if (command == COMMAND_FIRST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == 0)
{
llOwnerSay("Already at first message.");
}
else
{
CurrentMessage = 0;
Read();
}
}
return;
}
if (command == COMMAND_LAST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == NumMessages - 1)
{
llOwnerSay("Already at last message.");
}
else
{
CurrentMessage = NumMessages - 1;
Read();
}
}
return;
}
if (command == COMMAND_LIST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
List();
}
return;
}
if (command == COMMAND_SELECT)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else if (nargs == 1)
{
llOwnerSay("Need to supply a message number.");
}
else
{
integer msgnum = (integer)arg;

if (msgnum < 0 || msgnum >= NumMessages)
{
llOwnerSay("Message number " + arg + " not in mail buffer.");
}
else
{
CurrentMessage = msgnum;
}
}
return;
}
if (command == COMMAND_DELETE)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
TimeList = llDeleteSubList(TimeList,CurrentMessage,CurrentMessage);
AddressList = llDeleteSubList(AddressList,CurrentMessage,CurrentMessage);
SubjectList = llDeleteSubList(SubjectList,CurrentMessage,CurrentMessage);
BodyList = llDeleteSubList(BodyList,CurrentMessage,CurrentMessage);
--NumMessages;

if (NumMessages == 0)
{
CurrentMessage = -1;
}
else if (CurrentMessage >= NumMessages)
{
CurrentMessage = NumMessages - 1;
}
}
return;
}
if (command == COMMAND_CLEAR)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
TimeList=[];
AddressList=[];
SubjectList=[];
BodyList=[];
NumMessages=0;
CurrentMessage=-1;
}
return;
}
if (command == COMMAND_HELP)
{
llMessageLinked(LINK_THIS, MSG_HELP, arg, NULL_KEY);
return;
}
if (command == COMMAND_INFO)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_INFO, "", NULL_KEY);
return;
}
if (command == COMMAND_SHOW)
{
Show();
return;
}
if (command == COMMAND_RESET)
{
llResetScript();
return;
}
if (command == COMMAND_OFF)
{
state not_running;
}
if (command == COMMAND_HOME)
{
if (nargs==1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETHOME, "", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETHOME, argstr, NULL_KEY);
}
return;
}
}
}

///////////////////////// timer() ///////////////////////////////

timer()
{
llGetNextEmail("", "");
}

///////////////////////// email() ///////////////////////////////

email(string time, string address, string subject, string body, integer queued)
{
NotifyNewMail(time, address, subject, body);
TimeList = (TimeList=[]) + TimeList + [time];
AddressList = (AddressList=[]) + AddressList + [address];
SubjectList = (SubjectList=[]) + SubjectList + [subject];
BodyList = (BodyList=[]) + BodyList + [body];
++NumMessages;

if (CurrentMessage == -1)
{
CurrentMessage = 0;
}
else
{
CurrentMessage = NumMessages - 1;
}
}

///////////////////// link_message() //////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
else if (msgid == MSG_MESSAGE_REPLY)
{
llOwnerSay(message);
}
}
}

//////////////////////////////////
// state not_running
//////////////////////////////////

state not_running
{
///////////////////// state_entry() //////////////////////////

state_entry()
{
llOwnerSay("SL Mailbox switched OFF. Say @ON to switch it back on.");
llListen(0, "", llGetOwner(), "");
}

//////////////////// on_rez() ///////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

//////////////////// listen() ////////////////////////////////

listen(integer chan, string name, key id, string message)
{
string command=llToUpper(message);

if (command == COMMAND_ON)
{
state running;
}
}

///////////////////// link_message() //////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
}
}

//////////////////////////////////
// state Error
//////////////////////////////////

state Error
{
state_entry()
{
llOwnerSay("Error in SL Mail: not all component scripts found.");
}

changed(integer mask)
{
if (mask & CHANGED_INVENTORY)
{
llResetScript();
}
}

on_rez(integer start_param)
{
llResetScript();
}
}

//////////////////////////////////
// End SL Mail V1.2.lsl
//////////////////////////////////
</pre>
</div>
</div>

<div id="box">

==Script: SL Mail Address Book V1.2==
<div style="padding: 0.5em;">
Read and interpret the contents of the Address Book.
<pre>
// SL Mail AddressBook V1.2.lsl
//
// DESCRIPTION
//
// Read the Address Book from a notecard named "Address Book".
//
// The Address Book has the following format:
//
// [ADDRESS BOOK]
// Name1=username@yourdomain.com
// Name2=otheruser@otherdomain.com
// ...
// [GROUP]
// group1=Name1, Name2
// ...
//
// Notes:
// 1. Group and Name share the same namespace, and must be unique.
// 2. It is allowed to have a name in the addressbook with multiple addresses, seperated by comma's.
//
/////////////////////////////////////////////////

string CurrentMailAddress = "";
string CurrentMailSubject = "";
integer StatusOnline = FALSE;

// Fetch or Send notecard

string Notecard2Fetch="";

// Address Book Names

list AddressBookList=[];
list MailAddressList=[];

string STRING_HOME="HOME";
string STRING_SELF="SELF";

// Address Book Groups

list GroupList=[];
list GroupNameList=[];

string LSL_DOMAIN = "lsl.secondlife.com";

// Read Address Book notecard

string ADDRESSBOOK_NOTECARD="Address Book";
integer Line=0;
key reqAddressBook=NULL_KEY;
float TIMEOUT_INTERVAL=5.0;

integer Section=0;
integer SECTION_ADDRESS_BOOK=1;
integer SECTION_GROUP=2;
string STRING_ADDRESS_BOOK="ADDRESS BOOK";
string STRING_GROUP="GROUP";

// Links messages

integer MSG_MESSAGE_SETADDRESS = 90000;
integer MSG_MESSAGE_GETADDRESS = 90050;
integer MSG_MESSAGE_SETSUBJECT = 90100;
integer MSG_MESSAGE_GETSUBJECT = 90150;
integer MSG_MESSAGE_SEND = 90200;
integer MSG_MESSAGE_SENDHOME = 90300;
integer MSG_MESSAGE_SEND_NOTECARD = 90400;
integer MSG_MESSAGE_ADDRESSBOOK = 90500;
integer MSG_MESSAGE_GETHOME = 90600;
integer MSG_MESSAGE_SETHOME = 90700;
integer MSG_MESSAGE_INFO = 90800;
integer MSG_MESSAGE_NOTIFY = 90900;

integer MSG_ADDRESSBOOK_LOADED = 91000;
integer MSG_ADDRESSBOOK_ERROR = 91100;

integer MSG_MESSAGE_REPLY = 99000;

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////// GetSelfAddress() ///////////////////////

string GetSelfAddress()
{
return (string)llGetKey() + "@" + LSL_DOMAIN;
}

///////////////////////////// Info() /////////////////////////////////

Info()
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "The mail address for this object is: "
+ GetSelfAddress() + ".", NULL_KEY);
}

///////////////////////////////// IsValidKeyFormat() //////////////////////

integer IsValidKeyFormat(string str)
{
string keychars = "0123456789abcdef";

if (llStringLength(str) != 36)
return FALSE;

if( (llGetSubString( str, 8, 8 ) != "-" ||
llGetSubString( str, 13, 13 ) != "-" ||
llGetSubString( str, 18, 18 ) != "-" ||
llGetSubString( str, 23, 23 ) != "-" ) )
return FALSE;

integer i;

for (i = 0; i < 8; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 9; i < 13; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 14; i < 18; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 19; i < 23; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 24; i < 36; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

return TRUE;
}

///////////////////////////////// ValidMailAddress() ////////////////////////

integer ValidMailAddress(string arg)
{
string adress = llToLower(llStringTrim(arg,STRING_TRIM));

if (adress == "")
return FALSE;

list parse = llParseStringKeepNulls(adress, [ "@" ], []);
string account = llList2String(parse,0);
string domain = llList2String(parse,1);

if (llGetListLength(parse) != 2 || llStringLength(account) == 0 || llStringLength(domain) == 0)
return FALSE;

if (domain == LSL_DOMAIN)
{
return IsValidKeyFormat(account);
}
else
{
list parsedomain = llParseString2List(domain, [ "." ], []);

if (llGetListLength(parsedomain) < 2)
return FALSE;

integer num = llGetListLength(parsedomain);
integer i;

for (i = 0; i < num; ++i)
{
if (llStringLength(llList2String(parsedomain,i)) < 2)
{
return FALSE;
}
}
}

return TRUE;
}

/////////////////////////////////// GetAddressStr() ///////////////////

string GetAndCheckAddressStr(string address)
{
list addresslist = llCSV2List(address);
integer num=llGetListLength(addresslist);
integer i;
string addressstr="";
string curaddress="";

for (i = 0; i < num; ++i)
{
curaddress=llList2String(addresslist,i);

if (ValidMailAddress(curaddress))
{
addressstr = (addressstr="") + addressstr + curaddress + ",";
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address string: '"
+ curaddress + "'.", NULL_KEY);
}
}

return llGetSubString(addressstr, 0, -2);
}

///////////////////////////// ProcessLine() ////////////////////////////

ProcessLine(string rawline)
{
string line=llStringTrim(rawline,STRING_TRIM);
string first=llGetSubString(line,0,0);
string last=llGetSubString(line,-1,-1);

// Ignore a blank line or comment line
if (line == "" || first == "#")
return;

// Check for the right section

if (first == "[" && last == "]")
{
string sectionstr=llToUpper(llStringTrim(llGetSubString(line,1,-2),STRING_TRIM));

if (sectionstr == STRING_ADDRESS_BOOK)
{
Section = SECTION_ADDRESS_BOOK;
}
else if (sectionstr == STRING_GROUP)
{
if (Section == 0)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1)
+ ". Group section defined before Address Book section.", NULL_KEY);
}
else
{
Section = SECTION_GROUP;
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid section header '" + sectionstr
+ "' in " + ADDRESSBOOK_NOTECARD + " at line " + (string)(Line + 1) + ".", NULL_KEY);
}

return;
}

// Must be in a section

if (Section == 0)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ". No section header.", NULL_KEY);
return;
}

list parse=llParseString2List(line, [ "=" ], []);
integer num=llGetListLength(parse);

// Format must be correct

if (num != 2)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line+1) + ":\n" + rawline, NULL_KEY);
return;
}

if (Section == SECTION_ADDRESS_BOOK)
{
string name=llStringTrim(llList2String(parse,0),STRING_TRIM);

if (llToUpper(name) == STRING_SELF)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address book entry '" + name
+ "'. Reserved word in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ".", NULL_KEY);
}
else if (llListFindList(AddressBookList, [ name ]) == -1)
{
string address=llStringTrim(llList2String(parse,1),STRING_TRIM);
string addressstr=GetAndCheckAddressStr(address);

if (addressstr != "")
{
AddressBookList = (AddressBookList=[]) + AddressBookList + [ name ];
MailAddressList = (MailAddressList=[]) + MailAddressList + [ addressstr ];
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "No valid mail address for '" + name
+ "'. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line " + (string)(Line + 1)
+ ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Name '" + name
+ "' already defined. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else // Group
{
string group=llStringTrim(llList2String(parse,0),STRING_TRIM);

if (llToUpper(group) == STRING_SELF)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address book entry '" + group
+ "'. Reserved word in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ".", NULL_KEY);
}
else if (llListFindList(AddressBookList, [ group ]) == -1)
{
if (llListFindList(GroupList, [ group ]) == -1)
{
string names=llStringTrim(llList2String(parse,1),STRING_TRIM);
list namelist=llCSV2List(names);
integer num=llGetListLength(namelist);
integer i;
integer index;
string name;
string namestr="";

for (i = 0; i < num; ++i)
{
name=llList2String(namelist,i);
index=llListFindList(AddressBookList, [ name ]);

if (index == -1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Name '" + name + "' defined in Group '"
+ group + "' not found in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
else
{
namestr = (namestr="") + namestr + name + ",";
}
}

if (namestr != "")
{
namestr=llGetSubString(namestr,0,-2);
GroupList = (GroupList=[]) + GroupList + [ group ];
GroupNameList = (GroupNameList=[]) + GroupNameList + [ namestr ];
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' has no valid names. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' already defined in Group. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' already defined in Address Book. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
}

//////////////////////////////// GetGroupAddressList ///////////////

string GetGroupAddressList(string group)
{
integer index=llListFindList(GroupList, [ group ]);
integer i;
integer num=llGetListLength(GroupList);
string grouplist="";

if (index == -1)
{
return "";
}
else
{
for (i = index; i < num; ++i)
{
if (llList2String(GroupList,i) == group)
{
grouplist = (grouplist="") + grouplist + llList2String(GroupNameList,i) + ",";
}
}

if (grouplist != "") grouplist=llGetSubString(grouplist,0,-2); // remove last ","
return grouplist;
}
}

//////////////////////////////// SetMailAddress() //////////////////

SetMailAddress(string address)
{
integer index=llListFindList(AddressBookList, [ address ]);

if (index == -1)
{
index=llListFindList(GroupList, [ address ]);

if (index == -1)
{
if (llToUpper(address) == STRING_SELF)
{
CurrentMailAddress = GetSelfAddress();
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
else if(ValidMailAddress(address))
{
CurrentMailAddress = address;
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Mail adress " + address
+ " : not found in adress book or invalid format.", NULL_KEY);
}
}
else
{
CurrentMailAddress = GetGroupAddressList(address);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject set to: "
+ CurrentMailAddress, NULL_KEY);
}
}
else
{
CurrentMailAddress = llList2String(MailAddressList,index);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
}

/////////////////////////////////// SendMail() ///////////////////////

SendMail(string message)
{
if (CurrentMailAddress == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "SendMail: No mail address defined.", NULL_KEY);
}
else if (CurrentMailSubject == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "SendMail: No subject defined.", NULL_KEY);
}
else
{
list mailaddresslist=llCSV2List(CurrentMailAddress);
integer num=llGetListLength(mailaddresslist);
integer i;
string address;

for (i = 0; i < num; ++i)
{
address=llList2String(mailaddresslist,i);
llEmail(address, CurrentMailSubject, message);
}
}
}

/////////////////////////////////// SendMailHome() ////////////////////

SendMailHome(string message, string subject)
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, STRING_HOME
+ " not set. Set your home adress with @HOME <address>.", NULL_KEY);
}
else
{
string homeaddress=llList2String(AddressBookList,index);
list homelist=llCSV2List(homeaddress);
integer num=llGetListLength(homelist);
integer i;
string address;

for (i = 0; i < num; ++i)
{
address=llList2String(homelist,i);
llEmail(address, subject, message);
}
}
}

/////////////////////////////////// GetHomeAddress() //////////////////

string GetHomeAddress()
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
return "not set";
}
else
{
return llList2String(MailAddressList,index);
}
}

/////////////////////////////////// SetHomeAddress() //////////////////

SetHomeAddress(string address)
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
AddressBookList = (AddressBookList=[]) + [ STRING_HOME ] + AddressBookList;
MailAddressList = (MailAddressList=[]) + [ GetAndCheckAddressStr(address) ] + MailAddressList;
}
else
{
MailAddressList = llListReplaceList(MailAddressList, [ GetAndCheckAddressStr(address) ], index, index);
}
}

////////////////////////////////////
// default
////////////////////////////////////

default
{
///////////////////// state_entry() //////////////////

state_entry()
{
Line=0;
Section=0;
llSetTimerEvent(TIMEOUT_INTERVAL);
reqAddressBook=llGetNotecardLine(ADDRESSBOOK_NOTECARD, 0);
}

///////////////////// dataserver() ////////////////////

dataserver(key id, string data)
{
if (id == reqAddressBook)
{
reqAddressBook = NULL_KEY;

if (data != EOF)
{
ProcessLine(data);
reqAddressBook=llGetNotecardLine(ADDRESSBOOK_NOTECARD, ++Line);
}
else
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_LOADED, "", NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Address Book loaded.", NULL_KEY);
state running;
}
}
}

//////////////////////// timer() ///////////////////////////

timer()
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_ERROR, "", NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Could not read Address Book: "
+ ADDRESSBOOK_NOTECARD + ".", NULL_KEY);
llSetTimerEvent(0.0);
}
}

////////////////////////////////////////////
// state running
////////////////////////////////////////////

state running
{
state_entry()
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_LOADED, "", NULL_KEY);
}

///////////////////////// link_message() ////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_MESSAGE_GETSUBJECT)
{
if (CurrentMailSubject == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject is empty.", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject is: "
+ CurrentMailSubject, NULL_KEY);
}
}
else if (msgid == MSG_MESSAGE_SETSUBJECT)
{
CurrentMailSubject = message;
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject set to: "
+ CurrentMailSubject, NULL_KEY);
}
else if (msgid == MSG_MESSAGE_GETADDRESS)
{
if (CurrentMailAddress == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address is empty.", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address is: "
+ CurrentMailAddress, NULL_KEY);
}
}
else if (msgid == MSG_MESSAGE_SETADDRESS)
{
SetMailAddress(message);
}
else if (msgid == MSG_MESSAGE_SEND)
{
if (message == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Body of message to send is empty. "
+ "No mail is send.", NULL_KEY);
}
else
{
SendMail(message);
}
}
else if (msgid == MSG_MESSAGE_SENDHOME)
{
SendMailHome(message, (string)id);
}
else if (msgid == MSG_MESSAGE_SEND_NOTECARD)
{
if (llGetInventoryType(message) == INVENTORY_NOTECARD)
{
Notecard2Fetch = message;
llMessageLinked(LINK_THIS, MSG_NOTECARD_READ, message, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Notecard " + message + " not found.", NULL_KEY);
}
}
else if (msgid == MSG_NOTECARD_FETCHED)
{
if (message == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Notecard " + Notecard2Fetch
+ " was empty or could not be read.", NULL_KEY);
}
else
{
SendMail(message);
}
}
else if (msgid == MSG_MESSAGE_GETHOME)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Home address is: " + GetHomeAddress() + ".", NULL_KEY);
}
else if (msgid == MSG_MESSAGE_SETHOME)
{
SetHomeAddress(message);
}
else if (msgid == MSG_MESSAGE_INFO)
{
Info();
}
}
}

/////////////////////////////////////
// End SL Mail AddressBook V1.2.lsl
/////////////////////////////////////
</pre>
</div>
</div>

<div id="box">

==Script: SL Mail FetchNotecard V1.2==
<div style="padding: 0.5em;">
Fetch the contents of a notecard and return it via link message as a string.
<pre>
// SL Mail FetchNotecard V1.2.lsl
//
//

// Notecard

integer Line=0;
string Notecard2Fetch="";
key reqNotecard=NULL_KEY;
float TIMEOUT_INTERVAL=10.0;
integer Fetched=FALSE;

// Lines

list LineList=[];

// Link messages

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////////////////////
// default
//////////////////////////////////////////

default
{
/////////////////////// dataserver() //////////////////////////////

dataserver(key id, string data)
{
if (id == reqNotecard)
{
reqNotecard=NULL_KEY;

if (data != EOF)
{
LineList = (LineList=[]) + LineList + [ data ];
reqNotecard = llGetNotecardLine(Notecard2Fetch, ++Line);
}
else
{
Fetched=TRUE;
llMessageLinked(LINK_THIS, MSG_NOTECARD_FETCHED, llDumpList2String(LineList, "\n"), NULL_KEY);
llSetTimerEvent(0.0);
}
}
}

/////////////////////// timer() ///////////////////////////////////

timer()
{
if (!Fetched)
{
llMessageLinked(LINK_THIS, MSG_NOTECARD_FETCHED, "", NULL_KEY);
llSetTimerEvent(0.0);
}
}

/////////////////////// link_message() ////////////////////////////

link_message(integer send, integer msgid, string message, key id)
{
if (msgid == MSG_NOTECARD_READ)
{
Line=0;
Notecard2Fetch=message;
LineList=[];
Fetched=FALSE;
reqNotecard=llGetNotecardLine(Notecard2Fetch, Line);
llSetTimerEvent(TIMEOUT_INTERVAL);
}
}
}

// End SL Mail FetchNotecard V1.2.lsl
</pre>
</div>
</div>

<div id="box">

==Script: SL OnlineStatus V1.2==
<div style="padding: 0.5em;">
Fetch online status of owner.
<pre>
// SL Mail OnlineStatus V1.2.lsl
//
//

// Online status

key reqOnlineStatus=NULL_KEY;
float STATUS_INTERVAL=2.0;

// Link messages

integer MSG_STATUS_ONLINE = 30000;
integer MS_STATUS_OFFLINE = 30100;

////////////////////////////////
// default
////////////////////////////////

default
{
///////////////////////// state_entry() /////////////////////////

state_entry()
{
reqOnlineStatus=llRequestAgentData(llGetOwner(), DATA_ONLINE);
llSetTimerEvent(STATUS_INTERVAL);
}

///////////////////////// dataserver() //////////////////////////

dataserver(key id, string data)
{
if (id == reqOnlineStatus)
{
reqOnlineStatus = NULL_KEY;

if (data=="1")
{
llMessageLinked(LINK_THIS, MSG_STATUS_ONLINE, "", NULL_KEY);
}
else if (data=="0")
{
llMessageLinked(LINK_THIS, MS_STATUS_OFFLINE, "", NULL_KEY);
}
}
}

///////////////////////// timer() ///////////////////////////////

timer()
{
reqOnlineStatus = llRequestAgentData(llGetOwner(), DATA_ONLINE);
}
}

// End SL Mail OnlineStatus V1.2.lsl
</pre>
</div>
</div>

<div id="box">

==Script: SL Mail Help V1.2==
<div style="padding: 0.5em;">
Display help information.

<pre>
// SL Mail Help V1.2.lsl
//
//

integer MSG_HELP = 10000;

///////////////////////////////// Help() ///////////////////////////////////////

Help()
{
llOwnerSay("HELP for SL Mail V1.2.");
llOwnerSay("COMMANDS:");
llOwnerSay("@HELP - displays help info.");
llOwnerSay("@INFO - display mailaddress of this object.");
llOwnerSay("@RECORD - start recording.");
llOwnerSay("@CONTINUE - continue recording.");
llOwnerSay("@STOP - stop recording.");
llOwnerSay("@IGNORE - ignore the recording.");
llOwnerSay("@SHOW - show what your recorded.");
llOwnerSay("@SEND - send the recording.");
llOwnerSay("@MAIL <mailadress> - set the mail adress.");
llOwnerSay("@SUBJECT subject - set the mail subject.");
llOwnerSay("@LIST - list messages in mail buffer.");
llOwnerSay("@SELECT <message> - select message from mail buffer.");
llOwnerSay("@READ - read current message from mail buffer.");
llOwnerSay("@NEXT - read next message from mail buffer.");
llOwnerSay("@PREV - read previous message from mail buffer.");
llOwnerSay("@FIRST - read first message from mail buffer.");
llOwnerSay("@LAST - read last message from mail buffer.");
llOwnerSay("@DELETE - delete current message from mail buffer.");
llOwnerSay("@CLEAR - clear the mail buffer.");
llOwnerSay("@REPLY - reply to current message.");
llOwnerSay("@RESET - reset the script.");
llOwnerSay("@HOME - set the home mail adress.");
llOwnerSay("@OFF - switch mailbox OFF.");
llOwnerSay("@ON - switch mailbox ON.");
}

/////////////////////////////////////////////
// default
/////////////////////////////////////////////

default
{
link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_HELP)
{
Help();
}
}
}

// End SL Mail Help V1.2.lsl
</pre>
</div>
</div>
[[Image:slmail.info.jpg]]

{{LSLC|Library}}

SL Mail V1.2

Flennan Roffo — Sun, 07 Oct 2007 11:19:04 GMT

Flennan Roffo: /* '''Second Life mail client''' */

{{LSL Header}} __NOTOC__
<div id="box">
='''Second Life mail client'''=
<div style="padding: 0.5em">

'''Send and receive email from within Second Life from and to any address.'''

Implemented with Address Book function (in a notecard named 'Address Book') to stores addresses by name and to compile groups of named addresses. Current version is stand-alone (no server functionality) and uses chat commands only.

[[Image:BannerSLMail.jpg]]

URL: [http://www.slmail.info slmail.info] (website coming soon!)

</div>
</div>

<div id="box">

=Release Notes V1.2=
<div style="padding: 0.5em">
SL Mail V1.2 Release notes (edition 2, 4 sept 2007)
</div>
</div>

<div id="box">
=='''LICENCE INFO'''==
<div style="padding: 0.5em">
SL Mail V1.2 is released under GNU free software licence
</div>
</div>

<div id="box">
=='''PRODUCTION & MAINTANENCE'''==
<div style="padding: 0.5em">
by Logic Scripted Products and Script Services

[[Image:Logicbanner1.jpg]]

URL: [http://www.logicscripts.org logicscripts.org] (website coming soon!)

SLurl:
{{SLurl
|region=Peacock Park
|x=189
|y=226
|z=69
|title=Logic Scripted products and Script services
|}}

Contact: [[User:Flennan Roffo|Flennan Roffo]]

Email: [mailto:info@slmail.info '''info'''] or [mailto:Flennan.Roffo@slmail.info '''Flennan Roffo''']

</div>
</div>

<div id="box">

=='''DESCRIPTION'''==
<div style="padding: 0.5em">
SL Mail V1.2 is a simple tool to send and receive mail from within SL.
You can either compose a message yourself using chat recording, or choose a notecard from inventory to send. The Address Book functionality allows you to use short names for mail recipients stored in a notecard. The current version does not have a persisent mail address. Watch out for the upcoming next release (V1.3) which will facilitate persisent in-world mail addresses and will be enhanced with many new features (See: Requests For Change (RFC).
</div>
</div>

<div id="box">

=='''COMMANDS'''==
<div style="padding: 0.5em">
{| {{Prettytable}}
|-
|{{Hl2}}| '''Command'''
|{{Hl2}}| '''Description'''
|-
||'''@Help'''
||Show Help about available commands
|-
||'''@Record'''
||Starts a chat recording (for owner only).
|-
||'''@Stop'''
||Stops the chat recording without sending
|-
||'''@Continue'''
||Continues a previously stopped chat recording. Lines will be appended to you recording buffer.
|-
||'''@Show'''
||Shows the content of the recording buffer.
|-
||'''@Send'''
||If recording, stops the recording, and sends the mail (need to supply mail address and subject first!)
|-
||'''@Send <notecard>'''
||Sends the content of the notecard, instead of the chat recording.
|-
||'''@Ignore'''
||Ignores your current chat recording.
|-
||'''@Mail <address>'''
||Define the mail address to send to.
|-
||'''@Mail'''
||Shows the current mail address to send to.
|-
||'''@Subject <subject>'''
||Define the subject of the mail.
|-
||'''@Subject'''
||Shows the current mail subject.
|-
||'''@Home <address>'''
||Set the HOME address of the owner (mail will be forwarder to this address when offline).
|-
||'''@Home'''
||Show the HOME address.
|-
||'''@Info'''
||Shows the mail address the object this script is running in uses (e.g. <object-key>@lsl.secondlife.com).
|-
||'''@Read'''
||Reads the current message from the mail buffer (the mail buffer gets filled with mail you receive)
|-
||'''@Select <msg>'''
||Select a message number from the availabe messages in the mail buffer.
|-
||'''@Next'''
||Make next message the current message.
|-
||'''@Prev'''
||Make previous message the current message.
|-
||'''@First'''
||Make the first message the current message.
|-
||'''@Last'''
||Make the last message the current message.
|-
||'''@Clear'''
||Clear the mail buffer
|-
||'''@Delete'''
||Deletes only the current message
|-
||'''@Reply'''
||Starts a chat recording to reply to the current message. Mail adress and subject are filled in automatically.
|}

Note:

* Commands are case insensitive ("@read" == "@READ"). Arguments might not be case insensitive.
</div>
</div>

<div id="box">
=='''ADDRESS BOOK FORMAT'''==
<div style="padding: 0.5em">
A notecard of the name 'Address Book' is read during initialization which may contain Address Book items and Groups.
The notecard is split in two sections, which need to be defined in that particular order.

'''[ADDRESS BOOK]'''

Defines the section in which you can put names for mail addresses, like this:

'''Name1=account@thisdomain.com'''

'''Name2=user@otherdomain.com'''

etc.

'''[GROUP]'''

Define groups of previously defined names under a new name, like for instance:

'''MyGroup=Name1, Name2'''

Note that names of groups and individual mail adresses share the same namespace and must be unique.

So when you filled in your mail adresses in the Address Book, you can now use:

'''@Mail Name1'''

To send mail to <account@thisdomain.com>

or you can use

'''@Mail MyGroup'''

To send mail to <account@thisdomain.com> and <user@otherdomain.com>
Mails will be sent one after another.

Notes:

* Names for Addreses and Groups are case insensitive (e.g. "mary" == "MARY")

* The special address 'Self' can be used in commands where otherwise an address specification can be used. 'Self' is case insensitive (e.g. "self" == "SELF")

</div>
</div>

<div id="box">
=='''LIMITATIONS'''==
<div style="padding: 0.5em">
The current version is limited by the following:

* Chat recording lines are limited by the 255 byte limit

* Output of lines from the mail buffer are also limited by this 255 byte limit

* Incoming mail is limited to a 1000 (1024?) byte limit

* Outgoing mai is limited by a 4096 byte limit, which includes the standard mail header (region/location info on the first two lines)

We are making adjustments to this release to help overcome these limitations. At least the line lenght limit can be overcome by introducing a line continuation character (for example a hyphen '-') that when used at the end of a line appends the next line, so lines longer then 255 bytes are possible then.

To overcome the outgoing mail length limit, the mail can be broken textualy into parts, and each part can be send seperatedely, with an indication in the subject or in an introduced primary line of the mail body to indicate that the mail was split into parts.
For incoming mail and at least to receive mail from other SL Mail programs, a protocol will be introduced to receive mail in parts that are joined together after receiving them to form a single mail.

These enhancements will be made available in the next release (V1.3) of SL Mail
</div>
</div>

<div id="box">
=='''BUGS'''==
<div style="padding: 0.5em">
Report any bugs you find in this release to Logic (IM: Flennan Roffo).
</div>
</div>

<div id="box">
=='''REQUEST FOR CHANGE (RFC)'''==
<div style="padding: 0.5em">
Do you have additional wishes for enhancement of this product?
Contact Flennan Roffo and we will see if they can be implemented in the next release.

Existing RFC's are:

* Menu support for commands.

* Lines on incoming/outgoing mail longer than 255 bytes.

* Send messages longer than 4096 (minus SL mail header) bytes.

* Receive messages longer than 1024 bytes.

* Permanent mail addresses for the SL Mail client (like: <Flennan.Roffo@somedomain.sl>)

Add your RFC!
</div>
</div>

<div id="box">
=='''SL MAIL SUPPORT & DEVELOPMENT'''==
<div style="padding: 0.5em">

In-world join the group "SL Mail" for bug reports, feature requests, the latest SL Mail release, and notices about development issues.
</div>
</div>

<div id="box">

=Scripts=
</div>

<div id="box">
==Script: SL Mail v1.2==
<div style="padding: 0.5em;">
SL Mail core module which scans for incoming mail messages and executes commands used by the owner.
<pre>
// SL Mail V1.2.lsl
// (c) 2007 Logic Scripted Products and Script Services
// Flennan Roffo

// VERSION
// Version: 1.2

// HISTORY
// Date Version Author Comment
// --------------------------------------------------------------------------------------
// 28 aug 2007 V 1.0 Flennan Roffo Created
//
// 1 sep 2007 V 1.1 Flennan Roffo @Reply empties the recording buffer.
// @Send while recording ends recording
// and sends the mail if a mail address
// and subject are supplied.
// Fixed incorrect date in Unix2DateTime.
// 3 sep 2007 V 1.2 Flennan Roffo Notification options:
// - When online, send an IM when mail is received.
// - When offline, send to HOME mail adress.
// Adressbook
// - Read adress book from config notecard.

// LICENCE
// This program is free software; you can redistribute it and/or
// modify it under the terms of the GNU General Public License
// as published by the Free Software Foundation; either version 2
// of the License, or (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
// (Also available at http://www.gnu.org/copyleft/gpl.html)

// DESCRIPTION
// Let's you record a message and sent to email and get messages and reply to messages.
// Must supply a valid mail adress and non-empty subject using chat commands.

// TODO:
// 1) Check for the maximum length of an email message (including newline and header).
// 2) Read adress book from notecard. *DONE*
// 3) Send incoming mail to personal mail adress when offline. *DONE*
// 4) Alert with an IM when online upon receiving new mail. *DONE*

string SL_MAIL_VERSION = "V 1.2";
string SL_MAIL_DATE = " 2 sep 2007";
integer ErrorFlag = FALSE;
list ScriptList = [ "SL Mail Help V1.2", "SL Mail AddressBook V1.2",
"SL Mail OnlineStatus V1.2", "SL Mail FetchNotecard V1.2" ];
string LSL_DOMAIN="lsl.secondlife.com";
integer StatusOnline=FALSE;

// Commands

string COMMAND_RECORD = "@RECORD";
string COMMAND_CONTINUE = "@CONTINUE";
string COMMAND_STOP = "@STOP";
string COMMAND_MAIL = "@MAIL";
string COMMAND_SUBJECT = "@SUBJECT";
string COMMAND_SEND = "@SEND";
string COMMAND_SEE = "@SEE";
string COMMAND_IGNORE = "@IGNORE";
string COMMAND_READ = "@READ";
string COMMAND_DELETE = "@DELETE";
string COMMAND_CLEAR = "@CLEAR";
string COMMAND_REPLY = "@REPLY";
string COMMAND_NEXT = "@NEXT";
string COMMAND_PREV = "@PREV";
string COMMAND_FIRST = "@FIRST";
string COMMAND_LAST = "@LAST";
string COMMAND_LIST = "@LIST";
string COMMAND_SELECT = "@SELECT";
string COMMAND_HELP = "@HELP";
string COMMAND_INFO = "@INFO";
string COMMAND_RESET = "@RESET";
string COMMAND_SHOW = "@SHOW";
string COMMAND_ON = "@ON";
string COMMAND_OFF = "@OFF";
string COMMAND_HOME = "@HOME";
string COMMAND_LOAD = "@LOAD";
string COMMAND_ADDRESS = "@ADDRESS";

// Recording

integer Recording = FALSE;

list ChatRecording=[];
integer NumLines=0;
integer Length=0;

list TimeList=[];
list AddressList=[];
list SubjectList=[];
list BodyList=[];
integer NumMessages=0;
integer CurrentMessage=-1;

float MAIL_FETCH_INTERVAL=5.0;

// Link Messages

integer MSG_HELP = 10000;
integer MSG_STATUS_ONLINE = 30000;
integer MSG_STATUS_OFFLINE = 30100;

integer MSG_MESSAGE_SETADDRESS = 90000;
integer MSG_MESSAGE_GETADDRESS = 90050;
integer MSG_MESSAGE_SETSUBJECT = 90100;
integer MSG_MESSAGE_GETSUBJECT = 90150;
integer MSG_MESSAGE_SEND = 90200;
integer MSG_MESSAGE_SENDHOME = 90300;
integer MSG_MESSAGE_SEND_NOTECARD = 90400;
integer MSG_MESSAGE_ADDRESSBOOK = 90500;
integer MSG_MESSAGE_GETHOME = 90600;
integer MSG_MESSAGE_SETHOME = 90700;
integer MSG_MESSAGE_INFO = 90800;

integer MSG_ADDRESSBOOK_LOADED = 91000;
integer MSG_ADDRESSBOOK_ERROR = 91100;

integer MSG_MESSAGE_REPLY = 99000;

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////// Unix Time conversion //////////////////

integer DAYS_PER_YEAR = 365; // Non leap year
integer SECONDS_PER_YEAR = 31536000; // Non leap year
integer SECONDS_PER_DAY = 86400;
integer SECONDS_PER_HOUR = 3600;
integer SECONDS_PER_MINUTE = 60;

////////////////////////////// LeapYear() /////////////////////////////

integer LeapYear(integer year)
{
if (year % 4 == 0)
{
if (year % 100 == 0)
{
if (year % 400 == 0)
{
return 1;
}
else
{
return 0;
}
}
else
{
return 1;
}
}
else
{
return 0;
}
}

////////////////////////////// DaysPerMonth() ///////////////////////////////////////

integer DaysPerMonth(integer year,integer month)
{
if (month < 8)
{
if (month % 2 == 0)
{
if (month == 2)
{
if (LeapYear(year))
{
return 29;
}
else
{
return 28;
}
}
else
{
return 30;
}
}
else
{
return 31;
}
}
else
{
if (month % 2 == 0)
{
return 31;
}
else
{
return 30;
}
}
}

/////////////////////////// DaysPerYear() ////////////////////////////////////

integer DaysPerYear(integer year)
{
if (LeapYear(year))
return DAYS_PER_YEAR + 1;
else
return DAYS_PER_YEAR;
}

/////////////////////////////// Unix2DataTime() ///////////////////////////////////////

list Unix2DateTime(integer unixtime)
{
integer days_since_1_1_1970 = unixtime / SECONDS_PER_DAY;
integer day = days_since_1_1_1970 + 1;
integer year = 1970;
integer days_per_year = DaysPerYear(year);

while (day > days_per_year)
{
day -= days_per_year;
++year;
days_per_year = DaysPerYear(year);
}

integer month = 1;
integer days_per_month = DaysPerMonth(year,month);

while (day > days_per_month)
{
day -= days_per_month;

if (++month > 12)
{
++year;
month = 1;
}

days_per_month = DaysPerMonth(year,month);
}

integer seconds_since_midnight = unixtime % SECONDS_PER_DAY;
integer hour = seconds_since_midnight / SECONDS_PER_HOUR;
integer second = seconds_since_midnight % SECONDS_PER_HOUR;
integer minute = second / SECONDS_PER_MINUTE;
second = second % SECONDS_PER_MINUTE;

return [ year, month, day, hour, minute, second ];
}

///////////////////////////////// MonthName() ////////////////////////////

list MonthNameList = [ "JAN", "FEB", "MAR", "APR", "MAY", "JUN",
"JUL", "AUG", "SEP", "OCT" , "NOV", "DEC" ];

string MonthName(integer month)
{
if (month >= 0 && month < 12)
return llList2String(MonthNameList, month);
else
return "";
}

///////////////////////////////// DateString() ///////////////////////////

string DateString(list timelist)
{
integer year = llList2Integer(timelist,0);
integer month = llList2Integer(timelist,1);
integer day = llList2Integer(timelist,2);

return (string)day + "-" + MonthName(month - 1) + "-" + (string)year;
}

///////////////////////////////// TimeString() ////////////////////////////

string TimeString(list timelist)
{
integer hour = llList2Integer(timelist,3);
integer minute = llList2Integer(timelist,4);
integer second = llList2Integer(timelist,5);
string hourstr = (string)hour;
string minutestr = (string)minute;
string secondstr = (string)second;

if (hour < 10) hourstr = "0" + hourstr;
if (minute < 10) minutestr = "0" + minutestr;
if (second < 10) secondstr = "0" + secondstr;
return hourstr + ":" + minutestr + ":" + secondstr;
}

/////////////////////////////////// SendMail() /////////////////////////////////////

SendMail(string body)
{
// llOwnerSay("Sending message to '" + address + "' with subject '" + subject +"'.");
llMessageLinked(LINK_THIS, MSG_MESSAGE_SEND, body, NULL_KEY);
}

///////////////////////////////// SendHome() ///////////////////////////////////////

SendHome(string subject, string body)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SENDHOME, body, (key)subject);
}

///////////////////////////////// Show() ////////////////////////////////////////////

Show()
{
integer i;

llOwnerSay("Current chat recording is:");
llOwnerSay("--------------------------");

for (i = 0; i < NumLines; ++i)
{
llOwnerSay(llList2String(ChatRecording,i));
}

llOwnerSay("--------------------------");
llOwnerSay("Lines is " + (string)NumLines);
llOwnerSay("Message length is " + (string)Length);
}

/////////////////////////////// Read() /////////////////////////////////////////

Read()
{
llOwnerSay("Reading message " + (string)CurrentMessage + " from mail buffer.");
integer time = (integer)llList2Integer(TimeList,CurrentMessage);
list timelist=Unix2DateTime(time);
string Address = llList2String(AddressList,CurrentMessage);
string Subject = llList2String(SubjectList,CurrentMessage);
string Body = llList2String(BodyList,CurrentMessage);
llOwnerSay("Date : " + DateString(timelist));
llOwnerSay("Time : " + TimeString(timelist));
llOwnerSay("Address: " + Address);
llOwnerSay("Subject: " + Subject);
llOwnerSay("Begin of message body:");
llOwnerSay("-------------------------");
list bodylist=llParseStringKeepNulls(Body, [ "\n" ], []);
integer num=llGetListLength(bodylist);
integer i;

for (i = 0; i < num; ++i)
{
llOwnerSay(llList2String(bodylist,i));
}

llOwnerSay("-------------------------");
llOwnerSay("End of message body.");
}

////////////////////////////////////// List ////////////////////////////////////////////

List()
{
llOwnerSay("The mail buffer contains the following messages:\n");

integer i;

for (i = 0; i < NumMessages; ++i)
{
integer time=llList2Integer(TimeList,i);
list timelist=Unix2DateTime(time);
if (i > 0) llOwnerSay("+-+-+-+-+-+-+-+-+-+-+-+-");
llOwnerSay("Message: " + (string)i);
llOwnerSay("Date : " + DateString(timelist));
llOwnerSay("Time : " + TimeString(timelist));
llOwnerSay("From: " + llList2String(AddressList,i));
llOwnerSay("Subject: " + llList2String(SubjectList,i));
}
}

//////////////////////////// NotifyNewMail() /////////////////////////

NotifyNewMail(string time, string address, string subject, string body)
{
list timelist=Unix2DateTime((integer)time);

if (StatusOnline)
{
llInstantMessage(llGetOwner(), "You received a new mail message on "
+ DateString(timelist) + " at " + TimeString(timelist)
+ " from " + address
+ " with the subject " + subject);
}
else
{
SendHome("FW: " + subject, "Received at: " + DateString(timelist) + " " + TimeString(timelist) + "\nFrom: " + address
+ "\nBegin message body:\n-------------------\n" + body + "\n-------------------\nEnd message body.");
}
}

///////////////////////////// ResetOtherScripts() //////////////////////

ResetOtherScripts()
{
string name;
integer i;
integer num=llGetListLength(ScriptList);

for (i = 0; i < num; ++i)
{
name = llList2String(ScriptList,i);

if (llGetInventoryType(name) == INVENTORY_SCRIPT)
{
llResetOtherScript(name);
}
else
{
llOwnerSay("Error - script '" + name + "' not found.");
ErrorFlag = TRUE;
}
}
}

//////////////////////////////////////
// default
//////////////////////////////////////

default
{
////////////////////// state_entry() /////////////////////////

state_entry()
{
llOwnerSay("Welcome to SL Mail, released under GNU software licence.");
llOwnerSay("Version " + SL_MAIL_VERSION + " " + SL_MAIL_DATE);
llOwnerSay("Produced by Logic Scripted Products & Product Services");
llOwnerSay("Free memory: " + (string)llGetFreeMemory());
ResetOtherScripts();

if (ErrorFlag)
state Error;
}

/////////////////////// on_rez() //////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

/////////////////////// changed() ////////////////////////////

changed(integer mask)
{
if (mask & CHANGED_INVENTORY)
{
llResetScript();
}
}

/////////////////////// link_message() /////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
else if (msgid == MSG_ADDRESSBOOK_LOADED)
{
state running;
}
else if (msgid == MSG_ADDRESSBOOK_ERROR)
{
state Error;
}
}
}

///////////////////////////////////////
// state running
//////////////////////////////////////

state running
{
///////////////////////// state_entry() //////////////////////

state_entry()
{
llListen(0, "", llGetOwner(), "");
llOwnerSay("SL mail ready.\nSend and Get mail in Second Life.\nType @HELP for more info.");
llMessageLinked(LINK_THIS, MSG_MESSAGE_INFO, "", NULL_KEY);
llGetNextEmail("", "");
llSetTimerEvent(MAIL_FETCH_INTERVAL);
}

//////////////////////// on_rez() ////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

//////////////////////// listen() ////////////////////////////

listen(integer channel, string name, key id, string message)
{
string trimmessage=llStringTrim(message,STRING_TRIM);
list parse = llParseStringKeepNulls(trimmessage, [ " "], []);
string command = llToUpper(llList2String(parse,0));
string arg = llStringTrim(llList2String(parse,1),STRING_TRIM);
integer nargs = llGetListLength(parse);
string argstr="";

if (nargs > 1) argstr=llGetSubString(message, llSubStringIndex(message, " ") + 1, -1);

if (Recording)
{
if (command == COMMAND_STOP)
{
llOwnerSay("Recording stopped. Type @SHOW to see the message you have entered,"
+ " or @SEND to send it.");
Recording = FALSE;
return;
}
if (command == COMMAND_SEND)
{
Recording = FALSE;

SendMail(llDumpList2String(ChatRecording, "\n"));
return;
}
else
{
ChatRecording = (ChatRecording=[]) + ChatRecording + [ message ];
++NumLines;
Length += llStringLength(message) + 2;
return;
}
}
else
{
if (command == COMMAND_RECORD)
{
llOwnerSay("Start recording your message. Type @STOP to end recording.");
ChatRecording = [];
NumLines=0;
Length=0;
Recording = TRUE;
return;
}
if (command == COMMAND_CONTINUE)
{
llOwnerSay("Continue recording your message. Type @STOP to end recording.");
Recording = TRUE;
return;
}
if (command == COMMAND_REPLY)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
string address=llList2String(AddressList,CurrentMessage);
string subject="Re: " + llList2String(SubjectList,CurrentMessage);
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETADDRESS, address, NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETSUBJECT, subject, NULL_KEY);
ChatRecording = [];
NumLines=0;
Length=0;
Recording = TRUE;
}
return;
}
if (command == COMMAND_MAIL)
{
string mailaddress=llStringTrim(argstr,STRING_TRIM);

if (mailaddress != "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETADDRESS, mailaddress, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETADDRESS, "", NULL_KEY);
}
return;
}
if (command == COMMAND_SUBJECT)
{
string mailsubject=llStringTrim(argstr,STRING_TRIM);

if (mailsubject != "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETSUBJECT, mailsubject, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETSUBJECT, "", NULL_KEY);
}
return;
}
if (command == COMMAND_STOP)
{
llOwnerSay("Not recording.");
return;
}
if (command == COMMAND_SEND)
{
if (nargs == 1)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
SendMail(llDumpList2String(ChatRecording, "\n"));
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SEND_NOTECARD, argstr, NULL_KEY);
}
return;
}
if (command == COMMAND_IGNORE)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
ChatRecording = [];
NumLines = 0;
Length = 0;
}
return;
}
if (command == COMMAND_SHOW)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
Show();
}
return;
}
if (command == COMMAND_READ)
{
if (NumMessages == 0)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
Read();
}
return;
}
if (command == COMMAND_NEXT)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == NumMessages - 1)
{
llOwnerSay("Already at last message.");
}
else
{
++CurrentMessage;
Read();
}
}
return;
}
if (command == COMMAND_PREV)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == 0)
{
llOwnerSay("Already at first message.");
}
else
{
--CurrentMessage;
Read();
}
}
return;
}
if (command == COMMAND_FIRST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == 0)
{
llOwnerSay("Already at first message.");
}
else
{
CurrentMessage = 0;
Read();
}
}
return;
}
if (command == COMMAND_LAST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == NumMessages - 1)
{
llOwnerSay("Already at last message.");
}
else
{
CurrentMessage = NumMessages - 1;
Read();
}
}
return;
}
if (command == COMMAND_LIST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
List();
}
return;
}
if (command == COMMAND_SELECT)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else if (nargs == 1)
{
llOwnerSay("Need to supply a message number.");
}
else
{
integer msgnum = (integer)arg;

if (msgnum < 0 || msgnum >= NumMessages)
{
llOwnerSay("Message number " + arg + " not in mail buffer.");
}
else
{
CurrentMessage = msgnum;
}
}
return;
}
if (command == COMMAND_DELETE)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
TimeList = llDeleteSubList(TimeList,CurrentMessage,CurrentMessage);
AddressList = llDeleteSubList(AddressList,CurrentMessage,CurrentMessage);
SubjectList = llDeleteSubList(SubjectList,CurrentMessage,CurrentMessage);
BodyList = llDeleteSubList(BodyList,CurrentMessage,CurrentMessage);
--NumMessages;

if (NumMessages == 0)
{
CurrentMessage = -1;
}
else if (CurrentMessage >= NumMessages)
{
CurrentMessage = NumMessages - 1;
}
}
return;
}
if (command == COMMAND_CLEAR)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
TimeList=[];
AddressList=[];
SubjectList=[];
BodyList=[];
NumMessages=0;
CurrentMessage=-1;
}
return;
}
if (command == COMMAND_HELP)
{
llMessageLinked(LINK_THIS, MSG_HELP, arg, NULL_KEY);
return;
}
if (command == COMMAND_INFO)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_INFO, "", NULL_KEY);
return;
}
if (command == COMMAND_SHOW)
{
Show();
return;
}
if (command == COMMAND_RESET)
{
llResetScript();
return;
}
if (command == COMMAND_OFF)
{
state not_running;
}
if (command == COMMAND_HOME)
{
if (nargs==1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETHOME, "", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETHOME, argstr, NULL_KEY);
}
return;
}
}
}

///////////////////////// timer() ///////////////////////////////

timer()
{
llGetNextEmail("", "");
}

///////////////////////// email() ///////////////////////////////

email(string time, string address, string subject, string body, integer queued)
{
NotifyNewMail(time, address, subject, body);
TimeList = (TimeList=[]) + TimeList + [time];
AddressList = (AddressList=[]) + AddressList + [address];
SubjectList = (SubjectList=[]) + SubjectList + [subject];
BodyList = (BodyList=[]) + BodyList + [body];
++NumMessages;

if (CurrentMessage == -1)
{
CurrentMessage = 0;
}
else
{
CurrentMessage = NumMessages - 1;
}
}

///////////////////// link_message() //////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
else if (msgid == MSG_MESSAGE_REPLY)
{
llOwnerSay(message);
}
}
}

//////////////////////////////////
// state not_running
//////////////////////////////////

state not_running
{
///////////////////// state_entry() //////////////////////////

state_entry()
{
llOwnerSay("SL Mailbox switched OFF. Say @ON to switch it back on.");
llListen(0, "", llGetOwner(), "");
}

//////////////////// on_rez() ///////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

//////////////////// listen() ////////////////////////////////

listen(integer chan, string name, key id, string message)
{
string command=llToUpper(message);

if (command == COMMAND_ON)
{
state running;
}
}

///////////////////// link_message() //////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
}
}

//////////////////////////////////
// state Error
//////////////////////////////////

state Error
{
state_entry()
{
llOwnerSay("Error in SL Mail: not all component scripts found.");
}

changed(integer mask)
{
if (mask & CHANGED_INVENTORY)
{
llResetScript();
}
}

on_rez(integer start_param)
{
llResetScript();
}
}

//////////////////////////////////
// End SL Mail V1.2.lsl
//////////////////////////////////
</pre>
</div>
</div>

<div id="box">

==Script: SL Mail Address Book V1.2==
<div style="padding: 0.5em;">
Read and interpret the contents of the Address Book.
<pre>
// SL Mail AddressBook V1.2.lsl
//
// DESCRIPTION
//
// Read the Address Book from a notecard named "Address Book".
//
// The Address Book has the following format:
//
// [ADDRESS BOOK]
// Name1=username@yourdomain.com
// Name2=otheruser@otherdomain.com
// ...
// [GROUP]
// group1=Name1, Name2
// ...
//
// Notes:
// 1. Group and Name share the same namespace, and must be unique.
// 2. It is allowed to have a name in the addressbook with multiple addresses, seperated by comma's.
//
/////////////////////////////////////////////////

string CurrentMailAddress = "";
string CurrentMailSubject = "";
integer StatusOnline = FALSE;

// Fetch or Send notecard

string Notecard2Fetch="";

// Address Book Names

list AddressBookList=[];
list MailAddressList=[];

string STRING_HOME="HOME";
string STRING_SELF="SELF";

// Address Book Groups

list GroupList=[];
list GroupNameList=[];

string LSL_DOMAIN = "lsl.secondlife.com";

// Read Address Book notecard

string ADDRESSBOOK_NOTECARD="Address Book";
integer Line=0;
key reqAddressBook=NULL_KEY;
float TIMEOUT_INTERVAL=5.0;

integer Section=0;
integer SECTION_ADDRESS_BOOK=1;
integer SECTION_GROUP=2;
string STRING_ADDRESS_BOOK="ADDRESS BOOK";
string STRING_GROUP="GROUP";

// Links messages

integer MSG_MESSAGE_SETADDRESS = 90000;
integer MSG_MESSAGE_GETADDRESS = 90050;
integer MSG_MESSAGE_SETSUBJECT = 90100;
integer MSG_MESSAGE_GETSUBJECT = 90150;
integer MSG_MESSAGE_SEND = 90200;
integer MSG_MESSAGE_SENDHOME = 90300;
integer MSG_MESSAGE_SEND_NOTECARD = 90400;
integer MSG_MESSAGE_ADDRESSBOOK = 90500;
integer MSG_MESSAGE_GETHOME = 90600;
integer MSG_MESSAGE_SETHOME = 90700;
integer MSG_MESSAGE_INFO = 90800;
integer MSG_MESSAGE_NOTIFY = 90900;

integer MSG_ADDRESSBOOK_LOADED = 91000;
integer MSG_ADDRESSBOOK_ERROR = 91100;

integer MSG_MESSAGE_REPLY = 99000;

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////// GetSelfAddress() ///////////////////////

string GetSelfAddress()
{
return (string)llGetKey() + "@" + LSL_DOMAIN;
}

///////////////////////////// Info() /////////////////////////////////

Info()
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "The mail address for this object is: "
+ GetSelfAddress() + ".", NULL_KEY);
}

///////////////////////////////// IsValidKeyFormat() //////////////////////

integer IsValidKeyFormat(string str)
{
string keychars = "0123456789abcdef";

if (llStringLength(str) != 36)
return FALSE;

if( (llGetSubString( str, 8, 8 ) != "-" ||
llGetSubString( str, 13, 13 ) != "-" ||
llGetSubString( str, 18, 18 ) != "-" ||
llGetSubString( str, 23, 23 ) != "-" ) )
return FALSE;

integer i;

for (i = 0; i < 8; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 9; i < 13; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 14; i < 18; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 19; i < 23; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 24; i < 36; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

return TRUE;
}

///////////////////////////////// ValidMailAddress() ////////////////////////

integer ValidMailAddress(string arg)
{
string adress = llToLower(llStringTrim(arg,STRING_TRIM));

if (adress == "")
return FALSE;

list parse = llParseStringKeepNulls(adress, [ "@" ], []);
string account = llList2String(parse,0);
string domain = llList2String(parse,1);

if (llGetListLength(parse) != 2 || llStringLength(account) == 0 || llStringLength(domain) == 0)
return FALSE;

if (domain == LSL_DOMAIN)
{
return IsValidKeyFormat(account);
}
else
{
list parsedomain = llParseString2List(domain, [ "." ], []);

if (llGetListLength(parsedomain) < 2)
return FALSE;

integer num = llGetListLength(parsedomain);
integer i;

for (i = 0; i < num; ++i)
{
if (llStringLength(llList2String(parsedomain,i)) < 2)
{
return FALSE;
}
}
}

return TRUE;
}

/////////////////////////////////// GetAddressStr() ///////////////////

string GetAndCheckAddressStr(string address)
{
list addresslist = llCSV2List(address);
integer num=llGetListLength(addresslist);
integer i;
string addressstr="";
string curaddress="";

for (i = 0; i < num; ++i)
{
curaddress=llList2String(addresslist,i);

if (ValidMailAddress(curaddress))
{
addressstr = (addressstr="") + addressstr + curaddress + ",";
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address string: '"
+ curaddress + "'.", NULL_KEY);
}
}

return llGetSubString(addressstr, 0, -2);
}

///////////////////////////// ProcessLine() ////////////////////////////

ProcessLine(string rawline)
{
string line=llStringTrim(rawline,STRING_TRIM);
string first=llGetSubString(line,0,0);
string last=llGetSubString(line,-1,-1);

// Ignore a blank line or comment line
if (line == "" || first == "#")
return;

// Check for the right section

if (first == "[" && last == "]")
{
string sectionstr=llToUpper(llStringTrim(llGetSubString(line,1,-2),STRING_TRIM));

if (sectionstr == STRING_ADDRESS_BOOK)
{
Section = SECTION_ADDRESS_BOOK;
}
else if (sectionstr == STRING_GROUP)
{
if (Section == 0)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1)
+ ". Group section defined before Address Book section.", NULL_KEY);
}
else
{
Section = SECTION_GROUP;
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid section header '" + sectionstr
+ "' in " + ADDRESSBOOK_NOTECARD + " at line " + (string)(Line + 1) + ".", NULL_KEY);
}

return;
}

// Must be in a section

if (Section == 0)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ". No section header.", NULL_KEY);
return;
}

list parse=llParseString2List(line, [ "=" ], []);
integer num=llGetListLength(parse);

// Format must be correct

if (num != 2)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line+1) + ":\n" + rawline, NULL_KEY);
return;
}

if (Section == SECTION_ADDRESS_BOOK)
{
string name=llStringTrim(llList2String(parse,0),STRING_TRIM);

if (llToUpper(name) == STRING_SELF)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address book entry '" + name
+ "'. Reserved word in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ".", NULL_KEY);
}
else if (llListFindList(AddressBookList, [ name ]) == -1)
{
string address=llStringTrim(llList2String(parse,1),STRING_TRIM);
string addressstr=GetAndCheckAddressStr(address);

if (addressstr != "")
{
AddressBookList = (AddressBookList=[]) + AddressBookList + [ name ];
MailAddressList = (MailAddressList=[]) + MailAddressList + [ addressstr ];
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "No valid mail address for '" + name
+ "'. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line " + (string)(Line + 1)
+ ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Name '" + name
+ "' already defined. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else // Group
{
string group=llStringTrim(llList2String(parse,0),STRING_TRIM);

if (llToUpper(group) == STRING_SELF)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address book entry '" + group
+ "'. Reserved word in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ".", NULL_KEY);
}
else if (llListFindList(AddressBookList, [ group ]) == -1)
{
if (llListFindList(GroupList, [ group ]) == -1)
{
string names=llStringTrim(llList2String(parse,1),STRING_TRIM);
list namelist=llCSV2List(names);
integer num=llGetListLength(namelist);
integer i;
integer index;
string name;
string namestr="";

for (i = 0; i < num; ++i)
{
name=llList2String(namelist,i);
index=llListFindList(AddressBookList, [ name ]);

if (index == -1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Name '" + name + "' defined in Group '"
+ group + "' not found in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
else
{
namestr = (namestr="") + namestr + name + ",";
}
}

if (namestr != "")
{
namestr=llGetSubString(namestr,0,-2);
GroupList = (GroupList=[]) + GroupList + [ group ];
GroupNameList = (GroupNameList=[]) + GroupNameList + [ namestr ];
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' has no valid names. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' already defined in Group. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' already defined in Address Book. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
}

//////////////////////////////// GetGroupAddressList ///////////////

string GetGroupAddressList(string group)
{
integer index=llListFindList(GroupList, [ group ]);
integer i;
integer num=llGetListLength(GroupList);
string grouplist="";

if (index == -1)
{
return "";
}
else
{
for (i = index; i < num; ++i)
{
if (llList2String(GroupList,i) == group)
{
grouplist = (grouplist="") + grouplist + llList2String(GroupNameList,i) + ",";
}
}

if (grouplist != "") grouplist=llGetSubString(grouplist,0,-2); // remove last ","
return grouplist;
}
}

//////////////////////////////// SetMailAddress() //////////////////

SetMailAddress(string address)
{
integer index=llListFindList(AddressBookList, [ address ]);

if (index == -1)
{
index=llListFindList(GroupList, [ address ]);

if (index == -1)
{
if (llToUpper(address) == STRING_SELF)
{
CurrentMailAddress = GetSelfAddress();
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
else if(ValidMailAddress(address))
{
CurrentMailAddress = address;
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Mail adress " + address
+ " : not found in adress book or invalid format.", NULL_KEY);
}
}
else
{
CurrentMailAddress = GetGroupAddressList(address);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject set to: "
+ CurrentMailAddress, NULL_KEY);
}
}
else
{
CurrentMailAddress = llList2String(MailAddressList,index);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
}

/////////////////////////////////// SendMail() ///////////////////////

SendMail(string message)
{
if (CurrentMailAddress == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "SendMail: No mail address defined.", NULL_KEY);
}
else if (CurrentMailSubject == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "SendMail: No subject defined.", NULL_KEY);
}
else
{
list mailaddresslist=llCSV2List(CurrentMailAddress);
integer num=llGetListLength(mailaddresslist);
integer i;
string address;

for (i = 0; i < num; ++i)
{
address=llList2String(mailaddresslist,i);
llEmail(address, CurrentMailSubject, message);
}
}
}

/////////////////////////////////// SendMailHome() ////////////////////

SendMailHome(string message, string subject)
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, STRING_HOME
+ " not set. Set your home adress with @HOME <address>.", NULL_KEY);
}
else
{
string homeaddress=llList2String(AddressBookList,index);
list homelist=llCSV2List(homeaddress);
integer num=llGetListLength(homelist);
integer i;
string address;

for (i = 0; i < num; ++i)
{
address=llList2String(homelist,i);
llEmail(address, subject, message);
}
}
}

/////////////////////////////////// GetHomeAddress() //////////////////

string GetHomeAddress()
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
return "not set";
}
else
{
return llList2String(MailAddressList,index);
}
}

/////////////////////////////////// SetHomeAddress() //////////////////

SetHomeAddress(string address)
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
AddressBookList = (AddressBookList=[]) + [ STRING_HOME ] + AddressBookList;
MailAddressList = (MailAddressList=[]) + [ GetAndCheckAddressStr(address) ] + MailAddressList;
}
else
{
MailAddressList = llListReplaceList(MailAddressList, [ GetAndCheckAddressStr(address) ], index, index);
}
}

////////////////////////////////////
// default
////////////////////////////////////

default
{
///////////////////// state_entry() //////////////////

state_entry()
{
Line=0;
Section=0;
llSetTimerEvent(TIMEOUT_INTERVAL);
reqAddressBook=llGetNotecardLine(ADDRESSBOOK_NOTECARD, 0);
}

///////////////////// dataserver() ////////////////////

dataserver(key id, string data)
{
if (id == reqAddressBook)
{
reqAddressBook = NULL_KEY;

if (data != EOF)
{
ProcessLine(data);
reqAddressBook=llGetNotecardLine(ADDRESSBOOK_NOTECARD, ++Line);
}
else
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_LOADED, "", NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Address Book loaded.", NULL_KEY);
state running;
}
}
}

//////////////////////// timer() ///////////////////////////

timer()
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_ERROR, "", NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Could not read Address Book: "
+ ADDRESSBOOK_NOTECARD + ".", NULL_KEY);
llSetTimerEvent(0.0);
}
}

////////////////////////////////////////////
// state running
////////////////////////////////////////////

state running
{
state_entry()
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_LOADED, "", NULL_KEY);
}

///////////////////////// link_message() ////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_MESSAGE_GETSUBJECT)
{
if (CurrentMailSubject == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject is empty.", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject is: "
+ CurrentMailSubject, NULL_KEY);
}
}
else if (msgid == MSG_MESSAGE_SETSUBJECT)
{
CurrentMailSubject = message;
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject set to: "
+ CurrentMailSubject, NULL_KEY);
}
else if (msgid == MSG_MESSAGE_GETADDRESS)
{
if (CurrentMailAddress == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address is empty.", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address is: "
+ CurrentMailAddress, NULL_KEY);
}
}
else if (msgid == MSG_MESSAGE_SETADDRESS)
{
SetMailAddress(message);
}
else if (msgid == MSG_MESSAGE_SEND)
{
if (message == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Body of message to send is empty. "
+ "No mail is send.", NULL_KEY);
}
else
{
SendMail(message);
}
}
else if (msgid == MSG_MESSAGE_SENDHOME)
{
SendMailHome(message, (string)id);
}
else if (msgid == MSG_MESSAGE_SEND_NOTECARD)
{
if (llGetInventoryType(message) == INVENTORY_NOTECARD)
{
Notecard2Fetch = message;
llMessageLinked(LINK_THIS, MSG_NOTECARD_READ, message, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Notecard " + message + " not found.", NULL_KEY);
}
}
else if (msgid == MSG_NOTECARD_FETCHED)
{
if (message == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Notecard " + Notecard2Fetch
+ " was empty or could not be read.", NULL_KEY);
}
else
{
SendMail(message);
}
}
else if (msgid == MSG_MESSAGE_GETHOME)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Home address is: " + GetHomeAddress() + ".", NULL_KEY);
}
else if (msgid == MSG_MESSAGE_SETHOME)
{
SetHomeAddress(message);
}
else if (msgid == MSG_MESSAGE_INFO)
{
Info();
}
}
}

/////////////////////////////////////
// End SL Mail AddressBook V1.2.lsl
/////////////////////////////////////
</pre>
</div>
</div>

<div id="box">

==Script: SL Mail FetchNotecard V1.2==
<div style="padding: 0.5em;">
Fetch the contents of a notecard and return it via link message as a string.
<pre>
// SL Mail FetchNotecard V1.2.lsl
//
//

// Notecard

integer Line=0;
string Notecard2Fetch="";
key reqNotecard=NULL_KEY;
float TIMEOUT_INTERVAL=10.0;
integer Fetched=FALSE;

// Lines

list LineList=[];

// Link messages

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////////////////////
// default
//////////////////////////////////////////

default
{
/////////////////////// dataserver() //////////////////////////////

dataserver(key id, string data)
{
if (id == reqNotecard)
{
reqNotecard=NULL_KEY;

if (data != EOF)
{
LineList = (LineList=[]) + LineList + [ data ];
reqNotecard = llGetNotecardLine(Notecard2Fetch, ++Line);
}
else
{
Fetched=TRUE;
llMessageLinked(LINK_THIS, MSG_NOTECARD_FETCHED, llDumpList2String(LineList, "\n"), NULL_KEY);
llSetTimerEvent(0.0);
}
}
}

/////////////////////// timer() ///////////////////////////////////

timer()
{
if (!Fetched)
{
llMessageLinked(LINK_THIS, MSG_NOTECARD_FETCHED, "", NULL_KEY);
llSetTimerEvent(0.0);
}
}

/////////////////////// link_message() ////////////////////////////

link_message(integer send, integer msgid, string message, key id)
{
if (msgid == MSG_NOTECARD_READ)
{
Line=0;
Notecard2Fetch=message;
LineList=[];
Fetched=FALSE;
reqNotecard=llGetNotecardLine(Notecard2Fetch, Line);
llSetTimerEvent(TIMEOUT_INTERVAL);
}
}
}

// End SL Mail FetchNotecard V1.2.lsl
</pre>
</div>
</div>

<div id="box">

==Script: SL OnlineStatus V1.2==
<div style="padding: 0.5em;">
Fetch online status of owner.
<pre>
// SL Mail OnlineStatus V1.2.lsl
//
//

// Online status

key reqOnlineStatus=NULL_KEY;
float STATUS_INTERVAL=2.0;

// Link messages

integer MSG_STATUS_ONLINE = 30000;
integer MS_STATUS_OFFLINE = 30100;

////////////////////////////////
// default
////////////////////////////////

default
{
///////////////////////// state_entry() /////////////////////////

state_entry()
{
reqOnlineStatus=llRequestAgentData(llGetOwner(), DATA_ONLINE);
llSetTimerEvent(STATUS_INTERVAL);
}

///////////////////////// dataserver() //////////////////////////

dataserver(key id, string data)
{
if (id == reqOnlineStatus)
{
reqOnlineStatus = NULL_KEY;

if (data=="1")
{
llMessageLinked(LINK_THIS, MSG_STATUS_ONLINE, "", NULL_KEY);
}
else if (data=="0")
{
llMessageLinked(LINK_THIS, MS_STATUS_OFFLINE, "", NULL_KEY);
}
}
}

///////////////////////// timer() ///////////////////////////////

timer()
{
reqOnlineStatus = llRequestAgentData(llGetOwner(), DATA_ONLINE);
}
}

// End SL Mail OnlineStatus V1.2.lsl
</pre>
</div>
</div>

<div id="box">

==Script: SL Mail Help V1.2==
<div style="padding: 0.5em;">
Display help information.

<pre>
// SL Mail Help V1.2.lsl
//
//

integer MSG_HELP = 10000;

///////////////////////////////// Help() ///////////////////////////////////////

Help()
{
llOwnerSay("HELP for SL Mail V1.2.");
llOwnerSay("COMMANDS:");
llOwnerSay("@HELP - displays help info.");
llOwnerSay("@INFO - display mailaddress of this object.");
llOwnerSay("@RECORD - start recording.");
llOwnerSay("@CONTINUE - continue recording.");
llOwnerSay("@STOP - stop recording.");
llOwnerSay("@IGNORE - ignore the recording.");
llOwnerSay("@SHOW - show what your recorded.");
llOwnerSay("@SEND - send the recording.");
llOwnerSay("@MAIL <mailadress> - set the mail adress.");
llOwnerSay("@SUBJECT subject - set the mail subject.");
llOwnerSay("@LIST - list messages in mail buffer.");
llOwnerSay("@SELECT <message> - select message from mail buffer.");
llOwnerSay("@READ - read current message from mail buffer.");
llOwnerSay("@NEXT - read next message from mail buffer.");
llOwnerSay("@PREV - read previous message from mail buffer.");
llOwnerSay("@FIRST - read first message from mail buffer.");
llOwnerSay("@LAST - read last message from mail buffer.");
llOwnerSay("@DELETE - delete current message from mail buffer.");
llOwnerSay("@CLEAR - clear the mail buffer.");
llOwnerSay("@REPLY - reply to current message.");
llOwnerSay("@RESET - reset the script.");
llOwnerSay("@HOME - set the home mail adress.");
llOwnerSay("@OFF - switch mailbox OFF.");
llOwnerSay("@ON - switch mailbox ON.");
}

/////////////////////////////////////////////
// default
/////////////////////////////////////////////

default
{
link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_HELP)
{
Help();
}
}
}

// End SL Mail Help V1.2.lsl
</pre>
</div>
</div>
[[Image:slmail.info.jpg]]

{{LSLC|Library}}

SL Mail V1.2

Flennan Roffo — Sun, 07 Oct 2007 11:17:29 GMT

Flennan Roffo: /* '''PRODUCTION & MAINTANENCE''' */

{{LSL Header}} __NOTOC__
<div id="box">
='''Second Life mail client'''=
<div style="padding: 0.5em">

'''Send and receive email from within Second Life from and to any address.'''

Implemented with Address Book function (in a notecard named 'Address Book') to stores addresses by name and to compile groups of named addresses. Current version is stand-alone (no server functionality) and uses chat commands only.

[[Image:BannerSLMail.jpg]]

</div>
</div>

<div id="box">
=Release Notes V1.2=
<div style="padding: 0.5em">
SL Mail V1.2 Release notes (edition 2, 4 sept 2007)
</div>
</div>

<div id="box">
=='''LICENCE INFO'''==
<div style="padding: 0.5em">
SL Mail V1.2 is released under GNU free software licence
</div>
</div>

<div id="box">
=='''PRODUCTION & MAINTANENCE'''==
<div style="padding: 0.5em">
by Logic Scripted Products and Script Services

[[Image:Logicbanner1.jpg]]

URL: [http://www.logicscripts.org logicscripts.org] (website coming soon!)

SLurl:
{{SLurl
|region=Peacock Park
|x=189
|y=226
|z=69
|title=Logic Scripted products and Script services
|}}

Contact: [[User:Flennan Roffo|Flennan Roffo]]

Email: [mailto:info@slmail.info '''info'''] or [mailto:Flennan.Roffo@slmail.info '''Flennan Roffo''']

</div>
</div>

<div id="box">

=='''DESCRIPTION'''==
<div style="padding: 0.5em">
SL Mail V1.2 is a simple tool to send and receive mail from within SL.
You can either compose a message yourself using chat recording, or choose a notecard from inventory to send. The Address Book functionality allows you to use short names for mail recipients stored in a notecard. The current version does not have a persisent mail address. Watch out for the upcoming next release (V1.3) which will facilitate persisent in-world mail addresses and will be enhanced with many new features (See: Requests For Change (RFC).
</div>
</div>

<div id="box">

=='''COMMANDS'''==
<div style="padding: 0.5em">
{| {{Prettytable}}
|-
|{{Hl2}}| '''Command'''
|{{Hl2}}| '''Description'''
|-
||'''@Help'''
||Show Help about available commands
|-
||'''@Record'''
||Starts a chat recording (for owner only).
|-
||'''@Stop'''
||Stops the chat recording without sending
|-
||'''@Continue'''
||Continues a previously stopped chat recording. Lines will be appended to you recording buffer.
|-
||'''@Show'''
||Shows the content of the recording buffer.
|-
||'''@Send'''
||If recording, stops the recording, and sends the mail (need to supply mail address and subject first!)
|-
||'''@Send <notecard>'''
||Sends the content of the notecard, instead of the chat recording.
|-
||'''@Ignore'''
||Ignores your current chat recording.
|-
||'''@Mail <address>'''
||Define the mail address to send to.
|-
||'''@Mail'''
||Shows the current mail address to send to.
|-
||'''@Subject <subject>'''
||Define the subject of the mail.
|-
||'''@Subject'''
||Shows the current mail subject.
|-
||'''@Home <address>'''
||Set the HOME address of the owner (mail will be forwarder to this address when offline).
|-
||'''@Home'''
||Show the HOME address.
|-
||'''@Info'''
||Shows the mail address the object this script is running in uses (e.g. <object-key>@lsl.secondlife.com).
|-
||'''@Read'''
||Reads the current message from the mail buffer (the mail buffer gets filled with mail you receive)
|-
||'''@Select <msg>'''
||Select a message number from the availabe messages in the mail buffer.
|-
||'''@Next'''
||Make next message the current message.
|-
||'''@Prev'''
||Make previous message the current message.
|-
||'''@First'''
||Make the first message the current message.
|-
||'''@Last'''
||Make the last message the current message.
|-
||'''@Clear'''
||Clear the mail buffer
|-
||'''@Delete'''
||Deletes only the current message
|-
||'''@Reply'''
||Starts a chat recording to reply to the current message. Mail adress and subject are filled in automatically.
|}

Note:

* Commands are case insensitive ("@read" == "@READ"). Arguments might not be case insensitive.
</div>
</div>

<div id="box">
=='''ADDRESS BOOK FORMAT'''==
<div style="padding: 0.5em">
A notecard of the name 'Address Book' is read during initialization which may contain Address Book items and Groups.
The notecard is split in two sections, which need to be defined in that particular order.

'''[ADDRESS BOOK]'''

Defines the section in which you can put names for mail addresses, like this:

'''Name1=account@thisdomain.com'''

'''Name2=user@otherdomain.com'''

etc.

'''[GROUP]'''

Define groups of previously defined names under a new name, like for instance:

'''MyGroup=Name1, Name2'''

Note that names of groups and individual mail adresses share the same namespace and must be unique.

So when you filled in your mail adresses in the Address Book, you can now use:

'''@Mail Name1'''

To send mail to <account@thisdomain.com>

or you can use

'''@Mail MyGroup'''

To send mail to <account@thisdomain.com> and <user@otherdomain.com>
Mails will be sent one after another.

Notes:

* Names for Addreses and Groups are case insensitive (e.g. "mary" == "MARY")

* The special address 'Self' can be used in commands where otherwise an address specification can be used. 'Self' is case insensitive (e.g. "self" == "SELF")

</div>
</div>

<div id="box">
=='''LIMITATIONS'''==
<div style="padding: 0.5em">
The current version is limited by the following:

* Chat recording lines are limited by the 255 byte limit

* Output of lines from the mail buffer are also limited by this 255 byte limit

* Incoming mail is limited to a 1000 (1024?) byte limit

* Outgoing mai is limited by a 4096 byte limit, which includes the standard mail header (region/location info on the first two lines)

We are making adjustments to this release to help overcome these limitations. At least the line lenght limit can be overcome by introducing a line continuation character (for example a hyphen '-') that when used at the end of a line appends the next line, so lines longer then 255 bytes are possible then.

To overcome the outgoing mail length limit, the mail can be broken textualy into parts, and each part can be send seperatedely, with an indication in the subject or in an introduced primary line of the mail body to indicate that the mail was split into parts.
For incoming mail and at least to receive mail from other SL Mail programs, a protocol will be introduced to receive mail in parts that are joined together after receiving them to form a single mail.

These enhancements will be made available in the next release (V1.3) of SL Mail
</div>
</div>

<div id="box">
=='''BUGS'''==
<div style="padding: 0.5em">
Report any bugs you find in this release to Logic (IM: Flennan Roffo).
</div>
</div>

<div id="box">
=='''REQUEST FOR CHANGE (RFC)'''==
<div style="padding: 0.5em">
Do you have additional wishes for enhancement of this product?
Contact Flennan Roffo and we will see if they can be implemented in the next release.

Existing RFC's are:

* Menu support for commands.

* Lines on incoming/outgoing mail longer than 255 bytes.

* Send messages longer than 4096 (minus SL mail header) bytes.

* Receive messages longer than 1024 bytes.

* Permanent mail addresses for the SL Mail client (like: <Flennan.Roffo@somedomain.sl>)

Add your RFC!
</div>
</div>

<div id="box">
=='''SL MAIL SUPPORT & DEVELOPMENT'''==
<div style="padding: 0.5em">

In-world join the group "SL Mail" for bug reports, feature requests, the latest SL Mail release, and notices about development issues.
</div>
</div>

<div id="box">

=Scripts=
</div>

<div id="box">
==Script: SL Mail v1.2==
<div style="padding: 0.5em;">
SL Mail core module which scans for incoming mail messages and executes commands used by the owner.
<pre>
// SL Mail V1.2.lsl
// (c) 2007 Logic Scripted Products and Script Services
// Flennan Roffo

// VERSION
// Version: 1.2

// HISTORY
// Date Version Author Comment
// --------------------------------------------------------------------------------------
// 28 aug 2007 V 1.0 Flennan Roffo Created
//
// 1 sep 2007 V 1.1 Flennan Roffo @Reply empties the recording buffer.
// @Send while recording ends recording
// and sends the mail if a mail address
// and subject are supplied.
// Fixed incorrect date in Unix2DateTime.
// 3 sep 2007 V 1.2 Flennan Roffo Notification options:
// - When online, send an IM when mail is received.
// - When offline, send to HOME mail adress.
// Adressbook
// - Read adress book from config notecard.

// LICENCE
// This program is free software; you can redistribute it and/or
// modify it under the terms of the GNU General Public License
// as published by the Free Software Foundation; either version 2
// of the License, or (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
// (Also available at http://www.gnu.org/copyleft/gpl.html)

// DESCRIPTION
// Let's you record a message and sent to email and get messages and reply to messages.
// Must supply a valid mail adress and non-empty subject using chat commands.

// TODO:
// 1) Check for the maximum length of an email message (including newline and header).
// 2) Read adress book from notecard. *DONE*
// 3) Send incoming mail to personal mail adress when offline. *DONE*
// 4) Alert with an IM when online upon receiving new mail. *DONE*

string SL_MAIL_VERSION = "V 1.2";
string SL_MAIL_DATE = " 2 sep 2007";
integer ErrorFlag = FALSE;
list ScriptList = [ "SL Mail Help V1.2", "SL Mail AddressBook V1.2",
"SL Mail OnlineStatus V1.2", "SL Mail FetchNotecard V1.2" ];
string LSL_DOMAIN="lsl.secondlife.com";
integer StatusOnline=FALSE;

// Commands

string COMMAND_RECORD = "@RECORD";
string COMMAND_CONTINUE = "@CONTINUE";
string COMMAND_STOP = "@STOP";
string COMMAND_MAIL = "@MAIL";
string COMMAND_SUBJECT = "@SUBJECT";
string COMMAND_SEND = "@SEND";
string COMMAND_SEE = "@SEE";
string COMMAND_IGNORE = "@IGNORE";
string COMMAND_READ = "@READ";
string COMMAND_DELETE = "@DELETE";
string COMMAND_CLEAR = "@CLEAR";
string COMMAND_REPLY = "@REPLY";
string COMMAND_NEXT = "@NEXT";
string COMMAND_PREV = "@PREV";
string COMMAND_FIRST = "@FIRST";
string COMMAND_LAST = "@LAST";
string COMMAND_LIST = "@LIST";
string COMMAND_SELECT = "@SELECT";
string COMMAND_HELP = "@HELP";
string COMMAND_INFO = "@INFO";
string COMMAND_RESET = "@RESET";
string COMMAND_SHOW = "@SHOW";
string COMMAND_ON = "@ON";
string COMMAND_OFF = "@OFF";
string COMMAND_HOME = "@HOME";
string COMMAND_LOAD = "@LOAD";
string COMMAND_ADDRESS = "@ADDRESS";

// Recording

integer Recording = FALSE;

list ChatRecording=[];
integer NumLines=0;
integer Length=0;

list TimeList=[];
list AddressList=[];
list SubjectList=[];
list BodyList=[];
integer NumMessages=0;
integer CurrentMessage=-1;

float MAIL_FETCH_INTERVAL=5.0;

// Link Messages

integer MSG_HELP = 10000;
integer MSG_STATUS_ONLINE = 30000;
integer MSG_STATUS_OFFLINE = 30100;

integer MSG_MESSAGE_SETADDRESS = 90000;
integer MSG_MESSAGE_GETADDRESS = 90050;
integer MSG_MESSAGE_SETSUBJECT = 90100;
integer MSG_MESSAGE_GETSUBJECT = 90150;
integer MSG_MESSAGE_SEND = 90200;
integer MSG_MESSAGE_SENDHOME = 90300;
integer MSG_MESSAGE_SEND_NOTECARD = 90400;
integer MSG_MESSAGE_ADDRESSBOOK = 90500;
integer MSG_MESSAGE_GETHOME = 90600;
integer MSG_MESSAGE_SETHOME = 90700;
integer MSG_MESSAGE_INFO = 90800;

integer MSG_ADDRESSBOOK_LOADED = 91000;
integer MSG_ADDRESSBOOK_ERROR = 91100;

integer MSG_MESSAGE_REPLY = 99000;

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////// Unix Time conversion //////////////////

integer DAYS_PER_YEAR = 365; // Non leap year
integer SECONDS_PER_YEAR = 31536000; // Non leap year
integer SECONDS_PER_DAY = 86400;
integer SECONDS_PER_HOUR = 3600;
integer SECONDS_PER_MINUTE = 60;

////////////////////////////// LeapYear() /////////////////////////////

integer LeapYear(integer year)
{
if (year % 4 == 0)
{
if (year % 100 == 0)
{
if (year % 400 == 0)
{
return 1;
}
else
{
return 0;
}
}
else
{
return 1;
}
}
else
{
return 0;
}
}

////////////////////////////// DaysPerMonth() ///////////////////////////////////////

integer DaysPerMonth(integer year,integer month)
{
if (month < 8)
{
if (month % 2 == 0)
{
if (month == 2)
{
if (LeapYear(year))
{
return 29;
}
else
{
return 28;
}
}
else
{
return 30;
}
}
else
{
return 31;
}
}
else
{
if (month % 2 == 0)
{
return 31;
}
else
{
return 30;
}
}
}

/////////////////////////// DaysPerYear() ////////////////////////////////////

integer DaysPerYear(integer year)
{
if (LeapYear(year))
return DAYS_PER_YEAR + 1;
else
return DAYS_PER_YEAR;
}

/////////////////////////////// Unix2DataTime() ///////////////////////////////////////

list Unix2DateTime(integer unixtime)
{
integer days_since_1_1_1970 = unixtime / SECONDS_PER_DAY;
integer day = days_since_1_1_1970 + 1;
integer year = 1970;
integer days_per_year = DaysPerYear(year);

while (day > days_per_year)
{
day -= days_per_year;
++year;
days_per_year = DaysPerYear(year);
}

integer month = 1;
integer days_per_month = DaysPerMonth(year,month);

while (day > days_per_month)
{
day -= days_per_month;

if (++month > 12)
{
++year;
month = 1;
}

days_per_month = DaysPerMonth(year,month);
}

integer seconds_since_midnight = unixtime % SECONDS_PER_DAY;
integer hour = seconds_since_midnight / SECONDS_PER_HOUR;
integer second = seconds_since_midnight % SECONDS_PER_HOUR;
integer minute = second / SECONDS_PER_MINUTE;
second = second % SECONDS_PER_MINUTE;

return [ year, month, day, hour, minute, second ];
}

///////////////////////////////// MonthName() ////////////////////////////

list MonthNameList = [ "JAN", "FEB", "MAR", "APR", "MAY", "JUN",
"JUL", "AUG", "SEP", "OCT" , "NOV", "DEC" ];

string MonthName(integer month)
{
if (month >= 0 && month < 12)
return llList2String(MonthNameList, month);
else
return "";
}

///////////////////////////////// DateString() ///////////////////////////

string DateString(list timelist)
{
integer year = llList2Integer(timelist,0);
integer month = llList2Integer(timelist,1);
integer day = llList2Integer(timelist,2);

return (string)day + "-" + MonthName(month - 1) + "-" + (string)year;
}

///////////////////////////////// TimeString() ////////////////////////////

string TimeString(list timelist)
{
integer hour = llList2Integer(timelist,3);
integer minute = llList2Integer(timelist,4);
integer second = llList2Integer(timelist,5);
string hourstr = (string)hour;
string minutestr = (string)minute;
string secondstr = (string)second;

if (hour < 10) hourstr = "0" + hourstr;
if (minute < 10) minutestr = "0" + minutestr;
if (second < 10) secondstr = "0" + secondstr;
return hourstr + ":" + minutestr + ":" + secondstr;
}

/////////////////////////////////// SendMail() /////////////////////////////////////

SendMail(string body)
{
// llOwnerSay("Sending message to '" + address + "' with subject '" + subject +"'.");
llMessageLinked(LINK_THIS, MSG_MESSAGE_SEND, body, NULL_KEY);
}

///////////////////////////////// SendHome() ///////////////////////////////////////

SendHome(string subject, string body)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SENDHOME, body, (key)subject);
}

///////////////////////////////// Show() ////////////////////////////////////////////

Show()
{
integer i;

llOwnerSay("Current chat recording is:");
llOwnerSay("--------------------------");

for (i = 0; i < NumLines; ++i)
{
llOwnerSay(llList2String(ChatRecording,i));
}

llOwnerSay("--------------------------");
llOwnerSay("Lines is " + (string)NumLines);
llOwnerSay("Message length is " + (string)Length);
}

/////////////////////////////// Read() /////////////////////////////////////////

Read()
{
llOwnerSay("Reading message " + (string)CurrentMessage + " from mail buffer.");
integer time = (integer)llList2Integer(TimeList,CurrentMessage);
list timelist=Unix2DateTime(time);
string Address = llList2String(AddressList,CurrentMessage);
string Subject = llList2String(SubjectList,CurrentMessage);
string Body = llList2String(BodyList,CurrentMessage);
llOwnerSay("Date : " + DateString(timelist));
llOwnerSay("Time : " + TimeString(timelist));
llOwnerSay("Address: " + Address);
llOwnerSay("Subject: " + Subject);
llOwnerSay("Begin of message body:");
llOwnerSay("-------------------------");
list bodylist=llParseStringKeepNulls(Body, [ "\n" ], []);
integer num=llGetListLength(bodylist);
integer i;

for (i = 0; i < num; ++i)
{
llOwnerSay(llList2String(bodylist,i));
}

llOwnerSay("-------------------------");
llOwnerSay("End of message body.");
}

////////////////////////////////////// List ////////////////////////////////////////////

List()
{
llOwnerSay("The mail buffer contains the following messages:\n");

integer i;

for (i = 0; i < NumMessages; ++i)
{
integer time=llList2Integer(TimeList,i);
list timelist=Unix2DateTime(time);
if (i > 0) llOwnerSay("+-+-+-+-+-+-+-+-+-+-+-+-");
llOwnerSay("Message: " + (string)i);
llOwnerSay("Date : " + DateString(timelist));
llOwnerSay("Time : " + TimeString(timelist));
llOwnerSay("From: " + llList2String(AddressList,i));
llOwnerSay("Subject: " + llList2String(SubjectList,i));
}
}

//////////////////////////// NotifyNewMail() /////////////////////////

NotifyNewMail(string time, string address, string subject, string body)
{
list timelist=Unix2DateTime((integer)time);

if (StatusOnline)
{
llInstantMessage(llGetOwner(), "You received a new mail message on "
+ DateString(timelist) + " at " + TimeString(timelist)
+ " from " + address
+ " with the subject " + subject);
}
else
{
SendHome("FW: " + subject, "Received at: " + DateString(timelist) + " " + TimeString(timelist) + "\nFrom: " + address
+ "\nBegin message body:\n-------------------\n" + body + "\n-------------------\nEnd message body.");
}
}

///////////////////////////// ResetOtherScripts() //////////////////////

ResetOtherScripts()
{
string name;
integer i;
integer num=llGetListLength(ScriptList);

for (i = 0; i < num; ++i)
{
name = llList2String(ScriptList,i);

if (llGetInventoryType(name) == INVENTORY_SCRIPT)
{
llResetOtherScript(name);
}
else
{
llOwnerSay("Error - script '" + name + "' not found.");
ErrorFlag = TRUE;
}
}
}

//////////////////////////////////////
// default
//////////////////////////////////////

default
{
////////////////////// state_entry() /////////////////////////

state_entry()
{
llOwnerSay("Welcome to SL Mail, released under GNU software licence.");
llOwnerSay("Version " + SL_MAIL_VERSION + " " + SL_MAIL_DATE);
llOwnerSay("Produced by Logic Scripted Products & Product Services");
llOwnerSay("Free memory: " + (string)llGetFreeMemory());
ResetOtherScripts();

if (ErrorFlag)
state Error;
}

/////////////////////// on_rez() //////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

/////////////////////// changed() ////////////////////////////

changed(integer mask)
{
if (mask & CHANGED_INVENTORY)
{
llResetScript();
}
}

/////////////////////// link_message() /////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
else if (msgid == MSG_ADDRESSBOOK_LOADED)
{
state running;
}
else if (msgid == MSG_ADDRESSBOOK_ERROR)
{
state Error;
}
}
}

///////////////////////////////////////
// state running
//////////////////////////////////////

state running
{
///////////////////////// state_entry() //////////////////////

state_entry()
{
llListen(0, "", llGetOwner(), "");
llOwnerSay("SL mail ready.\nSend and Get mail in Second Life.\nType @HELP for more info.");
llMessageLinked(LINK_THIS, MSG_MESSAGE_INFO, "", NULL_KEY);
llGetNextEmail("", "");
llSetTimerEvent(MAIL_FETCH_INTERVAL);
}

//////////////////////// on_rez() ////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

//////////////////////// listen() ////////////////////////////

listen(integer channel, string name, key id, string message)
{
string trimmessage=llStringTrim(message,STRING_TRIM);
list parse = llParseStringKeepNulls(trimmessage, [ " "], []);
string command = llToUpper(llList2String(parse,0));
string arg = llStringTrim(llList2String(parse,1),STRING_TRIM);
integer nargs = llGetListLength(parse);
string argstr="";

if (nargs > 1) argstr=llGetSubString(message, llSubStringIndex(message, " ") + 1, -1);

if (Recording)
{
if (command == COMMAND_STOP)
{
llOwnerSay("Recording stopped. Type @SHOW to see the message you have entered,"
+ " or @SEND to send it.");
Recording = FALSE;
return;
}
if (command == COMMAND_SEND)
{
Recording = FALSE;

SendMail(llDumpList2String(ChatRecording, "\n"));
return;
}
else
{
ChatRecording = (ChatRecording=[]) + ChatRecording + [ message ];
++NumLines;
Length += llStringLength(message) + 2;
return;
}
}
else
{
if (command == COMMAND_RECORD)
{
llOwnerSay("Start recording your message. Type @STOP to end recording.");
ChatRecording = [];
NumLines=0;
Length=0;
Recording = TRUE;
return;
}
if (command == COMMAND_CONTINUE)
{
llOwnerSay("Continue recording your message. Type @STOP to end recording.");
Recording = TRUE;
return;
}
if (command == COMMAND_REPLY)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
string address=llList2String(AddressList,CurrentMessage);
string subject="Re: " + llList2String(SubjectList,CurrentMessage);
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETADDRESS, address, NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETSUBJECT, subject, NULL_KEY);
ChatRecording = [];
NumLines=0;
Length=0;
Recording = TRUE;
}
return;
}
if (command == COMMAND_MAIL)
{
string mailaddress=llStringTrim(argstr,STRING_TRIM);

if (mailaddress != "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETADDRESS, mailaddress, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETADDRESS, "", NULL_KEY);
}
return;
}
if (command == COMMAND_SUBJECT)
{
string mailsubject=llStringTrim(argstr,STRING_TRIM);

if (mailsubject != "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETSUBJECT, mailsubject, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETSUBJECT, "", NULL_KEY);
}
return;
}
if (command == COMMAND_STOP)
{
llOwnerSay("Not recording.");
return;
}
if (command == COMMAND_SEND)
{
if (nargs == 1)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
SendMail(llDumpList2String(ChatRecording, "\n"));
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SEND_NOTECARD, argstr, NULL_KEY);
}
return;
}
if (command == COMMAND_IGNORE)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
ChatRecording = [];
NumLines = 0;
Length = 0;
}
return;
}
if (command == COMMAND_SHOW)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
Show();
}
return;
}
if (command == COMMAND_READ)
{
if (NumMessages == 0)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
Read();
}
return;
}
if (command == COMMAND_NEXT)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == NumMessages - 1)
{
llOwnerSay("Already at last message.");
}
else
{
++CurrentMessage;
Read();
}
}
return;
}
if (command == COMMAND_PREV)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == 0)
{
llOwnerSay("Already at first message.");
}
else
{
--CurrentMessage;
Read();
}
}
return;
}
if (command == COMMAND_FIRST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == 0)
{
llOwnerSay("Already at first message.");
}
else
{
CurrentMessage = 0;
Read();
}
}
return;
}
if (command == COMMAND_LAST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == NumMessages - 1)
{
llOwnerSay("Already at last message.");
}
else
{
CurrentMessage = NumMessages - 1;
Read();
}
}
return;
}
if (command == COMMAND_LIST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
List();
}
return;
}
if (command == COMMAND_SELECT)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else if (nargs == 1)
{
llOwnerSay("Need to supply a message number.");
}
else
{
integer msgnum = (integer)arg;

if (msgnum < 0 || msgnum >= NumMessages)
{
llOwnerSay("Message number " + arg + " not in mail buffer.");
}
else
{
CurrentMessage = msgnum;
}
}
return;
}
if (command == COMMAND_DELETE)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
TimeList = llDeleteSubList(TimeList,CurrentMessage,CurrentMessage);
AddressList = llDeleteSubList(AddressList,CurrentMessage,CurrentMessage);
SubjectList = llDeleteSubList(SubjectList,CurrentMessage,CurrentMessage);
BodyList = llDeleteSubList(BodyList,CurrentMessage,CurrentMessage);
--NumMessages;

if (NumMessages == 0)
{
CurrentMessage = -1;
}
else if (CurrentMessage >= NumMessages)
{
CurrentMessage = NumMessages - 1;
}
}
return;
}
if (command == COMMAND_CLEAR)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
TimeList=[];
AddressList=[];
SubjectList=[];
BodyList=[];
NumMessages=0;
CurrentMessage=-1;
}
return;
}
if (command == COMMAND_HELP)
{
llMessageLinked(LINK_THIS, MSG_HELP, arg, NULL_KEY);
return;
}
if (command == COMMAND_INFO)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_INFO, "", NULL_KEY);
return;
}
if (command == COMMAND_SHOW)
{
Show();
return;
}
if (command == COMMAND_RESET)
{
llResetScript();
return;
}
if (command == COMMAND_OFF)
{
state not_running;
}
if (command == COMMAND_HOME)
{
if (nargs==1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETHOME, "", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETHOME, argstr, NULL_KEY);
}
return;
}
}
}

///////////////////////// timer() ///////////////////////////////

timer()
{
llGetNextEmail("", "");
}

///////////////////////// email() ///////////////////////////////

email(string time, string address, string subject, string body, integer queued)
{
NotifyNewMail(time, address, subject, body);
TimeList = (TimeList=[]) + TimeList + [time];
AddressList = (AddressList=[]) + AddressList + [address];
SubjectList = (SubjectList=[]) + SubjectList + [subject];
BodyList = (BodyList=[]) + BodyList + [body];
++NumMessages;

if (CurrentMessage == -1)
{
CurrentMessage = 0;
}
else
{
CurrentMessage = NumMessages - 1;
}
}

///////////////////// link_message() //////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
else if (msgid == MSG_MESSAGE_REPLY)
{
llOwnerSay(message);
}
}
}

//////////////////////////////////
// state not_running
//////////////////////////////////

state not_running
{
///////////////////// state_entry() //////////////////////////

state_entry()
{
llOwnerSay("SL Mailbox switched OFF. Say @ON to switch it back on.");
llListen(0, "", llGetOwner(), "");
}

//////////////////// on_rez() ///////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

//////////////////// listen() ////////////////////////////////

listen(integer chan, string name, key id, string message)
{
string command=llToUpper(message);

if (command == COMMAND_ON)
{
state running;
}
}

///////////////////// link_message() //////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
}
}

//////////////////////////////////
// state Error
//////////////////////////////////

state Error
{
state_entry()
{
llOwnerSay("Error in SL Mail: not all component scripts found.");
}

changed(integer mask)
{
if (mask & CHANGED_INVENTORY)
{
llResetScript();
}
}

on_rez(integer start_param)
{
llResetScript();
}
}

//////////////////////////////////
// End SL Mail V1.2.lsl
//////////////////////////////////
</pre>
</div>
</div>

<div id="box">

==Script: SL Mail Address Book V1.2==
<div style="padding: 0.5em;">
Read and interpret the contents of the Address Book.
<pre>
// SL Mail AddressBook V1.2.lsl
//
// DESCRIPTION
//
// Read the Address Book from a notecard named "Address Book".
//
// The Address Book has the following format:
//
// [ADDRESS BOOK]
// Name1=username@yourdomain.com
// Name2=otheruser@otherdomain.com
// ...
// [GROUP]
// group1=Name1, Name2
// ...
//
// Notes:
// 1. Group and Name share the same namespace, and must be unique.
// 2. It is allowed to have a name in the addressbook with multiple addresses, seperated by comma's.
//
/////////////////////////////////////////////////

string CurrentMailAddress = "";
string CurrentMailSubject = "";
integer StatusOnline = FALSE;

// Fetch or Send notecard

string Notecard2Fetch="";

// Address Book Names

list AddressBookList=[];
list MailAddressList=[];

string STRING_HOME="HOME";
string STRING_SELF="SELF";

// Address Book Groups

list GroupList=[];
list GroupNameList=[];

string LSL_DOMAIN = "lsl.secondlife.com";

// Read Address Book notecard

string ADDRESSBOOK_NOTECARD="Address Book";
integer Line=0;
key reqAddressBook=NULL_KEY;
float TIMEOUT_INTERVAL=5.0;

integer Section=0;
integer SECTION_ADDRESS_BOOK=1;
integer SECTION_GROUP=2;
string STRING_ADDRESS_BOOK="ADDRESS BOOK";
string STRING_GROUP="GROUP";

// Links messages

integer MSG_MESSAGE_SETADDRESS = 90000;
integer MSG_MESSAGE_GETADDRESS = 90050;
integer MSG_MESSAGE_SETSUBJECT = 90100;
integer MSG_MESSAGE_GETSUBJECT = 90150;
integer MSG_MESSAGE_SEND = 90200;
integer MSG_MESSAGE_SENDHOME = 90300;
integer MSG_MESSAGE_SEND_NOTECARD = 90400;
integer MSG_MESSAGE_ADDRESSBOOK = 90500;
integer MSG_MESSAGE_GETHOME = 90600;
integer MSG_MESSAGE_SETHOME = 90700;
integer MSG_MESSAGE_INFO = 90800;
integer MSG_MESSAGE_NOTIFY = 90900;

integer MSG_ADDRESSBOOK_LOADED = 91000;
integer MSG_ADDRESSBOOK_ERROR = 91100;

integer MSG_MESSAGE_REPLY = 99000;

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////// GetSelfAddress() ///////////////////////

string GetSelfAddress()
{
return (string)llGetKey() + "@" + LSL_DOMAIN;
}

///////////////////////////// Info() /////////////////////////////////

Info()
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "The mail address for this object is: "
+ GetSelfAddress() + ".", NULL_KEY);
}

///////////////////////////////// IsValidKeyFormat() //////////////////////

integer IsValidKeyFormat(string str)
{
string keychars = "0123456789abcdef";

if (llStringLength(str) != 36)
return FALSE;

if( (llGetSubString( str, 8, 8 ) != "-" ||
llGetSubString( str, 13, 13 ) != "-" ||
llGetSubString( str, 18, 18 ) != "-" ||
llGetSubString( str, 23, 23 ) != "-" ) )
return FALSE;

integer i;

for (i = 0; i < 8; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 9; i < 13; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 14; i < 18; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 19; i < 23; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 24; i < 36; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

return TRUE;
}

///////////////////////////////// ValidMailAddress() ////////////////////////

integer ValidMailAddress(string arg)
{
string adress = llToLower(llStringTrim(arg,STRING_TRIM));

if (adress == "")
return FALSE;

list parse = llParseStringKeepNulls(adress, [ "@" ], []);
string account = llList2String(parse,0);
string domain = llList2String(parse,1);

if (llGetListLength(parse) != 2 || llStringLength(account) == 0 || llStringLength(domain) == 0)
return FALSE;

if (domain == LSL_DOMAIN)
{
return IsValidKeyFormat(account);
}
else
{
list parsedomain = llParseString2List(domain, [ "." ], []);

if (llGetListLength(parsedomain) < 2)
return FALSE;

integer num = llGetListLength(parsedomain);
integer i;

for (i = 0; i < num; ++i)
{
if (llStringLength(llList2String(parsedomain,i)) < 2)
{
return FALSE;
}
}
}

return TRUE;
}

/////////////////////////////////// GetAddressStr() ///////////////////

string GetAndCheckAddressStr(string address)
{
list addresslist = llCSV2List(address);
integer num=llGetListLength(addresslist);
integer i;
string addressstr="";
string curaddress="";

for (i = 0; i < num; ++i)
{
curaddress=llList2String(addresslist,i);

if (ValidMailAddress(curaddress))
{
addressstr = (addressstr="") + addressstr + curaddress + ",";
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address string: '"
+ curaddress + "'.", NULL_KEY);
}
}

return llGetSubString(addressstr, 0, -2);
}

///////////////////////////// ProcessLine() ////////////////////////////

ProcessLine(string rawline)
{
string line=llStringTrim(rawline,STRING_TRIM);
string first=llGetSubString(line,0,0);
string last=llGetSubString(line,-1,-1);

// Ignore a blank line or comment line
if (line == "" || first == "#")
return;

// Check for the right section

if (first == "[" && last == "]")
{
string sectionstr=llToUpper(llStringTrim(llGetSubString(line,1,-2),STRING_TRIM));

if (sectionstr == STRING_ADDRESS_BOOK)
{
Section = SECTION_ADDRESS_BOOK;
}
else if (sectionstr == STRING_GROUP)
{
if (Section == 0)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1)
+ ". Group section defined before Address Book section.", NULL_KEY);
}
else
{
Section = SECTION_GROUP;
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid section header '" + sectionstr
+ "' in " + ADDRESSBOOK_NOTECARD + " at line " + (string)(Line + 1) + ".", NULL_KEY);
}

return;
}

// Must be in a section

if (Section == 0)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ". No section header.", NULL_KEY);
return;
}

list parse=llParseString2List(line, [ "=" ], []);
integer num=llGetListLength(parse);

// Format must be correct

if (num != 2)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line+1) + ":\n" + rawline, NULL_KEY);
return;
}

if (Section == SECTION_ADDRESS_BOOK)
{
string name=llStringTrim(llList2String(parse,0),STRING_TRIM);

if (llToUpper(name) == STRING_SELF)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address book entry '" + name
+ "'. Reserved word in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ".", NULL_KEY);
}
else if (llListFindList(AddressBookList, [ name ]) == -1)
{
string address=llStringTrim(llList2String(parse,1),STRING_TRIM);
string addressstr=GetAndCheckAddressStr(address);

if (addressstr != "")
{
AddressBookList = (AddressBookList=[]) + AddressBookList + [ name ];
MailAddressList = (MailAddressList=[]) + MailAddressList + [ addressstr ];
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "No valid mail address for '" + name
+ "'. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line " + (string)(Line + 1)
+ ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Name '" + name
+ "' already defined. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else // Group
{
string group=llStringTrim(llList2String(parse,0),STRING_TRIM);

if (llToUpper(group) == STRING_SELF)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address book entry '" + group
+ "'. Reserved word in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ".", NULL_KEY);
}
else if (llListFindList(AddressBookList, [ group ]) == -1)
{
if (llListFindList(GroupList, [ group ]) == -1)
{
string names=llStringTrim(llList2String(parse,1),STRING_TRIM);
list namelist=llCSV2List(names);
integer num=llGetListLength(namelist);
integer i;
integer index;
string name;
string namestr="";

for (i = 0; i < num; ++i)
{
name=llList2String(namelist,i);
index=llListFindList(AddressBookList, [ name ]);

if (index == -1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Name '" + name + "' defined in Group '"
+ group + "' not found in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
else
{
namestr = (namestr="") + namestr + name + ",";
}
}

if (namestr != "")
{
namestr=llGetSubString(namestr,0,-2);
GroupList = (GroupList=[]) + GroupList + [ group ];
GroupNameList = (GroupNameList=[]) + GroupNameList + [ namestr ];
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' has no valid names. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' already defined in Group. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' already defined in Address Book. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
}

//////////////////////////////// GetGroupAddressList ///////////////

string GetGroupAddressList(string group)
{
integer index=llListFindList(GroupList, [ group ]);
integer i;
integer num=llGetListLength(GroupList);
string grouplist="";

if (index == -1)
{
return "";
}
else
{
for (i = index; i < num; ++i)
{
if (llList2String(GroupList,i) == group)
{
grouplist = (grouplist="") + grouplist + llList2String(GroupNameList,i) + ",";
}
}

if (grouplist != "") grouplist=llGetSubString(grouplist,0,-2); // remove last ","
return grouplist;
}
}

//////////////////////////////// SetMailAddress() //////////////////

SetMailAddress(string address)
{
integer index=llListFindList(AddressBookList, [ address ]);

if (index == -1)
{
index=llListFindList(GroupList, [ address ]);

if (index == -1)
{
if (llToUpper(address) == STRING_SELF)
{
CurrentMailAddress = GetSelfAddress();
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
else if(ValidMailAddress(address))
{
CurrentMailAddress = address;
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Mail adress " + address
+ " : not found in adress book or invalid format.", NULL_KEY);
}
}
else
{
CurrentMailAddress = GetGroupAddressList(address);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject set to: "
+ CurrentMailAddress, NULL_KEY);
}
}
else
{
CurrentMailAddress = llList2String(MailAddressList,index);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
}

/////////////////////////////////// SendMail() ///////////////////////

SendMail(string message)
{
if (CurrentMailAddress == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "SendMail: No mail address defined.", NULL_KEY);
}
else if (CurrentMailSubject == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "SendMail: No subject defined.", NULL_KEY);
}
else
{
list mailaddresslist=llCSV2List(CurrentMailAddress);
integer num=llGetListLength(mailaddresslist);
integer i;
string address;

for (i = 0; i < num; ++i)
{
address=llList2String(mailaddresslist,i);
llEmail(address, CurrentMailSubject, message);
}
}
}

/////////////////////////////////// SendMailHome() ////////////////////

SendMailHome(string message, string subject)
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, STRING_HOME
+ " not set. Set your home adress with @HOME <address>.", NULL_KEY);
}
else
{
string homeaddress=llList2String(AddressBookList,index);
list homelist=llCSV2List(homeaddress);
integer num=llGetListLength(homelist);
integer i;
string address;

for (i = 0; i < num; ++i)
{
address=llList2String(homelist,i);
llEmail(address, subject, message);
}
}
}

/////////////////////////////////// GetHomeAddress() //////////////////

string GetHomeAddress()
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
return "not set";
}
else
{
return llList2String(MailAddressList,index);
}
}

/////////////////////////////////// SetHomeAddress() //////////////////

SetHomeAddress(string address)
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
AddressBookList = (AddressBookList=[]) + [ STRING_HOME ] + AddressBookList;
MailAddressList = (MailAddressList=[]) + [ GetAndCheckAddressStr(address) ] + MailAddressList;
}
else
{
MailAddressList = llListReplaceList(MailAddressList, [ GetAndCheckAddressStr(address) ], index, index);
}
}

////////////////////////////////////
// default
////////////////////////////////////

default
{
///////////////////// state_entry() //////////////////

state_entry()
{
Line=0;
Section=0;
llSetTimerEvent(TIMEOUT_INTERVAL);
reqAddressBook=llGetNotecardLine(ADDRESSBOOK_NOTECARD, 0);
}

///////////////////// dataserver() ////////////////////

dataserver(key id, string data)
{
if (id == reqAddressBook)
{
reqAddressBook = NULL_KEY;

if (data != EOF)
{
ProcessLine(data);
reqAddressBook=llGetNotecardLine(ADDRESSBOOK_NOTECARD, ++Line);
}
else
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_LOADED, "", NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Address Book loaded.", NULL_KEY);
state running;
}
}
}

//////////////////////// timer() ///////////////////////////

timer()
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_ERROR, "", NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Could not read Address Book: "
+ ADDRESSBOOK_NOTECARD + ".", NULL_KEY);
llSetTimerEvent(0.0);
}
}

////////////////////////////////////////////
// state running
////////////////////////////////////////////

state running
{
state_entry()
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_LOADED, "", NULL_KEY);
}

///////////////////////// link_message() ////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_MESSAGE_GETSUBJECT)
{
if (CurrentMailSubject == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject is empty.", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject is: "
+ CurrentMailSubject, NULL_KEY);
}
}
else if (msgid == MSG_MESSAGE_SETSUBJECT)
{
CurrentMailSubject = message;
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject set to: "
+ CurrentMailSubject, NULL_KEY);
}
else if (msgid == MSG_MESSAGE_GETADDRESS)
{
if (CurrentMailAddress == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address is empty.", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address is: "
+ CurrentMailAddress, NULL_KEY);
}
}
else if (msgid == MSG_MESSAGE_SETADDRESS)
{
SetMailAddress(message);
}
else if (msgid == MSG_MESSAGE_SEND)
{
if (message == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Body of message to send is empty. "
+ "No mail is send.", NULL_KEY);
}
else
{
SendMail(message);
}
}
else if (msgid == MSG_MESSAGE_SENDHOME)
{
SendMailHome(message, (string)id);
}
else if (msgid == MSG_MESSAGE_SEND_NOTECARD)
{
if (llGetInventoryType(message) == INVENTORY_NOTECARD)
{
Notecard2Fetch = message;
llMessageLinked(LINK_THIS, MSG_NOTECARD_READ, message, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Notecard " + message + " not found.", NULL_KEY);
}
}
else if (msgid == MSG_NOTECARD_FETCHED)
{
if (message == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Notecard " + Notecard2Fetch
+ " was empty or could not be read.", NULL_KEY);
}
else
{
SendMail(message);
}
}
else if (msgid == MSG_MESSAGE_GETHOME)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Home address is: " + GetHomeAddress() + ".", NULL_KEY);
}
else if (msgid == MSG_MESSAGE_SETHOME)
{
SetHomeAddress(message);
}
else if (msgid == MSG_MESSAGE_INFO)
{
Info();
}
}
}

/////////////////////////////////////
// End SL Mail AddressBook V1.2.lsl
/////////////////////////////////////
</pre>
</div>
</div>

<div id="box">

==Script: SL Mail FetchNotecard V1.2==
<div style="padding: 0.5em;">
Fetch the contents of a notecard and return it via link message as a string.
<pre>
// SL Mail FetchNotecard V1.2.lsl
//
//

// Notecard

integer Line=0;
string Notecard2Fetch="";
key reqNotecard=NULL_KEY;
float TIMEOUT_INTERVAL=10.0;
integer Fetched=FALSE;

// Lines

list LineList=[];

// Link messages

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////////////////////
// default
//////////////////////////////////////////

default
{
/////////////////////// dataserver() //////////////////////////////

dataserver(key id, string data)
{
if (id == reqNotecard)
{
reqNotecard=NULL_KEY;

if (data != EOF)
{
LineList = (LineList=[]) + LineList + [ data ];
reqNotecard = llGetNotecardLine(Notecard2Fetch, ++Line);
}
else
{
Fetched=TRUE;
llMessageLinked(LINK_THIS, MSG_NOTECARD_FETCHED, llDumpList2String(LineList, "\n"), NULL_KEY);
llSetTimerEvent(0.0);
}
}
}

/////////////////////// timer() ///////////////////////////////////

timer()
{
if (!Fetched)
{
llMessageLinked(LINK_THIS, MSG_NOTECARD_FETCHED, "", NULL_KEY);
llSetTimerEvent(0.0);
}
}

/////////////////////// link_message() ////////////////////////////

link_message(integer send, integer msgid, string message, key id)
{
if (msgid == MSG_NOTECARD_READ)
{
Line=0;
Notecard2Fetch=message;
LineList=[];
Fetched=FALSE;
reqNotecard=llGetNotecardLine(Notecard2Fetch, Line);
llSetTimerEvent(TIMEOUT_INTERVAL);
}
}
}

// End SL Mail FetchNotecard V1.2.lsl
</pre>
</div>
</div>

<div id="box">

==Script: SL OnlineStatus V1.2==
<div style="padding: 0.5em;">
Fetch online status of owner.
<pre>
// SL Mail OnlineStatus V1.2.lsl
//
//

// Online status

key reqOnlineStatus=NULL_KEY;
float STATUS_INTERVAL=2.0;

// Link messages

integer MSG_STATUS_ONLINE = 30000;
integer MS_STATUS_OFFLINE = 30100;

////////////////////////////////
// default
////////////////////////////////

default
{
///////////////////////// state_entry() /////////////////////////

state_entry()
{
reqOnlineStatus=llRequestAgentData(llGetOwner(), DATA_ONLINE);
llSetTimerEvent(STATUS_INTERVAL);
}

///////////////////////// dataserver() //////////////////////////

dataserver(key id, string data)
{
if (id == reqOnlineStatus)
{
reqOnlineStatus = NULL_KEY;

if (data=="1")
{
llMessageLinked(LINK_THIS, MSG_STATUS_ONLINE, "", NULL_KEY);
}
else if (data=="0")
{
llMessageLinked(LINK_THIS, MS_STATUS_OFFLINE, "", NULL_KEY);
}
}
}

///////////////////////// timer() ///////////////////////////////

timer()
{
reqOnlineStatus = llRequestAgentData(llGetOwner(), DATA_ONLINE);
}
}

// End SL Mail OnlineStatus V1.2.lsl
</pre>
</div>
</div>

<div id="box">

==Script: SL Mail Help V1.2==
<div style="padding: 0.5em;">
Display help information.

<pre>
// SL Mail Help V1.2.lsl
//
//

integer MSG_HELP = 10000;

///////////////////////////////// Help() ///////////////////////////////////////

Help()
{
llOwnerSay("HELP for SL Mail V1.2.");
llOwnerSay("COMMANDS:");
llOwnerSay("@HELP - displays help info.");
llOwnerSay("@INFO - display mailaddress of this object.");
llOwnerSay("@RECORD - start recording.");
llOwnerSay("@CONTINUE - continue recording.");
llOwnerSay("@STOP - stop recording.");
llOwnerSay("@IGNORE - ignore the recording.");
llOwnerSay("@SHOW - show what your recorded.");
llOwnerSay("@SEND - send the recording.");
llOwnerSay("@MAIL <mailadress> - set the mail adress.");
llOwnerSay("@SUBJECT subject - set the mail subject.");
llOwnerSay("@LIST - list messages in mail buffer.");
llOwnerSay("@SELECT <message> - select message from mail buffer.");
llOwnerSay("@READ - read current message from mail buffer.");
llOwnerSay("@NEXT - read next message from mail buffer.");
llOwnerSay("@PREV - read previous message from mail buffer.");
llOwnerSay("@FIRST - read first message from mail buffer.");
llOwnerSay("@LAST - read last message from mail buffer.");
llOwnerSay("@DELETE - delete current message from mail buffer.");
llOwnerSay("@CLEAR - clear the mail buffer.");
llOwnerSay("@REPLY - reply to current message.");
llOwnerSay("@RESET - reset the script.");
llOwnerSay("@HOME - set the home mail adress.");
llOwnerSay("@OFF - switch mailbox OFF.");
llOwnerSay("@ON - switch mailbox ON.");
}

/////////////////////////////////////////////
// default
/////////////////////////////////////////////

default
{
link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_HELP)
{
Help();
}
}
}

// End SL Mail Help V1.2.lsl
</pre>
</div>
</div>
[[Image:slmail.info.jpg]]

{{LSLC|Library}}

SL Mail V1.2

Flennan Roffo — Sun, 07 Oct 2007 11:14:43 GMT

Flennan Roffo: /* '''PRODUCTION & MAINTANENCE''' */

{{LSL Header}} __NOTOC__
<div id="box">
='''Second Life mail client'''=
<div style="padding: 0.5em">

'''Send and receive email from within Second Life from and to any address.'''

Implemented with Address Book function (in a notecard named 'Address Book') to stores addresses by name and to compile groups of named addresses. Current version is stand-alone (no server functionality) and uses chat commands only.

[[Image:BannerSLMail.jpg]]

</div>
</div>

<div id="box">
=Release Notes V1.2=
<div style="padding: 0.5em">
SL Mail V1.2 Release notes (edition 2, 4 sept 2007)
</div>
</div>

<div id="box">
=='''LICENCE INFO'''==
<div style="padding: 0.5em">
SL Mail V1.2 is released under GNU free software licence
</div>
</div>

<div id="box">
=='''PRODUCTION & MAINTANENCE'''==
<div style="padding: 0.5em">
by Logic Scripted Products and Script Services

[[Image:Logicbanner1.jpg]]

URL:[http://www.logicscripts.org logicscripts.org] (website coming soon!)

SLurl:
{{SLurl
|region=Peacock Park
|x=189
|y=226
|z=69
|title=Logic Scripted products and Script services
|}}

Contact: [[User:Flennan Roffo|Flennan Roffo]]

Email: [mailto:info@slmail.info '''info'''] or [mailto:Flennan.Roffo@slmail.info '''Flennan Roffo''']

</div>
</div>

<div id="box">

=='''DESCRIPTION'''==
<div style="padding: 0.5em">
SL Mail V1.2 is a simple tool to send and receive mail from within SL.
You can either compose a message yourself using chat recording, or choose a notecard from inventory to send. The Address Book functionality allows you to use short names for mail recipients stored in a notecard. The current version does not have a persisent mail address. Watch out for the upcoming next release (V1.3) which will facilitate persisent in-world mail addresses and will be enhanced with many new features (See: Requests For Change (RFC).
</div>
</div>

<div id="box">

=='''COMMANDS'''==
<div style="padding: 0.5em">
{| {{Prettytable}}
|-
|{{Hl2}}| '''Command'''
|{{Hl2}}| '''Description'''
|-
||'''@Help'''
||Show Help about available commands
|-
||'''@Record'''
||Starts a chat recording (for owner only).
|-
||'''@Stop'''
||Stops the chat recording without sending
|-
||'''@Continue'''
||Continues a previously stopped chat recording. Lines will be appended to you recording buffer.
|-
||'''@Show'''
||Shows the content of the recording buffer.
|-
||'''@Send'''
||If recording, stops the recording, and sends the mail (need to supply mail address and subject first!)
|-
||'''@Send <notecard>'''
||Sends the content of the notecard, instead of the chat recording.
|-
||'''@Ignore'''
||Ignores your current chat recording.
|-
||'''@Mail <address>'''
||Define the mail address to send to.
|-
||'''@Mail'''
||Shows the current mail address to send to.
|-
||'''@Subject <subject>'''
||Define the subject of the mail.
|-
||'''@Subject'''
||Shows the current mail subject.
|-
||'''@Home <address>'''
||Set the HOME address of the owner (mail will be forwarder to this address when offline).
|-
||'''@Home'''
||Show the HOME address.
|-
||'''@Info'''
||Shows the mail address the object this script is running in uses (e.g. <object-key>@lsl.secondlife.com).
|-
||'''@Read'''
||Reads the current message from the mail buffer (the mail buffer gets filled with mail you receive)
|-
||'''@Select <msg>'''
||Select a message number from the availabe messages in the mail buffer.
|-
||'''@Next'''
||Make next message the current message.
|-
||'''@Prev'''
||Make previous message the current message.
|-
||'''@First'''
||Make the first message the current message.
|-
||'''@Last'''
||Make the last message the current message.
|-
||'''@Clear'''
||Clear the mail buffer
|-
||'''@Delete'''
||Deletes only the current message
|-
||'''@Reply'''
||Starts a chat recording to reply to the current message. Mail adress and subject are filled in automatically.
|}

Note:

* Commands are case insensitive ("@read" == "@READ"). Arguments might not be case insensitive.
</div>
</div>

<div id="box">
=='''ADDRESS BOOK FORMAT'''==
<div style="padding: 0.5em">
A notecard of the name 'Address Book' is read during initialization which may contain Address Book items and Groups.
The notecard is split in two sections, which need to be defined in that particular order.

'''[ADDRESS BOOK]'''

Defines the section in which you can put names for mail addresses, like this:

'''Name1=account@thisdomain.com'''

'''Name2=user@otherdomain.com'''

etc.

'''[GROUP]'''

Define groups of previously defined names under a new name, like for instance:

'''MyGroup=Name1, Name2'''

Note that names of groups and individual mail adresses share the same namespace and must be unique.

So when you filled in your mail adresses in the Address Book, you can now use:

'''@Mail Name1'''

To send mail to <account@thisdomain.com>

or you can use

'''@Mail MyGroup'''

To send mail to <account@thisdomain.com> and <user@otherdomain.com>
Mails will be sent one after another.

Notes:

* Names for Addreses and Groups are case insensitive (e.g. "mary" == "MARY")

* The special address 'Self' can be used in commands where otherwise an address specification can be used. 'Self' is case insensitive (e.g. "self" == "SELF")

</div>
</div>

<div id="box">
=='''LIMITATIONS'''==
<div style="padding: 0.5em">
The current version is limited by the following:

* Chat recording lines are limited by the 255 byte limit

* Output of lines from the mail buffer are also limited by this 255 byte limit

* Incoming mail is limited to a 1000 (1024?) byte limit

* Outgoing mai is limited by a 4096 byte limit, which includes the standard mail header (region/location info on the first two lines)

We are making adjustments to this release to help overcome these limitations. At least the line lenght limit can be overcome by introducing a line continuation character (for example a hyphen '-') that when used at the end of a line appends the next line, so lines longer then 255 bytes are possible then.

To overcome the outgoing mail length limit, the mail can be broken textualy into parts, and each part can be send seperatedely, with an indication in the subject or in an introduced primary line of the mail body to indicate that the mail was split into parts.
For incoming mail and at least to receive mail from other SL Mail programs, a protocol will be introduced to receive mail in parts that are joined together after receiving them to form a single mail.

These enhancements will be made available in the next release (V1.3) of SL Mail
</div>
</div>

<div id="box">
=='''BUGS'''==
<div style="padding: 0.5em">
Report any bugs you find in this release to Logic (IM: Flennan Roffo).
</div>
</div>

<div id="box">
=='''REQUEST FOR CHANGE (RFC)'''==
<div style="padding: 0.5em">
Do you have additional wishes for enhancement of this product?
Contact Flennan Roffo and we will see if they can be implemented in the next release.

Existing RFC's are:

* Menu support for commands.

* Lines on incoming/outgoing mail longer than 255 bytes.

* Send messages longer than 4096 (minus SL mail header) bytes.

* Receive messages longer than 1024 bytes.

* Permanent mail addresses for the SL Mail client (like: <Flennan.Roffo@somedomain.sl>)

Add your RFC!
</div>
</div>

<div id="box">
=='''SL MAIL SUPPORT & DEVELOPMENT'''==
<div style="padding: 0.5em">

In-world join the group "SL Mail" for bug reports, feature requests, the latest SL Mail release, and notices about development issues.
</div>
</div>

<div id="box">

=Scripts=
</div>

<div id="box">
==Script: SL Mail v1.2==
<div style="padding: 0.5em;">
SL Mail core module which scans for incoming mail messages and executes commands used by the owner.
<pre>
// SL Mail V1.2.lsl
// (c) 2007 Logic Scripted Products and Script Services
// Flennan Roffo

// VERSION
// Version: 1.2

// HISTORY
// Date Version Author Comment
// --------------------------------------------------------------------------------------
// 28 aug 2007 V 1.0 Flennan Roffo Created
//
// 1 sep 2007 V 1.1 Flennan Roffo @Reply empties the recording buffer.
// @Send while recording ends recording
// and sends the mail if a mail address
// and subject are supplied.
// Fixed incorrect date in Unix2DateTime.
// 3 sep 2007 V 1.2 Flennan Roffo Notification options:
// - When online, send an IM when mail is received.
// - When offline, send to HOME mail adress.
// Adressbook
// - Read adress book from config notecard.

// LICENCE
// This program is free software; you can redistribute it and/or
// modify it under the terms of the GNU General Public License
// as published by the Free Software Foundation; either version 2
// of the License, or (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
// (Also available at http://www.gnu.org/copyleft/gpl.html)

// DESCRIPTION
// Let's you record a message and sent to email and get messages and reply to messages.
// Must supply a valid mail adress and non-empty subject using chat commands.

// TODO:
// 1) Check for the maximum length of an email message (including newline and header).
// 2) Read adress book from notecard. *DONE*
// 3) Send incoming mail to personal mail adress when offline. *DONE*
// 4) Alert with an IM when online upon receiving new mail. *DONE*

string SL_MAIL_VERSION = "V 1.2";
string SL_MAIL_DATE = " 2 sep 2007";
integer ErrorFlag = FALSE;
list ScriptList = [ "SL Mail Help V1.2", "SL Mail AddressBook V1.2",
"SL Mail OnlineStatus V1.2", "SL Mail FetchNotecard V1.2" ];
string LSL_DOMAIN="lsl.secondlife.com";
integer StatusOnline=FALSE;

// Commands

string COMMAND_RECORD = "@RECORD";
string COMMAND_CONTINUE = "@CONTINUE";
string COMMAND_STOP = "@STOP";
string COMMAND_MAIL = "@MAIL";
string COMMAND_SUBJECT = "@SUBJECT";
string COMMAND_SEND = "@SEND";
string COMMAND_SEE = "@SEE";
string COMMAND_IGNORE = "@IGNORE";
string COMMAND_READ = "@READ";
string COMMAND_DELETE = "@DELETE";
string COMMAND_CLEAR = "@CLEAR";
string COMMAND_REPLY = "@REPLY";
string COMMAND_NEXT = "@NEXT";
string COMMAND_PREV = "@PREV";
string COMMAND_FIRST = "@FIRST";
string COMMAND_LAST = "@LAST";
string COMMAND_LIST = "@LIST";
string COMMAND_SELECT = "@SELECT";
string COMMAND_HELP = "@HELP";
string COMMAND_INFO = "@INFO";
string COMMAND_RESET = "@RESET";
string COMMAND_SHOW = "@SHOW";
string COMMAND_ON = "@ON";
string COMMAND_OFF = "@OFF";
string COMMAND_HOME = "@HOME";
string COMMAND_LOAD = "@LOAD";
string COMMAND_ADDRESS = "@ADDRESS";

// Recording

integer Recording = FALSE;

list ChatRecording=[];
integer NumLines=0;
integer Length=0;

list TimeList=[];
list AddressList=[];
list SubjectList=[];
list BodyList=[];
integer NumMessages=0;
integer CurrentMessage=-1;

float MAIL_FETCH_INTERVAL=5.0;

// Link Messages

integer MSG_HELP = 10000;
integer MSG_STATUS_ONLINE = 30000;
integer MSG_STATUS_OFFLINE = 30100;

integer MSG_MESSAGE_SETADDRESS = 90000;
integer MSG_MESSAGE_GETADDRESS = 90050;
integer MSG_MESSAGE_SETSUBJECT = 90100;
integer MSG_MESSAGE_GETSUBJECT = 90150;
integer MSG_MESSAGE_SEND = 90200;
integer MSG_MESSAGE_SENDHOME = 90300;
integer MSG_MESSAGE_SEND_NOTECARD = 90400;
integer MSG_MESSAGE_ADDRESSBOOK = 90500;
integer MSG_MESSAGE_GETHOME = 90600;
integer MSG_MESSAGE_SETHOME = 90700;
integer MSG_MESSAGE_INFO = 90800;

integer MSG_ADDRESSBOOK_LOADED = 91000;
integer MSG_ADDRESSBOOK_ERROR = 91100;

integer MSG_MESSAGE_REPLY = 99000;

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////// Unix Time conversion //////////////////

integer DAYS_PER_YEAR = 365; // Non leap year
integer SECONDS_PER_YEAR = 31536000; // Non leap year
integer SECONDS_PER_DAY = 86400;
integer SECONDS_PER_HOUR = 3600;
integer SECONDS_PER_MINUTE = 60;

////////////////////////////// LeapYear() /////////////////////////////

integer LeapYear(integer year)
{
if (year % 4 == 0)
{
if (year % 100 == 0)
{
if (year % 400 == 0)
{
return 1;
}
else
{
return 0;
}
}
else
{
return 1;
}
}
else
{
return 0;
}
}

////////////////////////////// DaysPerMonth() ///////////////////////////////////////

integer DaysPerMonth(integer year,integer month)
{
if (month < 8)
{
if (month % 2 == 0)
{
if (month == 2)
{
if (LeapYear(year))
{
return 29;
}
else
{
return 28;
}
}
else
{
return 30;
}
}
else
{
return 31;
}
}
else
{
if (month % 2 == 0)
{
return 31;
}
else
{
return 30;
}
}
}

/////////////////////////// DaysPerYear() ////////////////////////////////////

integer DaysPerYear(integer year)
{
if (LeapYear(year))
return DAYS_PER_YEAR + 1;
else
return DAYS_PER_YEAR;
}

/////////////////////////////// Unix2DataTime() ///////////////////////////////////////

list Unix2DateTime(integer unixtime)
{
integer days_since_1_1_1970 = unixtime / SECONDS_PER_DAY;
integer day = days_since_1_1_1970 + 1;
integer year = 1970;
integer days_per_year = DaysPerYear(year);

while (day > days_per_year)
{
day -= days_per_year;
++year;
days_per_year = DaysPerYear(year);
}

integer month = 1;
integer days_per_month = DaysPerMonth(year,month);

while (day > days_per_month)
{
day -= days_per_month;

if (++month > 12)
{
++year;
month = 1;
}

days_per_month = DaysPerMonth(year,month);
}

integer seconds_since_midnight = unixtime % SECONDS_PER_DAY;
integer hour = seconds_since_midnight / SECONDS_PER_HOUR;
integer second = seconds_since_midnight % SECONDS_PER_HOUR;
integer minute = second / SECONDS_PER_MINUTE;
second = second % SECONDS_PER_MINUTE;

return [ year, month, day, hour, minute, second ];
}

///////////////////////////////// MonthName() ////////////////////////////

list MonthNameList = [ "JAN", "FEB", "MAR", "APR", "MAY", "JUN",
"JUL", "AUG", "SEP", "OCT" , "NOV", "DEC" ];

string MonthName(integer month)
{
if (month >= 0 && month < 12)
return llList2String(MonthNameList, month);
else
return "";
}

///////////////////////////////// DateString() ///////////////////////////

string DateString(list timelist)
{
integer year = llList2Integer(timelist,0);
integer month = llList2Integer(timelist,1);
integer day = llList2Integer(timelist,2);

return (string)day + "-" + MonthName(month - 1) + "-" + (string)year;
}

///////////////////////////////// TimeString() ////////////////////////////

string TimeString(list timelist)
{
integer hour = llList2Integer(timelist,3);
integer minute = llList2Integer(timelist,4);
integer second = llList2Integer(timelist,5);
string hourstr = (string)hour;
string minutestr = (string)minute;
string secondstr = (string)second;

if (hour < 10) hourstr = "0" + hourstr;
if (minute < 10) minutestr = "0" + minutestr;
if (second < 10) secondstr = "0" + secondstr;
return hourstr + ":" + minutestr + ":" + secondstr;
}

/////////////////////////////////// SendMail() /////////////////////////////////////

SendMail(string body)
{
// llOwnerSay("Sending message to '" + address + "' with subject '" + subject +"'.");
llMessageLinked(LINK_THIS, MSG_MESSAGE_SEND, body, NULL_KEY);
}

///////////////////////////////// SendHome() ///////////////////////////////////////

SendHome(string subject, string body)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SENDHOME, body, (key)subject);
}

///////////////////////////////// Show() ////////////////////////////////////////////

Show()
{
integer i;

llOwnerSay("Current chat recording is:");
llOwnerSay("--------------------------");

for (i = 0; i < NumLines; ++i)
{
llOwnerSay(llList2String(ChatRecording,i));
}

llOwnerSay("--------------------------");
llOwnerSay("Lines is " + (string)NumLines);
llOwnerSay("Message length is " + (string)Length);
}

/////////////////////////////// Read() /////////////////////////////////////////

Read()
{
llOwnerSay("Reading message " + (string)CurrentMessage + " from mail buffer.");
integer time = (integer)llList2Integer(TimeList,CurrentMessage);
list timelist=Unix2DateTime(time);
string Address = llList2String(AddressList,CurrentMessage);
string Subject = llList2String(SubjectList,CurrentMessage);
string Body = llList2String(BodyList,CurrentMessage);
llOwnerSay("Date : " + DateString(timelist));
llOwnerSay("Time : " + TimeString(timelist));
llOwnerSay("Address: " + Address);
llOwnerSay("Subject: " + Subject);
llOwnerSay("Begin of message body:");
llOwnerSay("-------------------------");
list bodylist=llParseStringKeepNulls(Body, [ "\n" ], []);
integer num=llGetListLength(bodylist);
integer i;

for (i = 0; i < num; ++i)
{
llOwnerSay(llList2String(bodylist,i));
}

llOwnerSay("-------------------------");
llOwnerSay("End of message body.");
}

////////////////////////////////////// List ////////////////////////////////////////////

List()
{
llOwnerSay("The mail buffer contains the following messages:\n");

integer i;

for (i = 0; i < NumMessages; ++i)
{
integer time=llList2Integer(TimeList,i);
list timelist=Unix2DateTime(time);
if (i > 0) llOwnerSay("+-+-+-+-+-+-+-+-+-+-+-+-");
llOwnerSay("Message: " + (string)i);
llOwnerSay("Date : " + DateString(timelist));
llOwnerSay("Time : " + TimeString(timelist));
llOwnerSay("From: " + llList2String(AddressList,i));
llOwnerSay("Subject: " + llList2String(SubjectList,i));
}
}

//////////////////////////// NotifyNewMail() /////////////////////////

NotifyNewMail(string time, string address, string subject, string body)
{
list timelist=Unix2DateTime((integer)time);

if (StatusOnline)
{
llInstantMessage(llGetOwner(), "You received a new mail message on "
+ DateString(timelist) + " at " + TimeString(timelist)
+ " from " + address
+ " with the subject " + subject);
}
else
{
SendHome("FW: " + subject, "Received at: " + DateString(timelist) + " " + TimeString(timelist) + "\nFrom: " + address
+ "\nBegin message body:\n-------------------\n" + body + "\n-------------------\nEnd message body.");
}
}

///////////////////////////// ResetOtherScripts() //////////////////////

ResetOtherScripts()
{
string name;
integer i;
integer num=llGetListLength(ScriptList);

for (i = 0; i < num; ++i)
{
name = llList2String(ScriptList,i);

if (llGetInventoryType(name) == INVENTORY_SCRIPT)
{
llResetOtherScript(name);
}
else
{
llOwnerSay("Error - script '" + name + "' not found.");
ErrorFlag = TRUE;
}
}
}

//////////////////////////////////////
// default
//////////////////////////////////////

default
{
////////////////////// state_entry() /////////////////////////

state_entry()
{
llOwnerSay("Welcome to SL Mail, released under GNU software licence.");
llOwnerSay("Version " + SL_MAIL_VERSION + " " + SL_MAIL_DATE);
llOwnerSay("Produced by Logic Scripted Products & Product Services");
llOwnerSay("Free memory: " + (string)llGetFreeMemory());
ResetOtherScripts();

if (ErrorFlag)
state Error;
}

/////////////////////// on_rez() //////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

/////////////////////// changed() ////////////////////////////

changed(integer mask)
{
if (mask & CHANGED_INVENTORY)
{
llResetScript();
}
}

/////////////////////// link_message() /////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
else if (msgid == MSG_ADDRESSBOOK_LOADED)
{
state running;
}
else if (msgid == MSG_ADDRESSBOOK_ERROR)
{
state Error;
}
}
}

///////////////////////////////////////
// state running
//////////////////////////////////////

state running
{
///////////////////////// state_entry() //////////////////////

state_entry()
{
llListen(0, "", llGetOwner(), "");
llOwnerSay("SL mail ready.\nSend and Get mail in Second Life.\nType @HELP for more info.");
llMessageLinked(LINK_THIS, MSG_MESSAGE_INFO, "", NULL_KEY);
llGetNextEmail("", "");
llSetTimerEvent(MAIL_FETCH_INTERVAL);
}

//////////////////////// on_rez() ////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

//////////////////////// listen() ////////////////////////////

listen(integer channel, string name, key id, string message)
{
string trimmessage=llStringTrim(message,STRING_TRIM);
list parse = llParseStringKeepNulls(trimmessage, [ " "], []);
string command = llToUpper(llList2String(parse,0));
string arg = llStringTrim(llList2String(parse,1),STRING_TRIM);
integer nargs = llGetListLength(parse);
string argstr="";

if (nargs > 1) argstr=llGetSubString(message, llSubStringIndex(message, " ") + 1, -1);

if (Recording)
{
if (command == COMMAND_STOP)
{
llOwnerSay("Recording stopped. Type @SHOW to see the message you have entered,"
+ " or @SEND to send it.");
Recording = FALSE;
return;
}
if (command == COMMAND_SEND)
{
Recording = FALSE;

SendMail(llDumpList2String(ChatRecording, "\n"));
return;
}
else
{
ChatRecording = (ChatRecording=[]) + ChatRecording + [ message ];
++NumLines;
Length += llStringLength(message) + 2;
return;
}
}
else
{
if (command == COMMAND_RECORD)
{
llOwnerSay("Start recording your message. Type @STOP to end recording.");
ChatRecording = [];
NumLines=0;
Length=0;
Recording = TRUE;
return;
}
if (command == COMMAND_CONTINUE)
{
llOwnerSay("Continue recording your message. Type @STOP to end recording.");
Recording = TRUE;
return;
}
if (command == COMMAND_REPLY)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
string address=llList2String(AddressList,CurrentMessage);
string subject="Re: " + llList2String(SubjectList,CurrentMessage);
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETADDRESS, address, NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETSUBJECT, subject, NULL_KEY);
ChatRecording = [];
NumLines=0;
Length=0;
Recording = TRUE;
}
return;
}
if (command == COMMAND_MAIL)
{
string mailaddress=llStringTrim(argstr,STRING_TRIM);

if (mailaddress != "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETADDRESS, mailaddress, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETADDRESS, "", NULL_KEY);
}
return;
}
if (command == COMMAND_SUBJECT)
{
string mailsubject=llStringTrim(argstr,STRING_TRIM);

if (mailsubject != "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETSUBJECT, mailsubject, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETSUBJECT, "", NULL_KEY);
}
return;
}
if (command == COMMAND_STOP)
{
llOwnerSay("Not recording.");
return;
}
if (command == COMMAND_SEND)
{
if (nargs == 1)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
SendMail(llDumpList2String(ChatRecording, "\n"));
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SEND_NOTECARD, argstr, NULL_KEY);
}
return;
}
if (command == COMMAND_IGNORE)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
ChatRecording = [];
NumLines = 0;
Length = 0;
}
return;
}
if (command == COMMAND_SHOW)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
Show();
}
return;
}
if (command == COMMAND_READ)
{
if (NumMessages == 0)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
Read();
}
return;
}
if (command == COMMAND_NEXT)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == NumMessages - 1)
{
llOwnerSay("Already at last message.");
}
else
{
++CurrentMessage;
Read();
}
}
return;
}
if (command == COMMAND_PREV)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == 0)
{
llOwnerSay("Already at first message.");
}
else
{
--CurrentMessage;
Read();
}
}
return;
}
if (command == COMMAND_FIRST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == 0)
{
llOwnerSay("Already at first message.");
}
else
{
CurrentMessage = 0;
Read();
}
}
return;
}
if (command == COMMAND_LAST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == NumMessages - 1)
{
llOwnerSay("Already at last message.");
}
else
{
CurrentMessage = NumMessages - 1;
Read();
}
}
return;
}
if (command == COMMAND_LIST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
List();
}
return;
}
if (command == COMMAND_SELECT)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else if (nargs == 1)
{
llOwnerSay("Need to supply a message number.");
}
else
{
integer msgnum = (integer)arg;

if (msgnum < 0 || msgnum >= NumMessages)
{
llOwnerSay("Message number " + arg + " not in mail buffer.");
}
else
{
CurrentMessage = msgnum;
}
}
return;
}
if (command == COMMAND_DELETE)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
TimeList = llDeleteSubList(TimeList,CurrentMessage,CurrentMessage);
AddressList = llDeleteSubList(AddressList,CurrentMessage,CurrentMessage);
SubjectList = llDeleteSubList(SubjectList,CurrentMessage,CurrentMessage);
BodyList = llDeleteSubList(BodyList,CurrentMessage,CurrentMessage);
--NumMessages;

if (NumMessages == 0)
{
CurrentMessage = -1;
}
else if (CurrentMessage >= NumMessages)
{
CurrentMessage = NumMessages - 1;
}
}
return;
}
if (command == COMMAND_CLEAR)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
TimeList=[];
AddressList=[];
SubjectList=[];
BodyList=[];
NumMessages=0;
CurrentMessage=-1;
}
return;
}
if (command == COMMAND_HELP)
{
llMessageLinked(LINK_THIS, MSG_HELP, arg, NULL_KEY);
return;
}
if (command == COMMAND_INFO)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_INFO, "", NULL_KEY);
return;
}
if (command == COMMAND_SHOW)
{
Show();
return;
}
if (command == COMMAND_RESET)
{
llResetScript();
return;
}
if (command == COMMAND_OFF)
{
state not_running;
}
if (command == COMMAND_HOME)
{
if (nargs==1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETHOME, "", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETHOME, argstr, NULL_KEY);
}
return;
}
}
}

///////////////////////// timer() ///////////////////////////////

timer()
{
llGetNextEmail("", "");
}

///////////////////////// email() ///////////////////////////////

email(string time, string address, string subject, string body, integer queued)
{
NotifyNewMail(time, address, subject, body);
TimeList = (TimeList=[]) + TimeList + [time];
AddressList = (AddressList=[]) + AddressList + [address];
SubjectList = (SubjectList=[]) + SubjectList + [subject];
BodyList = (BodyList=[]) + BodyList + [body];
++NumMessages;

if (CurrentMessage == -1)
{
CurrentMessage = 0;
}
else
{
CurrentMessage = NumMessages - 1;
}
}

///////////////////// link_message() //////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
else if (msgid == MSG_MESSAGE_REPLY)
{
llOwnerSay(message);
}
}
}

//////////////////////////////////
// state not_running
//////////////////////////////////

state not_running
{
///////////////////// state_entry() //////////////////////////

state_entry()
{
llOwnerSay("SL Mailbox switched OFF. Say @ON to switch it back on.");
llListen(0, "", llGetOwner(), "");
}

//////////////////// on_rez() ///////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

//////////////////// listen() ////////////////////////////////

listen(integer chan, string name, key id, string message)
{
string command=llToUpper(message);

if (command == COMMAND_ON)
{
state running;
}
}

///////////////////// link_message() //////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
}
}

//////////////////////////////////
// state Error
//////////////////////////////////

state Error
{
state_entry()
{
llOwnerSay("Error in SL Mail: not all component scripts found.");
}

changed(integer mask)
{
if (mask & CHANGED_INVENTORY)
{
llResetScript();
}
}

on_rez(integer start_param)
{
llResetScript();
}
}

//////////////////////////////////
// End SL Mail V1.2.lsl
//////////////////////////////////
</pre>
</div>
</div>

<div id="box">

==Script: SL Mail Address Book V1.2==
<div style="padding: 0.5em;">
Read and interpret the contents of the Address Book.
<pre>
// SL Mail AddressBook V1.2.lsl
//
// DESCRIPTION
//
// Read the Address Book from a notecard named "Address Book".
//
// The Address Book has the following format:
//
// [ADDRESS BOOK]
// Name1=username@yourdomain.com
// Name2=otheruser@otherdomain.com
// ...
// [GROUP]
// group1=Name1, Name2
// ...
//
// Notes:
// 1. Group and Name share the same namespace, and must be unique.
// 2. It is allowed to have a name in the addressbook with multiple addresses, seperated by comma's.
//
/////////////////////////////////////////////////

string CurrentMailAddress = "";
string CurrentMailSubject = "";
integer StatusOnline = FALSE;

// Fetch or Send notecard

string Notecard2Fetch="";

// Address Book Names

list AddressBookList=[];
list MailAddressList=[];

string STRING_HOME="HOME";
string STRING_SELF="SELF";

// Address Book Groups

list GroupList=[];
list GroupNameList=[];

string LSL_DOMAIN = "lsl.secondlife.com";

// Read Address Book notecard

string ADDRESSBOOK_NOTECARD="Address Book";
integer Line=0;
key reqAddressBook=NULL_KEY;
float TIMEOUT_INTERVAL=5.0;

integer Section=0;
integer SECTION_ADDRESS_BOOK=1;
integer SECTION_GROUP=2;
string STRING_ADDRESS_BOOK="ADDRESS BOOK";
string STRING_GROUP="GROUP";

// Links messages

integer MSG_MESSAGE_SETADDRESS = 90000;
integer MSG_MESSAGE_GETADDRESS = 90050;
integer MSG_MESSAGE_SETSUBJECT = 90100;
integer MSG_MESSAGE_GETSUBJECT = 90150;
integer MSG_MESSAGE_SEND = 90200;
integer MSG_MESSAGE_SENDHOME = 90300;
integer MSG_MESSAGE_SEND_NOTECARD = 90400;
integer MSG_MESSAGE_ADDRESSBOOK = 90500;
integer MSG_MESSAGE_GETHOME = 90600;
integer MSG_MESSAGE_SETHOME = 90700;
integer MSG_MESSAGE_INFO = 90800;
integer MSG_MESSAGE_NOTIFY = 90900;

integer MSG_ADDRESSBOOK_LOADED = 91000;
integer MSG_ADDRESSBOOK_ERROR = 91100;

integer MSG_MESSAGE_REPLY = 99000;

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////// GetSelfAddress() ///////////////////////

string GetSelfAddress()
{
return (string)llGetKey() + "@" + LSL_DOMAIN;
}

///////////////////////////// Info() /////////////////////////////////

Info()
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "The mail address for this object is: "
+ GetSelfAddress() + ".", NULL_KEY);
}

///////////////////////////////// IsValidKeyFormat() //////////////////////

integer IsValidKeyFormat(string str)
{
string keychars = "0123456789abcdef";

if (llStringLength(str) != 36)
return FALSE;

if( (llGetSubString( str, 8, 8 ) != "-" ||
llGetSubString( str, 13, 13 ) != "-" ||
llGetSubString( str, 18, 18 ) != "-" ||
llGetSubString( str, 23, 23 ) != "-" ) )
return FALSE;

integer i;

for (i = 0; i < 8; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 9; i < 13; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 14; i < 18; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 19; i < 23; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 24; i < 36; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

return TRUE;
}

///////////////////////////////// ValidMailAddress() ////////////////////////

integer ValidMailAddress(string arg)
{
string adress = llToLower(llStringTrim(arg,STRING_TRIM));

if (adress == "")
return FALSE;

list parse = llParseStringKeepNulls(adress, [ "@" ], []);
string account = llList2String(parse,0);
string domain = llList2String(parse,1);

if (llGetListLength(parse) != 2 || llStringLength(account) == 0 || llStringLength(domain) == 0)
return FALSE;

if (domain == LSL_DOMAIN)
{
return IsValidKeyFormat(account);
}
else
{
list parsedomain = llParseString2List(domain, [ "." ], []);

if (llGetListLength(parsedomain) < 2)
return FALSE;

integer num = llGetListLength(parsedomain);
integer i;

for (i = 0; i < num; ++i)
{
if (llStringLength(llList2String(parsedomain,i)) < 2)
{
return FALSE;
}
}
}

return TRUE;
}

/////////////////////////////////// GetAddressStr() ///////////////////

string GetAndCheckAddressStr(string address)
{
list addresslist = llCSV2List(address);
integer num=llGetListLength(addresslist);
integer i;
string addressstr="";
string curaddress="";

for (i = 0; i < num; ++i)
{
curaddress=llList2String(addresslist,i);

if (ValidMailAddress(curaddress))
{
addressstr = (addressstr="") + addressstr + curaddress + ",";
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address string: '"
+ curaddress + "'.", NULL_KEY);
}
}

return llGetSubString(addressstr, 0, -2);
}

///////////////////////////// ProcessLine() ////////////////////////////

ProcessLine(string rawline)
{
string line=llStringTrim(rawline,STRING_TRIM);
string first=llGetSubString(line,0,0);
string last=llGetSubString(line,-1,-1);

// Ignore a blank line or comment line
if (line == "" || first == "#")
return;

// Check for the right section

if (first == "[" && last == "]")
{
string sectionstr=llToUpper(llStringTrim(llGetSubString(line,1,-2),STRING_TRIM));

if (sectionstr == STRING_ADDRESS_BOOK)
{
Section = SECTION_ADDRESS_BOOK;
}
else if (sectionstr == STRING_GROUP)
{
if (Section == 0)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1)
+ ". Group section defined before Address Book section.", NULL_KEY);
}
else
{
Section = SECTION_GROUP;
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid section header '" + sectionstr
+ "' in " + ADDRESSBOOK_NOTECARD + " at line " + (string)(Line + 1) + ".", NULL_KEY);
}

return;
}

// Must be in a section

if (Section == 0)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ". No section header.", NULL_KEY);
return;
}

list parse=llParseString2List(line, [ "=" ], []);
integer num=llGetListLength(parse);

// Format must be correct

if (num != 2)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line+1) + ":\n" + rawline, NULL_KEY);
return;
}

if (Section == SECTION_ADDRESS_BOOK)
{
string name=llStringTrim(llList2String(parse,0),STRING_TRIM);

if (llToUpper(name) == STRING_SELF)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address book entry '" + name
+ "'. Reserved word in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ".", NULL_KEY);
}
else if (llListFindList(AddressBookList, [ name ]) == -1)
{
string address=llStringTrim(llList2String(parse,1),STRING_TRIM);
string addressstr=GetAndCheckAddressStr(address);

if (addressstr != "")
{
AddressBookList = (AddressBookList=[]) + AddressBookList + [ name ];
MailAddressList = (MailAddressList=[]) + MailAddressList + [ addressstr ];
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "No valid mail address for '" + name
+ "'. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line " + (string)(Line + 1)
+ ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Name '" + name
+ "' already defined. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else // Group
{
string group=llStringTrim(llList2String(parse,0),STRING_TRIM);

if (llToUpper(group) == STRING_SELF)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address book entry '" + group
+ "'. Reserved word in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ".", NULL_KEY);
}
else if (llListFindList(AddressBookList, [ group ]) == -1)
{
if (llListFindList(GroupList, [ group ]) == -1)
{
string names=llStringTrim(llList2String(parse,1),STRING_TRIM);
list namelist=llCSV2List(names);
integer num=llGetListLength(namelist);
integer i;
integer index;
string name;
string namestr="";

for (i = 0; i < num; ++i)
{
name=llList2String(namelist,i);
index=llListFindList(AddressBookList, [ name ]);

if (index == -1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Name '" + name + "' defined in Group '"
+ group + "' not found in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
else
{
namestr = (namestr="") + namestr + name + ",";
}
}

if (namestr != "")
{
namestr=llGetSubString(namestr,0,-2);
GroupList = (GroupList=[]) + GroupList + [ group ];
GroupNameList = (GroupNameList=[]) + GroupNameList + [ namestr ];
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' has no valid names. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' already defined in Group. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' already defined in Address Book. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
}

//////////////////////////////// GetGroupAddressList ///////////////

string GetGroupAddressList(string group)
{
integer index=llListFindList(GroupList, [ group ]);
integer i;
integer num=llGetListLength(GroupList);
string grouplist="";

if (index == -1)
{
return "";
}
else
{
for (i = index; i < num; ++i)
{
if (llList2String(GroupList,i) == group)
{
grouplist = (grouplist="") + grouplist + llList2String(GroupNameList,i) + ",";
}
}

if (grouplist != "") grouplist=llGetSubString(grouplist,0,-2); // remove last ","
return grouplist;
}
}

//////////////////////////////// SetMailAddress() //////////////////

SetMailAddress(string address)
{
integer index=llListFindList(AddressBookList, [ address ]);

if (index == -1)
{
index=llListFindList(GroupList, [ address ]);

if (index == -1)
{
if (llToUpper(address) == STRING_SELF)
{
CurrentMailAddress = GetSelfAddress();
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
else if(ValidMailAddress(address))
{
CurrentMailAddress = address;
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Mail adress " + address
+ " : not found in adress book or invalid format.", NULL_KEY);
}
}
else
{
CurrentMailAddress = GetGroupAddressList(address);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject set to: "
+ CurrentMailAddress, NULL_KEY);
}
}
else
{
CurrentMailAddress = llList2String(MailAddressList,index);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
}

/////////////////////////////////// SendMail() ///////////////////////

SendMail(string message)
{
if (CurrentMailAddress == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "SendMail: No mail address defined.", NULL_KEY);
}
else if (CurrentMailSubject == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "SendMail: No subject defined.", NULL_KEY);
}
else
{
list mailaddresslist=llCSV2List(CurrentMailAddress);
integer num=llGetListLength(mailaddresslist);
integer i;
string address;

for (i = 0; i < num; ++i)
{
address=llList2String(mailaddresslist,i);
llEmail(address, CurrentMailSubject, message);
}
}
}

/////////////////////////////////// SendMailHome() ////////////////////

SendMailHome(string message, string subject)
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, STRING_HOME
+ " not set. Set your home adress with @HOME <address>.", NULL_KEY);
}
else
{
string homeaddress=llList2String(AddressBookList,index);
list homelist=llCSV2List(homeaddress);
integer num=llGetListLength(homelist);
integer i;
string address;

for (i = 0; i < num; ++i)
{
address=llList2String(homelist,i);
llEmail(address, subject, message);
}
}
}

/////////////////////////////////// GetHomeAddress() //////////////////

string GetHomeAddress()
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
return "not set";
}
else
{
return llList2String(MailAddressList,index);
}
}

/////////////////////////////////// SetHomeAddress() //////////////////

SetHomeAddress(string address)
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
AddressBookList = (AddressBookList=[]) + [ STRING_HOME ] + AddressBookList;
MailAddressList = (MailAddressList=[]) + [ GetAndCheckAddressStr(address) ] + MailAddressList;
}
else
{
MailAddressList = llListReplaceList(MailAddressList, [ GetAndCheckAddressStr(address) ], index, index);
}
}

////////////////////////////////////
// default
////////////////////////////////////

default
{
///////////////////// state_entry() //////////////////

state_entry()
{
Line=0;
Section=0;
llSetTimerEvent(TIMEOUT_INTERVAL);
reqAddressBook=llGetNotecardLine(ADDRESSBOOK_NOTECARD, 0);
}

///////////////////// dataserver() ////////////////////

dataserver(key id, string data)
{
if (id == reqAddressBook)
{
reqAddressBook = NULL_KEY;

if (data != EOF)
{
ProcessLine(data);
reqAddressBook=llGetNotecardLine(ADDRESSBOOK_NOTECARD, ++Line);
}
else
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_LOADED, "", NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Address Book loaded.", NULL_KEY);
state running;
}
}
}

//////////////////////// timer() ///////////////////////////

timer()
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_ERROR, "", NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Could not read Address Book: "
+ ADDRESSBOOK_NOTECARD + ".", NULL_KEY);
llSetTimerEvent(0.0);
}
}

////////////////////////////////////////////
// state running
////////////////////////////////////////////

state running
{
state_entry()
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_LOADED, "", NULL_KEY);
}

///////////////////////// link_message() ////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_MESSAGE_GETSUBJECT)
{
if (CurrentMailSubject == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject is empty.", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject is: "
+ CurrentMailSubject, NULL_KEY);
}
}
else if (msgid == MSG_MESSAGE_SETSUBJECT)
{
CurrentMailSubject = message;
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject set to: "
+ CurrentMailSubject, NULL_KEY);
}
else if (msgid == MSG_MESSAGE_GETADDRESS)
{
if (CurrentMailAddress == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address is empty.", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address is: "
+ CurrentMailAddress, NULL_KEY);
}
}
else if (msgid == MSG_MESSAGE_SETADDRESS)
{
SetMailAddress(message);
}
else if (msgid == MSG_MESSAGE_SEND)
{
if (message == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Body of message to send is empty. "
+ "No mail is send.", NULL_KEY);
}
else
{
SendMail(message);
}
}
else if (msgid == MSG_MESSAGE_SENDHOME)
{
SendMailHome(message, (string)id);
}
else if (msgid == MSG_MESSAGE_SEND_NOTECARD)
{
if (llGetInventoryType(message) == INVENTORY_NOTECARD)
{
Notecard2Fetch = message;
llMessageLinked(LINK_THIS, MSG_NOTECARD_READ, message, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Notecard " + message + " not found.", NULL_KEY);
}
}
else if (msgid == MSG_NOTECARD_FETCHED)
{
if (message == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Notecard " + Notecard2Fetch
+ " was empty or could not be read.", NULL_KEY);
}
else
{
SendMail(message);
}
}
else if (msgid == MSG_MESSAGE_GETHOME)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Home address is: " + GetHomeAddress() + ".", NULL_KEY);
}
else if (msgid == MSG_MESSAGE_SETHOME)
{
SetHomeAddress(message);
}
else if (msgid == MSG_MESSAGE_INFO)
{
Info();
}
}
}

/////////////////////////////////////
// End SL Mail AddressBook V1.2.lsl
/////////////////////////////////////
</pre>
</div>
</div>

<div id="box">

==Script: SL Mail FetchNotecard V1.2==
<div style="padding: 0.5em;">
Fetch the contents of a notecard and return it via link message as a string.
<pre>
// SL Mail FetchNotecard V1.2.lsl
//
//

// Notecard

integer Line=0;
string Notecard2Fetch="";
key reqNotecard=NULL_KEY;
float TIMEOUT_INTERVAL=10.0;
integer Fetched=FALSE;

// Lines

list LineList=[];

// Link messages

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////////////////////
// default
//////////////////////////////////////////

default
{
/////////////////////// dataserver() //////////////////////////////

dataserver(key id, string data)
{
if (id == reqNotecard)
{
reqNotecard=NULL_KEY;

if (data != EOF)
{
LineList = (LineList=[]) + LineList + [ data ];
reqNotecard = llGetNotecardLine(Notecard2Fetch, ++Line);
}
else
{
Fetched=TRUE;
llMessageLinked(LINK_THIS, MSG_NOTECARD_FETCHED, llDumpList2String(LineList, "\n"), NULL_KEY);
llSetTimerEvent(0.0);
}
}
}

/////////////////////// timer() ///////////////////////////////////

timer()
{
if (!Fetched)
{
llMessageLinked(LINK_THIS, MSG_NOTECARD_FETCHED, "", NULL_KEY);
llSetTimerEvent(0.0);
}
}

/////////////////////// link_message() ////////////////////////////

link_message(integer send, integer msgid, string message, key id)
{
if (msgid == MSG_NOTECARD_READ)
{
Line=0;
Notecard2Fetch=message;
LineList=[];
Fetched=FALSE;
reqNotecard=llGetNotecardLine(Notecard2Fetch, Line);
llSetTimerEvent(TIMEOUT_INTERVAL);
}
}
}

// End SL Mail FetchNotecard V1.2.lsl
</pre>
</div>
</div>

<div id="box">

==Script: SL OnlineStatus V1.2==
<div style="padding: 0.5em;">
Fetch online status of owner.
<pre>
// SL Mail OnlineStatus V1.2.lsl
//
//

// Online status

key reqOnlineStatus=NULL_KEY;
float STATUS_INTERVAL=2.0;

// Link messages

integer MSG_STATUS_ONLINE = 30000;
integer MS_STATUS_OFFLINE = 30100;

////////////////////////////////
// default
////////////////////////////////

default
{
///////////////////////// state_entry() /////////////////////////

state_entry()
{
reqOnlineStatus=llRequestAgentData(llGetOwner(), DATA_ONLINE);
llSetTimerEvent(STATUS_INTERVAL);
}

///////////////////////// dataserver() //////////////////////////

dataserver(key id, string data)
{
if (id == reqOnlineStatus)
{
reqOnlineStatus = NULL_KEY;

if (data=="1")
{
llMessageLinked(LINK_THIS, MSG_STATUS_ONLINE, "", NULL_KEY);
}
else if (data=="0")
{
llMessageLinked(LINK_THIS, MS_STATUS_OFFLINE, "", NULL_KEY);
}
}
}

///////////////////////// timer() ///////////////////////////////

timer()
{
reqOnlineStatus = llRequestAgentData(llGetOwner(), DATA_ONLINE);
}
}

// End SL Mail OnlineStatus V1.2.lsl
</pre>
</div>
</div>

<div id="box">

==Script: SL Mail Help V1.2==
<div style="padding: 0.5em;">
Display help information.

<pre>
// SL Mail Help V1.2.lsl
//
//

integer MSG_HELP = 10000;

///////////////////////////////// Help() ///////////////////////////////////////

Help()
{
llOwnerSay("HELP for SL Mail V1.2.");
llOwnerSay("COMMANDS:");
llOwnerSay("@HELP - displays help info.");
llOwnerSay("@INFO - display mailaddress of this object.");
llOwnerSay("@RECORD - start recording.");
llOwnerSay("@CONTINUE - continue recording.");
llOwnerSay("@STOP - stop recording.");
llOwnerSay("@IGNORE - ignore the recording.");
llOwnerSay("@SHOW - show what your recorded.");
llOwnerSay("@SEND - send the recording.");
llOwnerSay("@MAIL <mailadress> - set the mail adress.");
llOwnerSay("@SUBJECT subject - set the mail subject.");
llOwnerSay("@LIST - list messages in mail buffer.");
llOwnerSay("@SELECT <message> - select message from mail buffer.");
llOwnerSay("@READ - read current message from mail buffer.");
llOwnerSay("@NEXT - read next message from mail buffer.");
llOwnerSay("@PREV - read previous message from mail buffer.");
llOwnerSay("@FIRST - read first message from mail buffer.");
llOwnerSay("@LAST - read last message from mail buffer.");
llOwnerSay("@DELETE - delete current message from mail buffer.");
llOwnerSay("@CLEAR - clear the mail buffer.");
llOwnerSay("@REPLY - reply to current message.");
llOwnerSay("@RESET - reset the script.");
llOwnerSay("@HOME - set the home mail adress.");
llOwnerSay("@OFF - switch mailbox OFF.");
llOwnerSay("@ON - switch mailbox ON.");
}

/////////////////////////////////////////////
// default
/////////////////////////////////////////////

default
{
link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_HELP)
{
Help();
}
}
}

// End SL Mail Help V1.2.lsl
</pre>
</div>
</div>
[[Image:slmail.info.jpg]]

{{LSLC|Library}}

SL Mail V1.2

Flennan Roffo — Sun, 07 Oct 2007 11:14:37 GMT

Flennan Roffo: /* '''PRODUCTION & MAINTANENCE''' */

{{LSL Header}} __NOTOC__
<div id="box">
='''Second Life mail client'''=
<div style="padding: 0.5em">

'''Send and receive email from within Second Life from and to any address.'''

Implemented with Address Book function (in a notecard named 'Address Book') to stores addresses by name and to compile groups of named addresses. Current version is stand-alone (no server functionality) and uses chat commands only.

[[Image:BannerSLMail.jpg]]

</div>
</div>

<div id="box">
=Release Notes V1.2=
<div style="padding: 0.5em">
SL Mail V1.2 Release notes (edition 2, 4 sept 2007)
</div>
</div>

<div id="box">
=='''LICENCE INFO'''==
<div style="padding: 0.5em">
SL Mail V1.2 is released under GNU free software licence
</div>
</div>

<div id="box">
=='''PRODUCTION & MAINTANENCE'''==
<div style="padding: 0.5em">
by Logic Scripted Products and Script Services

[http://www.logicscripts.org {{Server}}/wiki/images/Logicbanner1.jpg]

SLurl:
{{SLurl
|region=Peacock Park
|x=189
|y=226
|z=69
|title=Logic Scripted products and Script services
|}}

Contact: [[User:Flennan Roffo|Flennan Roffo]]

Email: [mailto:info@slmail.info '''info'''] or [mailto:Flennan.Roffo@slmail.info '''Flennan Roffo''']

</div>
</div>

<div id="box">

=='''DESCRIPTION'''==
<div style="padding: 0.5em">
SL Mail V1.2 is a simple tool to send and receive mail from within SL.
You can either compose a message yourself using chat recording, or choose a notecard from inventory to send. The Address Book functionality allows you to use short names for mail recipients stored in a notecard. The current version does not have a persisent mail address. Watch out for the upcoming next release (V1.3) which will facilitate persisent in-world mail addresses and will be enhanced with many new features (See: Requests For Change (RFC).
</div>
</div>

<div id="box">

=='''COMMANDS'''==
<div style="padding: 0.5em">
{| {{Prettytable}}
|-
|{{Hl2}}| '''Command'''
|{{Hl2}}| '''Description'''
|-
||'''@Help'''
||Show Help about available commands
|-
||'''@Record'''
||Starts a chat recording (for owner only).
|-
||'''@Stop'''
||Stops the chat recording without sending
|-
||'''@Continue'''
||Continues a previously stopped chat recording. Lines will be appended to you recording buffer.
|-
||'''@Show'''
||Shows the content of the recording buffer.
|-
||'''@Send'''
||If recording, stops the recording, and sends the mail (need to supply mail address and subject first!)
|-
||'''@Send <notecard>'''
||Sends the content of the notecard, instead of the chat recording.
|-
||'''@Ignore'''
||Ignores your current chat recording.
|-
||'''@Mail <address>'''
||Define the mail address to send to.
|-
||'''@Mail'''
||Shows the current mail address to send to.
|-
||'''@Subject <subject>'''
||Define the subject of the mail.
|-
||'''@Subject'''
||Shows the current mail subject.
|-
||'''@Home <address>'''
||Set the HOME address of the owner (mail will be forwarder to this address when offline).
|-
||'''@Home'''
||Show the HOME address.
|-
||'''@Info'''
||Shows the mail address the object this script is running in uses (e.g. <object-key>@lsl.secondlife.com).
|-
||'''@Read'''
||Reads the current message from the mail buffer (the mail buffer gets filled with mail you receive)
|-
||'''@Select <msg>'''
||Select a message number from the availabe messages in the mail buffer.
|-
||'''@Next'''
||Make next message the current message.
|-
||'''@Prev'''
||Make previous message the current message.
|-
||'''@First'''
||Make the first message the current message.
|-
||'''@Last'''
||Make the last message the current message.
|-
||'''@Clear'''
||Clear the mail buffer
|-
||'''@Delete'''
||Deletes only the current message
|-
||'''@Reply'''
||Starts a chat recording to reply to the current message. Mail adress and subject are filled in automatically.
|}

Note:

* Commands are case insensitive ("@read" == "@READ"). Arguments might not be case insensitive.
</div>
</div>

<div id="box">
=='''ADDRESS BOOK FORMAT'''==
<div style="padding: 0.5em">
A notecard of the name 'Address Book' is read during initialization which may contain Address Book items and Groups.
The notecard is split in two sections, which need to be defined in that particular order.

'''[ADDRESS BOOK]'''

Defines the section in which you can put names for mail addresses, like this:

'''Name1=account@thisdomain.com'''

'''Name2=user@otherdomain.com'''

etc.

'''[GROUP]'''

Define groups of previously defined names under a new name, like for instance:

'''MyGroup=Name1, Name2'''

Note that names of groups and individual mail adresses share the same namespace and must be unique.

So when you filled in your mail adresses in the Address Book, you can now use:

'''@Mail Name1'''

To send mail to <account@thisdomain.com>

or you can use

'''@Mail MyGroup'''

To send mail to <account@thisdomain.com> and <user@otherdomain.com>
Mails will be sent one after another.

Notes:

* Names for Addreses and Groups are case insensitive (e.g. "mary" == "MARY")

* The special address 'Self' can be used in commands where otherwise an address specification can be used. 'Self' is case insensitive (e.g. "self" == "SELF")

</div>
</div>

<div id="box">
=='''LIMITATIONS'''==
<div style="padding: 0.5em">
The current version is limited by the following:

* Chat recording lines are limited by the 255 byte limit

* Output of lines from the mail buffer are also limited by this 255 byte limit

* Incoming mail is limited to a 1000 (1024?) byte limit

* Outgoing mai is limited by a 4096 byte limit, which includes the standard mail header (region/location info on the first two lines)

We are making adjustments to this release to help overcome these limitations. At least the line lenght limit can be overcome by introducing a line continuation character (for example a hyphen '-') that when used at the end of a line appends the next line, so lines longer then 255 bytes are possible then.

To overcome the outgoing mail length limit, the mail can be broken textualy into parts, and each part can be send seperatedely, with an indication in the subject or in an introduced primary line of the mail body to indicate that the mail was split into parts.
For incoming mail and at least to receive mail from other SL Mail programs, a protocol will be introduced to receive mail in parts that are joined together after receiving them to form a single mail.

These enhancements will be made available in the next release (V1.3) of SL Mail
</div>
</div>

<div id="box">
=='''BUGS'''==
<div style="padding: 0.5em">
Report any bugs you find in this release to Logic (IM: Flennan Roffo).
</div>
</div>

<div id="box">
=='''REQUEST FOR CHANGE (RFC)'''==
<div style="padding: 0.5em">
Do you have additional wishes for enhancement of this product?
Contact Flennan Roffo and we will see if they can be implemented in the next release.

Existing RFC's are:

* Menu support for commands.

* Lines on incoming/outgoing mail longer than 255 bytes.

* Send messages longer than 4096 (minus SL mail header) bytes.

* Receive messages longer than 1024 bytes.

* Permanent mail addresses for the SL Mail client (like: <Flennan.Roffo@somedomain.sl>)

Add your RFC!
</div>
</div>

<div id="box">
=='''SL MAIL SUPPORT & DEVELOPMENT'''==
<div style="padding: 0.5em">

In-world join the group "SL Mail" for bug reports, feature requests, the latest SL Mail release, and notices about development issues.
</div>
</div>

<div id="box">

=Scripts=
</div>

<div id="box">
==Script: SL Mail v1.2==
<div style="padding: 0.5em;">
SL Mail core module which scans for incoming mail messages and executes commands used by the owner.
<pre>
// SL Mail V1.2.lsl
// (c) 2007 Logic Scripted Products and Script Services
// Flennan Roffo

// VERSION
// Version: 1.2

// HISTORY
// Date Version Author Comment
// --------------------------------------------------------------------------------------
// 28 aug 2007 V 1.0 Flennan Roffo Created
//
// 1 sep 2007 V 1.1 Flennan Roffo @Reply empties the recording buffer.
// @Send while recording ends recording
// and sends the mail if a mail address
// and subject are supplied.
// Fixed incorrect date in Unix2DateTime.
// 3 sep 2007 V 1.2 Flennan Roffo Notification options:
// - When online, send an IM when mail is received.
// - When offline, send to HOME mail adress.
// Adressbook
// - Read adress book from config notecard.

// LICENCE
// This program is free software; you can redistribute it and/or
// modify it under the terms of the GNU General Public License
// as published by the Free Software Foundation; either version 2
// of the License, or (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
// (Also available at http://www.gnu.org/copyleft/gpl.html)

// DESCRIPTION
// Let's you record a message and sent to email and get messages and reply to messages.
// Must supply a valid mail adress and non-empty subject using chat commands.

// TODO:
// 1) Check for the maximum length of an email message (including newline and header).
// 2) Read adress book from notecard. *DONE*
// 3) Send incoming mail to personal mail adress when offline. *DONE*
// 4) Alert with an IM when online upon receiving new mail. *DONE*

string SL_MAIL_VERSION = "V 1.2";
string SL_MAIL_DATE = " 2 sep 2007";
integer ErrorFlag = FALSE;
list ScriptList = [ "SL Mail Help V1.2", "SL Mail AddressBook V1.2",
"SL Mail OnlineStatus V1.2", "SL Mail FetchNotecard V1.2" ];
string LSL_DOMAIN="lsl.secondlife.com";
integer StatusOnline=FALSE;

// Commands

string COMMAND_RECORD = "@RECORD";
string COMMAND_CONTINUE = "@CONTINUE";
string COMMAND_STOP = "@STOP";
string COMMAND_MAIL = "@MAIL";
string COMMAND_SUBJECT = "@SUBJECT";
string COMMAND_SEND = "@SEND";
string COMMAND_SEE = "@SEE";
string COMMAND_IGNORE = "@IGNORE";
string COMMAND_READ = "@READ";
string COMMAND_DELETE = "@DELETE";
string COMMAND_CLEAR = "@CLEAR";
string COMMAND_REPLY = "@REPLY";
string COMMAND_NEXT = "@NEXT";
string COMMAND_PREV = "@PREV";
string COMMAND_FIRST = "@FIRST";
string COMMAND_LAST = "@LAST";
string COMMAND_LIST = "@LIST";
string COMMAND_SELECT = "@SELECT";
string COMMAND_HELP = "@HELP";
string COMMAND_INFO = "@INFO";
string COMMAND_RESET = "@RESET";
string COMMAND_SHOW = "@SHOW";
string COMMAND_ON = "@ON";
string COMMAND_OFF = "@OFF";
string COMMAND_HOME = "@HOME";
string COMMAND_LOAD = "@LOAD";
string COMMAND_ADDRESS = "@ADDRESS";

// Recording

integer Recording = FALSE;

list ChatRecording=[];
integer NumLines=0;
integer Length=0;

list TimeList=[];
list AddressList=[];
list SubjectList=[];
list BodyList=[];
integer NumMessages=0;
integer CurrentMessage=-1;

float MAIL_FETCH_INTERVAL=5.0;

// Link Messages

integer MSG_HELP = 10000;
integer MSG_STATUS_ONLINE = 30000;
integer MSG_STATUS_OFFLINE = 30100;

integer MSG_MESSAGE_SETADDRESS = 90000;
integer MSG_MESSAGE_GETADDRESS = 90050;
integer MSG_MESSAGE_SETSUBJECT = 90100;
integer MSG_MESSAGE_GETSUBJECT = 90150;
integer MSG_MESSAGE_SEND = 90200;
integer MSG_MESSAGE_SENDHOME = 90300;
integer MSG_MESSAGE_SEND_NOTECARD = 90400;
integer MSG_MESSAGE_ADDRESSBOOK = 90500;
integer MSG_MESSAGE_GETHOME = 90600;
integer MSG_MESSAGE_SETHOME = 90700;
integer MSG_MESSAGE_INFO = 90800;

integer MSG_ADDRESSBOOK_LOADED = 91000;
integer MSG_ADDRESSBOOK_ERROR = 91100;

integer MSG_MESSAGE_REPLY = 99000;

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////// Unix Time conversion //////////////////

integer DAYS_PER_YEAR = 365; // Non leap year
integer SECONDS_PER_YEAR = 31536000; // Non leap year
integer SECONDS_PER_DAY = 86400;
integer SECONDS_PER_HOUR = 3600;
integer SECONDS_PER_MINUTE = 60;

////////////////////////////// LeapYear() /////////////////////////////

integer LeapYear(integer year)
{
if (year % 4 == 0)
{
if (year % 100 == 0)
{
if (year % 400 == 0)
{
return 1;
}
else
{
return 0;
}
}
else
{
return 1;
}
}
else
{
return 0;
}
}

////////////////////////////// DaysPerMonth() ///////////////////////////////////////

integer DaysPerMonth(integer year,integer month)
{
if (month < 8)
{
if (month % 2 == 0)
{
if (month == 2)
{
if (LeapYear(year))
{
return 29;
}
else
{
return 28;
}
}
else
{
return 30;
}
}
else
{
return 31;
}
}
else
{
if (month % 2 == 0)
{
return 31;
}
else
{
return 30;
}
}
}

/////////////////////////// DaysPerYear() ////////////////////////////////////

integer DaysPerYear(integer year)
{
if (LeapYear(year))
return DAYS_PER_YEAR + 1;
else
return DAYS_PER_YEAR;
}

/////////////////////////////// Unix2DataTime() ///////////////////////////////////////

list Unix2DateTime(integer unixtime)
{
integer days_since_1_1_1970 = unixtime / SECONDS_PER_DAY;
integer day = days_since_1_1_1970 + 1;
integer year = 1970;
integer days_per_year = DaysPerYear(year);

while (day > days_per_year)
{
day -= days_per_year;
++year;
days_per_year = DaysPerYear(year);
}

integer month = 1;
integer days_per_month = DaysPerMonth(year,month);

while (day > days_per_month)
{
day -= days_per_month;

if (++month > 12)
{
++year;
month = 1;
}

days_per_month = DaysPerMonth(year,month);
}

integer seconds_since_midnight = unixtime % SECONDS_PER_DAY;
integer hour = seconds_since_midnight / SECONDS_PER_HOUR;
integer second = seconds_since_midnight % SECONDS_PER_HOUR;
integer minute = second / SECONDS_PER_MINUTE;
second = second % SECONDS_PER_MINUTE;

return [ year, month, day, hour, minute, second ];
}

///////////////////////////////// MonthName() ////////////////////////////

list MonthNameList = [ "JAN", "FEB", "MAR", "APR", "MAY", "JUN",
"JUL", "AUG", "SEP", "OCT" , "NOV", "DEC" ];

string MonthName(integer month)
{
if (month >= 0 && month < 12)
return llList2String(MonthNameList, month);
else
return "";
}

///////////////////////////////// DateString() ///////////////////////////

string DateString(list timelist)
{
integer year = llList2Integer(timelist,0);
integer month = llList2Integer(timelist,1);
integer day = llList2Integer(timelist,2);

return (string)day + "-" + MonthName(month - 1) + "-" + (string)year;
}

///////////////////////////////// TimeString() ////////////////////////////

string TimeString(list timelist)
{
integer hour = llList2Integer(timelist,3);
integer minute = llList2Integer(timelist,4);
integer second = llList2Integer(timelist,5);
string hourstr = (string)hour;
string minutestr = (string)minute;
string secondstr = (string)second;

if (hour < 10) hourstr = "0" + hourstr;
if (minute < 10) minutestr = "0" + minutestr;
if (second < 10) secondstr = "0" + secondstr;
return hourstr + ":" + minutestr + ":" + secondstr;
}

/////////////////////////////////// SendMail() /////////////////////////////////////

SendMail(string body)
{
// llOwnerSay("Sending message to '" + address + "' with subject '" + subject +"'.");
llMessageLinked(LINK_THIS, MSG_MESSAGE_SEND, body, NULL_KEY);
}

///////////////////////////////// SendHome() ///////////////////////////////////////

SendHome(string subject, string body)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SENDHOME, body, (key)subject);
}

///////////////////////////////// Show() ////////////////////////////////////////////

Show()
{
integer i;

llOwnerSay("Current chat recording is:");
llOwnerSay("--------------------------");

for (i = 0; i < NumLines; ++i)
{
llOwnerSay(llList2String(ChatRecording,i));
}

llOwnerSay("--------------------------");
llOwnerSay("Lines is " + (string)NumLines);
llOwnerSay("Message length is " + (string)Length);
}

/////////////////////////////// Read() /////////////////////////////////////////

Read()
{
llOwnerSay("Reading message " + (string)CurrentMessage + " from mail buffer.");
integer time = (integer)llList2Integer(TimeList,CurrentMessage);
list timelist=Unix2DateTime(time);
string Address = llList2String(AddressList,CurrentMessage);
string Subject = llList2String(SubjectList,CurrentMessage);
string Body = llList2String(BodyList,CurrentMessage);
llOwnerSay("Date : " + DateString(timelist));
llOwnerSay("Time : " + TimeString(timelist));
llOwnerSay("Address: " + Address);
llOwnerSay("Subject: " + Subject);
llOwnerSay("Begin of message body:");
llOwnerSay("-------------------------");
list bodylist=llParseStringKeepNulls(Body, [ "\n" ], []);
integer num=llGetListLength(bodylist);
integer i;

for (i = 0; i < num; ++i)
{
llOwnerSay(llList2String(bodylist,i));
}

llOwnerSay("-------------------------");
llOwnerSay("End of message body.");
}

////////////////////////////////////// List ////////////////////////////////////////////

List()
{
llOwnerSay("The mail buffer contains the following messages:\n");

integer i;

for (i = 0; i < NumMessages; ++i)
{
integer time=llList2Integer(TimeList,i);
list timelist=Unix2DateTime(time);
if (i > 0) llOwnerSay("+-+-+-+-+-+-+-+-+-+-+-+-");
llOwnerSay("Message: " + (string)i);
llOwnerSay("Date : " + DateString(timelist));
llOwnerSay("Time : " + TimeString(timelist));
llOwnerSay("From: " + llList2String(AddressList,i));
llOwnerSay("Subject: " + llList2String(SubjectList,i));
}
}

//////////////////////////// NotifyNewMail() /////////////////////////

NotifyNewMail(string time, string address, string subject, string body)
{
list timelist=Unix2DateTime((integer)time);

if (StatusOnline)
{
llInstantMessage(llGetOwner(), "You received a new mail message on "
+ DateString(timelist) + " at " + TimeString(timelist)
+ " from " + address
+ " with the subject " + subject);
}
else
{
SendHome("FW: " + subject, "Received at: " + DateString(timelist) + " " + TimeString(timelist) + "\nFrom: " + address
+ "\nBegin message body:\n-------------------\n" + body + "\n-------------------\nEnd message body.");
}
}

///////////////////////////// ResetOtherScripts() //////////////////////

ResetOtherScripts()
{
string name;
integer i;
integer num=llGetListLength(ScriptList);

for (i = 0; i < num; ++i)
{
name = llList2String(ScriptList,i);

if (llGetInventoryType(name) == INVENTORY_SCRIPT)
{
llResetOtherScript(name);
}
else
{
llOwnerSay("Error - script '" + name + "' not found.");
ErrorFlag = TRUE;
}
}
}

//////////////////////////////////////
// default
//////////////////////////////////////

default
{
////////////////////// state_entry() /////////////////////////

state_entry()
{
llOwnerSay("Welcome to SL Mail, released under GNU software licence.");
llOwnerSay("Version " + SL_MAIL_VERSION + " " + SL_MAIL_DATE);
llOwnerSay("Produced by Logic Scripted Products & Product Services");
llOwnerSay("Free memory: " + (string)llGetFreeMemory());
ResetOtherScripts();

if (ErrorFlag)
state Error;
}

/////////////////////// on_rez() //////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

/////////////////////// changed() ////////////////////////////

changed(integer mask)
{
if (mask & CHANGED_INVENTORY)
{
llResetScript();
}
}

/////////////////////// link_message() /////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
else if (msgid == MSG_ADDRESSBOOK_LOADED)
{
state running;
}
else if (msgid == MSG_ADDRESSBOOK_ERROR)
{
state Error;
}
}
}

///////////////////////////////////////
// state running
//////////////////////////////////////

state running
{
///////////////////////// state_entry() //////////////////////

state_entry()
{
llListen(0, "", llGetOwner(), "");
llOwnerSay("SL mail ready.\nSend and Get mail in Second Life.\nType @HELP for more info.");
llMessageLinked(LINK_THIS, MSG_MESSAGE_INFO, "", NULL_KEY);
llGetNextEmail("", "");
llSetTimerEvent(MAIL_FETCH_INTERVAL);
}

//////////////////////// on_rez() ////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

//////////////////////// listen() ////////////////////////////

listen(integer channel, string name, key id, string message)
{
string trimmessage=llStringTrim(message,STRING_TRIM);
list parse = llParseStringKeepNulls(trimmessage, [ " "], []);
string command = llToUpper(llList2String(parse,0));
string arg = llStringTrim(llList2String(parse,1),STRING_TRIM);
integer nargs = llGetListLength(parse);
string argstr="";

if (nargs > 1) argstr=llGetSubString(message, llSubStringIndex(message, " ") + 1, -1);

if (Recording)
{
if (command == COMMAND_STOP)
{
llOwnerSay("Recording stopped. Type @SHOW to see the message you have entered,"
+ " or @SEND to send it.");
Recording = FALSE;
return;
}
if (command == COMMAND_SEND)
{
Recording = FALSE;

SendMail(llDumpList2String(ChatRecording, "\n"));
return;
}
else
{
ChatRecording = (ChatRecording=[]) + ChatRecording + [ message ];
++NumLines;
Length += llStringLength(message) + 2;
return;
}
}
else
{
if (command == COMMAND_RECORD)
{
llOwnerSay("Start recording your message. Type @STOP to end recording.");
ChatRecording = [];
NumLines=0;
Length=0;
Recording = TRUE;
return;
}
if (command == COMMAND_CONTINUE)
{
llOwnerSay("Continue recording your message. Type @STOP to end recording.");
Recording = TRUE;
return;
}
if (command == COMMAND_REPLY)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
string address=llList2String(AddressList,CurrentMessage);
string subject="Re: " + llList2String(SubjectList,CurrentMessage);
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETADDRESS, address, NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETSUBJECT, subject, NULL_KEY);
ChatRecording = [];
NumLines=0;
Length=0;
Recording = TRUE;
}
return;
}
if (command == COMMAND_MAIL)
{
string mailaddress=llStringTrim(argstr,STRING_TRIM);

if (mailaddress != "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETADDRESS, mailaddress, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETADDRESS, "", NULL_KEY);
}
return;
}
if (command == COMMAND_SUBJECT)
{
string mailsubject=llStringTrim(argstr,STRING_TRIM);

if (mailsubject != "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETSUBJECT, mailsubject, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETSUBJECT, "", NULL_KEY);
}
return;
}
if (command == COMMAND_STOP)
{
llOwnerSay("Not recording.");
return;
}
if (command == COMMAND_SEND)
{
if (nargs == 1)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
SendMail(llDumpList2String(ChatRecording, "\n"));
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SEND_NOTECARD, argstr, NULL_KEY);
}
return;
}
if (command == COMMAND_IGNORE)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
ChatRecording = [];
NumLines = 0;
Length = 0;
}
return;
}
if (command == COMMAND_SHOW)
{
if (NumLines == 0)
{
llOwnerSay("No lines recorded.");
}
else
{
Show();
}
return;
}
if (command == COMMAND_READ)
{
if (NumMessages == 0)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
Read();
}
return;
}
if (command == COMMAND_NEXT)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == NumMessages - 1)
{
llOwnerSay("Already at last message.");
}
else
{
++CurrentMessage;
Read();
}
}
return;
}
if (command == COMMAND_PREV)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == 0)
{
llOwnerSay("Already at first message.");
}
else
{
--CurrentMessage;
Read();
}
}
return;
}
if (command == COMMAND_FIRST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == 0)
{
llOwnerSay("Already at first message.");
}
else
{
CurrentMessage = 0;
Read();
}
}
return;
}
if (command == COMMAND_LAST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
if (CurrentMessage == NumMessages - 1)
{
llOwnerSay("Already at last message.");
}
else
{
CurrentMessage = NumMessages - 1;
Read();
}
}
return;
}
if (command == COMMAND_LIST)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
List();
}
return;
}
if (command == COMMAND_SELECT)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else if (nargs == 1)
{
llOwnerSay("Need to supply a message number.");
}
else
{
integer msgnum = (integer)arg;

if (msgnum < 0 || msgnum >= NumMessages)
{
llOwnerSay("Message number " + arg + " not in mail buffer.");
}
else
{
CurrentMessage = msgnum;
}
}
return;
}
if (command == COMMAND_DELETE)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
TimeList = llDeleteSubList(TimeList,CurrentMessage,CurrentMessage);
AddressList = llDeleteSubList(AddressList,CurrentMessage,CurrentMessage);
SubjectList = llDeleteSubList(SubjectList,CurrentMessage,CurrentMessage);
BodyList = llDeleteSubList(BodyList,CurrentMessage,CurrentMessage);
--NumMessages;

if (NumMessages == 0)
{
CurrentMessage = -1;
}
else if (CurrentMessage >= NumMessages)
{
CurrentMessage = NumMessages - 1;
}
}
return;
}
if (command == COMMAND_CLEAR)
{
if (CurrentMessage == -1)
{
llOwnerSay("The mail buffer is empty.");
}
else
{
TimeList=[];
AddressList=[];
SubjectList=[];
BodyList=[];
NumMessages=0;
CurrentMessage=-1;
}
return;
}
if (command == COMMAND_HELP)
{
llMessageLinked(LINK_THIS, MSG_HELP, arg, NULL_KEY);
return;
}
if (command == COMMAND_INFO)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_INFO, "", NULL_KEY);
return;
}
if (command == COMMAND_SHOW)
{
Show();
return;
}
if (command == COMMAND_RESET)
{
llResetScript();
return;
}
if (command == COMMAND_OFF)
{
state not_running;
}
if (command == COMMAND_HOME)
{
if (nargs==1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_GETHOME, "", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_SETHOME, argstr, NULL_KEY);
}
return;
}
}
}

///////////////////////// timer() ///////////////////////////////

timer()
{
llGetNextEmail("", "");
}

///////////////////////// email() ///////////////////////////////

email(string time, string address, string subject, string body, integer queued)
{
NotifyNewMail(time, address, subject, body);
TimeList = (TimeList=[]) + TimeList + [time];
AddressList = (AddressList=[]) + AddressList + [address];
SubjectList = (SubjectList=[]) + SubjectList + [subject];
BodyList = (BodyList=[]) + BodyList + [body];
++NumMessages;

if (CurrentMessage == -1)
{
CurrentMessage = 0;
}
else
{
CurrentMessage = NumMessages - 1;
}
}

///////////////////// link_message() //////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
else if (msgid == MSG_MESSAGE_REPLY)
{
llOwnerSay(message);
}
}
}

//////////////////////////////////
// state not_running
//////////////////////////////////

state not_running
{
///////////////////// state_entry() //////////////////////////

state_entry()
{
llOwnerSay("SL Mailbox switched OFF. Say @ON to switch it back on.");
llListen(0, "", llGetOwner(), "");
}

//////////////////// on_rez() ///////////////////////////////

on_rez(integer start_param)
{
llResetScript();
}

//////////////////// listen() ////////////////////////////////

listen(integer chan, string name, key id, string message)
{
string command=llToUpper(message);

if (command == COMMAND_ON)
{
state running;
}
}

///////////////////// link_message() //////////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_STATUS_ONLINE)
{
StatusOnline = TRUE;
}
else if (msgid == MSG_STATUS_OFFLINE)
{
StatusOnline = FALSE;
}
}
}

//////////////////////////////////
// state Error
//////////////////////////////////

state Error
{
state_entry()
{
llOwnerSay("Error in SL Mail: not all component scripts found.");
}

changed(integer mask)
{
if (mask & CHANGED_INVENTORY)
{
llResetScript();
}
}

on_rez(integer start_param)
{
llResetScript();
}
}

//////////////////////////////////
// End SL Mail V1.2.lsl
//////////////////////////////////
</pre>
</div>
</div>

<div id="box">

==Script: SL Mail Address Book V1.2==
<div style="padding: 0.5em;">
Read and interpret the contents of the Address Book.
<pre>
// SL Mail AddressBook V1.2.lsl
//
// DESCRIPTION
//
// Read the Address Book from a notecard named "Address Book".
//
// The Address Book has the following format:
//
// [ADDRESS BOOK]
// Name1=username@yourdomain.com
// Name2=otheruser@otherdomain.com
// ...
// [GROUP]
// group1=Name1, Name2
// ...
//
// Notes:
// 1. Group and Name share the same namespace, and must be unique.
// 2. It is allowed to have a name in the addressbook with multiple addresses, seperated by comma's.
//
/////////////////////////////////////////////////

string CurrentMailAddress = "";
string CurrentMailSubject = "";
integer StatusOnline = FALSE;

// Fetch or Send notecard

string Notecard2Fetch="";

// Address Book Names

list AddressBookList=[];
list MailAddressList=[];

string STRING_HOME="HOME";
string STRING_SELF="SELF";

// Address Book Groups

list GroupList=[];
list GroupNameList=[];

string LSL_DOMAIN = "lsl.secondlife.com";

// Read Address Book notecard

string ADDRESSBOOK_NOTECARD="Address Book";
integer Line=0;
key reqAddressBook=NULL_KEY;
float TIMEOUT_INTERVAL=5.0;

integer Section=0;
integer SECTION_ADDRESS_BOOK=1;
integer SECTION_GROUP=2;
string STRING_ADDRESS_BOOK="ADDRESS BOOK";
string STRING_GROUP="GROUP";

// Links messages

integer MSG_MESSAGE_SETADDRESS = 90000;
integer MSG_MESSAGE_GETADDRESS = 90050;
integer MSG_MESSAGE_SETSUBJECT = 90100;
integer MSG_MESSAGE_GETSUBJECT = 90150;
integer MSG_MESSAGE_SEND = 90200;
integer MSG_MESSAGE_SENDHOME = 90300;
integer MSG_MESSAGE_SEND_NOTECARD = 90400;
integer MSG_MESSAGE_ADDRESSBOOK = 90500;
integer MSG_MESSAGE_GETHOME = 90600;
integer MSG_MESSAGE_SETHOME = 90700;
integer MSG_MESSAGE_INFO = 90800;
integer MSG_MESSAGE_NOTIFY = 90900;

integer MSG_ADDRESSBOOK_LOADED = 91000;
integer MSG_ADDRESSBOOK_ERROR = 91100;

integer MSG_MESSAGE_REPLY = 99000;

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////// GetSelfAddress() ///////////////////////

string GetSelfAddress()
{
return (string)llGetKey() + "@" + LSL_DOMAIN;
}

///////////////////////////// Info() /////////////////////////////////

Info()
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "The mail address for this object is: "
+ GetSelfAddress() + ".", NULL_KEY);
}

///////////////////////////////// IsValidKeyFormat() //////////////////////

integer IsValidKeyFormat(string str)
{
string keychars = "0123456789abcdef";

if (llStringLength(str) != 36)
return FALSE;

if( (llGetSubString( str, 8, 8 ) != "-" ||
llGetSubString( str, 13, 13 ) != "-" ||
llGetSubString( str, 18, 18 ) != "-" ||
llGetSubString( str, 23, 23 ) != "-" ) )
return FALSE;

integer i;

for (i = 0; i < 8; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 9; i < 13; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 14; i < 18; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 19; i < 23; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

for (i = 24; i < 36; ++i)
{
if (llSubStringIndex(keychars, llGetSubString(str,i,i)) == -1)
return FALSE;
}

return TRUE;
}

///////////////////////////////// ValidMailAddress() ////////////////////////

integer ValidMailAddress(string arg)
{
string adress = llToLower(llStringTrim(arg,STRING_TRIM));

if (adress == "")
return FALSE;

list parse = llParseStringKeepNulls(adress, [ "@" ], []);
string account = llList2String(parse,0);
string domain = llList2String(parse,1);

if (llGetListLength(parse) != 2 || llStringLength(account) == 0 || llStringLength(domain) == 0)
return FALSE;

if (domain == LSL_DOMAIN)
{
return IsValidKeyFormat(account);
}
else
{
list parsedomain = llParseString2List(domain, [ "." ], []);

if (llGetListLength(parsedomain) < 2)
return FALSE;

integer num = llGetListLength(parsedomain);
integer i;

for (i = 0; i < num; ++i)
{
if (llStringLength(llList2String(parsedomain,i)) < 2)
{
return FALSE;
}
}
}

return TRUE;
}

/////////////////////////////////// GetAddressStr() ///////////////////

string GetAndCheckAddressStr(string address)
{
list addresslist = llCSV2List(address);
integer num=llGetListLength(addresslist);
integer i;
string addressstr="";
string curaddress="";

for (i = 0; i < num; ++i)
{
curaddress=llList2String(addresslist,i);

if (ValidMailAddress(curaddress))
{
addressstr = (addressstr="") + addressstr + curaddress + ",";
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address string: '"
+ curaddress + "'.", NULL_KEY);
}
}

return llGetSubString(addressstr, 0, -2);
}

///////////////////////////// ProcessLine() ////////////////////////////

ProcessLine(string rawline)
{
string line=llStringTrim(rawline,STRING_TRIM);
string first=llGetSubString(line,0,0);
string last=llGetSubString(line,-1,-1);

// Ignore a blank line or comment line
if (line == "" || first == "#")
return;

// Check for the right section

if (first == "[" && last == "]")
{
string sectionstr=llToUpper(llStringTrim(llGetSubString(line,1,-2),STRING_TRIM));

if (sectionstr == STRING_ADDRESS_BOOK)
{
Section = SECTION_ADDRESS_BOOK;
}
else if (sectionstr == STRING_GROUP)
{
if (Section == 0)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1)
+ ". Group section defined before Address Book section.", NULL_KEY);
}
else
{
Section = SECTION_GROUP;
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid section header '" + sectionstr
+ "' in " + ADDRESSBOOK_NOTECARD + " at line " + (string)(Line + 1) + ".", NULL_KEY);
}

return;
}

// Must be in a section

if (Section == 0)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ". No section header.", NULL_KEY);
return;
}

list parse=llParseString2List(line, [ "=" ], []);
integer num=llGetListLength(parse);

// Format must be correct

if (num != 2)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid syntax in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line+1) + ":\n" + rawline, NULL_KEY);
return;
}

if (Section == SECTION_ADDRESS_BOOK)
{
string name=llStringTrim(llList2String(parse,0),STRING_TRIM);

if (llToUpper(name) == STRING_SELF)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address book entry '" + name
+ "'. Reserved word in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ".", NULL_KEY);
}
else if (llListFindList(AddressBookList, [ name ]) == -1)
{
string address=llStringTrim(llList2String(parse,1),STRING_TRIM);
string addressstr=GetAndCheckAddressStr(address);

if (addressstr != "")
{
AddressBookList = (AddressBookList=[]) + AddressBookList + [ name ];
MailAddressList = (MailAddressList=[]) + MailAddressList + [ addressstr ];
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "No valid mail address for '" + name
+ "'. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line " + (string)(Line + 1)
+ ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Name '" + name
+ "' already defined. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else // Group
{
string group=llStringTrim(llList2String(parse,0),STRING_TRIM);

if (llToUpper(group) == STRING_SELF)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Invalid address book entry '" + group
+ "'. Reserved word in '" + ADDRESSBOOK_NOTECARD
+ "' at line " + (string)(Line + 1) + ".", NULL_KEY);
}
else if (llListFindList(AddressBookList, [ group ]) == -1)
{
if (llListFindList(GroupList, [ group ]) == -1)
{
string names=llStringTrim(llList2String(parse,1),STRING_TRIM);
list namelist=llCSV2List(names);
integer num=llGetListLength(namelist);
integer i;
integer index;
string name;
string namestr="";

for (i = 0; i < num; ++i)
{
name=llList2String(namelist,i);
index=llListFindList(AddressBookList, [ name ]);

if (index == -1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Name '" + name + "' defined in Group '"
+ group + "' not found in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
else
{
namestr = (namestr="") + namestr + name + ",";
}
}

if (namestr != "")
{
namestr=llGetSubString(namestr,0,-2);
GroupList = (GroupList=[]) + GroupList + [ group ];
GroupNameList = (GroupNameList=[]) + GroupNameList + [ namestr ];
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' has no valid names. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' already defined in Group. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Group '" + group
+ "' already defined in Address Book. Entry skipped in '" + ADDRESSBOOK_NOTECARD + "' at line "
+ (string)(Line + 1) + ".", NULL_KEY);
}
}
}

//////////////////////////////// GetGroupAddressList ///////////////

string GetGroupAddressList(string group)
{
integer index=llListFindList(GroupList, [ group ]);
integer i;
integer num=llGetListLength(GroupList);
string grouplist="";

if (index == -1)
{
return "";
}
else
{
for (i = index; i < num; ++i)
{
if (llList2String(GroupList,i) == group)
{
grouplist = (grouplist="") + grouplist + llList2String(GroupNameList,i) + ",";
}
}

if (grouplist != "") grouplist=llGetSubString(grouplist,0,-2); // remove last ","
return grouplist;
}
}

//////////////////////////////// SetMailAddress() //////////////////

SetMailAddress(string address)
{
integer index=llListFindList(AddressBookList, [ address ]);

if (index == -1)
{
index=llListFindList(GroupList, [ address ]);

if (index == -1)
{
if (llToUpper(address) == STRING_SELF)
{
CurrentMailAddress = GetSelfAddress();
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
else if(ValidMailAddress(address))
{
CurrentMailAddress = address;
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Mail adress " + address
+ " : not found in adress book or invalid format.", NULL_KEY);
}
}
else
{
CurrentMailAddress = GetGroupAddressList(address);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject set to: "
+ CurrentMailAddress, NULL_KEY);
}
}
else
{
CurrentMailAddress = llList2String(MailAddressList,index);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address set to: "
+ CurrentMailAddress, NULL_KEY);
}
}

/////////////////////////////////// SendMail() ///////////////////////

SendMail(string message)
{
if (CurrentMailAddress == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "SendMail: No mail address defined.", NULL_KEY);
}
else if (CurrentMailSubject == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "SendMail: No subject defined.", NULL_KEY);
}
else
{
list mailaddresslist=llCSV2List(CurrentMailAddress);
integer num=llGetListLength(mailaddresslist);
integer i;
string address;

for (i = 0; i < num; ++i)
{
address=llList2String(mailaddresslist,i);
llEmail(address, CurrentMailSubject, message);
}
}
}

/////////////////////////////////// SendMailHome() ////////////////////

SendMailHome(string message, string subject)
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, STRING_HOME
+ " not set. Set your home adress with @HOME <address>.", NULL_KEY);
}
else
{
string homeaddress=llList2String(AddressBookList,index);
list homelist=llCSV2List(homeaddress);
integer num=llGetListLength(homelist);
integer i;
string address;

for (i = 0; i < num; ++i)
{
address=llList2String(homelist,i);
llEmail(address, subject, message);
}
}
}

/////////////////////////////////// GetHomeAddress() //////////////////

string GetHomeAddress()
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
return "not set";
}
else
{
return llList2String(MailAddressList,index);
}
}

/////////////////////////////////// SetHomeAddress() //////////////////

SetHomeAddress(string address)
{
integer index=llListFindList(AddressBookList, [ STRING_HOME ]);

if (index == -1)
{
AddressBookList = (AddressBookList=[]) + [ STRING_HOME ] + AddressBookList;
MailAddressList = (MailAddressList=[]) + [ GetAndCheckAddressStr(address) ] + MailAddressList;
}
else
{
MailAddressList = llListReplaceList(MailAddressList, [ GetAndCheckAddressStr(address) ], index, index);
}
}

////////////////////////////////////
// default
////////////////////////////////////

default
{
///////////////////// state_entry() //////////////////

state_entry()
{
Line=0;
Section=0;
llSetTimerEvent(TIMEOUT_INTERVAL);
reqAddressBook=llGetNotecardLine(ADDRESSBOOK_NOTECARD, 0);
}

///////////////////// dataserver() ////////////////////

dataserver(key id, string data)
{
if (id == reqAddressBook)
{
reqAddressBook = NULL_KEY;

if (data != EOF)
{
ProcessLine(data);
reqAddressBook=llGetNotecardLine(ADDRESSBOOK_NOTECARD, ++Line);
}
else
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_LOADED, "", NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Address Book loaded.", NULL_KEY);
state running;
}
}
}

//////////////////////// timer() ///////////////////////////

timer()
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_ERROR, "", NULL_KEY);
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Could not read Address Book: "
+ ADDRESSBOOK_NOTECARD + ".", NULL_KEY);
llSetTimerEvent(0.0);
}
}

////////////////////////////////////////////
// state running
////////////////////////////////////////////

state running
{
state_entry()
{
llMessageLinked(LINK_THIS, MSG_ADDRESSBOOK_LOADED, "", NULL_KEY);
}

///////////////////////// link_message() ////////////////////

link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_MESSAGE_GETSUBJECT)
{
if (CurrentMailSubject == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject is empty.", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject is: "
+ CurrentMailSubject, NULL_KEY);
}
}
else if (msgid == MSG_MESSAGE_SETSUBJECT)
{
CurrentMailSubject = message;
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail subject set to: "
+ CurrentMailSubject, NULL_KEY);
}
else if (msgid == MSG_MESSAGE_GETADDRESS)
{
if (CurrentMailAddress == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address is empty.", NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Current mail address is: "
+ CurrentMailAddress, NULL_KEY);
}
}
else if (msgid == MSG_MESSAGE_SETADDRESS)
{
SetMailAddress(message);
}
else if (msgid == MSG_MESSAGE_SEND)
{
if (message == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Body of message to send is empty. "
+ "No mail is send.", NULL_KEY);
}
else
{
SendMail(message);
}
}
else if (msgid == MSG_MESSAGE_SENDHOME)
{
SendMailHome(message, (string)id);
}
else if (msgid == MSG_MESSAGE_SEND_NOTECARD)
{
if (llGetInventoryType(message) == INVENTORY_NOTECARD)
{
Notecard2Fetch = message;
llMessageLinked(LINK_THIS, MSG_NOTECARD_READ, message, NULL_KEY);
}
else
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Notecard " + message + " not found.", NULL_KEY);
}
}
else if (msgid == MSG_NOTECARD_FETCHED)
{
if (message == "")
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Notecard " + Notecard2Fetch
+ " was empty or could not be read.", NULL_KEY);
}
else
{
SendMail(message);
}
}
else if (msgid == MSG_MESSAGE_GETHOME)
{
llMessageLinked(LINK_THIS, MSG_MESSAGE_REPLY, "Home address is: " + GetHomeAddress() + ".", NULL_KEY);
}
else if (msgid == MSG_MESSAGE_SETHOME)
{
SetHomeAddress(message);
}
else if (msgid == MSG_MESSAGE_INFO)
{
Info();
}
}
}

/////////////////////////////////////
// End SL Mail AddressBook V1.2.lsl
/////////////////////////////////////
</pre>
</div>
</div>

<div id="box">

==Script: SL Mail FetchNotecard V1.2==
<div style="padding: 0.5em;">
Fetch the contents of a notecard and return it via link message as a string.
<pre>
// SL Mail FetchNotecard V1.2.lsl
//
//

// Notecard

integer Line=0;
string Notecard2Fetch="";
key reqNotecard=NULL_KEY;
float TIMEOUT_INTERVAL=10.0;
integer Fetched=FALSE;

// Lines

list LineList=[];

// Link messages

integer MSG_NOTECARD_READ = 100000;
integer MSG_NOTECARD_FETCHED = 100100;

///////////////////////////////////////////
// default
//////////////////////////////////////////

default
{
/////////////////////// dataserver() //////////////////////////////

dataserver(key id, string data)
{
if (id == reqNotecard)
{
reqNotecard=NULL_KEY;

if (data != EOF)
{
LineList = (LineList=[]) + LineList + [ data ];
reqNotecard = llGetNotecardLine(Notecard2Fetch, ++Line);
}
else
{
Fetched=TRUE;
llMessageLinked(LINK_THIS, MSG_NOTECARD_FETCHED, llDumpList2String(LineList, "\n"), NULL_KEY);
llSetTimerEvent(0.0);
}
}
}

/////////////////////// timer() ///////////////////////////////////

timer()
{
if (!Fetched)
{
llMessageLinked(LINK_THIS, MSG_NOTECARD_FETCHED, "", NULL_KEY);
llSetTimerEvent(0.0);
}
}

/////////////////////// link_message() ////////////////////////////

link_message(integer send, integer msgid, string message, key id)
{
if (msgid == MSG_NOTECARD_READ)
{
Line=0;
Notecard2Fetch=message;
LineList=[];
Fetched=FALSE;
reqNotecard=llGetNotecardLine(Notecard2Fetch, Line);
llSetTimerEvent(TIMEOUT_INTERVAL);
}
}
}

// End SL Mail FetchNotecard V1.2.lsl
</pre>
</div>
</div>

<div id="box">

==Script: SL OnlineStatus V1.2==
<div style="padding: 0.5em;">
Fetch online status of owner.
<pre>
// SL Mail OnlineStatus V1.2.lsl
//
//

// Online status

key reqOnlineStatus=NULL_KEY;
float STATUS_INTERVAL=2.0;

// Link messages

integer MSG_STATUS_ONLINE = 30000;
integer MS_STATUS_OFFLINE = 30100;

////////////////////////////////
// default
////////////////////////////////

default
{
///////////////////////// state_entry() /////////////////////////

state_entry()
{
reqOnlineStatus=llRequestAgentData(llGetOwner(), DATA_ONLINE);
llSetTimerEvent(STATUS_INTERVAL);
}

///////////////////////// dataserver() //////////////////////////

dataserver(key id, string data)
{
if (id == reqOnlineStatus)
{
reqOnlineStatus = NULL_KEY;

if (data=="1")
{
llMessageLinked(LINK_THIS, MSG_STATUS_ONLINE, "", NULL_KEY);
}
else if (data=="0")
{
llMessageLinked(LINK_THIS, MS_STATUS_OFFLINE, "", NULL_KEY);
}
}
}

///////////////////////// timer() ///////////////////////////////

timer()
{
reqOnlineStatus = llRequestAgentData(llGetOwner(), DATA_ONLINE);
}
}

// End SL Mail OnlineStatus V1.2.lsl
</pre>
</div>
</div>

<div id="box">

==Script: SL Mail Help V1.2==
<div style="padding: 0.5em;">
Display help information.

<pre>
// SL Mail Help V1.2.lsl
//
//

integer MSG_HELP = 10000;

///////////////////////////////// Help() ///////////////////////////////////////

Help()
{
llOwnerSay("HELP for SL Mail V1.2.");
llOwnerSay("COMMANDS:");
llOwnerSay("@HELP - displays help info.");
llOwnerSay("@INFO - display mailaddress of this object.");
llOwnerSay("@RECORD - start recording.");
llOwnerSay("@CONTINUE - continue recording.");
llOwnerSay("@STOP - stop recording.");
llOwnerSay("@IGNORE - ignore the recording.");
llOwnerSay("@SHOW - show what your recorded.");
llOwnerSay("@SEND - send the recording.");
llOwnerSay("@MAIL <mailadress> - set the mail adress.");
llOwnerSay("@SUBJECT subject - set the mail subject.");
llOwnerSay("@LIST - list messages in mail buffer.");
llOwnerSay("@SELECT <message> - select message from mail buffer.");
llOwnerSay("@READ - read current message from mail buffer.");
llOwnerSay("@NEXT - read next message from mail buffer.");
llOwnerSay("@PREV - read previous message from mail buffer.");
llOwnerSay("@FIRST - read first message from mail buffer.");
llOwnerSay("@LAST - read last message from mail buffer.");
llOwnerSay("@DELETE - delete current message from mail buffer.");
llOwnerSay("@CLEAR - clear the mail buffer.");
llOwnerSay("@REPLY - reply to current message.");
llOwnerSay("@RESET - reset the script.");
llOwnerSay("@HOME - set the home mail adress.");
llOwnerSay("@OFF - switch mailbox OFF.");
llOwnerSay("@ON - switch mailbox ON.");
}

/////////////////////////////////////////////
// default
/////////////////////////////////////////////

default
{
link_message(integer sender, integer msgid, string message, key id)
{
if (msgid == MSG_HELP)
{
Help();
}
}
}

// End SL Mail Help V1.2.lsl
</pre>
</div>
</div>
[[Image:slmail.info.jpg]]

{{LSLC|Library}}