$$$$$$$$$$$$$$$$$$

$$ VendorTracker(client)v3
$$ lsl

string vendor_tracker;
string name;
float start_time = 56700.0;
float end_time = 56710.0;
float time_now;

key owner;

default
{on_rez(integer params){llResetScript();}
    state_entry()
    {owner=llGetOwner();
    name = llKey2Name(owner);
    vendor_tracker = llGetObjectDesc();
    if (owner != llGetCreator()){llSetObjectDesc(" ");}
   
        llEmail(vendor_tracker + "@lsl.secondlife.com", "VendorTracker", (string)llGetKey()+","+llGetRegionName()+","+name);
        llSetTimerEvent(2.5);
    }
timer()
    {time_now=llGetGMTclock();
    llGetNextEmail("", "email_update"); // Check for email with any sender address and subject.
    if (time_now > start_time && time_now < end_time){llSay(0,"Updating");llEmail(vendor_tracker + "@lsl.secondlife.com", "VendorTracker", (string)llGetKey()+","+llGetRegionName()+","+name);}
    }
   email(string time, string address, string subj, string message, integer num_left)
    {   message = llDeleteSubString(message, 0, llSubStringIndex(message, "\n\n") + 1);
        list update_command =     llParseString2List(message,[","],[""]);
        string command =              llList2String(update_command, 0);
        string creator =              llList2String(update_command, 1);
       
    if(command=="Refresh"){llEmail(vendor_tracker + "@lsl.secondlife.com", "VendorTracker",(string)llGetKey()+","+llGetRegionName()+","+name); }
   
    if(command=="KillAll"){llInstantMessage(llGetOwner(), "Your Vendors have been deleted by an Administrator. Please contact "+creator+" for more information!"); llDie();
    }
   
    }
}