Version 0.33e

Main changes since 0.32a
Support for TLML-L pages, re-added scanned in the background.

Main changes since 0.31
- support for TLML-Light pages

Main changes from 0.25:
- types of data transmitted are now described by the first character sent
- types of data: animation, sound, TLML, URL, XTMP, notecard key, chat request, RPC
- TLTP codes migrated to TLML
- TLTP-RPC
- URL format revised

Main changes from 0.2:
- codes for XTMP
- code for remote animation playing
- code for remote sound playing
- added stub for future TLTP-RPC

Main changes from 0.1:
- both modes of communication are now stateless and connectionless, although the TLTP-over-chat method is still filtered on the server->client way, by channel number
- chat-capable servers now advertise on -9, instead of clients advertising
- new -06 error code for server-initiated redirections

// TLTP Server
// version 0.33e
// Author: Jesrad Seraph
// Modify and redistribute freely as long as you allow free modification and redistribution

// This example server supports both chat and email transport methods
// The pages are sent as keys for server performance

// Currently, the default page is the first page cached.

// TODO: support crossing the transport methods (listen->email, email->shout)

integer cur_emailer = 0;
integer max_emailer;

string indexname;        // contains the index page name

integer channel = 777;        // private server channel for accepting requests
integer handle;            // listener handle for getting requests
float advert_rate = 5.0;    // timerate for announcing the server
string tltp_str = "TLTP";    // saving memory
//string eof = EOF;
key ind;
integer index;

list TLML_L;


// courtesy of Strife Onizuka
list TightListParse(string a)
{
    string b = llGetSubString(a,0,0);//save memory
    return llParseStringKeepNulls(llDeleteSubString(a,0,0), [a=b],[]);
}
string TightListDump(list a, string b)
{
    string c = (string)a;
    if(llStringLength(b)==1)
        if(llSubStringIndex(c,b) == -1)
            jump end;
    integer d = -llStringLength(b += "|\\/?!@#$%^&*()_=:;~{}[],\n\" qQxXzZ");
    while(1+llSubStringIndex(c,llGetSubString(b,d,d)) && d)
        ++d;
    b = llGetSubString(b,d,d);
    @end;
    c = "";//save memory
    return b + llDumpList2String(a, b);
}

sendEmail(string a, string s, string m)
{
    if (max_emailer > 0)
    {
        llMessageLinked(LINK_THIS, cur_emailer, TightListDump([a + "@lsl.secondlife.com", s, m], "!"), "");
        cur_emailer = (cur_emailer + 1) % max_emailer;
    } else llEmail(a + "@lsl.secondlife.com", s, m);
}

default
{
    state_entry()
    {
        if (llGetInventoryNumber(INVENTORY_NOTECARD) <= 0)
        {
            llOwnerSay("No pages found.");
        } else state ready;
    }

    changed(integer c)
    {
        if (c & CHANGED_INVENTORY) { llSleep(1.0); llResetScript(); }
    }
}

state ready
{    
    state_entry()
    {
        index = llGetListLength(TLML_L);
        while(index)
            if(llGetInventoryType(llList2String(TLML_L, --index)) == INVENTORY_NONE)
                TLML_L = llDeleteSubList(TLML_L,index,index);
        indexname = llGetInventoryName(INVENTORY_NOTECARD, index = 0);
        integer a = llGetInventoryNumber(INVENTORY_NOTECARD);
        while(index < a)
            if(llListFindList(TLML_L, [llGetInventoryName(INVENTORY_NOTECARD, index)]) + 1)
                ++index;
            else
            {
                ind = llGetNotecardLine(llGetInventoryName(INVENTORY_NOTECARD, index), 0);
                a = index;
            }
        max_emailer = llGetInventoryNumber(INVENTORY_SCRIPT) - 1;
        handle = llListen(channel, "", "", "");
        llOwnerSay("Server ready on channel " + (string)channel);
        llSetTimerEvent(advert_rate);
        llOwnerSay((string)llGetKey() + "@lsl.secondlife.com");
        if (llGetObjectDesc() == "") llSetObjectDesc("Server");
    }

    dataserver(key queryid, string data)
    {
        if(ind == queryid)
        {
            if(llList2String(TightListParse(data),-1) == "TLML-L")
                if(llListFindList(TLML_L, [data = llGetInventoryName(INVENTORY_NOTECARD, index)]) == -1)
                    TLML_L += data;
            if(++index < llGetInventoryNumber(INVENTORY_NOTECARD))
                ind = llGetNotecardLine(llGetInventoryName(INVENTORY_NOTECARD, index), 0);
        }
    }

    changed(integer c)
    {
        if (c & CHANGED_INVENTORY) { llSleep(1.0); state default; }
    }

    timer()
    {
        llShout(-9, "U" + TightListDump([indexname, 0, channel, llGetObjectDesc()], "#") );
        llGetNextEmail("", "");
    }

    listen(integer ch, string n, key id, string msg)
    {
        string a = llGetSubString(msg, 0, 0);
        if (a != "U") return;
        list info = TightListParse(llDeleteSubString(msg, 0, 0));
        if (llGetListLength(info) < 3) return;    // simple sanity check

        string req = llList2String(info, 0);
        key thepage = llGetInventoryKey(req);
        string m = llList2String(info, 1);
        integer c = (integer)llList2String(info, 2);

        if (m != "0") return;    // not supporting cross transport methods right now

        if (thepage == NULL_KEY)
        {
            llShout(c, "T" + TightListDump(["-4", indexname], "!"));
        } else {
            integer type = llGetInventoryType(req);
            if (type + 1)
            {
                if (type == INVENTORY_NOTECARD) {
                    if(llListFindList(TLML_L, [req]) + 1)
                        req = "U" + TightListDump([(string)thepage, 2, 0, llGetKey()], "!");
                    else
                        req = "t" + (string)thepage;
                    llShout(c, req);
                } else
                if (type == INVENTORY_ANIMATION) { llShout(c, "A" + (string)thepage); } else
                if (type == INVENTORY_SOUND) { llShout(c, "S" + TightListDump([(string)thepage, "1.0"], "!")); } else
                if (type == INVENTORY_SCRIPT) { llShout(c, "T" + TightListDump(["-4", indexname], "!")); } else
                {
                    llShout(c, "cDownloading " + req);
                    if((n = llGetOwnerKey(id)) != id)
                        llGiveInventory(n, req);
                    else
                    {
                        llShout(c, "cCannot resolve your key ! Please come to sim " + llGetRegionName());
                    }
                }
            }
            else
            {
                llShout(c, "T" + TightListDump(["-4", indexname], "!"));
            }
        }
    }

    email(string time, string address, string subj, string message, integer left)
    {
        if (subj == tltp_str)
        {
            integer start = llSubStringIndex(message, "\n\n") + 2;
            string a = llGetSubString(message, start, start);
            if (a != "U") return;

            list info = TightListParse(llDeleteSubString(message, 0, start));
            string req = llList2String(info, 0);
            key thepage = llGetInventoryKey(req);
            string m = llList2String(info, 1);
            if (m != "1") return;    // not supporting cross transport methods right now

            if (thepage == NULL_KEY)
            {
            } else {
                integer type = llGetInventoryType(req);
                if (type + 1)
                {
                    // page is not a notecard
                    if (type == INVENTORY_NOTECARD) {
                        if(llListFindList(TLML_L, [req]) + 1)
                            req = "U" + TightListDump([(string)thepage, 2, 0, llGetKey()], "!");
                        else
                            req = "t" + (string)thepage;
                        sendEmail(llList2String(info, 2), tltp_str, req); } else
                    if (type == INVENTORY_ANIMATION) { sendEmail(llList2String(info, 2), tltp_str, "A" + indexname); } else
                    if (type == INVENTORY_SOUND) { sendEmail(llList2String(info, 2), tltp_str, "S" + TightListDump([thepage, "1.0"], "!")); } else
                    if (type == INVENTORY_SCRIPT) { sendEmail(llList2String(info, 2), tltp_str, "T" + TightListDump(["-4", indexname], "!")); } else
                    {
                        sendEmail(llList2String(info, 2), tltp_str, "cDownloading " + req);
                        string id = llGetOwnerKey(llGetSubString(message, 0, 35));
                        if (id != llGetSubString(message, 0, 35)) {
                            llGiveInventory(id, req);
                        } else sendEmail(llList2String(info, 2), tltp_str, "cCannot resolve your key ! Please come to sim " + llGetRegionName());
                    }
                }
                else
                {
                    sendEmail(llList2String(info, 2), tltp_str, "T!-4");
                }
            }
        } else llOwnerSay("Unknown email received: " + subj + ": " + message);
    }
}

// MoveTo TLTP Plugin
// Sample plugin for RPC demonstration

integer rpc_code = 4400;

list TightListParse(string a)
{
    string b = llGetSubString(a,0,0);//save memory
    return llParseStringKeepNulls(llDeleteSubString(a,0,0), [a=b],[]);
}

default
{
    link_message(integer part, integer code, string msg, key id)
    {
        if (code != rpc_code) return;
        if (msg != llGetScriptName()) return;

        list l = TightListParse((string)id);
        float delta;

        if (llGetListLength(l) > 1) { delta = (float)llList2String(l, 1); } else
            delta = 0.5;

        vector target = (vector)llList2String(l, 0);

        if (target == ZERO_VECTOR)
        {
            llStopMoveToTarget();
        } else llMoveToTarget(target, delta);
    }
}